From 0dde4a04fcd0b92473c75fe95d2e2894cdcd2a9e Mon Sep 17 00:00:00 2001 From: Derek Slaughter Date: Tue, 5 Dec 2023 22:11:02 +0000 Subject: [PATCH] Update registry pack/unpack to use int64 indices This also includes a change to the NWTC_Library CMakeLists.txt which automatically regenerates NWTC_Library_Types.f90 when Registry_NWTC_Library_base.txt changes --- .../fast-farm/src/FASTWrapper_Types.f90 | 140 +- glue-codes/fast-farm/src/FAST_Farm_Types.f90 | 230 +- modules/aerodyn/src/AeroAcoustics_Types.f90 | 748 ++-- modules/aerodyn/src/AeroDyn_Driver_Types.f90 | 202 +- modules/aerodyn/src/AeroDyn_Inflow_Types.f90 | 262 +- modules/aerodyn/src/AeroDyn_Types.f90 | 1390 +++---- modules/aerodyn/src/AirfoilInfo_Types.f90 | 70 +- modules/aerodyn/src/BEMT_Types.f90 | 474 +-- modules/aerodyn/src/DBEMT_Types.f90 | 150 +- modules/aerodyn/src/FVW_Types.f90 | 856 ++-- modules/aerodyn/src/UnsteadyAero_Types.f90 | 474 +-- modules/aerodyn14/src/AeroDyn14_Types.f90 | 818 ++-- modules/aerodyn14/src/DWM_Types.f90 | 368 +- modules/awae/src/AWAE_Types.f90 | 606 +-- modules/beamdyn/src/BeamDyn_Types.f90 | 758 ++-- modules/elastodyn/src/ElastoDyn_Types.f90 | 1506 +++---- .../src/ExternalInflow_Types.f90 | 314 +- modules/extptfm/src/ExtPtfm_MCKF_Types.f90 | 338 +- modules/feamooring/src/FEAMooring_Types.f90 | 448 +- modules/hydrodyn/src/Conv_Radiation_Types.f90 | 62 +- modules/hydrodyn/src/HydroDyn_Types.f90 | 466 +-- modules/hydrodyn/src/Morison_Types.f90 | 872 ++-- modules/hydrodyn/src/SS_Excitation_Types.f90 | 126 +- modules/hydrodyn/src/SS_Radiation_Types.f90 | 128 +- modules/hydrodyn/src/WAMIT2_Types.f90 | 56 +- modules/hydrodyn/src/WAMIT_Types.f90 | 122 +- modules/icedyn/src/IceDyn_Types.f90 | 160 +- modules/icefloe/src/icefloe/IceFloe_Types.f90 | 54 +- .../inflowwind/src/IfW_FlowField_Types.f90 | 164 +- .../inflowwind/src/InflowWind_IO_Types.f90 | 8 +- modules/inflowwind/src/InflowWind_Types.f90 | 204 +- modules/inflowwind/src/Lidar_Types.f90 | 62 +- modules/map/src/MAP_Fortran_Types.f90 | 32 +- modules/map/src/MAP_Types.f90 | 270 +- modules/moordyn/src/MoorDyn_Types.f90 | 974 ++--- modules/nwtc-library/CMakeLists.txt | 13 +- modules/nwtc-library/ModRegGen.py | 69 +- .../src/Generate_NWTC_Library_Types.bat | 4 +- modules/nwtc-library/src/ModMesh_Mapping.f90 | 986 ++--- modules/nwtc-library/src/ModReg.f90 | 436 +- .../nwtc-library/src/NWTC_Library_Types.f90 | 60 +- .../src/Registry_NWTC_Library.txt | 116 +- ...esh.txt => Registry_NWTC_Library_base.txt} | 0 ...esh.txt => Registry_NWTC_Library_mesh.txt} | 0 modules/openfast-library/src/FAST_Types.f90 | 3614 ++++++++--------- .../src/registry_gen_fortran.cpp | 48 +- .../src/OrcaFlexInterface_Types.f90 | 66 +- modules/seastate/src/Current_Types.f90 | 26 +- .../seastate/src/SeaSt_WaveField_Types.f90 | 94 +- modules/seastate/src/SeaState_Types.f90 | 146 +- modules/seastate/src/Waves2_Types.f90 | 62 +- modules/seastate/src/Waves_Types.f90 | 34 +- modules/servodyn/src/ServoDyn_Types.f90 | 1536 +++---- modules/servodyn/src/StrucCtrl_Types.f90 | 348 +- modules/subdyn/src/SubDyn_Types.f90 | 976 ++--- .../supercontroller/src/SCDataEx_Types.f90 | 36 +- .../src/SuperController_Types.f90 | 88 +- .../wakedynamics/src/WakeDynamics_Types.f90 | 348 +- 58 files changed, 11599 insertions(+), 11419 deletions(-) rename modules/nwtc-library/src/{Registry_NWTC_Library_typedef_nomesh.txt => Registry_NWTC_Library_base.txt} (100%) rename modules/nwtc-library/src/{Registry_NWTC_Library_typedef_mesh.txt => Registry_NWTC_Library_mesh.txt} (100%) diff --git a/glue-codes/fast-farm/src/FASTWrapper_Types.f90 b/glue-codes/fast-farm/src/FASTWrapper_Types.f90 index cb9cab5c0a..4b56e2cc0d 100644 --- a/glue-codes/fast-farm/src/FASTWrapper_Types.f90 +++ b/glue-codes/fast-farm/src/FASTWrapper_Types.f90 @@ -133,7 +133,7 @@ subroutine FWrap_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FWrap_CopyInitInput' ErrStat = ErrID_None @@ -160,8 +160,8 @@ subroutine FWrap_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%NumCtrl2SC = SrcInitInputData%NumCtrl2SC DstInitInputData%UseSC = SrcInitInputData%UseSC if (allocated(SrcInitInputData%fromSCGlob)) then - LB(1:1) = lbound(SrcInitInputData%fromSCGlob) - UB(1:1) = ubound(SrcInitInputData%fromSCGlob) + LB(1:1) = lbound(SrcInitInputData%fromSCGlob, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%fromSCGlob, kind=B8Ki) if (.not. allocated(DstInitInputData%fromSCGlob)) then allocate(DstInitInputData%fromSCGlob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -172,8 +172,8 @@ subroutine FWrap_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%fromSCGlob = SrcInitInputData%fromSCGlob end if if (allocated(SrcInitInputData%fromSC)) then - LB(1:1) = lbound(SrcInitInputData%fromSC) - UB(1:1) = ubound(SrcInitInputData%fromSC) + LB(1:1) = lbound(SrcInitInputData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%fromSC, kind=B8Ki) if (.not. allocated(DstInitInputData%fromSC)) then allocate(DstInitInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -231,17 +231,17 @@ subroutine FWrap_PackInitInput(Buf, Indata) call RegPack(Buf, InData%UseSC) call RegPack(Buf, allocated(InData%fromSCGlob)) if (allocated(InData%fromSCGlob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCGlob), ubound(InData%fromSCGlob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCGlob, kind=B8Ki), ubound(InData%fromSCGlob, kind=B8Ki)) call RegPack(Buf, InData%fromSCGlob) end if call RegPack(Buf, allocated(InData%fromSC)) if (allocated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPack(Buf, InData%fromSC) end if call RegPack(Buf, associated(InData%Vdist_High)) if (associated(InData%Vdist_High)) then - call RegPackBounds(Buf, 5, lbound(InData%Vdist_High), ubound(InData%Vdist_High)) + call RegPackBounds(Buf, 5, lbound(InData%Vdist_High, kind=B8Ki), ubound(InData%Vdist_High, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Vdist_High), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Vdist_High) @@ -254,10 +254,10 @@ subroutine FWrap_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FWrap_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackInitInput' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%nr) @@ -568,8 +568,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FWrap_CopyMisc' @@ -579,8 +579,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%TempDisp)) then - LB(1:1) = lbound(SrcMiscData%TempDisp) - UB(1:1) = ubound(SrcMiscData%TempDisp) + LB(1:1) = lbound(SrcMiscData%TempDisp, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%TempDisp, kind=B8Ki) if (.not. allocated(DstMiscData%TempDisp)) then allocate(DstMiscData%TempDisp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -595,8 +595,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%TempLoads)) then - LB(1:1) = lbound(SrcMiscData%TempLoads) - UB(1:1) = ubound(SrcMiscData%TempLoads) + LB(1:1) = lbound(SrcMiscData%TempLoads, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%TempLoads, kind=B8Ki) if (.not. allocated(DstMiscData%TempLoads)) then allocate(DstMiscData%TempLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -611,8 +611,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%ADRotorDisk)) then - LB(1:1) = lbound(SrcMiscData%ADRotorDisk) - UB(1:1) = ubound(SrcMiscData%ADRotorDisk) + LB(1:1) = lbound(SrcMiscData%ADRotorDisk, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%ADRotorDisk, kind=B8Ki) if (.not. allocated(DstMiscData%ADRotorDisk)) then allocate(DstMiscData%ADRotorDisk(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -627,8 +627,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%AD_L2L)) then - LB(1:1) = lbound(SrcMiscData%AD_L2L) - UB(1:1) = ubound(SrcMiscData%AD_L2L) + LB(1:1) = lbound(SrcMiscData%AD_L2L, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AD_L2L, kind=B8Ki) if (.not. allocated(DstMiscData%AD_L2L)) then allocate(DstMiscData%AD_L2L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -648,8 +648,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) type(FWrap_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FWrap_DestroyMisc' @@ -658,8 +658,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) call FAST_DestroyTurbineType(MiscData%Turbine, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MiscData%TempDisp)) then - LB(1:1) = lbound(MiscData%TempDisp) - UB(1:1) = ubound(MiscData%TempDisp) + LB(1:1) = lbound(MiscData%TempDisp, kind=B8Ki) + UB(1:1) = ubound(MiscData%TempDisp, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%TempDisp(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -667,8 +667,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%TempDisp) end if if (allocated(MiscData%TempLoads)) then - LB(1:1) = lbound(MiscData%TempLoads) - UB(1:1) = ubound(MiscData%TempLoads) + LB(1:1) = lbound(MiscData%TempLoads, kind=B8Ki) + UB(1:1) = ubound(MiscData%TempLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%TempLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -676,8 +676,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%TempLoads) end if if (allocated(MiscData%ADRotorDisk)) then - LB(1:1) = lbound(MiscData%ADRotorDisk) - UB(1:1) = ubound(MiscData%ADRotorDisk) + LB(1:1) = lbound(MiscData%ADRotorDisk, kind=B8Ki) + UB(1:1) = ubound(MiscData%ADRotorDisk, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%ADRotorDisk(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -685,8 +685,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%ADRotorDisk) end if if (allocated(MiscData%AD_L2L)) then - LB(1:1) = lbound(MiscData%AD_L2L) - UB(1:1) = ubound(MiscData%AD_L2L) + LB(1:1) = lbound(MiscData%AD_L2L, kind=B8Ki) + UB(1:1) = ubound(MiscData%AD_L2L, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%AD_L2L(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -699,42 +699,42 @@ subroutine FWrap_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FWrap_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'FWrap_PackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call FAST_PackTurbineType(Buf, InData%Turbine) call RegPack(Buf, allocated(InData%TempDisp)) if (allocated(InData%TempDisp)) then - call RegPackBounds(Buf, 1, lbound(InData%TempDisp), ubound(InData%TempDisp)) - LB(1:1) = lbound(InData%TempDisp) - UB(1:1) = ubound(InData%TempDisp) + call RegPackBounds(Buf, 1, lbound(InData%TempDisp, kind=B8Ki), ubound(InData%TempDisp, kind=B8Ki)) + LB(1:1) = lbound(InData%TempDisp, kind=B8Ki) + UB(1:1) = ubound(InData%TempDisp, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%TempDisp(i1)) end do end if call RegPack(Buf, allocated(InData%TempLoads)) if (allocated(InData%TempLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%TempLoads), ubound(InData%TempLoads)) - LB(1:1) = lbound(InData%TempLoads) - UB(1:1) = ubound(InData%TempLoads) + call RegPackBounds(Buf, 1, lbound(InData%TempLoads, kind=B8Ki), ubound(InData%TempLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%TempLoads, kind=B8Ki) + UB(1:1) = ubound(InData%TempLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%TempLoads(i1)) end do end if call RegPack(Buf, allocated(InData%ADRotorDisk)) if (allocated(InData%ADRotorDisk)) then - call RegPackBounds(Buf, 1, lbound(InData%ADRotorDisk), ubound(InData%ADRotorDisk)) - LB(1:1) = lbound(InData%ADRotorDisk) - UB(1:1) = ubound(InData%ADRotorDisk) + call RegPackBounds(Buf, 1, lbound(InData%ADRotorDisk, kind=B8Ki), ubound(InData%ADRotorDisk, kind=B8Ki)) + LB(1:1) = lbound(InData%ADRotorDisk, kind=B8Ki) + UB(1:1) = ubound(InData%ADRotorDisk, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%ADRotorDisk(i1)) end do end if call RegPack(Buf, allocated(InData%AD_L2L)) if (allocated(InData%AD_L2L)) then - call RegPackBounds(Buf, 1, lbound(InData%AD_L2L), ubound(InData%AD_L2L)) - LB(1:1) = lbound(InData%AD_L2L) - UB(1:1) = ubound(InData%AD_L2L) + call RegPackBounds(Buf, 1, lbound(InData%AD_L2L, kind=B8Ki), ubound(InData%AD_L2L, kind=B8Ki)) + LB(1:1) = lbound(InData%AD_L2L, kind=B8Ki) + UB(1:1) = ubound(InData%AD_L2L, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%AD_L2L(i1)) end do @@ -746,8 +746,8 @@ subroutine FWrap_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FWrap_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -820,15 +820,15 @@ subroutine FWrap_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FWrap_CopyParam' ErrStat = ErrID_None ErrMsg = '' DstParamData%nr = SrcParamData%nr if (allocated(SrcParamData%r)) then - LB(1:1) = lbound(SrcParamData%r) - UB(1:1) = ubound(SrcParamData%r) + LB(1:1) = lbound(SrcParamData%r, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%r, kind=B8Ki) if (.not. allocated(DstParamData%r)) then allocate(DstParamData%r(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -862,7 +862,7 @@ subroutine FWrap_PackParam(Buf, Indata) call RegPack(Buf, InData%nr) call RegPack(Buf, allocated(InData%r)) if (allocated(InData%r)) then - call RegPackBounds(Buf, 1, lbound(InData%r), ubound(InData%r)) + call RegPackBounds(Buf, 1, lbound(InData%r, kind=B8Ki), ubound(InData%r, kind=B8Ki)) call RegPack(Buf, InData%r) end if call RegPack(Buf, InData%n_FAST_low) @@ -874,7 +874,7 @@ subroutine FWrap_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FWrap_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackParam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -906,14 +906,14 @@ subroutine FWrap_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FWrap_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%fromSCglob)) then - LB(1:1) = lbound(SrcInputData%fromSCglob) - UB(1:1) = ubound(SrcInputData%fromSCglob) + LB(1:1) = lbound(SrcInputData%fromSCglob, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fromSCglob, kind=B8Ki) if (.not. allocated(DstInputData%fromSCglob)) then allocate(DstInputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -924,8 +924,8 @@ subroutine FWrap_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg DstInputData%fromSCglob = SrcInputData%fromSCglob end if if (allocated(SrcInputData%fromSC)) then - LB(1:1) = lbound(SrcInputData%fromSC) - UB(1:1) = ubound(SrcInputData%fromSC) + LB(1:1) = lbound(SrcInputData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fromSC, kind=B8Ki) if (.not. allocated(DstInputData%fromSC)) then allocate(DstInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -959,12 +959,12 @@ subroutine FWrap_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%fromSCglob)) if (allocated(InData%fromSCglob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCglob), ubound(InData%fromSCglob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCglob, kind=B8Ki), ubound(InData%fromSCglob, kind=B8Ki)) call RegPack(Buf, InData%fromSCglob) end if call RegPack(Buf, allocated(InData%fromSC)) if (allocated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPack(Buf, InData%fromSC) end if if (RegCheckErr(Buf, RoutineName)) return @@ -974,7 +974,7 @@ subroutine FWrap_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FWrap_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1014,14 +1014,14 @@ subroutine FWrap_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FWrap_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%toSC)) then - LB(1:1) = lbound(SrcOutputData%toSC) - UB(1:1) = ubound(SrcOutputData%toSC) + LB(1:1) = lbound(SrcOutputData%toSC, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%toSC, kind=B8Ki) if (.not. allocated(DstOutputData%toSC)) then allocate(DstOutputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1039,8 +1039,8 @@ subroutine FWrap_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%D_rotor = SrcOutputData%D_rotor DstOutputData%DiskAvg_Vx_Rel = SrcOutputData%DiskAvg_Vx_Rel if (allocated(SrcOutputData%AzimAvg_Ct)) then - LB(1:1) = lbound(SrcOutputData%AzimAvg_Ct) - UB(1:1) = ubound(SrcOutputData%AzimAvg_Ct) + LB(1:1) = lbound(SrcOutputData%AzimAvg_Ct, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%AzimAvg_Ct, kind=B8Ki) if (.not. allocated(DstOutputData%AzimAvg_Ct)) then allocate(DstOutputData%AzimAvg_Ct(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1051,8 +1051,8 @@ subroutine FWrap_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%AzimAvg_Ct = SrcOutputData%AzimAvg_Ct end if if (allocated(SrcOutputData%AzimAvg_Cq)) then - LB(1:1) = lbound(SrcOutputData%AzimAvg_Cq) - UB(1:1) = ubound(SrcOutputData%AzimAvg_Cq) + LB(1:1) = lbound(SrcOutputData%AzimAvg_Cq, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%AzimAvg_Cq, kind=B8Ki) if (.not. allocated(DstOutputData%AzimAvg_Cq)) then allocate(DstOutputData%AzimAvg_Cq(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1089,7 +1089,7 @@ subroutine FWrap_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%toSC)) if (allocated(InData%toSC)) then - call RegPackBounds(Buf, 1, lbound(InData%toSC), ubound(InData%toSC)) + call RegPackBounds(Buf, 1, lbound(InData%toSC, kind=B8Ki), ubound(InData%toSC, kind=B8Ki)) call RegPack(Buf, InData%toSC) end if call RegPack(Buf, InData%xHat_Disk) @@ -1101,12 +1101,12 @@ subroutine FWrap_PackOutput(Buf, Indata) call RegPack(Buf, InData%DiskAvg_Vx_Rel) call RegPack(Buf, allocated(InData%AzimAvg_Ct)) if (allocated(InData%AzimAvg_Ct)) then - call RegPackBounds(Buf, 1, lbound(InData%AzimAvg_Ct), ubound(InData%AzimAvg_Ct)) + call RegPackBounds(Buf, 1, lbound(InData%AzimAvg_Ct, kind=B8Ki), ubound(InData%AzimAvg_Ct, kind=B8Ki)) call RegPack(Buf, InData%AzimAvg_Ct) end if call RegPack(Buf, allocated(InData%AzimAvg_Cq)) if (allocated(InData%AzimAvg_Cq)) then - call RegPackBounds(Buf, 1, lbound(InData%AzimAvg_Cq), ubound(InData%AzimAvg_Cq)) + call RegPackBounds(Buf, 1, lbound(InData%AzimAvg_Cq, kind=B8Ki), ubound(InData%AzimAvg_Cq, kind=B8Ki)) call RegPack(Buf, InData%AzimAvg_Cq) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1116,7 +1116,7 @@ subroutine FWrap_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FWrap_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/glue-codes/fast-farm/src/FAST_Farm_Types.f90 b/glue-codes/fast-farm/src/FAST_Farm_Types.f90 index c4582b0b6e..c7bdc1d425 100644 --- a/glue-codes/fast-farm/src/FAST_Farm_Types.f90 +++ b/glue-codes/fast-farm/src/FAST_Farm_Types.f90 @@ -197,8 +197,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyParam' @@ -213,8 +213,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%SC_FileName = SrcParamData%SC_FileName DstParamData%UseSC = SrcParamData%UseSC if (allocated(SrcParamData%WT_Position)) then - LB(1:2) = lbound(SrcParamData%WT_Position) - UB(1:2) = ubound(SrcParamData%WT_Position) + LB(1:2) = lbound(SrcParamData%WT_Position, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%WT_Position, kind=B8Ki) if (.not. allocated(DstParamData%WT_Position)) then allocate(DstParamData%WT_Position(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -230,8 +230,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DT_mooring = SrcParamData%DT_mooring DstParamData%n_mooring = SrcParamData%n_mooring if (allocated(SrcParamData%WT_FASTInFile)) then - LB(1:1) = lbound(SrcParamData%WT_FASTInFile) - UB(1:1) = ubound(SrcParamData%WT_FASTInFile) + LB(1:1) = lbound(SrcParamData%WT_FASTInFile, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WT_FASTInFile, kind=B8Ki) if (.not. allocated(DstParamData%WT_FASTInFile)) then allocate(DstParamData%WT_FASTInFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -257,8 +257,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NOutTurb = SrcParamData%NOutTurb DstParamData%NOutRadii = SrcParamData%NOutRadii if (allocated(SrcParamData%OutRadii)) then - LB(1:1) = lbound(SrcParamData%OutRadii) - UB(1:1) = ubound(SrcParamData%OutRadii) + LB(1:1) = lbound(SrcParamData%OutRadii, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutRadii, kind=B8Ki) if (.not. allocated(DstParamData%OutRadii)) then allocate(DstParamData%OutRadii(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -270,8 +270,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NOutDist = SrcParamData%NOutDist if (allocated(SrcParamData%OutDist)) then - LB(1:1) = lbound(SrcParamData%OutDist) - UB(1:1) = ubound(SrcParamData%OutDist) + LB(1:1) = lbound(SrcParamData%OutDist, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutDist, kind=B8Ki) if (.not. allocated(DstParamData%OutDist)) then allocate(DstParamData%OutDist(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -283,8 +283,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NWindVel = SrcParamData%NWindVel if (allocated(SrcParamData%WindVelX)) then - LB(1:1) = lbound(SrcParamData%WindVelX) - UB(1:1) = ubound(SrcParamData%WindVelX) + LB(1:1) = lbound(SrcParamData%WindVelX, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WindVelX, kind=B8Ki) if (.not. allocated(DstParamData%WindVelX)) then allocate(DstParamData%WindVelX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -295,8 +295,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WindVelX = SrcParamData%WindVelX end if if (allocated(SrcParamData%WindVelY)) then - LB(1:1) = lbound(SrcParamData%WindVelY) - UB(1:1) = ubound(SrcParamData%WindVelY) + LB(1:1) = lbound(SrcParamData%WindVelY, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WindVelY, kind=B8Ki) if (.not. allocated(DstParamData%WindVelY)) then allocate(DstParamData%WindVelY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -307,8 +307,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WindVelY = SrcParamData%WindVelY end if if (allocated(SrcParamData%WindVelZ)) then - LB(1:1) = lbound(SrcParamData%WindVelZ) - UB(1:1) = ubound(SrcParamData%WindVelZ) + LB(1:1) = lbound(SrcParamData%WindVelZ, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WindVelZ, kind=B8Ki) if (.not. allocated(DstParamData%WindVelZ)) then allocate(DstParamData%WindVelZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -319,8 +319,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WindVelZ = SrcParamData%WindVelZ end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -337,8 +337,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumOuts = SrcParamData%NumOuts DstParamData%NOutSteps = SrcParamData%NOutSteps DstParamData%FileDescLines = SrcParamData%FileDescLines - LB(1:1) = lbound(SrcParamData%Module_Ver) - UB(1:1) = ubound(SrcParamData%Module_Ver) + LB(1:1) = lbound(SrcParamData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_CopyProgDesc(SrcParamData%Module_Ver(i1), DstParamData%Module_Ver(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -360,8 +360,8 @@ subroutine Farm_DestroyParam(ParamData, ErrStat, ErrMsg) type(Farm_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyParam' @@ -389,16 +389,16 @@ subroutine Farm_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WindVelZ) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do deallocate(ParamData%OutParam) end if - LB(1:1) = lbound(ParamData%Module_Ver) - UB(1:1) = ubound(ParamData%Module_Ver) + LB(1:1) = lbound(ParamData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(ParamData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyProgDesc(ParamData%Module_Ver(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -409,8 +409,8 @@ subroutine Farm_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Farm_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT_low) call RegPack(Buf, InData%DT_high) @@ -422,7 +422,7 @@ subroutine Farm_PackParam(Buf, Indata) call RegPack(Buf, InData%UseSC) call RegPack(Buf, allocated(InData%WT_Position)) if (allocated(InData%WT_Position)) then - call RegPackBounds(Buf, 2, lbound(InData%WT_Position), ubound(InData%WT_Position)) + call RegPackBounds(Buf, 2, lbound(InData%WT_Position, kind=B8Ki), ubound(InData%WT_Position, kind=B8Ki)) call RegPack(Buf, InData%WT_Position) end if call RegPack(Buf, InData%WaveFieldMod) @@ -432,7 +432,7 @@ subroutine Farm_PackParam(Buf, Indata) call RegPack(Buf, InData%n_mooring) call RegPack(Buf, allocated(InData%WT_FASTInFile)) if (allocated(InData%WT_FASTInFile)) then - call RegPackBounds(Buf, 1, lbound(InData%WT_FASTInFile), ubound(InData%WT_FASTInFile)) + call RegPackBounds(Buf, 1, lbound(InData%WT_FASTInFile, kind=B8Ki), ubound(InData%WT_FASTInFile, kind=B8Ki)) call RegPack(Buf, InData%WT_FASTInFile) end if call RegPack(Buf, InData%FTitle) @@ -452,36 +452,36 @@ subroutine Farm_PackParam(Buf, Indata) call RegPack(Buf, InData%NOutRadii) call RegPack(Buf, allocated(InData%OutRadii)) if (allocated(InData%OutRadii)) then - call RegPackBounds(Buf, 1, lbound(InData%OutRadii), ubound(InData%OutRadii)) + call RegPackBounds(Buf, 1, lbound(InData%OutRadii, kind=B8Ki), ubound(InData%OutRadii, kind=B8Ki)) call RegPack(Buf, InData%OutRadii) end if call RegPack(Buf, InData%NOutDist) call RegPack(Buf, allocated(InData%OutDist)) if (allocated(InData%OutDist)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDist), ubound(InData%OutDist)) + call RegPackBounds(Buf, 1, lbound(InData%OutDist, kind=B8Ki), ubound(InData%OutDist, kind=B8Ki)) call RegPack(Buf, InData%OutDist) end if call RegPack(Buf, InData%NWindVel) call RegPack(Buf, allocated(InData%WindVelX)) if (allocated(InData%WindVelX)) then - call RegPackBounds(Buf, 1, lbound(InData%WindVelX), ubound(InData%WindVelX)) + call RegPackBounds(Buf, 1, lbound(InData%WindVelX, kind=B8Ki), ubound(InData%WindVelX, kind=B8Ki)) call RegPack(Buf, InData%WindVelX) end if call RegPack(Buf, allocated(InData%WindVelY)) if (allocated(InData%WindVelY)) then - call RegPackBounds(Buf, 1, lbound(InData%WindVelY), ubound(InData%WindVelY)) + call RegPackBounds(Buf, 1, lbound(InData%WindVelY, kind=B8Ki), ubound(InData%WindVelY, kind=B8Ki)) call RegPack(Buf, InData%WindVelY) end if call RegPack(Buf, allocated(InData%WindVelZ)) if (allocated(InData%WindVelZ)) then - call RegPackBounds(Buf, 1, lbound(InData%WindVelZ), ubound(InData%WindVelZ)) + call RegPackBounds(Buf, 1, lbound(InData%WindVelZ, kind=B8Ki), ubound(InData%WindVelZ, kind=B8Ki)) call RegPack(Buf, InData%WindVelZ) end if call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -489,8 +489,8 @@ subroutine Farm_PackParam(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, InData%NOutSteps) call RegPack(Buf, InData%FileDescLines) - LB(1:1) = lbound(InData%Module_Ver) - UB(1:1) = ubound(InData%Module_Ver) + LB(1:1) = lbound(InData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(InData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackProgDesc(Buf, InData%Module_Ver(i1)) end do @@ -511,8 +511,8 @@ subroutine Farm_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Farm_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -695,8 +695,8 @@ subroutine Farm_UnPackParam(Buf, OutData) if (RegCheckErr(Buf, RoutineName)) return call RegUnpack(Buf, OutData%FileDescLines) if (RegCheckErr(Buf, RoutineName)) return - LB(1:1) = lbound(OutData%Module_Ver) - UB(1:1) = ubound(OutData%Module_Ver) + LB(1:1) = lbound(OutData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(OutData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_UnpackProgDesc(Buf, OutData%Module_Ver(i1)) ! Module_Ver end do @@ -728,16 +728,16 @@ subroutine Farm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -748,8 +748,8 @@ subroutine Farm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AllOuts = SrcMiscData%AllOuts end if if (allocated(SrcMiscData%TimeData)) then - LB(1:1) = lbound(SrcMiscData%TimeData) - UB(1:1) = ubound(SrcMiscData%TimeData) + LB(1:1) = lbound(SrcMiscData%TimeData, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%TimeData, kind=B8Ki) if (.not. allocated(DstMiscData%TimeData)) then allocate(DstMiscData%TimeData(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -760,8 +760,8 @@ subroutine Farm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%TimeData = SrcMiscData%TimeData end if if (allocated(SrcMiscData%AllOutData)) then - LB(1:2) = lbound(SrcMiscData%AllOutData) - UB(1:2) = ubound(SrcMiscData%AllOutData) + LB(1:2) = lbound(SrcMiscData%AllOutData, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%AllOutData, kind=B8Ki) if (.not. allocated(DstMiscData%AllOutData)) then allocate(DstMiscData%AllOutData(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -773,8 +773,8 @@ subroutine Farm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end if DstMiscData%n_Out = SrcMiscData%n_Out if (allocated(SrcMiscData%FWrap_2_MD)) then - LB(1:1) = lbound(SrcMiscData%FWrap_2_MD) - UB(1:1) = ubound(SrcMiscData%FWrap_2_MD) + LB(1:1) = lbound(SrcMiscData%FWrap_2_MD, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FWrap_2_MD, kind=B8Ki) if (.not. allocated(DstMiscData%FWrap_2_MD)) then allocate(DstMiscData%FWrap_2_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -789,8 +789,8 @@ subroutine Farm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%MD_2_FWrap)) then - LB(1:1) = lbound(SrcMiscData%MD_2_FWrap) - UB(1:1) = ubound(SrcMiscData%MD_2_FWrap) + LB(1:1) = lbound(SrcMiscData%MD_2_FWrap, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%MD_2_FWrap, kind=B8Ki) if (.not. allocated(DstMiscData%MD_2_FWrap)) then allocate(DstMiscData%MD_2_FWrap(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -810,8 +810,8 @@ subroutine Farm_DestroyMisc(MiscData, ErrStat, ErrMsg) type(Farm_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyMisc' @@ -827,8 +827,8 @@ subroutine Farm_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%AllOutData) end if if (allocated(MiscData%FWrap_2_MD)) then - LB(1:1) = lbound(MiscData%FWrap_2_MD) - UB(1:1) = ubound(MiscData%FWrap_2_MD) + LB(1:1) = lbound(MiscData%FWrap_2_MD, kind=B8Ki) + UB(1:1) = ubound(MiscData%FWrap_2_MD, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%FWrap_2_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -836,8 +836,8 @@ subroutine Farm_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%FWrap_2_MD) end if if (allocated(MiscData%MD_2_FWrap)) then - LB(1:1) = lbound(MiscData%MD_2_FWrap) - UB(1:1) = ubound(MiscData%MD_2_FWrap) + LB(1:1) = lbound(MiscData%MD_2_FWrap, kind=B8Ki) + UB(1:1) = ubound(MiscData%MD_2_FWrap, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%MD_2_FWrap(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -850,39 +850,39 @@ subroutine Farm_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Farm_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, allocated(InData%TimeData)) if (allocated(InData%TimeData)) then - call RegPackBounds(Buf, 1, lbound(InData%TimeData), ubound(InData%TimeData)) + call RegPackBounds(Buf, 1, lbound(InData%TimeData, kind=B8Ki), ubound(InData%TimeData, kind=B8Ki)) call RegPack(Buf, InData%TimeData) end if call RegPack(Buf, allocated(InData%AllOutData)) if (allocated(InData%AllOutData)) then - call RegPackBounds(Buf, 2, lbound(InData%AllOutData), ubound(InData%AllOutData)) + call RegPackBounds(Buf, 2, lbound(InData%AllOutData, kind=B8Ki), ubound(InData%AllOutData, kind=B8Ki)) call RegPack(Buf, InData%AllOutData) end if call RegPack(Buf, InData%n_Out) call RegPack(Buf, allocated(InData%FWrap_2_MD)) if (allocated(InData%FWrap_2_MD)) then - call RegPackBounds(Buf, 1, lbound(InData%FWrap_2_MD), ubound(InData%FWrap_2_MD)) - LB(1:1) = lbound(InData%FWrap_2_MD) - UB(1:1) = ubound(InData%FWrap_2_MD) + call RegPackBounds(Buf, 1, lbound(InData%FWrap_2_MD, kind=B8Ki), ubound(InData%FWrap_2_MD, kind=B8Ki)) + LB(1:1) = lbound(InData%FWrap_2_MD, kind=B8Ki) + UB(1:1) = ubound(InData%FWrap_2_MD, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%FWrap_2_MD(i1)) end do end if call RegPack(Buf, allocated(InData%MD_2_FWrap)) if (allocated(InData%MD_2_FWrap)) then - call RegPackBounds(Buf, 1, lbound(InData%MD_2_FWrap), ubound(InData%MD_2_FWrap)) - LB(1:1) = lbound(InData%MD_2_FWrap) - UB(1:1) = ubound(InData%MD_2_FWrap) + call RegPackBounds(Buf, 1, lbound(InData%MD_2_FWrap, kind=B8Ki), ubound(InData%MD_2_FWrap, kind=B8Ki)) + LB(1:1) = lbound(InData%MD_2_FWrap, kind=B8Ki) + UB(1:1) = ubound(InData%MD_2_FWrap, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%MD_2_FWrap(i1)) end do @@ -894,8 +894,8 @@ subroutine Farm_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Farm_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1381,8 +1381,8 @@ subroutine Farm_CopyMD_Data(SrcMD_DataData, DstMD_DataData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyMD_Data' @@ -1407,8 +1407,8 @@ subroutine Farm_CopyMD_Data(SrcMD_DataData, DstMD_DataData, CtrlCode, ErrStat, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMD_DataData%Input)) then - LB(1:1) = lbound(SrcMD_DataData%Input) - UB(1:1) = ubound(SrcMD_DataData%Input) + LB(1:1) = lbound(SrcMD_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcMD_DataData%Input, kind=B8Ki) if (.not. allocated(DstMD_DataData%Input)) then allocate(DstMD_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1423,8 +1423,8 @@ subroutine Farm_CopyMD_Data(SrcMD_DataData, DstMD_DataData, CtrlCode, ErrStat, E end do end if if (allocated(SrcMD_DataData%InputTimes)) then - LB(1:1) = lbound(SrcMD_DataData%InputTimes) - UB(1:1) = ubound(SrcMD_DataData%InputTimes) + LB(1:1) = lbound(SrcMD_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcMD_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstMD_DataData%InputTimes)) then allocate(DstMD_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1447,8 +1447,8 @@ subroutine Farm_DestroyMD_Data(MD_DataData, ErrStat, ErrMsg) type(MD_Data), intent(inout) :: MD_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyMD_Data' @@ -1467,8 +1467,8 @@ subroutine Farm_DestroyMD_Data(MD_DataData, ErrStat, ErrMsg) call MD_DestroyInput(MD_DataData%u, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MD_DataData%Input)) then - LB(1:1) = lbound(MD_DataData%Input) - UB(1:1) = ubound(MD_DataData%Input) + LB(1:1) = lbound(MD_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(MD_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyInput(MD_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1488,8 +1488,8 @@ subroutine Farm_PackMD_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MD_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackMD_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call MD_PackContState(Buf, InData%x) call MD_PackDiscState(Buf, InData%xd) @@ -1499,16 +1499,16 @@ subroutine Farm_PackMD_Data(Buf, Indata) call MD_PackInput(Buf, InData%u) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if call MD_PackOutput(Buf, InData%y) @@ -1521,8 +1521,8 @@ subroutine Farm_UnPackMD_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackMD_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1573,8 +1573,8 @@ subroutine Farm_CopyAll_FastFarm_Data(SrcAll_FastFarm_DataData, DstAll_FastFarm_ integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyAll_FastFarm_Data' @@ -1587,8 +1587,8 @@ subroutine Farm_CopyAll_FastFarm_Data(SrcAll_FastFarm_DataData, DstAll_FastFarm_ call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcAll_FastFarm_DataData%FWrap)) then - LB(1:1) = lbound(SrcAll_FastFarm_DataData%FWrap) - UB(1:1) = ubound(SrcAll_FastFarm_DataData%FWrap) + LB(1:1) = lbound(SrcAll_FastFarm_DataData%FWrap, kind=B8Ki) + UB(1:1) = ubound(SrcAll_FastFarm_DataData%FWrap, kind=B8Ki) if (.not. allocated(DstAll_FastFarm_DataData%FWrap)) then allocate(DstAll_FastFarm_DataData%FWrap(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1603,8 +1603,8 @@ subroutine Farm_CopyAll_FastFarm_Data(SrcAll_FastFarm_DataData, DstAll_FastFarm_ end do end if if (allocated(SrcAll_FastFarm_DataData%WD)) then - LB(1:1) = lbound(SrcAll_FastFarm_DataData%WD) - UB(1:1) = ubound(SrcAll_FastFarm_DataData%WD) + LB(1:1) = lbound(SrcAll_FastFarm_DataData%WD, kind=B8Ki) + UB(1:1) = ubound(SrcAll_FastFarm_DataData%WD, kind=B8Ki) if (.not. allocated(DstAll_FastFarm_DataData%WD)) then allocate(DstAll_FastFarm_DataData%WD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1633,8 +1633,8 @@ subroutine Farm_DestroyAll_FastFarm_Data(All_FastFarm_DataData, ErrStat, ErrMsg) type(All_FastFarm_Data), intent(inout) :: All_FastFarm_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyAll_FastFarm_Data' @@ -1645,8 +1645,8 @@ subroutine Farm_DestroyAll_FastFarm_Data(All_FastFarm_DataData, ErrStat, ErrMsg) call Farm_DestroyMisc(All_FastFarm_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(All_FastFarm_DataData%FWrap)) then - LB(1:1) = lbound(All_FastFarm_DataData%FWrap) - UB(1:1) = ubound(All_FastFarm_DataData%FWrap) + LB(1:1) = lbound(All_FastFarm_DataData%FWrap, kind=B8Ki) + UB(1:1) = ubound(All_FastFarm_DataData%FWrap, kind=B8Ki) do i1 = LB(1), UB(1) call Farm_DestroyFASTWrapper_Data(All_FastFarm_DataData%FWrap(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1654,8 +1654,8 @@ subroutine Farm_DestroyAll_FastFarm_Data(All_FastFarm_DataData, ErrStat, ErrMsg) deallocate(All_FastFarm_DataData%FWrap) end if if (allocated(All_FastFarm_DataData%WD)) then - LB(1:1) = lbound(All_FastFarm_DataData%WD) - UB(1:1) = ubound(All_FastFarm_DataData%WD) + LB(1:1) = lbound(All_FastFarm_DataData%WD, kind=B8Ki) + UB(1:1) = ubound(All_FastFarm_DataData%WD, kind=B8Ki) do i1 = LB(1), UB(1) call Farm_DestroyWakeDynamics_Data(All_FastFarm_DataData%WD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1674,25 +1674,25 @@ subroutine Farm_PackAll_FastFarm_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(All_FastFarm_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackAll_FastFarm_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call Farm_PackParam(Buf, InData%p) call Farm_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%FWrap)) if (allocated(InData%FWrap)) then - call RegPackBounds(Buf, 1, lbound(InData%FWrap), ubound(InData%FWrap)) - LB(1:1) = lbound(InData%FWrap) - UB(1:1) = ubound(InData%FWrap) + call RegPackBounds(Buf, 1, lbound(InData%FWrap, kind=B8Ki), ubound(InData%FWrap, kind=B8Ki)) + LB(1:1) = lbound(InData%FWrap, kind=B8Ki) + UB(1:1) = ubound(InData%FWrap, kind=B8Ki) do i1 = LB(1), UB(1) call Farm_PackFASTWrapper_Data(Buf, InData%FWrap(i1)) end do end if call RegPack(Buf, allocated(InData%WD)) if (allocated(InData%WD)) then - call RegPackBounds(Buf, 1, lbound(InData%WD), ubound(InData%WD)) - LB(1:1) = lbound(InData%WD) - UB(1:1) = ubound(InData%WD) + call RegPackBounds(Buf, 1, lbound(InData%WD, kind=B8Ki), ubound(InData%WD, kind=B8Ki)) + LB(1:1) = lbound(InData%WD, kind=B8Ki) + UB(1:1) = ubound(InData%WD, kind=B8Ki) do i1 = LB(1), UB(1) call Farm_PackWakeDynamics_Data(Buf, InData%WD(i1)) end do @@ -1707,8 +1707,8 @@ subroutine Farm_UnPackAll_FastFarm_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(All_FastFarm_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackAll_FastFarm_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroAcoustics_Types.f90 b/modules/aerodyn/src/AeroAcoustics_Types.f90 index ce44f2d6cd..991e744710 100644 --- a/modules/aerodyn/src/AeroAcoustics_Types.f90 +++ b/modules/aerodyn/src/AeroAcoustics_Types.f90 @@ -328,8 +328,8 @@ subroutine AA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyInitInput' @@ -340,8 +340,8 @@ subroutine AA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%NumBlNds = SrcInitInputData%NumBlNds DstInitInputData%RootName = SrcInitInputData%RootName if (allocated(SrcInitInputData%BlSpn)) then - LB(1:2) = lbound(SrcInitInputData%BlSpn) - UB(1:2) = ubound(SrcInitInputData%BlSpn) + LB(1:2) = lbound(SrcInitInputData%BlSpn, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%BlSpn, kind=B8Ki) if (.not. allocated(DstInitInputData%BlSpn)) then allocate(DstInitInputData%BlSpn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -352,8 +352,8 @@ subroutine AA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%BlSpn = SrcInitInputData%BlSpn end if if (allocated(SrcInitInputData%BlChord)) then - LB(1:2) = lbound(SrcInitInputData%BlChord) - UB(1:2) = ubound(SrcInitInputData%BlChord) + LB(1:2) = lbound(SrcInitInputData%BlChord, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%BlChord, kind=B8Ki) if (.not. allocated(DstInitInputData%BlChord)) then allocate(DstInitInputData%BlChord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -368,8 +368,8 @@ subroutine AA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%SpdSound = SrcInitInputData%SpdSound DstInitInputData%HubHeight = SrcInitInputData%HubHeight if (allocated(SrcInitInputData%BlAFID)) then - LB(1:2) = lbound(SrcInitInputData%BlAFID) - UB(1:2) = ubound(SrcInitInputData%BlAFID) + LB(1:2) = lbound(SrcInitInputData%BlAFID, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%BlAFID, kind=B8Ki) if (.not. allocated(DstInitInputData%BlAFID)) then allocate(DstInitInputData%BlAFID(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -380,8 +380,8 @@ subroutine AA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%BlAFID = SrcInitInputData%BlAFID end if if (allocated(SrcInitInputData%AFInfo)) then - LB(1:1) = lbound(SrcInitInputData%AFInfo) - UB(1:1) = ubound(SrcInitInputData%AFInfo) + LB(1:1) = lbound(SrcInitInputData%AFInfo, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%AFInfo, kind=B8Ki) if (.not. allocated(DstInitInputData%AFInfo)) then allocate(DstInitInputData%AFInfo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -401,8 +401,8 @@ subroutine AA_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(AA_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_DestroyInitInput' @@ -418,8 +418,8 @@ subroutine AA_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%BlAFID) end if if (allocated(InitInputData%AFInfo)) then - LB(1:1) = lbound(InitInputData%AFInfo) - UB(1:1) = ubound(InitInputData%AFInfo) + LB(1:1) = lbound(InitInputData%AFInfo, kind=B8Ki) + UB(1:1) = ubound(InitInputData%AFInfo, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_DestroyParam(InitInputData%AFInfo(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -432,8 +432,8 @@ subroutine AA_PackInitInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AA_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AA_PackInitInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%InputFile) call RegPack(Buf, InData%NumBlades) @@ -441,12 +441,12 @@ subroutine AA_PackInitInput(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%BlSpn)) if (allocated(InData%BlSpn)) then - call RegPackBounds(Buf, 2, lbound(InData%BlSpn), ubound(InData%BlSpn)) + call RegPackBounds(Buf, 2, lbound(InData%BlSpn, kind=B8Ki), ubound(InData%BlSpn, kind=B8Ki)) call RegPack(Buf, InData%BlSpn) end if call RegPack(Buf, allocated(InData%BlChord)) if (allocated(InData%BlChord)) then - call RegPackBounds(Buf, 2, lbound(InData%BlChord), ubound(InData%BlChord)) + call RegPackBounds(Buf, 2, lbound(InData%BlChord, kind=B8Ki), ubound(InData%BlChord, kind=B8Ki)) call RegPack(Buf, InData%BlChord) end if call RegPack(Buf, InData%AirDens) @@ -455,14 +455,14 @@ subroutine AA_PackInitInput(Buf, Indata) call RegPack(Buf, InData%HubHeight) call RegPack(Buf, allocated(InData%BlAFID)) if (allocated(InData%BlAFID)) then - call RegPackBounds(Buf, 2, lbound(InData%BlAFID), ubound(InData%BlAFID)) + call RegPackBounds(Buf, 2, lbound(InData%BlAFID, kind=B8Ki), ubound(InData%BlAFID, kind=B8Ki)) call RegPack(Buf, InData%BlAFID) end if call RegPack(Buf, allocated(InData%AFInfo)) if (allocated(InData%AFInfo)) then - call RegPackBounds(Buf, 1, lbound(InData%AFInfo), ubound(InData%AFInfo)) - LB(1:1) = lbound(InData%AFInfo) - UB(1:1) = ubound(InData%AFInfo) + call RegPackBounds(Buf, 1, lbound(InData%AFInfo, kind=B8Ki), ubound(InData%AFInfo, kind=B8Ki)) + LB(1:1) = lbound(InData%AFInfo, kind=B8Ki) + UB(1:1) = ubound(InData%AFInfo, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_PackParam(Buf, InData%AFInfo(i1)) end do @@ -474,8 +474,8 @@ subroutine AA_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInitInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -560,15 +560,15 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -579,8 +579,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -591,8 +591,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputUnt = SrcInitOutputData%WriteOutputUnt end if if (allocated(SrcInitOutputData%WriteOutputHdrforPE)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrforPE) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrforPE) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrforPE, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrforPE, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdrforPE)) then allocate(DstInitOutputData%WriteOutputHdrforPE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -603,8 +603,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdrforPE = SrcInitOutputData%WriteOutputHdrforPE end if if (allocated(SrcInitOutputData%WriteOutputUntforPE)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntforPE) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntforPE) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntforPE, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntforPE, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUntforPE)) then allocate(DstInitOutputData%WriteOutputUntforPE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -615,8 +615,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputUntforPE = SrcInitOutputData%WriteOutputUntforPE end if if (allocated(SrcInitOutputData%WriteOutputHdrSep)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrSep) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrSep) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrSep, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrSep, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdrSep)) then allocate(DstInitOutputData%WriteOutputHdrSep(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -627,8 +627,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdrSep = SrcInitOutputData%WriteOutputHdrSep end if if (allocated(SrcInitOutputData%WriteOutputUntSep)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntSep) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntSep) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntSep, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntSep, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUntSep)) then allocate(DstInitOutputData%WriteOutputUntSep(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -639,8 +639,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputUntSep = SrcInitOutputData%WriteOutputUntSep end if if (allocated(SrcInitOutputData%WriteOutputHdrNodes)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrNodes) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrNodes) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrNodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrNodes, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdrNodes)) then allocate(DstInitOutputData%WriteOutputHdrNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -651,8 +651,8 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdrNodes = SrcInitOutputData%WriteOutputHdrNodes end if if (allocated(SrcInitOutputData%WriteOutputUntNodes)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntNodes) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntNodes) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntNodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntNodes, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUntNodes)) then allocate(DstInitOutputData%WriteOutputUntNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -713,42 +713,42 @@ subroutine AA_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call RegPack(Buf, allocated(InData%WriteOutputHdrforPE)) if (allocated(InData%WriteOutputHdrforPE)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdrforPE), ubound(InData%WriteOutputHdrforPE)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdrforPE, kind=B8Ki), ubound(InData%WriteOutputHdrforPE, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdrforPE) end if call RegPack(Buf, allocated(InData%WriteOutputUntforPE)) if (allocated(InData%WriteOutputUntforPE)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUntforPE), ubound(InData%WriteOutputUntforPE)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUntforPE, kind=B8Ki), ubound(InData%WriteOutputUntforPE, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUntforPE) end if call RegPack(Buf, allocated(InData%WriteOutputHdrSep)) if (allocated(InData%WriteOutputHdrSep)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdrSep), ubound(InData%WriteOutputHdrSep)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdrSep, kind=B8Ki), ubound(InData%WriteOutputHdrSep, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdrSep) end if call RegPack(Buf, allocated(InData%WriteOutputUntSep)) if (allocated(InData%WriteOutputUntSep)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUntSep), ubound(InData%WriteOutputUntSep)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUntSep, kind=B8Ki), ubound(InData%WriteOutputUntSep, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUntSep) end if call RegPack(Buf, allocated(InData%WriteOutputHdrNodes)) if (allocated(InData%WriteOutputHdrNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdrNodes), ubound(InData%WriteOutputHdrNodes)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdrNodes, kind=B8Ki), ubound(InData%WriteOutputHdrNodes, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdrNodes) end if call RegPack(Buf, allocated(InData%WriteOutputUntNodes)) if (allocated(InData%WriteOutputUntNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUntNodes), ubound(InData%WriteOutputUntNodes)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUntNodes, kind=B8Ki), ubound(InData%WriteOutputUntNodes, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUntNodes) end if call RegPack(Buf, InData%delim) @@ -761,7 +761,7 @@ subroutine AA_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -890,8 +890,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyInputFile' @@ -913,8 +913,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%AA_Bl_Prcntge = SrcInputFileData%AA_Bl_Prcntge DstInputFileData%NrObsLoc = SrcInputFileData%NrObsLoc if (allocated(SrcInputFileData%ObsX)) then - LB(1:1) = lbound(SrcInputFileData%ObsX) - UB(1:1) = ubound(SrcInputFileData%ObsX) + LB(1:1) = lbound(SrcInputFileData%ObsX, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%ObsX, kind=B8Ki) if (.not. allocated(DstInputFileData%ObsX)) then allocate(DstInputFileData%ObsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -925,8 +925,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%ObsX = SrcInputFileData%ObsX end if if (allocated(SrcInputFileData%ObsY)) then - LB(1:1) = lbound(SrcInputFileData%ObsY) - UB(1:1) = ubound(SrcInputFileData%ObsY) + LB(1:1) = lbound(SrcInputFileData%ObsY, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%ObsY, kind=B8Ki) if (.not. allocated(DstInputFileData%ObsY)) then allocate(DstInputFileData%ObsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -937,8 +937,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%ObsY = SrcInputFileData%ObsY end if if (allocated(SrcInputFileData%ObsZ)) then - LB(1:1) = lbound(SrcInputFileData%ObsZ) - UB(1:1) = ubound(SrcInputFileData%ObsZ) + LB(1:1) = lbound(SrcInputFileData%ObsZ, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%ObsZ, kind=B8Ki) if (.not. allocated(DstInputFileData%ObsZ)) then allocate(DstInputFileData%ObsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -949,8 +949,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%ObsZ = SrcInputFileData%ObsZ end if if (allocated(SrcInputFileData%BladeProps)) then - LB(1:1) = lbound(SrcInputFileData%BladeProps) - UB(1:1) = ubound(SrcInputFileData%BladeProps) + LB(1:1) = lbound(SrcInputFileData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BladeProps, kind=B8Ki) if (.not. allocated(DstInputFileData%BladeProps)) then allocate(DstInputFileData%BladeProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -966,8 +966,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta end if DstInputFileData%NrOutFile = SrcInputFileData%NrOutFile if (allocated(SrcInputFileData%AAoutfile)) then - LB(1:1) = lbound(SrcInputFileData%AAoutfile) - UB(1:1) = ubound(SrcInputFileData%AAoutfile) + LB(1:1) = lbound(SrcInputFileData%AAoutfile, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%AAoutfile, kind=B8Ki) if (.not. allocated(DstInputFileData%AAoutfile)) then allocate(DstInputFileData%AAoutfile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -983,8 +983,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Lturb = SrcInputFileData%Lturb DstInputFileData%AvgV = SrcInputFileData%AvgV if (allocated(SrcInputFileData%ReListBL)) then - LB(1:1) = lbound(SrcInputFileData%ReListBL) - UB(1:1) = ubound(SrcInputFileData%ReListBL) + LB(1:1) = lbound(SrcInputFileData%ReListBL, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%ReListBL, kind=B8Ki) if (.not. allocated(DstInputFileData%ReListBL)) then allocate(DstInputFileData%ReListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -995,8 +995,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%ReListBL = SrcInputFileData%ReListBL end if if (allocated(SrcInputFileData%AoAListBL)) then - LB(1:1) = lbound(SrcInputFileData%AoAListBL) - UB(1:1) = ubound(SrcInputFileData%AoAListBL) + LB(1:1) = lbound(SrcInputFileData%AoAListBL, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%AoAListBL, kind=B8Ki) if (.not. allocated(DstInputFileData%AoAListBL)) then allocate(DstInputFileData%AoAListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1007,8 +1007,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%AoAListBL = SrcInputFileData%AoAListBL end if if (allocated(SrcInputFileData%Pres_DispThick)) then - LB(1:3) = lbound(SrcInputFileData%Pres_DispThick) - UB(1:3) = ubound(SrcInputFileData%Pres_DispThick) + LB(1:3) = lbound(SrcInputFileData%Pres_DispThick, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Pres_DispThick, kind=B8Ki) if (.not. allocated(DstInputFileData%Pres_DispThick)) then allocate(DstInputFileData%Pres_DispThick(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1019,8 +1019,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Pres_DispThick = SrcInputFileData%Pres_DispThick end if if (allocated(SrcInputFileData%Suct_DispThick)) then - LB(1:3) = lbound(SrcInputFileData%Suct_DispThick) - UB(1:3) = ubound(SrcInputFileData%Suct_DispThick) + LB(1:3) = lbound(SrcInputFileData%Suct_DispThick, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Suct_DispThick, kind=B8Ki) if (.not. allocated(DstInputFileData%Suct_DispThick)) then allocate(DstInputFileData%Suct_DispThick(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1031,8 +1031,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Suct_DispThick = SrcInputFileData%Suct_DispThick end if if (allocated(SrcInputFileData%Pres_BLThick)) then - LB(1:3) = lbound(SrcInputFileData%Pres_BLThick) - UB(1:3) = ubound(SrcInputFileData%Pres_BLThick) + LB(1:3) = lbound(SrcInputFileData%Pres_BLThick, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Pres_BLThick, kind=B8Ki) if (.not. allocated(DstInputFileData%Pres_BLThick)) then allocate(DstInputFileData%Pres_BLThick(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1043,8 +1043,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Pres_BLThick = SrcInputFileData%Pres_BLThick end if if (allocated(SrcInputFileData%Suct_BLThick)) then - LB(1:3) = lbound(SrcInputFileData%Suct_BLThick) - UB(1:3) = ubound(SrcInputFileData%Suct_BLThick) + LB(1:3) = lbound(SrcInputFileData%Suct_BLThick, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Suct_BLThick, kind=B8Ki) if (.not. allocated(DstInputFileData%Suct_BLThick)) then allocate(DstInputFileData%Suct_BLThick(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1055,8 +1055,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Suct_BLThick = SrcInputFileData%Suct_BLThick end if if (allocated(SrcInputFileData%Pres_Cf)) then - LB(1:3) = lbound(SrcInputFileData%Pres_Cf) - UB(1:3) = ubound(SrcInputFileData%Pres_Cf) + LB(1:3) = lbound(SrcInputFileData%Pres_Cf, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Pres_Cf, kind=B8Ki) if (.not. allocated(DstInputFileData%Pres_Cf)) then allocate(DstInputFileData%Pres_Cf(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1067,8 +1067,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Pres_Cf = SrcInputFileData%Pres_Cf end if if (allocated(SrcInputFileData%Suct_Cf)) then - LB(1:3) = lbound(SrcInputFileData%Suct_Cf) - UB(1:3) = ubound(SrcInputFileData%Suct_Cf) + LB(1:3) = lbound(SrcInputFileData%Suct_Cf, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Suct_Cf, kind=B8Ki) if (.not. allocated(DstInputFileData%Suct_Cf)) then allocate(DstInputFileData%Suct_Cf(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1079,8 +1079,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Suct_Cf = SrcInputFileData%Suct_Cf end if if (allocated(SrcInputFileData%Pres_EdgeVelRat)) then - LB(1:3) = lbound(SrcInputFileData%Pres_EdgeVelRat) - UB(1:3) = ubound(SrcInputFileData%Pres_EdgeVelRat) + LB(1:3) = lbound(SrcInputFileData%Pres_EdgeVelRat, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Pres_EdgeVelRat, kind=B8Ki) if (.not. allocated(DstInputFileData%Pres_EdgeVelRat)) then allocate(DstInputFileData%Pres_EdgeVelRat(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1091,8 +1091,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Pres_EdgeVelRat = SrcInputFileData%Pres_EdgeVelRat end if if (allocated(SrcInputFileData%Suct_EdgeVelRat)) then - LB(1:3) = lbound(SrcInputFileData%Suct_EdgeVelRat) - UB(1:3) = ubound(SrcInputFileData%Suct_EdgeVelRat) + LB(1:3) = lbound(SrcInputFileData%Suct_EdgeVelRat, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%Suct_EdgeVelRat, kind=B8Ki) if (.not. allocated(DstInputFileData%Suct_EdgeVelRat)) then allocate(DstInputFileData%Suct_EdgeVelRat(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1103,8 +1103,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%Suct_EdgeVelRat = SrcInputFileData%Suct_EdgeVelRat end if if (allocated(SrcInputFileData%TI_Grid_In)) then - LB(1:2) = lbound(SrcInputFileData%TI_Grid_In) - UB(1:2) = ubound(SrcInputFileData%TI_Grid_In) + LB(1:2) = lbound(SrcInputFileData%TI_Grid_In, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileData%TI_Grid_In, kind=B8Ki) if (.not. allocated(DstInputFileData%TI_Grid_In)) then allocate(DstInputFileData%TI_Grid_In(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1122,8 +1122,8 @@ subroutine AA_DestroyInputFile(InputFileData, ErrStat, ErrMsg) type(AA_InputFile), intent(inout) :: InputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_DestroyInputFile' @@ -1139,8 +1139,8 @@ subroutine AA_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%ObsZ) end if if (allocated(InputFileData%BladeProps)) then - LB(1:1) = lbound(InputFileData%BladeProps) - UB(1:1) = ubound(InputFileData%BladeProps) + LB(1:1) = lbound(InputFileData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(InputFileData%BladeProps, kind=B8Ki) do i1 = LB(1), UB(1) call AA_DestroyBladePropsType(InputFileData%BladeProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1189,8 +1189,8 @@ subroutine AA_PackInputFile(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AA_InputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'AA_PackInputFile' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT_AA) call RegPack(Buf, InData%IBLUNT) @@ -1209,24 +1209,24 @@ subroutine AA_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NrObsLoc) call RegPack(Buf, allocated(InData%ObsX)) if (allocated(InData%ObsX)) then - call RegPackBounds(Buf, 1, lbound(InData%ObsX), ubound(InData%ObsX)) + call RegPackBounds(Buf, 1, lbound(InData%ObsX, kind=B8Ki), ubound(InData%ObsX, kind=B8Ki)) call RegPack(Buf, InData%ObsX) end if call RegPack(Buf, allocated(InData%ObsY)) if (allocated(InData%ObsY)) then - call RegPackBounds(Buf, 1, lbound(InData%ObsY), ubound(InData%ObsY)) + call RegPackBounds(Buf, 1, lbound(InData%ObsY, kind=B8Ki), ubound(InData%ObsY, kind=B8Ki)) call RegPack(Buf, InData%ObsY) end if call RegPack(Buf, allocated(InData%ObsZ)) if (allocated(InData%ObsZ)) then - call RegPackBounds(Buf, 1, lbound(InData%ObsZ), ubound(InData%ObsZ)) + call RegPackBounds(Buf, 1, lbound(InData%ObsZ, kind=B8Ki), ubound(InData%ObsZ, kind=B8Ki)) call RegPack(Buf, InData%ObsZ) end if call RegPack(Buf, allocated(InData%BladeProps)) if (allocated(InData%BladeProps)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeProps), ubound(InData%BladeProps)) - LB(1:1) = lbound(InData%BladeProps) - UB(1:1) = ubound(InData%BladeProps) + call RegPackBounds(Buf, 1, lbound(InData%BladeProps, kind=B8Ki), ubound(InData%BladeProps, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(InData%BladeProps, kind=B8Ki) do i1 = LB(1), UB(1) call AA_PackBladePropsType(Buf, InData%BladeProps(i1)) end do @@ -1234,7 +1234,7 @@ subroutine AA_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NrOutFile) call RegPack(Buf, allocated(InData%AAoutfile)) if (allocated(InData%AAoutfile)) then - call RegPackBounds(Buf, 1, lbound(InData%AAoutfile), ubound(InData%AAoutfile)) + call RegPackBounds(Buf, 1, lbound(InData%AAoutfile, kind=B8Ki), ubound(InData%AAoutfile, kind=B8Ki)) call RegPack(Buf, InData%AAoutfile) end if call RegPack(Buf, InData%TICalcTabFile) @@ -1244,57 +1244,57 @@ subroutine AA_PackInputFile(Buf, Indata) call RegPack(Buf, InData%AvgV) call RegPack(Buf, allocated(InData%ReListBL)) if (allocated(InData%ReListBL)) then - call RegPackBounds(Buf, 1, lbound(InData%ReListBL), ubound(InData%ReListBL)) + call RegPackBounds(Buf, 1, lbound(InData%ReListBL, kind=B8Ki), ubound(InData%ReListBL, kind=B8Ki)) call RegPack(Buf, InData%ReListBL) end if call RegPack(Buf, allocated(InData%AoAListBL)) if (allocated(InData%AoAListBL)) then - call RegPackBounds(Buf, 1, lbound(InData%AoAListBL), ubound(InData%AoAListBL)) + call RegPackBounds(Buf, 1, lbound(InData%AoAListBL, kind=B8Ki), ubound(InData%AoAListBL, kind=B8Ki)) call RegPack(Buf, InData%AoAListBL) end if call RegPack(Buf, allocated(InData%Pres_DispThick)) if (allocated(InData%Pres_DispThick)) then - call RegPackBounds(Buf, 3, lbound(InData%Pres_DispThick), ubound(InData%Pres_DispThick)) + call RegPackBounds(Buf, 3, lbound(InData%Pres_DispThick, kind=B8Ki), ubound(InData%Pres_DispThick, kind=B8Ki)) call RegPack(Buf, InData%Pres_DispThick) end if call RegPack(Buf, allocated(InData%Suct_DispThick)) if (allocated(InData%Suct_DispThick)) then - call RegPackBounds(Buf, 3, lbound(InData%Suct_DispThick), ubound(InData%Suct_DispThick)) + call RegPackBounds(Buf, 3, lbound(InData%Suct_DispThick, kind=B8Ki), ubound(InData%Suct_DispThick, kind=B8Ki)) call RegPack(Buf, InData%Suct_DispThick) end if call RegPack(Buf, allocated(InData%Pres_BLThick)) if (allocated(InData%Pres_BLThick)) then - call RegPackBounds(Buf, 3, lbound(InData%Pres_BLThick), ubound(InData%Pres_BLThick)) + call RegPackBounds(Buf, 3, lbound(InData%Pres_BLThick, kind=B8Ki), ubound(InData%Pres_BLThick, kind=B8Ki)) call RegPack(Buf, InData%Pres_BLThick) end if call RegPack(Buf, allocated(InData%Suct_BLThick)) if (allocated(InData%Suct_BLThick)) then - call RegPackBounds(Buf, 3, lbound(InData%Suct_BLThick), ubound(InData%Suct_BLThick)) + call RegPackBounds(Buf, 3, lbound(InData%Suct_BLThick, kind=B8Ki), ubound(InData%Suct_BLThick, kind=B8Ki)) call RegPack(Buf, InData%Suct_BLThick) end if call RegPack(Buf, allocated(InData%Pres_Cf)) if (allocated(InData%Pres_Cf)) then - call RegPackBounds(Buf, 3, lbound(InData%Pres_Cf), ubound(InData%Pres_Cf)) + call RegPackBounds(Buf, 3, lbound(InData%Pres_Cf, kind=B8Ki), ubound(InData%Pres_Cf, kind=B8Ki)) call RegPack(Buf, InData%Pres_Cf) end if call RegPack(Buf, allocated(InData%Suct_Cf)) if (allocated(InData%Suct_Cf)) then - call RegPackBounds(Buf, 3, lbound(InData%Suct_Cf), ubound(InData%Suct_Cf)) + call RegPackBounds(Buf, 3, lbound(InData%Suct_Cf, kind=B8Ki), ubound(InData%Suct_Cf, kind=B8Ki)) call RegPack(Buf, InData%Suct_Cf) end if call RegPack(Buf, allocated(InData%Pres_EdgeVelRat)) if (allocated(InData%Pres_EdgeVelRat)) then - call RegPackBounds(Buf, 3, lbound(InData%Pres_EdgeVelRat), ubound(InData%Pres_EdgeVelRat)) + call RegPackBounds(Buf, 3, lbound(InData%Pres_EdgeVelRat, kind=B8Ki), ubound(InData%Pres_EdgeVelRat, kind=B8Ki)) call RegPack(Buf, InData%Pres_EdgeVelRat) end if call RegPack(Buf, allocated(InData%Suct_EdgeVelRat)) if (allocated(InData%Suct_EdgeVelRat)) then - call RegPackBounds(Buf, 3, lbound(InData%Suct_EdgeVelRat), ubound(InData%Suct_EdgeVelRat)) + call RegPackBounds(Buf, 3, lbound(InData%Suct_EdgeVelRat, kind=B8Ki), ubound(InData%Suct_EdgeVelRat, kind=B8Ki)) call RegPack(Buf, InData%Suct_EdgeVelRat) end if call RegPack(Buf, allocated(InData%TI_Grid_In)) if (allocated(InData%TI_Grid_In)) then - call RegPackBounds(Buf, 2, lbound(InData%TI_Grid_In), ubound(InData%TI_Grid_In)) + call RegPackBounds(Buf, 2, lbound(InData%TI_Grid_In, kind=B8Ki), ubound(InData%TI_Grid_In, kind=B8Ki)) call RegPack(Buf, InData%TI_Grid_In) end if call RegPack(Buf, InData%dz_turb_in) @@ -1306,8 +1306,8 @@ subroutine AA_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInputFile' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1629,14 +1629,14 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AA_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%MeanVrel)) then - LB(1:2) = lbound(SrcDiscStateData%MeanVrel) - UB(1:2) = ubound(SrcDiscStateData%MeanVrel) + LB(1:2) = lbound(SrcDiscStateData%MeanVrel, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%MeanVrel, kind=B8Ki) if (.not. allocated(DstDiscStateData%MeanVrel)) then allocate(DstDiscStateData%MeanVrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1647,8 +1647,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%MeanVrel = SrcDiscStateData%MeanVrel end if if (allocated(SrcDiscStateData%VrelSq)) then - LB(1:2) = lbound(SrcDiscStateData%VrelSq) - UB(1:2) = ubound(SrcDiscStateData%VrelSq) + LB(1:2) = lbound(SrcDiscStateData%VrelSq, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%VrelSq, kind=B8Ki) if (.not. allocated(DstDiscStateData%VrelSq)) then allocate(DstDiscStateData%VrelSq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1659,8 +1659,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%VrelSq = SrcDiscStateData%VrelSq end if if (allocated(SrcDiscStateData%TIVrel)) then - LB(1:2) = lbound(SrcDiscStateData%TIVrel) - UB(1:2) = ubound(SrcDiscStateData%TIVrel) + LB(1:2) = lbound(SrcDiscStateData%TIVrel, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%TIVrel, kind=B8Ki) if (.not. allocated(DstDiscStateData%TIVrel)) then allocate(DstDiscStateData%TIVrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1671,8 +1671,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%TIVrel = SrcDiscStateData%TIVrel end if if (allocated(SrcDiscStateData%VrelStore)) then - LB(1:3) = lbound(SrcDiscStateData%VrelStore) - UB(1:3) = ubound(SrcDiscStateData%VrelStore) + LB(1:3) = lbound(SrcDiscStateData%VrelStore, kind=B8Ki) + UB(1:3) = ubound(SrcDiscStateData%VrelStore, kind=B8Ki) if (.not. allocated(DstDiscStateData%VrelStore)) then allocate(DstDiscStateData%VrelStore(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1683,8 +1683,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%VrelStore = SrcDiscStateData%VrelStore end if if (allocated(SrcDiscStateData%TIVx)) then - LB(1:2) = lbound(SrcDiscStateData%TIVx) - UB(1:2) = ubound(SrcDiscStateData%TIVx) + LB(1:2) = lbound(SrcDiscStateData%TIVx, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%TIVx, kind=B8Ki) if (.not. allocated(DstDiscStateData%TIVx)) then allocate(DstDiscStateData%TIVx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1695,8 +1695,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%TIVx = SrcDiscStateData%TIVx end if if (allocated(SrcDiscStateData%MeanVxVyVz)) then - LB(1:2) = lbound(SrcDiscStateData%MeanVxVyVz) - UB(1:2) = ubound(SrcDiscStateData%MeanVxVyVz) + LB(1:2) = lbound(SrcDiscStateData%MeanVxVyVz, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%MeanVxVyVz, kind=B8Ki) if (.not. allocated(DstDiscStateData%MeanVxVyVz)) then allocate(DstDiscStateData%MeanVxVyVz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1707,8 +1707,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%MeanVxVyVz = SrcDiscStateData%MeanVxVyVz end if if (allocated(SrcDiscStateData%VxSq)) then - LB(1:2) = lbound(SrcDiscStateData%VxSq) - UB(1:2) = ubound(SrcDiscStateData%VxSq) + LB(1:2) = lbound(SrcDiscStateData%VxSq, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%VxSq, kind=B8Ki) if (.not. allocated(DstDiscStateData%VxSq)) then allocate(DstDiscStateData%VxSq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1719,8 +1719,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%VxSq = SrcDiscStateData%VxSq end if if (allocated(SrcDiscStateData%allregcounter)) then - LB(1:2) = lbound(SrcDiscStateData%allregcounter) - UB(1:2) = ubound(SrcDiscStateData%allregcounter) + LB(1:2) = lbound(SrcDiscStateData%allregcounter, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%allregcounter, kind=B8Ki) if (.not. allocated(DstDiscStateData%allregcounter)) then allocate(DstDiscStateData%allregcounter(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1731,8 +1731,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%allregcounter = SrcDiscStateData%allregcounter end if if (allocated(SrcDiscStateData%VxSqRegion)) then - LB(1:2) = lbound(SrcDiscStateData%VxSqRegion) - UB(1:2) = ubound(SrcDiscStateData%VxSqRegion) + LB(1:2) = lbound(SrcDiscStateData%VxSqRegion, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%VxSqRegion, kind=B8Ki) if (.not. allocated(DstDiscStateData%VxSqRegion)) then allocate(DstDiscStateData%VxSqRegion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1743,8 +1743,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%VxSqRegion = SrcDiscStateData%VxSqRegion end if if (allocated(SrcDiscStateData%RegVxStor)) then - LB(1:3) = lbound(SrcDiscStateData%RegVxStor) - UB(1:3) = ubound(SrcDiscStateData%RegVxStor) + LB(1:3) = lbound(SrcDiscStateData%RegVxStor, kind=B8Ki) + UB(1:3) = ubound(SrcDiscStateData%RegVxStor, kind=B8Ki) if (.not. allocated(DstDiscStateData%RegVxStor)) then allocate(DstDiscStateData%RegVxStor(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1755,8 +1755,8 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%RegVxStor = SrcDiscStateData%RegVxStor end if if (allocated(SrcDiscStateData%RegionTIDelete)) then - LB(1:2) = lbound(SrcDiscStateData%RegionTIDelete) - UB(1:2) = ubound(SrcDiscStateData%RegionTIDelete) + LB(1:2) = lbound(SrcDiscStateData%RegionTIDelete, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%RegionTIDelete, kind=B8Ki) if (.not. allocated(DstDiscStateData%RegionTIDelete)) then allocate(DstDiscStateData%RegionTIDelete(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1817,57 +1817,57 @@ subroutine AA_PackDiscState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%MeanVrel)) if (allocated(InData%MeanVrel)) then - call RegPackBounds(Buf, 2, lbound(InData%MeanVrel), ubound(InData%MeanVrel)) + call RegPackBounds(Buf, 2, lbound(InData%MeanVrel, kind=B8Ki), ubound(InData%MeanVrel, kind=B8Ki)) call RegPack(Buf, InData%MeanVrel) end if call RegPack(Buf, allocated(InData%VrelSq)) if (allocated(InData%VrelSq)) then - call RegPackBounds(Buf, 2, lbound(InData%VrelSq), ubound(InData%VrelSq)) + call RegPackBounds(Buf, 2, lbound(InData%VrelSq, kind=B8Ki), ubound(InData%VrelSq, kind=B8Ki)) call RegPack(Buf, InData%VrelSq) end if call RegPack(Buf, allocated(InData%TIVrel)) if (allocated(InData%TIVrel)) then - call RegPackBounds(Buf, 2, lbound(InData%TIVrel), ubound(InData%TIVrel)) + call RegPackBounds(Buf, 2, lbound(InData%TIVrel, kind=B8Ki), ubound(InData%TIVrel, kind=B8Ki)) call RegPack(Buf, InData%TIVrel) end if call RegPack(Buf, allocated(InData%VrelStore)) if (allocated(InData%VrelStore)) then - call RegPackBounds(Buf, 3, lbound(InData%VrelStore), ubound(InData%VrelStore)) + call RegPackBounds(Buf, 3, lbound(InData%VrelStore, kind=B8Ki), ubound(InData%VrelStore, kind=B8Ki)) call RegPack(Buf, InData%VrelStore) end if call RegPack(Buf, allocated(InData%TIVx)) if (allocated(InData%TIVx)) then - call RegPackBounds(Buf, 2, lbound(InData%TIVx), ubound(InData%TIVx)) + call RegPackBounds(Buf, 2, lbound(InData%TIVx, kind=B8Ki), ubound(InData%TIVx, kind=B8Ki)) call RegPack(Buf, InData%TIVx) end if call RegPack(Buf, allocated(InData%MeanVxVyVz)) if (allocated(InData%MeanVxVyVz)) then - call RegPackBounds(Buf, 2, lbound(InData%MeanVxVyVz), ubound(InData%MeanVxVyVz)) + call RegPackBounds(Buf, 2, lbound(InData%MeanVxVyVz, kind=B8Ki), ubound(InData%MeanVxVyVz, kind=B8Ki)) call RegPack(Buf, InData%MeanVxVyVz) end if call RegPack(Buf, allocated(InData%VxSq)) if (allocated(InData%VxSq)) then - call RegPackBounds(Buf, 2, lbound(InData%VxSq), ubound(InData%VxSq)) + call RegPackBounds(Buf, 2, lbound(InData%VxSq, kind=B8Ki), ubound(InData%VxSq, kind=B8Ki)) call RegPack(Buf, InData%VxSq) end if call RegPack(Buf, allocated(InData%allregcounter)) if (allocated(InData%allregcounter)) then - call RegPackBounds(Buf, 2, lbound(InData%allregcounter), ubound(InData%allregcounter)) + call RegPackBounds(Buf, 2, lbound(InData%allregcounter, kind=B8Ki), ubound(InData%allregcounter, kind=B8Ki)) call RegPack(Buf, InData%allregcounter) end if call RegPack(Buf, allocated(InData%VxSqRegion)) if (allocated(InData%VxSqRegion)) then - call RegPackBounds(Buf, 2, lbound(InData%VxSqRegion), ubound(InData%VxSqRegion)) + call RegPackBounds(Buf, 2, lbound(InData%VxSqRegion, kind=B8Ki), ubound(InData%VxSqRegion, kind=B8Ki)) call RegPack(Buf, InData%VxSqRegion) end if call RegPack(Buf, allocated(InData%RegVxStor)) if (allocated(InData%RegVxStor)) then - call RegPackBounds(Buf, 3, lbound(InData%RegVxStor), ubound(InData%RegVxStor)) + call RegPackBounds(Buf, 3, lbound(InData%RegVxStor, kind=B8Ki), ubound(InData%RegVxStor, kind=B8Ki)) call RegPack(Buf, InData%RegVxStor) end if call RegPack(Buf, allocated(InData%RegionTIDelete)) if (allocated(InData%RegionTIDelete)) then - call RegPackBounds(Buf, 2, lbound(InData%RegionTIDelete), ubound(InData%RegionTIDelete)) + call RegPackBounds(Buf, 2, lbound(InData%RegionTIDelete, kind=B8Ki), ubound(InData%RegionTIDelete, kind=B8Ki)) call RegPack(Buf, InData%RegionTIDelete) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1877,7 +1877,7 @@ subroutine AA_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackDiscState' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2121,14 +2121,14 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AA_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2139,8 +2139,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AllOuts = SrcMiscData%AllOuts end if if (allocated(SrcMiscData%ChordAngleTE)) then - LB(1:3) = lbound(SrcMiscData%ChordAngleTE) - UB(1:3) = ubound(SrcMiscData%ChordAngleTE) + LB(1:3) = lbound(SrcMiscData%ChordAngleTE, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%ChordAngleTE, kind=B8Ki) if (.not. allocated(DstMiscData%ChordAngleTE)) then allocate(DstMiscData%ChordAngleTE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2151,8 +2151,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%ChordAngleTE = SrcMiscData%ChordAngleTE end if if (allocated(SrcMiscData%SpanAngleTE)) then - LB(1:3) = lbound(SrcMiscData%SpanAngleTE) - UB(1:3) = ubound(SrcMiscData%SpanAngleTE) + LB(1:3) = lbound(SrcMiscData%SpanAngleTE, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%SpanAngleTE, kind=B8Ki) if (.not. allocated(DstMiscData%SpanAngleTE)) then allocate(DstMiscData%SpanAngleTE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2163,8 +2163,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SpanAngleTE = SrcMiscData%SpanAngleTE end if if (allocated(SrcMiscData%ChordAngleLE)) then - LB(1:3) = lbound(SrcMiscData%ChordAngleLE) - UB(1:3) = ubound(SrcMiscData%ChordAngleLE) + LB(1:3) = lbound(SrcMiscData%ChordAngleLE, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%ChordAngleLE, kind=B8Ki) if (.not. allocated(DstMiscData%ChordAngleLE)) then allocate(DstMiscData%ChordAngleLE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2175,8 +2175,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%ChordAngleLE = SrcMiscData%ChordAngleLE end if if (allocated(SrcMiscData%SpanAngleLE)) then - LB(1:3) = lbound(SrcMiscData%SpanAngleLE) - UB(1:3) = ubound(SrcMiscData%SpanAngleLE) + LB(1:3) = lbound(SrcMiscData%SpanAngleLE, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%SpanAngleLE, kind=B8Ki) if (.not. allocated(DstMiscData%SpanAngleLE)) then allocate(DstMiscData%SpanAngleLE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2187,8 +2187,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SpanAngleLE = SrcMiscData%SpanAngleLE end if if (allocated(SrcMiscData%rTEtoObserve)) then - LB(1:3) = lbound(SrcMiscData%rTEtoObserve) - UB(1:3) = ubound(SrcMiscData%rTEtoObserve) + LB(1:3) = lbound(SrcMiscData%rTEtoObserve, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%rTEtoObserve, kind=B8Ki) if (.not. allocated(DstMiscData%rTEtoObserve)) then allocate(DstMiscData%rTEtoObserve(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2199,8 +2199,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rTEtoObserve = SrcMiscData%rTEtoObserve end if if (allocated(SrcMiscData%rLEtoObserve)) then - LB(1:3) = lbound(SrcMiscData%rLEtoObserve) - UB(1:3) = ubound(SrcMiscData%rLEtoObserve) + LB(1:3) = lbound(SrcMiscData%rLEtoObserve, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%rLEtoObserve, kind=B8Ki) if (.not. allocated(DstMiscData%rLEtoObserve)) then allocate(DstMiscData%rLEtoObserve(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2211,8 +2211,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rLEtoObserve = SrcMiscData%rLEtoObserve end if if (allocated(SrcMiscData%LE_Location)) then - LB(1:3) = lbound(SrcMiscData%LE_Location) - UB(1:3) = ubound(SrcMiscData%LE_Location) + LB(1:3) = lbound(SrcMiscData%LE_Location, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%LE_Location, kind=B8Ki) if (.not. allocated(DstMiscData%LE_Location)) then allocate(DstMiscData%LE_Location(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2224,8 +2224,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end if DstMiscData%RotSpeedAoA = SrcMiscData%RotSpeedAoA if (allocated(SrcMiscData%SPLLBL)) then - LB(1:1) = lbound(SrcMiscData%SPLLBL) - UB(1:1) = ubound(SrcMiscData%SPLLBL) + LB(1:1) = lbound(SrcMiscData%SPLLBL, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLLBL, kind=B8Ki) if (.not. allocated(DstMiscData%SPLLBL)) then allocate(DstMiscData%SPLLBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2236,8 +2236,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLLBL = SrcMiscData%SPLLBL end if if (allocated(SrcMiscData%SPLP)) then - LB(1:1) = lbound(SrcMiscData%SPLP) - UB(1:1) = ubound(SrcMiscData%SPLP) + LB(1:1) = lbound(SrcMiscData%SPLP, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLP, kind=B8Ki) if (.not. allocated(DstMiscData%SPLP)) then allocate(DstMiscData%SPLP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2248,8 +2248,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLP = SrcMiscData%SPLP end if if (allocated(SrcMiscData%SPLS)) then - LB(1:1) = lbound(SrcMiscData%SPLS) - UB(1:1) = ubound(SrcMiscData%SPLS) + LB(1:1) = lbound(SrcMiscData%SPLS, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLS, kind=B8Ki) if (.not. allocated(DstMiscData%SPLS)) then allocate(DstMiscData%SPLS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2260,8 +2260,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLS = SrcMiscData%SPLS end if if (allocated(SrcMiscData%SPLALPH)) then - LB(1:1) = lbound(SrcMiscData%SPLALPH) - UB(1:1) = ubound(SrcMiscData%SPLALPH) + LB(1:1) = lbound(SrcMiscData%SPLALPH, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLALPH, kind=B8Ki) if (.not. allocated(DstMiscData%SPLALPH)) then allocate(DstMiscData%SPLALPH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2272,8 +2272,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLALPH = SrcMiscData%SPLALPH end if if (allocated(SrcMiscData%SPLTBL)) then - LB(1:1) = lbound(SrcMiscData%SPLTBL) - UB(1:1) = ubound(SrcMiscData%SPLTBL) + LB(1:1) = lbound(SrcMiscData%SPLTBL, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLTBL, kind=B8Ki) if (.not. allocated(DstMiscData%SPLTBL)) then allocate(DstMiscData%SPLTBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2284,8 +2284,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLTBL = SrcMiscData%SPLTBL end if if (allocated(SrcMiscData%SPLTIP)) then - LB(1:1) = lbound(SrcMiscData%SPLTIP) - UB(1:1) = ubound(SrcMiscData%SPLTIP) + LB(1:1) = lbound(SrcMiscData%SPLTIP, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLTIP, kind=B8Ki) if (.not. allocated(DstMiscData%SPLTIP)) then allocate(DstMiscData%SPLTIP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2296,8 +2296,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLTIP = SrcMiscData%SPLTIP end if if (allocated(SrcMiscData%SPLTI)) then - LB(1:1) = lbound(SrcMiscData%SPLTI) - UB(1:1) = ubound(SrcMiscData%SPLTI) + LB(1:1) = lbound(SrcMiscData%SPLTI, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLTI, kind=B8Ki) if (.not. allocated(DstMiscData%SPLTI)) then allocate(DstMiscData%SPLTI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2308,8 +2308,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLTI = SrcMiscData%SPLTI end if if (allocated(SrcMiscData%SPLTIGui)) then - LB(1:1) = lbound(SrcMiscData%SPLTIGui) - UB(1:1) = ubound(SrcMiscData%SPLTIGui) + LB(1:1) = lbound(SrcMiscData%SPLTIGui, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLTIGui, kind=B8Ki) if (.not. allocated(DstMiscData%SPLTIGui)) then allocate(DstMiscData%SPLTIGui(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2320,8 +2320,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLTIGui = SrcMiscData%SPLTIGui end if if (allocated(SrcMiscData%SPLBLUNT)) then - LB(1:1) = lbound(SrcMiscData%SPLBLUNT) - UB(1:1) = ubound(SrcMiscData%SPLBLUNT) + LB(1:1) = lbound(SrcMiscData%SPLBLUNT, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SPLBLUNT, kind=B8Ki) if (.not. allocated(DstMiscData%SPLBLUNT)) then allocate(DstMiscData%SPLBLUNT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2332,8 +2332,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SPLBLUNT = SrcMiscData%SPLBLUNT end if if (allocated(SrcMiscData%CfVar)) then - LB(1:1) = lbound(SrcMiscData%CfVar) - UB(1:1) = ubound(SrcMiscData%CfVar) + LB(1:1) = lbound(SrcMiscData%CfVar, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%CfVar, kind=B8Ki) if (.not. allocated(DstMiscData%CfVar)) then allocate(DstMiscData%CfVar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2344,8 +2344,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%CfVar = SrcMiscData%CfVar end if if (allocated(SrcMiscData%d99Var)) then - LB(1:1) = lbound(SrcMiscData%d99Var) - UB(1:1) = ubound(SrcMiscData%d99Var) + LB(1:1) = lbound(SrcMiscData%d99Var, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%d99Var, kind=B8Ki) if (.not. allocated(DstMiscData%d99Var)) then allocate(DstMiscData%d99Var(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2356,8 +2356,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%d99Var = SrcMiscData%d99Var end if if (allocated(SrcMiscData%dStarVar)) then - LB(1:1) = lbound(SrcMiscData%dStarVar) - UB(1:1) = ubound(SrcMiscData%dStarVar) + LB(1:1) = lbound(SrcMiscData%dStarVar, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%dStarVar, kind=B8Ki) if (.not. allocated(DstMiscData%dStarVar)) then allocate(DstMiscData%dStarVar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2368,8 +2368,8 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%dStarVar = SrcMiscData%dStarVar end if if (allocated(SrcMiscData%EdgeVelVar)) then - LB(1:1) = lbound(SrcMiscData%EdgeVelVar) - UB(1:1) = ubound(SrcMiscData%EdgeVelVar) + LB(1:1) = lbound(SrcMiscData%EdgeVelVar, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%EdgeVelVar, kind=B8Ki) if (.not. allocated(DstMiscData%EdgeVelVar)) then allocate(DstMiscData%EdgeVelVar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2462,108 +2462,108 @@ subroutine AA_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, allocated(InData%ChordAngleTE)) if (allocated(InData%ChordAngleTE)) then - call RegPackBounds(Buf, 3, lbound(InData%ChordAngleTE), ubound(InData%ChordAngleTE)) + call RegPackBounds(Buf, 3, lbound(InData%ChordAngleTE, kind=B8Ki), ubound(InData%ChordAngleTE, kind=B8Ki)) call RegPack(Buf, InData%ChordAngleTE) end if call RegPack(Buf, allocated(InData%SpanAngleTE)) if (allocated(InData%SpanAngleTE)) then - call RegPackBounds(Buf, 3, lbound(InData%SpanAngleTE), ubound(InData%SpanAngleTE)) + call RegPackBounds(Buf, 3, lbound(InData%SpanAngleTE, kind=B8Ki), ubound(InData%SpanAngleTE, kind=B8Ki)) call RegPack(Buf, InData%SpanAngleTE) end if call RegPack(Buf, allocated(InData%ChordAngleLE)) if (allocated(InData%ChordAngleLE)) then - call RegPackBounds(Buf, 3, lbound(InData%ChordAngleLE), ubound(InData%ChordAngleLE)) + call RegPackBounds(Buf, 3, lbound(InData%ChordAngleLE, kind=B8Ki), ubound(InData%ChordAngleLE, kind=B8Ki)) call RegPack(Buf, InData%ChordAngleLE) end if call RegPack(Buf, allocated(InData%SpanAngleLE)) if (allocated(InData%SpanAngleLE)) then - call RegPackBounds(Buf, 3, lbound(InData%SpanAngleLE), ubound(InData%SpanAngleLE)) + call RegPackBounds(Buf, 3, lbound(InData%SpanAngleLE, kind=B8Ki), ubound(InData%SpanAngleLE, kind=B8Ki)) call RegPack(Buf, InData%SpanAngleLE) end if call RegPack(Buf, allocated(InData%rTEtoObserve)) if (allocated(InData%rTEtoObserve)) then - call RegPackBounds(Buf, 3, lbound(InData%rTEtoObserve), ubound(InData%rTEtoObserve)) + call RegPackBounds(Buf, 3, lbound(InData%rTEtoObserve, kind=B8Ki), ubound(InData%rTEtoObserve, kind=B8Ki)) call RegPack(Buf, InData%rTEtoObserve) end if call RegPack(Buf, allocated(InData%rLEtoObserve)) if (allocated(InData%rLEtoObserve)) then - call RegPackBounds(Buf, 3, lbound(InData%rLEtoObserve), ubound(InData%rLEtoObserve)) + call RegPackBounds(Buf, 3, lbound(InData%rLEtoObserve, kind=B8Ki), ubound(InData%rLEtoObserve, kind=B8Ki)) call RegPack(Buf, InData%rLEtoObserve) end if call RegPack(Buf, allocated(InData%LE_Location)) if (allocated(InData%LE_Location)) then - call RegPackBounds(Buf, 3, lbound(InData%LE_Location), ubound(InData%LE_Location)) + call RegPackBounds(Buf, 3, lbound(InData%LE_Location, kind=B8Ki), ubound(InData%LE_Location, kind=B8Ki)) call RegPack(Buf, InData%LE_Location) end if call RegPack(Buf, InData%RotSpeedAoA) call RegPack(Buf, allocated(InData%SPLLBL)) if (allocated(InData%SPLLBL)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLLBL), ubound(InData%SPLLBL)) + call RegPackBounds(Buf, 1, lbound(InData%SPLLBL, kind=B8Ki), ubound(InData%SPLLBL, kind=B8Ki)) call RegPack(Buf, InData%SPLLBL) end if call RegPack(Buf, allocated(InData%SPLP)) if (allocated(InData%SPLP)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLP), ubound(InData%SPLP)) + call RegPackBounds(Buf, 1, lbound(InData%SPLP, kind=B8Ki), ubound(InData%SPLP, kind=B8Ki)) call RegPack(Buf, InData%SPLP) end if call RegPack(Buf, allocated(InData%SPLS)) if (allocated(InData%SPLS)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLS), ubound(InData%SPLS)) + call RegPackBounds(Buf, 1, lbound(InData%SPLS, kind=B8Ki), ubound(InData%SPLS, kind=B8Ki)) call RegPack(Buf, InData%SPLS) end if call RegPack(Buf, allocated(InData%SPLALPH)) if (allocated(InData%SPLALPH)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLALPH), ubound(InData%SPLALPH)) + call RegPackBounds(Buf, 1, lbound(InData%SPLALPH, kind=B8Ki), ubound(InData%SPLALPH, kind=B8Ki)) call RegPack(Buf, InData%SPLALPH) end if call RegPack(Buf, allocated(InData%SPLTBL)) if (allocated(InData%SPLTBL)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLTBL), ubound(InData%SPLTBL)) + call RegPackBounds(Buf, 1, lbound(InData%SPLTBL, kind=B8Ki), ubound(InData%SPLTBL, kind=B8Ki)) call RegPack(Buf, InData%SPLTBL) end if call RegPack(Buf, allocated(InData%SPLTIP)) if (allocated(InData%SPLTIP)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLTIP), ubound(InData%SPLTIP)) + call RegPackBounds(Buf, 1, lbound(InData%SPLTIP, kind=B8Ki), ubound(InData%SPLTIP, kind=B8Ki)) call RegPack(Buf, InData%SPLTIP) end if call RegPack(Buf, allocated(InData%SPLTI)) if (allocated(InData%SPLTI)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLTI), ubound(InData%SPLTI)) + call RegPackBounds(Buf, 1, lbound(InData%SPLTI, kind=B8Ki), ubound(InData%SPLTI, kind=B8Ki)) call RegPack(Buf, InData%SPLTI) end if call RegPack(Buf, allocated(InData%SPLTIGui)) if (allocated(InData%SPLTIGui)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLTIGui), ubound(InData%SPLTIGui)) + call RegPackBounds(Buf, 1, lbound(InData%SPLTIGui, kind=B8Ki), ubound(InData%SPLTIGui, kind=B8Ki)) call RegPack(Buf, InData%SPLTIGui) end if call RegPack(Buf, allocated(InData%SPLBLUNT)) if (allocated(InData%SPLBLUNT)) then - call RegPackBounds(Buf, 1, lbound(InData%SPLBLUNT), ubound(InData%SPLBLUNT)) + call RegPackBounds(Buf, 1, lbound(InData%SPLBLUNT, kind=B8Ki), ubound(InData%SPLBLUNT, kind=B8Ki)) call RegPack(Buf, InData%SPLBLUNT) end if call RegPack(Buf, allocated(InData%CfVar)) if (allocated(InData%CfVar)) then - call RegPackBounds(Buf, 1, lbound(InData%CfVar), ubound(InData%CfVar)) + call RegPackBounds(Buf, 1, lbound(InData%CfVar, kind=B8Ki), ubound(InData%CfVar, kind=B8Ki)) call RegPack(Buf, InData%CfVar) end if call RegPack(Buf, allocated(InData%d99Var)) if (allocated(InData%d99Var)) then - call RegPackBounds(Buf, 1, lbound(InData%d99Var), ubound(InData%d99Var)) + call RegPackBounds(Buf, 1, lbound(InData%d99Var, kind=B8Ki), ubound(InData%d99Var, kind=B8Ki)) call RegPack(Buf, InData%d99Var) end if call RegPack(Buf, allocated(InData%dStarVar)) if (allocated(InData%dStarVar)) then - call RegPackBounds(Buf, 1, lbound(InData%dStarVar), ubound(InData%dStarVar)) + call RegPackBounds(Buf, 1, lbound(InData%dStarVar, kind=B8Ki), ubound(InData%dStarVar, kind=B8Ki)) call RegPack(Buf, InData%dStarVar) end if call RegPack(Buf, allocated(InData%EdgeVelVar)) if (allocated(InData%EdgeVelVar)) then - call RegPackBounds(Buf, 1, lbound(InData%EdgeVelVar), ubound(InData%EdgeVelVar)) + call RegPackBounds(Buf, 1, lbound(InData%EdgeVelVar, kind=B8Ki), ubound(InData%EdgeVelVar, kind=B8Ki)) call RegPack(Buf, InData%EdgeVelVar) end if call RegPack(Buf, InData%speccou) @@ -2575,7 +2575,7 @@ subroutine AA_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackMisc' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2887,8 +2887,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyParam' @@ -2914,8 +2914,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%toptip = SrcParamData%toptip DstParamData%bottip = SrcParamData%bottip if (allocated(SrcParamData%rotorregionlimitsVert)) then - LB(1:1) = lbound(SrcParamData%rotorregionlimitsVert) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsVert) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsVert, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsVert, kind=B8Ki) if (.not. allocated(DstParamData%rotorregionlimitsVert)) then allocate(DstParamData%rotorregionlimitsVert(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2926,8 +2926,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rotorregionlimitsVert = SrcParamData%rotorregionlimitsVert end if if (allocated(SrcParamData%rotorregionlimitsHorz)) then - LB(1:1) = lbound(SrcParamData%rotorregionlimitsHorz) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsHorz) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsHorz, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsHorz, kind=B8Ki) if (.not. allocated(DstParamData%rotorregionlimitsHorz)) then allocate(DstParamData%rotorregionlimitsHorz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2938,8 +2938,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rotorregionlimitsHorz = SrcParamData%rotorregionlimitsHorz end if if (allocated(SrcParamData%rotorregionlimitsalph)) then - LB(1:1) = lbound(SrcParamData%rotorregionlimitsalph) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsalph) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsalph, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsalph, kind=B8Ki) if (.not. allocated(DstParamData%rotorregionlimitsalph)) then allocate(DstParamData%rotorregionlimitsalph(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2950,8 +2950,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rotorregionlimitsalph = SrcParamData%rotorregionlimitsalph end if if (allocated(SrcParamData%rotorregionlimitsrad)) then - LB(1:1) = lbound(SrcParamData%rotorregionlimitsrad) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsrad) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsrad, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsrad, kind=B8Ki) if (.not. allocated(DstParamData%rotorregionlimitsrad)) then allocate(DstParamData%rotorregionlimitsrad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2966,8 +2966,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TxtFileOutput = SrcParamData%TxtFileOutput DstParamData%AAStart = SrcParamData%AAStart if (allocated(SrcParamData%ObsX)) then - LB(1:1) = lbound(SrcParamData%ObsX) - UB(1:1) = ubound(SrcParamData%ObsX) + LB(1:1) = lbound(SrcParamData%ObsX, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ObsX, kind=B8Ki) if (.not. allocated(DstParamData%ObsX)) then allocate(DstParamData%ObsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2978,8 +2978,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ObsX = SrcParamData%ObsX end if if (allocated(SrcParamData%ObsY)) then - LB(1:1) = lbound(SrcParamData%ObsY) - UB(1:1) = ubound(SrcParamData%ObsY) + LB(1:1) = lbound(SrcParamData%ObsY, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ObsY, kind=B8Ki) if (.not. allocated(DstParamData%ObsY)) then allocate(DstParamData%ObsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2990,8 +2990,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ObsY = SrcParamData%ObsY end if if (allocated(SrcParamData%ObsZ)) then - LB(1:1) = lbound(SrcParamData%ObsZ) - UB(1:1) = ubound(SrcParamData%ObsZ) + LB(1:1) = lbound(SrcParamData%ObsZ, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ObsZ, kind=B8Ki) if (.not. allocated(DstParamData%ObsZ)) then allocate(DstParamData%ObsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3002,8 +3002,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ObsZ = SrcParamData%ObsZ end if if (allocated(SrcParamData%FreqList)) then - LB(1:1) = lbound(SrcParamData%FreqList) - UB(1:1) = ubound(SrcParamData%FreqList) + LB(1:1) = lbound(SrcParamData%FreqList, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FreqList, kind=B8Ki) if (.not. allocated(DstParamData%FreqList)) then allocate(DstParamData%FreqList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3014,8 +3014,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%FreqList = SrcParamData%FreqList end if if (allocated(SrcParamData%Aweight)) then - LB(1:1) = lbound(SrcParamData%Aweight) - UB(1:1) = ubound(SrcParamData%Aweight) + LB(1:1) = lbound(SrcParamData%Aweight, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Aweight, kind=B8Ki) if (.not. allocated(DstParamData%Aweight)) then allocate(DstParamData%Aweight(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3035,8 +3035,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%dz_turb_in = SrcParamData%dz_turb_in DstParamData%dy_turb_in = SrcParamData%dy_turb_in if (allocated(SrcParamData%TI_Grid_In)) then - LB(1:2) = lbound(SrcParamData%TI_Grid_In) - UB(1:2) = ubound(SrcParamData%TI_Grid_In) + LB(1:2) = lbound(SrcParamData%TI_Grid_In, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%TI_Grid_In, kind=B8Ki) if (.not. allocated(DstParamData%TI_Grid_In)) then allocate(DstParamData%TI_Grid_In(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3060,8 +3060,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%unOutFile4 = SrcParamData%unOutFile4 DstParamData%RootName = SrcParamData%RootName if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3076,8 +3076,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%StallStart)) then - LB(1:2) = lbound(SrcParamData%StallStart) - UB(1:2) = ubound(SrcParamData%StallStart) + LB(1:2) = lbound(SrcParamData%StallStart, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%StallStart, kind=B8Ki) if (.not. allocated(DstParamData%StallStart)) then allocate(DstParamData%StallStart(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3088,8 +3088,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%StallStart = SrcParamData%StallStart end if if (allocated(SrcParamData%TEThick)) then - LB(1:2) = lbound(SrcParamData%TEThick) - UB(1:2) = ubound(SrcParamData%TEThick) + LB(1:2) = lbound(SrcParamData%TEThick, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%TEThick, kind=B8Ki) if (.not. allocated(DstParamData%TEThick)) then allocate(DstParamData%TEThick(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3100,8 +3100,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TEThick = SrcParamData%TEThick end if if (allocated(SrcParamData%TEAngle)) then - LB(1:2) = lbound(SrcParamData%TEAngle) - UB(1:2) = ubound(SrcParamData%TEAngle) + LB(1:2) = lbound(SrcParamData%TEAngle, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%TEAngle, kind=B8Ki) if (.not. allocated(DstParamData%TEAngle)) then allocate(DstParamData%TEAngle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3112,8 +3112,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TEAngle = SrcParamData%TEAngle end if if (allocated(SrcParamData%AerCent)) then - LB(1:3) = lbound(SrcParamData%AerCent) - UB(1:3) = ubound(SrcParamData%AerCent) + LB(1:3) = lbound(SrcParamData%AerCent, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AerCent, kind=B8Ki) if (.not. allocated(DstParamData%AerCent)) then allocate(DstParamData%AerCent(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3124,8 +3124,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AerCent = SrcParamData%AerCent end if if (allocated(SrcParamData%BlAFID)) then - LB(1:2) = lbound(SrcParamData%BlAFID) - UB(1:2) = ubound(SrcParamData%BlAFID) + LB(1:2) = lbound(SrcParamData%BlAFID, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BlAFID, kind=B8Ki) if (.not. allocated(DstParamData%BlAFID)) then allocate(DstParamData%BlAFID(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3136,8 +3136,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BlAFID = SrcParamData%BlAFID end if if (allocated(SrcParamData%AFInfo)) then - LB(1:1) = lbound(SrcParamData%AFInfo) - UB(1:1) = ubound(SrcParamData%AFInfo) + LB(1:1) = lbound(SrcParamData%AFInfo, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%AFInfo, kind=B8Ki) if (.not. allocated(DstParamData%AFInfo)) then allocate(DstParamData%AFInfo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3152,8 +3152,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%AFLECo)) then - LB(1:3) = lbound(SrcParamData%AFLECo) - UB(1:3) = ubound(SrcParamData%AFLECo) + LB(1:3) = lbound(SrcParamData%AFLECo, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AFLECo, kind=B8Ki) if (.not. allocated(DstParamData%AFLECo)) then allocate(DstParamData%AFLECo(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3164,8 +3164,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AFLECo = SrcParamData%AFLECo end if if (allocated(SrcParamData%AFTECo)) then - LB(1:3) = lbound(SrcParamData%AFTECo) - UB(1:3) = ubound(SrcParamData%AFTECo) + LB(1:3) = lbound(SrcParamData%AFTECo, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AFTECo, kind=B8Ki) if (.not. allocated(DstParamData%AFTECo)) then allocate(DstParamData%AFTECo(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3176,8 +3176,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AFTECo = SrcParamData%AFTECo end if if (allocated(SrcParamData%BlSpn)) then - LB(1:2) = lbound(SrcParamData%BlSpn) - UB(1:2) = ubound(SrcParamData%BlSpn) + LB(1:2) = lbound(SrcParamData%BlSpn, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BlSpn, kind=B8Ki) if (.not. allocated(DstParamData%BlSpn)) then allocate(DstParamData%BlSpn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3188,8 +3188,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BlSpn = SrcParamData%BlSpn end if if (allocated(SrcParamData%BlChord)) then - LB(1:2) = lbound(SrcParamData%BlChord) - UB(1:2) = ubound(SrcParamData%BlChord) + LB(1:2) = lbound(SrcParamData%BlChord, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BlChord, kind=B8Ki) if (.not. allocated(DstParamData%BlChord)) then allocate(DstParamData%BlChord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3200,8 +3200,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BlChord = SrcParamData%BlChord end if if (allocated(SrcParamData%ReListBL)) then - LB(1:1) = lbound(SrcParamData%ReListBL) - UB(1:1) = ubound(SrcParamData%ReListBL) + LB(1:1) = lbound(SrcParamData%ReListBL, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ReListBL, kind=B8Ki) if (.not. allocated(DstParamData%ReListBL)) then allocate(DstParamData%ReListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3212,8 +3212,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ReListBL = SrcParamData%ReListBL end if if (allocated(SrcParamData%AOAListBL)) then - LB(1:1) = lbound(SrcParamData%AOAListBL) - UB(1:1) = ubound(SrcParamData%AOAListBL) + LB(1:1) = lbound(SrcParamData%AOAListBL, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%AOAListBL, kind=B8Ki) if (.not. allocated(DstParamData%AOAListBL)) then allocate(DstParamData%AOAListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3224,8 +3224,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AOAListBL = SrcParamData%AOAListBL end if if (allocated(SrcParamData%dStarAll1)) then - LB(1:3) = lbound(SrcParamData%dStarAll1) - UB(1:3) = ubound(SrcParamData%dStarAll1) + LB(1:3) = lbound(SrcParamData%dStarAll1, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%dStarAll1, kind=B8Ki) if (.not. allocated(DstParamData%dStarAll1)) then allocate(DstParamData%dStarAll1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3236,8 +3236,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%dStarAll1 = SrcParamData%dStarAll1 end if if (allocated(SrcParamData%dStarAll2)) then - LB(1:3) = lbound(SrcParamData%dStarAll2) - UB(1:3) = ubound(SrcParamData%dStarAll2) + LB(1:3) = lbound(SrcParamData%dStarAll2, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%dStarAll2, kind=B8Ki) if (.not. allocated(DstParamData%dStarAll2)) then allocate(DstParamData%dStarAll2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3248,8 +3248,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%dStarAll2 = SrcParamData%dStarAll2 end if if (allocated(SrcParamData%d99All1)) then - LB(1:3) = lbound(SrcParamData%d99All1) - UB(1:3) = ubound(SrcParamData%d99All1) + LB(1:3) = lbound(SrcParamData%d99All1, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%d99All1, kind=B8Ki) if (.not. allocated(DstParamData%d99All1)) then allocate(DstParamData%d99All1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3260,8 +3260,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%d99All1 = SrcParamData%d99All1 end if if (allocated(SrcParamData%d99All2)) then - LB(1:3) = lbound(SrcParamData%d99All2) - UB(1:3) = ubound(SrcParamData%d99All2) + LB(1:3) = lbound(SrcParamData%d99All2, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%d99All2, kind=B8Ki) if (.not. allocated(DstParamData%d99All2)) then allocate(DstParamData%d99All2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3272,8 +3272,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%d99All2 = SrcParamData%d99All2 end if if (allocated(SrcParamData%CfAll1)) then - LB(1:3) = lbound(SrcParamData%CfAll1) - UB(1:3) = ubound(SrcParamData%CfAll1) + LB(1:3) = lbound(SrcParamData%CfAll1, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%CfAll1, kind=B8Ki) if (.not. allocated(DstParamData%CfAll1)) then allocate(DstParamData%CfAll1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3284,8 +3284,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CfAll1 = SrcParamData%CfAll1 end if if (allocated(SrcParamData%CfAll2)) then - LB(1:3) = lbound(SrcParamData%CfAll2) - UB(1:3) = ubound(SrcParamData%CfAll2) + LB(1:3) = lbound(SrcParamData%CfAll2, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%CfAll2, kind=B8Ki) if (.not. allocated(DstParamData%CfAll2)) then allocate(DstParamData%CfAll2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3296,8 +3296,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CfAll2 = SrcParamData%CfAll2 end if if (allocated(SrcParamData%EdgeVelRat1)) then - LB(1:3) = lbound(SrcParamData%EdgeVelRat1) - UB(1:3) = ubound(SrcParamData%EdgeVelRat1) + LB(1:3) = lbound(SrcParamData%EdgeVelRat1, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%EdgeVelRat1, kind=B8Ki) if (.not. allocated(DstParamData%EdgeVelRat1)) then allocate(DstParamData%EdgeVelRat1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3308,8 +3308,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%EdgeVelRat1 = SrcParamData%EdgeVelRat1 end if if (allocated(SrcParamData%EdgeVelRat2)) then - LB(1:3) = lbound(SrcParamData%EdgeVelRat2) - UB(1:3) = ubound(SrcParamData%EdgeVelRat2) + LB(1:3) = lbound(SrcParamData%EdgeVelRat2, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%EdgeVelRat2, kind=B8Ki) if (.not. allocated(DstParamData%EdgeVelRat2)) then allocate(DstParamData%EdgeVelRat2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3320,8 +3320,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%EdgeVelRat2 = SrcParamData%EdgeVelRat2 end if if (allocated(SrcParamData%AFThickGuida)) then - LB(1:2) = lbound(SrcParamData%AFThickGuida) - UB(1:2) = ubound(SrcParamData%AFThickGuida) + LB(1:2) = lbound(SrcParamData%AFThickGuida, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%AFThickGuida, kind=B8Ki) if (.not. allocated(DstParamData%AFThickGuida)) then allocate(DstParamData%AFThickGuida(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3337,8 +3337,8 @@ subroutine AA_DestroyParam(ParamData, ErrStat, ErrMsg) type(AA_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_DestroyParam' @@ -3375,8 +3375,8 @@ subroutine AA_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%TI_Grid_In) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3399,8 +3399,8 @@ subroutine AA_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%BlAFID) end if if (allocated(ParamData%AFInfo)) then - LB(1:1) = lbound(ParamData%AFInfo) - UB(1:1) = ubound(ParamData%AFInfo) + LB(1:1) = lbound(ParamData%AFInfo, kind=B8Ki) + UB(1:1) = ubound(ParamData%AFInfo, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_DestroyParam(ParamData%AFInfo(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3458,8 +3458,8 @@ subroutine AA_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AA_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AA_PackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) call RegPack(Buf, InData%IBLUNT) @@ -3482,22 +3482,22 @@ subroutine AA_PackParam(Buf, Indata) call RegPack(Buf, InData%bottip) call RegPack(Buf, allocated(InData%rotorregionlimitsVert)) if (allocated(InData%rotorregionlimitsVert)) then - call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsVert), ubound(InData%rotorregionlimitsVert)) + call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsVert, kind=B8Ki), ubound(InData%rotorregionlimitsVert, kind=B8Ki)) call RegPack(Buf, InData%rotorregionlimitsVert) end if call RegPack(Buf, allocated(InData%rotorregionlimitsHorz)) if (allocated(InData%rotorregionlimitsHorz)) then - call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsHorz), ubound(InData%rotorregionlimitsHorz)) + call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsHorz, kind=B8Ki), ubound(InData%rotorregionlimitsHorz, kind=B8Ki)) call RegPack(Buf, InData%rotorregionlimitsHorz) end if call RegPack(Buf, allocated(InData%rotorregionlimitsalph)) if (allocated(InData%rotorregionlimitsalph)) then - call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsalph), ubound(InData%rotorregionlimitsalph)) + call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsalph, kind=B8Ki), ubound(InData%rotorregionlimitsalph, kind=B8Ki)) call RegPack(Buf, InData%rotorregionlimitsalph) end if call RegPack(Buf, allocated(InData%rotorregionlimitsrad)) if (allocated(InData%rotorregionlimitsrad)) then - call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsrad), ubound(InData%rotorregionlimitsrad)) + call RegPackBounds(Buf, 1, lbound(InData%rotorregionlimitsrad, kind=B8Ki), ubound(InData%rotorregionlimitsrad, kind=B8Ki)) call RegPack(Buf, InData%rotorregionlimitsrad) end if call RegPack(Buf, InData%NrObsLoc) @@ -3506,27 +3506,27 @@ subroutine AA_PackParam(Buf, Indata) call RegPack(Buf, InData%AAStart) call RegPack(Buf, allocated(InData%ObsX)) if (allocated(InData%ObsX)) then - call RegPackBounds(Buf, 1, lbound(InData%ObsX), ubound(InData%ObsX)) + call RegPackBounds(Buf, 1, lbound(InData%ObsX, kind=B8Ki), ubound(InData%ObsX, kind=B8Ki)) call RegPack(Buf, InData%ObsX) end if call RegPack(Buf, allocated(InData%ObsY)) if (allocated(InData%ObsY)) then - call RegPackBounds(Buf, 1, lbound(InData%ObsY), ubound(InData%ObsY)) + call RegPackBounds(Buf, 1, lbound(InData%ObsY, kind=B8Ki), ubound(InData%ObsY, kind=B8Ki)) call RegPack(Buf, InData%ObsY) end if call RegPack(Buf, allocated(InData%ObsZ)) if (allocated(InData%ObsZ)) then - call RegPackBounds(Buf, 1, lbound(InData%ObsZ), ubound(InData%ObsZ)) + call RegPackBounds(Buf, 1, lbound(InData%ObsZ, kind=B8Ki), ubound(InData%ObsZ, kind=B8Ki)) call RegPack(Buf, InData%ObsZ) end if call RegPack(Buf, allocated(InData%FreqList)) if (allocated(InData%FreqList)) then - call RegPackBounds(Buf, 1, lbound(InData%FreqList), ubound(InData%FreqList)) + call RegPackBounds(Buf, 1, lbound(InData%FreqList, kind=B8Ki), ubound(InData%FreqList, kind=B8Ki)) call RegPack(Buf, InData%FreqList) end if call RegPack(Buf, allocated(InData%Aweight)) if (allocated(InData%Aweight)) then - call RegPackBounds(Buf, 1, lbound(InData%Aweight), ubound(InData%Aweight)) + call RegPackBounds(Buf, 1, lbound(InData%Aweight, kind=B8Ki), ubound(InData%Aweight, kind=B8Ki)) call RegPack(Buf, InData%Aweight) end if call RegPack(Buf, InData%Fsample) @@ -3540,7 +3540,7 @@ subroutine AA_PackParam(Buf, Indata) call RegPack(Buf, InData%dy_turb_in) call RegPack(Buf, allocated(InData%TI_Grid_In)) if (allocated(InData%TI_Grid_In)) then - call RegPackBounds(Buf, 2, lbound(InData%TI_Grid_In), ubound(InData%TI_Grid_In)) + call RegPackBounds(Buf, 2, lbound(InData%TI_Grid_In, kind=B8Ki), ubound(InData%TI_Grid_In, kind=B8Ki)) call RegPack(Buf, InData%TI_Grid_In) end if call RegPack(Buf, InData%FTitle) @@ -3558,120 +3558,120 @@ subroutine AA_PackParam(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do end if call RegPack(Buf, allocated(InData%StallStart)) if (allocated(InData%StallStart)) then - call RegPackBounds(Buf, 2, lbound(InData%StallStart), ubound(InData%StallStart)) + call RegPackBounds(Buf, 2, lbound(InData%StallStart, kind=B8Ki), ubound(InData%StallStart, kind=B8Ki)) call RegPack(Buf, InData%StallStart) end if call RegPack(Buf, allocated(InData%TEThick)) if (allocated(InData%TEThick)) then - call RegPackBounds(Buf, 2, lbound(InData%TEThick), ubound(InData%TEThick)) + call RegPackBounds(Buf, 2, lbound(InData%TEThick, kind=B8Ki), ubound(InData%TEThick, kind=B8Ki)) call RegPack(Buf, InData%TEThick) end if call RegPack(Buf, allocated(InData%TEAngle)) if (allocated(InData%TEAngle)) then - call RegPackBounds(Buf, 2, lbound(InData%TEAngle), ubound(InData%TEAngle)) + call RegPackBounds(Buf, 2, lbound(InData%TEAngle, kind=B8Ki), ubound(InData%TEAngle, kind=B8Ki)) call RegPack(Buf, InData%TEAngle) end if call RegPack(Buf, allocated(InData%AerCent)) if (allocated(InData%AerCent)) then - call RegPackBounds(Buf, 3, lbound(InData%AerCent), ubound(InData%AerCent)) + call RegPackBounds(Buf, 3, lbound(InData%AerCent, kind=B8Ki), ubound(InData%AerCent, kind=B8Ki)) call RegPack(Buf, InData%AerCent) end if call RegPack(Buf, allocated(InData%BlAFID)) if (allocated(InData%BlAFID)) then - call RegPackBounds(Buf, 2, lbound(InData%BlAFID), ubound(InData%BlAFID)) + call RegPackBounds(Buf, 2, lbound(InData%BlAFID, kind=B8Ki), ubound(InData%BlAFID, kind=B8Ki)) call RegPack(Buf, InData%BlAFID) end if call RegPack(Buf, allocated(InData%AFInfo)) if (allocated(InData%AFInfo)) then - call RegPackBounds(Buf, 1, lbound(InData%AFInfo), ubound(InData%AFInfo)) - LB(1:1) = lbound(InData%AFInfo) - UB(1:1) = ubound(InData%AFInfo) + call RegPackBounds(Buf, 1, lbound(InData%AFInfo, kind=B8Ki), ubound(InData%AFInfo, kind=B8Ki)) + LB(1:1) = lbound(InData%AFInfo, kind=B8Ki) + UB(1:1) = ubound(InData%AFInfo, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_PackParam(Buf, InData%AFInfo(i1)) end do end if call RegPack(Buf, allocated(InData%AFLECo)) if (allocated(InData%AFLECo)) then - call RegPackBounds(Buf, 3, lbound(InData%AFLECo), ubound(InData%AFLECo)) + call RegPackBounds(Buf, 3, lbound(InData%AFLECo, kind=B8Ki), ubound(InData%AFLECo, kind=B8Ki)) call RegPack(Buf, InData%AFLECo) end if call RegPack(Buf, allocated(InData%AFTECo)) if (allocated(InData%AFTECo)) then - call RegPackBounds(Buf, 3, lbound(InData%AFTECo), ubound(InData%AFTECo)) + call RegPackBounds(Buf, 3, lbound(InData%AFTECo, kind=B8Ki), ubound(InData%AFTECo, kind=B8Ki)) call RegPack(Buf, InData%AFTECo) end if call RegPack(Buf, allocated(InData%BlSpn)) if (allocated(InData%BlSpn)) then - call RegPackBounds(Buf, 2, lbound(InData%BlSpn), ubound(InData%BlSpn)) + call RegPackBounds(Buf, 2, lbound(InData%BlSpn, kind=B8Ki), ubound(InData%BlSpn, kind=B8Ki)) call RegPack(Buf, InData%BlSpn) end if call RegPack(Buf, allocated(InData%BlChord)) if (allocated(InData%BlChord)) then - call RegPackBounds(Buf, 2, lbound(InData%BlChord), ubound(InData%BlChord)) + call RegPackBounds(Buf, 2, lbound(InData%BlChord, kind=B8Ki), ubound(InData%BlChord, kind=B8Ki)) call RegPack(Buf, InData%BlChord) end if call RegPack(Buf, allocated(InData%ReListBL)) if (allocated(InData%ReListBL)) then - call RegPackBounds(Buf, 1, lbound(InData%ReListBL), ubound(InData%ReListBL)) + call RegPackBounds(Buf, 1, lbound(InData%ReListBL, kind=B8Ki), ubound(InData%ReListBL, kind=B8Ki)) call RegPack(Buf, InData%ReListBL) end if call RegPack(Buf, allocated(InData%AOAListBL)) if (allocated(InData%AOAListBL)) then - call RegPackBounds(Buf, 1, lbound(InData%AOAListBL), ubound(InData%AOAListBL)) + call RegPackBounds(Buf, 1, lbound(InData%AOAListBL, kind=B8Ki), ubound(InData%AOAListBL, kind=B8Ki)) call RegPack(Buf, InData%AOAListBL) end if call RegPack(Buf, allocated(InData%dStarAll1)) if (allocated(InData%dStarAll1)) then - call RegPackBounds(Buf, 3, lbound(InData%dStarAll1), ubound(InData%dStarAll1)) + call RegPackBounds(Buf, 3, lbound(InData%dStarAll1, kind=B8Ki), ubound(InData%dStarAll1, kind=B8Ki)) call RegPack(Buf, InData%dStarAll1) end if call RegPack(Buf, allocated(InData%dStarAll2)) if (allocated(InData%dStarAll2)) then - call RegPackBounds(Buf, 3, lbound(InData%dStarAll2), ubound(InData%dStarAll2)) + call RegPackBounds(Buf, 3, lbound(InData%dStarAll2, kind=B8Ki), ubound(InData%dStarAll2, kind=B8Ki)) call RegPack(Buf, InData%dStarAll2) end if call RegPack(Buf, allocated(InData%d99All1)) if (allocated(InData%d99All1)) then - call RegPackBounds(Buf, 3, lbound(InData%d99All1), ubound(InData%d99All1)) + call RegPackBounds(Buf, 3, lbound(InData%d99All1, kind=B8Ki), ubound(InData%d99All1, kind=B8Ki)) call RegPack(Buf, InData%d99All1) end if call RegPack(Buf, allocated(InData%d99All2)) if (allocated(InData%d99All2)) then - call RegPackBounds(Buf, 3, lbound(InData%d99All2), ubound(InData%d99All2)) + call RegPackBounds(Buf, 3, lbound(InData%d99All2, kind=B8Ki), ubound(InData%d99All2, kind=B8Ki)) call RegPack(Buf, InData%d99All2) end if call RegPack(Buf, allocated(InData%CfAll1)) if (allocated(InData%CfAll1)) then - call RegPackBounds(Buf, 3, lbound(InData%CfAll1), ubound(InData%CfAll1)) + call RegPackBounds(Buf, 3, lbound(InData%CfAll1, kind=B8Ki), ubound(InData%CfAll1, kind=B8Ki)) call RegPack(Buf, InData%CfAll1) end if call RegPack(Buf, allocated(InData%CfAll2)) if (allocated(InData%CfAll2)) then - call RegPackBounds(Buf, 3, lbound(InData%CfAll2), ubound(InData%CfAll2)) + call RegPackBounds(Buf, 3, lbound(InData%CfAll2, kind=B8Ki), ubound(InData%CfAll2, kind=B8Ki)) call RegPack(Buf, InData%CfAll2) end if call RegPack(Buf, allocated(InData%EdgeVelRat1)) if (allocated(InData%EdgeVelRat1)) then - call RegPackBounds(Buf, 3, lbound(InData%EdgeVelRat1), ubound(InData%EdgeVelRat1)) + call RegPackBounds(Buf, 3, lbound(InData%EdgeVelRat1, kind=B8Ki), ubound(InData%EdgeVelRat1, kind=B8Ki)) call RegPack(Buf, InData%EdgeVelRat1) end if call RegPack(Buf, allocated(InData%EdgeVelRat2)) if (allocated(InData%EdgeVelRat2)) then - call RegPackBounds(Buf, 3, lbound(InData%EdgeVelRat2), ubound(InData%EdgeVelRat2)) + call RegPackBounds(Buf, 3, lbound(InData%EdgeVelRat2, kind=B8Ki), ubound(InData%EdgeVelRat2, kind=B8Ki)) call RegPack(Buf, InData%EdgeVelRat2) end if call RegPack(Buf, allocated(InData%AFThickGuida)) if (allocated(InData%AFThickGuida)) then - call RegPackBounds(Buf, 2, lbound(InData%AFThickGuida), ubound(InData%AFThickGuida)) + call RegPackBounds(Buf, 2, lbound(InData%AFThickGuida, kind=B8Ki), ubound(InData%AFThickGuida, kind=B8Ki)) call RegPack(Buf, InData%AFThickGuida) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3681,8 +3681,8 @@ subroutine AA_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4234,14 +4234,14 @@ subroutine AA_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AA_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%RotGtoL)) then - LB(1:4) = lbound(SrcInputData%RotGtoL) - UB(1:4) = ubound(SrcInputData%RotGtoL) + LB(1:4) = lbound(SrcInputData%RotGtoL, kind=B8Ki) + UB(1:4) = ubound(SrcInputData%RotGtoL, kind=B8Ki) if (.not. allocated(DstInputData%RotGtoL)) then allocate(DstInputData%RotGtoL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4252,8 +4252,8 @@ subroutine AA_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%RotGtoL = SrcInputData%RotGtoL end if if (allocated(SrcInputData%AeroCent_G)) then - LB(1:3) = lbound(SrcInputData%AeroCent_G) - UB(1:3) = ubound(SrcInputData%AeroCent_G) + LB(1:3) = lbound(SrcInputData%AeroCent_G, kind=B8Ki) + UB(1:3) = ubound(SrcInputData%AeroCent_G, kind=B8Ki) if (.not. allocated(DstInputData%AeroCent_G)) then allocate(DstInputData%AeroCent_G(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4264,8 +4264,8 @@ subroutine AA_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%AeroCent_G = SrcInputData%AeroCent_G end if if (allocated(SrcInputData%Vrel)) then - LB(1:2) = lbound(SrcInputData%Vrel) - UB(1:2) = ubound(SrcInputData%Vrel) + LB(1:2) = lbound(SrcInputData%Vrel, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%Vrel, kind=B8Ki) if (.not. allocated(DstInputData%Vrel)) then allocate(DstInputData%Vrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4276,8 +4276,8 @@ subroutine AA_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vrel = SrcInputData%Vrel end if if (allocated(SrcInputData%AoANoise)) then - LB(1:2) = lbound(SrcInputData%AoANoise) - UB(1:2) = ubound(SrcInputData%AoANoise) + LB(1:2) = lbound(SrcInputData%AoANoise, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%AoANoise, kind=B8Ki) if (.not. allocated(DstInputData%AoANoise)) then allocate(DstInputData%AoANoise(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4288,8 +4288,8 @@ subroutine AA_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%AoANoise = SrcInputData%AoANoise end if if (allocated(SrcInputData%Inflow)) then - LB(1:3) = lbound(SrcInputData%Inflow) - UB(1:3) = ubound(SrcInputData%Inflow) + LB(1:3) = lbound(SrcInputData%Inflow, kind=B8Ki) + UB(1:3) = ubound(SrcInputData%Inflow, kind=B8Ki) if (.not. allocated(DstInputData%Inflow)) then allocate(DstInputData%Inflow(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4332,27 +4332,27 @@ subroutine AA_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%RotGtoL)) if (allocated(InData%RotGtoL)) then - call RegPackBounds(Buf, 4, lbound(InData%RotGtoL), ubound(InData%RotGtoL)) + call RegPackBounds(Buf, 4, lbound(InData%RotGtoL, kind=B8Ki), ubound(InData%RotGtoL, kind=B8Ki)) call RegPack(Buf, InData%RotGtoL) end if call RegPack(Buf, allocated(InData%AeroCent_G)) if (allocated(InData%AeroCent_G)) then - call RegPackBounds(Buf, 3, lbound(InData%AeroCent_G), ubound(InData%AeroCent_G)) + call RegPackBounds(Buf, 3, lbound(InData%AeroCent_G, kind=B8Ki), ubound(InData%AeroCent_G, kind=B8Ki)) call RegPack(Buf, InData%AeroCent_G) end if call RegPack(Buf, allocated(InData%Vrel)) if (allocated(InData%Vrel)) then - call RegPackBounds(Buf, 2, lbound(InData%Vrel), ubound(InData%Vrel)) + call RegPackBounds(Buf, 2, lbound(InData%Vrel, kind=B8Ki), ubound(InData%Vrel, kind=B8Ki)) call RegPack(Buf, InData%Vrel) end if call RegPack(Buf, allocated(InData%AoANoise)) if (allocated(InData%AoANoise)) then - call RegPackBounds(Buf, 2, lbound(InData%AoANoise), ubound(InData%AoANoise)) + call RegPackBounds(Buf, 2, lbound(InData%AoANoise, kind=B8Ki), ubound(InData%AoANoise, kind=B8Ki)) call RegPack(Buf, InData%AoANoise) end if call RegPack(Buf, allocated(InData%Inflow)) if (allocated(InData%Inflow)) then - call RegPackBounds(Buf, 3, lbound(InData%Inflow), ubound(InData%Inflow)) + call RegPackBounds(Buf, 3, lbound(InData%Inflow, kind=B8Ki), ubound(InData%Inflow, kind=B8Ki)) call RegPack(Buf, InData%Inflow) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4362,7 +4362,7 @@ subroutine AA_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInput' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4444,14 +4444,14 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AA_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%SumSpecNoise)) then - LB(1:3) = lbound(SrcOutputData%SumSpecNoise) - UB(1:3) = ubound(SrcOutputData%SumSpecNoise) + LB(1:3) = lbound(SrcOutputData%SumSpecNoise, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%SumSpecNoise, kind=B8Ki) if (.not. allocated(DstOutputData%SumSpecNoise)) then allocate(DstOutputData%SumSpecNoise(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4462,8 +4462,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%SumSpecNoise = SrcOutputData%SumSpecNoise end if if (allocated(SrcOutputData%SumSpecNoiseSep)) then - LB(1:3) = lbound(SrcOutputData%SumSpecNoiseSep) - UB(1:3) = ubound(SrcOutputData%SumSpecNoiseSep) + LB(1:3) = lbound(SrcOutputData%SumSpecNoiseSep, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%SumSpecNoiseSep, kind=B8Ki) if (.not. allocated(DstOutputData%SumSpecNoiseSep)) then allocate(DstOutputData%SumSpecNoiseSep(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4474,8 +4474,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%SumSpecNoiseSep = SrcOutputData%SumSpecNoiseSep end if if (allocated(SrcOutputData%OASPL)) then - LB(1:3) = lbound(SrcOutputData%OASPL) - UB(1:3) = ubound(SrcOutputData%OASPL) + LB(1:3) = lbound(SrcOutputData%OASPL, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%OASPL, kind=B8Ki) if (.not. allocated(DstOutputData%OASPL)) then allocate(DstOutputData%OASPL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4486,8 +4486,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%OASPL = SrcOutputData%OASPL end if if (allocated(SrcOutputData%OASPL_Mech)) then - LB(1:4) = lbound(SrcOutputData%OASPL_Mech) - UB(1:4) = ubound(SrcOutputData%OASPL_Mech) + LB(1:4) = lbound(SrcOutputData%OASPL_Mech, kind=B8Ki) + UB(1:4) = ubound(SrcOutputData%OASPL_Mech, kind=B8Ki) if (.not. allocated(DstOutputData%OASPL_Mech)) then allocate(DstOutputData%OASPL_Mech(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4498,8 +4498,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%OASPL_Mech = SrcOutputData%OASPL_Mech end if if (allocated(SrcOutputData%DirectiviOutput)) then - LB(1:1) = lbound(SrcOutputData%DirectiviOutput) - UB(1:1) = ubound(SrcOutputData%DirectiviOutput) + LB(1:1) = lbound(SrcOutputData%DirectiviOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%DirectiviOutput, kind=B8Ki) if (.not. allocated(DstOutputData%DirectiviOutput)) then allocate(DstOutputData%DirectiviOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4510,8 +4510,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%DirectiviOutput = SrcOutputData%DirectiviOutput end if if (allocated(SrcOutputData%OutLECoords)) then - LB(1:4) = lbound(SrcOutputData%OutLECoords) - UB(1:4) = ubound(SrcOutputData%OutLECoords) + LB(1:4) = lbound(SrcOutputData%OutLECoords, kind=B8Ki) + UB(1:4) = ubound(SrcOutputData%OutLECoords, kind=B8Ki) if (.not. allocated(DstOutputData%OutLECoords)) then allocate(DstOutputData%OutLECoords(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4522,8 +4522,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%OutLECoords = SrcOutputData%OutLECoords end if if (allocated(SrcOutputData%PtotalFreq)) then - LB(1:2) = lbound(SrcOutputData%PtotalFreq) - UB(1:2) = ubound(SrcOutputData%PtotalFreq) + LB(1:2) = lbound(SrcOutputData%PtotalFreq, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%PtotalFreq, kind=B8Ki) if (.not. allocated(DstOutputData%PtotalFreq)) then allocate(DstOutputData%PtotalFreq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4534,8 +4534,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%PtotalFreq = SrcOutputData%PtotalFreq end if if (allocated(SrcOutputData%WriteOutputForPE)) then - LB(1:1) = lbound(SrcOutputData%WriteOutputForPE) - UB(1:1) = ubound(SrcOutputData%WriteOutputForPE) + LB(1:1) = lbound(SrcOutputData%WriteOutputForPE, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutputForPE, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutputForPE)) then allocate(DstOutputData%WriteOutputForPE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4546,8 +4546,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%WriteOutputForPE = SrcOutputData%WriteOutputForPE end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4558,8 +4558,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%WriteOutput = SrcOutputData%WriteOutput end if if (allocated(SrcOutputData%WriteOutputSep)) then - LB(1:1) = lbound(SrcOutputData%WriteOutputSep) - UB(1:1) = ubound(SrcOutputData%WriteOutputSep) + LB(1:1) = lbound(SrcOutputData%WriteOutputSep, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutputSep, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutputSep)) then allocate(DstOutputData%WriteOutputSep(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4570,8 +4570,8 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%WriteOutputSep = SrcOutputData%WriteOutputSep end if if (allocated(SrcOutputData%WriteOutputNode)) then - LB(1:1) = lbound(SrcOutputData%WriteOutputNode) - UB(1:1) = ubound(SrcOutputData%WriteOutputNode) + LB(1:1) = lbound(SrcOutputData%WriteOutputNode, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutputNode, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutputNode)) then allocate(DstOutputData%WriteOutputNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4632,57 +4632,57 @@ subroutine AA_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%SumSpecNoise)) if (allocated(InData%SumSpecNoise)) then - call RegPackBounds(Buf, 3, lbound(InData%SumSpecNoise), ubound(InData%SumSpecNoise)) + call RegPackBounds(Buf, 3, lbound(InData%SumSpecNoise, kind=B8Ki), ubound(InData%SumSpecNoise, kind=B8Ki)) call RegPack(Buf, InData%SumSpecNoise) end if call RegPack(Buf, allocated(InData%SumSpecNoiseSep)) if (allocated(InData%SumSpecNoiseSep)) then - call RegPackBounds(Buf, 3, lbound(InData%SumSpecNoiseSep), ubound(InData%SumSpecNoiseSep)) + call RegPackBounds(Buf, 3, lbound(InData%SumSpecNoiseSep, kind=B8Ki), ubound(InData%SumSpecNoiseSep, kind=B8Ki)) call RegPack(Buf, InData%SumSpecNoiseSep) end if call RegPack(Buf, allocated(InData%OASPL)) if (allocated(InData%OASPL)) then - call RegPackBounds(Buf, 3, lbound(InData%OASPL), ubound(InData%OASPL)) + call RegPackBounds(Buf, 3, lbound(InData%OASPL, kind=B8Ki), ubound(InData%OASPL, kind=B8Ki)) call RegPack(Buf, InData%OASPL) end if call RegPack(Buf, allocated(InData%OASPL_Mech)) if (allocated(InData%OASPL_Mech)) then - call RegPackBounds(Buf, 4, lbound(InData%OASPL_Mech), ubound(InData%OASPL_Mech)) + call RegPackBounds(Buf, 4, lbound(InData%OASPL_Mech, kind=B8Ki), ubound(InData%OASPL_Mech, kind=B8Ki)) call RegPack(Buf, InData%OASPL_Mech) end if call RegPack(Buf, allocated(InData%DirectiviOutput)) if (allocated(InData%DirectiviOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%DirectiviOutput), ubound(InData%DirectiviOutput)) + call RegPackBounds(Buf, 1, lbound(InData%DirectiviOutput, kind=B8Ki), ubound(InData%DirectiviOutput, kind=B8Ki)) call RegPack(Buf, InData%DirectiviOutput) end if call RegPack(Buf, allocated(InData%OutLECoords)) if (allocated(InData%OutLECoords)) then - call RegPackBounds(Buf, 4, lbound(InData%OutLECoords), ubound(InData%OutLECoords)) + call RegPackBounds(Buf, 4, lbound(InData%OutLECoords, kind=B8Ki), ubound(InData%OutLECoords, kind=B8Ki)) call RegPack(Buf, InData%OutLECoords) end if call RegPack(Buf, allocated(InData%PtotalFreq)) if (allocated(InData%PtotalFreq)) then - call RegPackBounds(Buf, 2, lbound(InData%PtotalFreq), ubound(InData%PtotalFreq)) + call RegPackBounds(Buf, 2, lbound(InData%PtotalFreq, kind=B8Ki), ubound(InData%PtotalFreq, kind=B8Ki)) call RegPack(Buf, InData%PtotalFreq) end if call RegPack(Buf, allocated(InData%WriteOutputForPE)) if (allocated(InData%WriteOutputForPE)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputForPE), ubound(InData%WriteOutputForPE)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputForPE, kind=B8Ki), ubound(InData%WriteOutputForPE, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputForPE) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, allocated(InData%WriteOutputSep)) if (allocated(InData%WriteOutputSep)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputSep), ubound(InData%WriteOutputSep)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputSep, kind=B8Ki), ubound(InData%WriteOutputSep, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputSep) end if call RegPack(Buf, allocated(InData%WriteOutputNode)) if (allocated(InData%WriteOutputNode)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputNode), ubound(InData%WriteOutputNode)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputNode, kind=B8Ki), ubound(InData%WriteOutputNode, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputNode) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4692,7 +4692,7 @@ subroutine AA_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AA_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackOutput' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroDyn_Driver_Types.f90 b/modules/aerodyn/src/AeroDyn_Driver_Types.f90 index 71835dac10..4a9345bb6c 100644 --- a/modules/aerodyn/src/AeroDyn_Driver_Types.f90 +++ b/modules/aerodyn/src/AeroDyn_Driver_Types.f90 @@ -331,8 +331,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyDvr_Outputs' @@ -342,8 +342,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcDvr_OutputsData%unOutFile)) then - LB(1:1) = lbound(SrcDvr_OutputsData%unOutFile) - UB(1:1) = ubound(SrcDvr_OutputsData%unOutFile) + LB(1:1) = lbound(SrcDvr_OutputsData%unOutFile, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_OutputsData%unOutFile, kind=B8Ki) if (.not. allocated(DstDvr_OutputsData%unOutFile)) then allocate(DstDvr_OutputsData%unOutFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -365,8 +365,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo DstDvr_OutputsData%Root = SrcDvr_OutputsData%Root DstDvr_OutputsData%VTK_OutFileRoot = SrcDvr_OutputsData%VTK_OutFileRoot if (allocated(SrcDvr_OutputsData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcDvr_OutputsData%WriteOutputHdr) - UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputHdr) + LB(1:1) = lbound(SrcDvr_OutputsData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstDvr_OutputsData%WriteOutputHdr)) then allocate(DstDvr_OutputsData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -377,8 +377,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo DstDvr_OutputsData%WriteOutputHdr = SrcDvr_OutputsData%WriteOutputHdr end if if (allocated(SrcDvr_OutputsData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcDvr_OutputsData%WriteOutputUnt) - UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputUnt) + LB(1:1) = lbound(SrcDvr_OutputsData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstDvr_OutputsData%WriteOutputUnt)) then allocate(DstDvr_OutputsData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -389,8 +389,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo DstDvr_OutputsData%WriteOutputUnt = SrcDvr_OutputsData%WriteOutputUnt end if if (allocated(SrcDvr_OutputsData%storage)) then - LB(1:3) = lbound(SrcDvr_OutputsData%storage) - UB(1:3) = ubound(SrcDvr_OutputsData%storage) + LB(1:3) = lbound(SrcDvr_OutputsData%storage, kind=B8Ki) + UB(1:3) = ubound(SrcDvr_OutputsData%storage, kind=B8Ki) if (.not. allocated(DstDvr_OutputsData%storage)) then allocate(DstDvr_OutputsData%storage(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -401,8 +401,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo DstDvr_OutputsData%storage = SrcDvr_OutputsData%storage end if if (allocated(SrcDvr_OutputsData%outLine)) then - LB(1:1) = lbound(SrcDvr_OutputsData%outLine) - UB(1:1) = ubound(SrcDvr_OutputsData%outLine) + LB(1:1) = lbound(SrcDvr_OutputsData%outLine, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_OutputsData%outLine, kind=B8Ki) if (.not. allocated(DstDvr_OutputsData%outLine)) then allocate(DstDvr_OutputsData%outLine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -413,8 +413,8 @@ subroutine AD_Dvr_CopyDvr_Outputs(SrcDvr_OutputsData, DstDvr_OutputsData, CtrlCo DstDvr_OutputsData%outLine = SrcDvr_OutputsData%outLine end if if (allocated(SrcDvr_OutputsData%VTK_surface)) then - LB(1:1) = lbound(SrcDvr_OutputsData%VTK_surface) - UB(1:1) = ubound(SrcDvr_OutputsData%VTK_surface) + LB(1:1) = lbound(SrcDvr_OutputsData%VTK_surface, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_OutputsData%VTK_surface, kind=B8Ki) if (.not. allocated(DstDvr_OutputsData%VTK_surface)) then allocate(DstDvr_OutputsData%VTK_surface(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -441,8 +441,8 @@ subroutine AD_Dvr_DestroyDvr_Outputs(Dvr_OutputsData, ErrStat, ErrMsg) type(Dvr_Outputs), intent(inout) :: Dvr_OutputsData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_DestroyDvr_Outputs' @@ -466,8 +466,8 @@ subroutine AD_Dvr_DestroyDvr_Outputs(Dvr_OutputsData, ErrStat, ErrMsg) deallocate(Dvr_OutputsData%outLine) end if if (allocated(Dvr_OutputsData%VTK_surface)) then - LB(1:1) = lbound(Dvr_OutputsData%VTK_surface) - UB(1:1) = ubound(Dvr_OutputsData%VTK_surface) + LB(1:1) = lbound(Dvr_OutputsData%VTK_surface, kind=B8Ki) + UB(1:1) = ubound(Dvr_OutputsData%VTK_surface, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_DestroyDvrVTK_SurfaceType(Dvr_OutputsData%VTK_surface(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -480,13 +480,13 @@ subroutine AD_Dvr_PackDvr_Outputs(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Dvr_Outputs), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_Dvr_PackDvr_Outputs' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call NWTC_Library_PackProgDesc(Buf, InData%AD_ver) call RegPack(Buf, allocated(InData%unOutFile)) if (allocated(InData%unOutFile)) then - call RegPackBounds(Buf, 1, lbound(InData%unOutFile), ubound(InData%unOutFile)) + call RegPackBounds(Buf, 1, lbound(InData%unOutFile, kind=B8Ki), ubound(InData%unOutFile, kind=B8Ki)) call RegPack(Buf, InData%unOutFile) end if call RegPack(Buf, InData%ActualChanLen) @@ -502,29 +502,29 @@ subroutine AD_Dvr_PackDvr_Outputs(Buf, Indata) call RegPack(Buf, InData%VTK_OutFileRoot) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call RegPack(Buf, allocated(InData%storage)) if (allocated(InData%storage)) then - call RegPackBounds(Buf, 3, lbound(InData%storage), ubound(InData%storage)) + call RegPackBounds(Buf, 3, lbound(InData%storage, kind=B8Ki), ubound(InData%storage, kind=B8Ki)) call RegPack(Buf, InData%storage) end if call RegPack(Buf, allocated(InData%outLine)) if (allocated(InData%outLine)) then - call RegPackBounds(Buf, 1, lbound(InData%outLine), ubound(InData%outLine)) + call RegPackBounds(Buf, 1, lbound(InData%outLine, kind=B8Ki), ubound(InData%outLine, kind=B8Ki)) call RegPack(Buf, InData%outLine) end if call RegPack(Buf, allocated(InData%VTK_surface)) if (allocated(InData%VTK_surface)) then - call RegPackBounds(Buf, 1, lbound(InData%VTK_surface), ubound(InData%VTK_surface)) - LB(1:1) = lbound(InData%VTK_surface) - UB(1:1) = ubound(InData%VTK_surface) + call RegPackBounds(Buf, 1, lbound(InData%VTK_surface, kind=B8Ki), ubound(InData%VTK_surface, kind=B8Ki)) + LB(1:1) = lbound(InData%VTK_surface, kind=B8Ki) + UB(1:1) = ubound(InData%VTK_surface, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_PackDvrVTK_SurfaceType(Buf, InData%VTK_surface(i1)) end do @@ -543,8 +543,8 @@ subroutine AD_Dvr_UnPackDvr_Outputs(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Dvr_Outputs), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackDvr_Outputs' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -678,7 +678,7 @@ subroutine AD_Dvr_CopyBladeData(SrcBladeDataData, DstBladeDataData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyBladeData' ErrStat = ErrID_None @@ -693,8 +693,8 @@ subroutine AD_Dvr_CopyBladeData(SrcBladeDataData, DstBladeDataData, CtrlCode, Er DstBladeDataData%motionType = SrcBladeDataData%motionType DstBladeDataData%iMotion = SrcBladeDataData%iMotion if (allocated(SrcBladeDataData%motion)) then - LB(1:2) = lbound(SrcBladeDataData%motion) - UB(1:2) = ubound(SrcBladeDataData%motion) + LB(1:2) = lbound(SrcBladeDataData%motion, kind=B8Ki) + UB(1:2) = ubound(SrcBladeDataData%motion, kind=B8Ki) if (.not. allocated(DstBladeDataData%motion)) then allocate(DstBladeDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -735,7 +735,7 @@ subroutine AD_Dvr_PackBladeData(Buf, Indata) call RegPack(Buf, InData%iMotion) call RegPack(Buf, allocated(InData%motion)) if (allocated(InData%motion)) then - call RegPackBounds(Buf, 2, lbound(InData%motion), ubound(InData%motion)) + call RegPackBounds(Buf, 2, lbound(InData%motion, kind=B8Ki), ubound(InData%motion, kind=B8Ki)) call RegPack(Buf, InData%motion) end if call RegPack(Buf, InData%motionFileName) @@ -746,7 +746,7 @@ subroutine AD_Dvr_UnPackBladeData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BladeData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackBladeData' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -792,7 +792,7 @@ subroutine AD_Dvr_CopyHubData(SrcHubDataData, DstHubDataData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyHubData' ErrStat = ErrID_None @@ -806,8 +806,8 @@ subroutine AD_Dvr_CopyHubData(SrcHubDataData, DstHubDataData, CtrlCode, ErrStat, DstHubDataData%rotAcc = SrcHubDataData%rotAcc DstHubDataData%motionFileName = SrcHubDataData%motionFileName if (allocated(SrcHubDataData%motion)) then - LB(1:2) = lbound(SrcHubDataData%motion) - UB(1:2) = ubound(SrcHubDataData%motion) + LB(1:2) = lbound(SrcHubDataData%motion, kind=B8Ki) + UB(1:2) = ubound(SrcHubDataData%motion, kind=B8Ki) if (.not. allocated(DstHubDataData%motion)) then allocate(DstHubDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -846,7 +846,7 @@ subroutine AD_Dvr_PackHubData(Buf, Indata) call RegPack(Buf, InData%motionFileName) call RegPack(Buf, allocated(InData%motion)) if (allocated(InData%motion)) then - call RegPackBounds(Buf, 2, lbound(InData%motion), ubound(InData%motion)) + call RegPackBounds(Buf, 2, lbound(InData%motion, kind=B8Ki), ubound(InData%motion, kind=B8Ki)) call RegPack(Buf, InData%motion) end if if (RegCheckErr(Buf, RoutineName)) return @@ -856,7 +856,7 @@ subroutine AD_Dvr_UnPackHubData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HubData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackHubData' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -898,7 +898,7 @@ subroutine AD_Dvr_CopyNacData(SrcNacDataData, DstNacDataData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyNacData' ErrStat = ErrID_None @@ -911,8 +911,8 @@ subroutine AD_Dvr_CopyNacData(SrcNacDataData, DstNacDataData, CtrlCode, ErrStat, DstNacDataData%yawAcc = SrcNacDataData%yawAcc DstNacDataData%motionFileName = SrcNacDataData%motionFileName if (allocated(SrcNacDataData%motion)) then - LB(1:2) = lbound(SrcNacDataData%motion) - UB(1:2) = ubound(SrcNacDataData%motion) + LB(1:2) = lbound(SrcNacDataData%motion, kind=B8Ki) + UB(1:2) = ubound(SrcNacDataData%motion, kind=B8Ki) if (.not. allocated(DstNacDataData%motion)) then allocate(DstNacDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -950,7 +950,7 @@ subroutine AD_Dvr_PackNacData(Buf, Indata) call RegPack(Buf, InData%motionFileName) call RegPack(Buf, allocated(InData%motion)) if (allocated(InData%motion)) then - call RegPackBounds(Buf, 2, lbound(InData%motion), ubound(InData%motion)) + call RegPackBounds(Buf, 2, lbound(InData%motion, kind=B8Ki), ubound(InData%motion, kind=B8Ki)) call RegPack(Buf, InData%motion) end if if (RegCheckErr(Buf, RoutineName)) return @@ -960,7 +960,7 @@ subroutine AD_Dvr_UnPackNacData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(NacData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackNacData' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1039,8 +1039,8 @@ subroutine AD_Dvr_CopyWTData(SrcWTDataData, DstWTDataData, CtrlCode, ErrStat, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyWTData' @@ -1058,8 +1058,8 @@ subroutine AD_Dvr_CopyWTData(SrcWTDataData, DstWTDataData, CtrlCode, ErrStat, Er call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcWTDataData%map2BldPt)) then - LB(1:1) = lbound(SrcWTDataData%map2BldPt) - UB(1:1) = ubound(SrcWTDataData%map2BldPt) + LB(1:1) = lbound(SrcWTDataData%map2BldPt, kind=B8Ki) + UB(1:1) = ubound(SrcWTDataData%map2BldPt, kind=B8Ki) if (.not. allocated(DstWTDataData%map2BldPt)) then allocate(DstWTDataData%map2BldPt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1074,8 +1074,8 @@ subroutine AD_Dvr_CopyWTData(SrcWTDataData, DstWTDataData, CtrlCode, ErrStat, Er end do end if if (allocated(SrcWTDataData%bld)) then - LB(1:1) = lbound(SrcWTDataData%bld) - UB(1:1) = ubound(SrcWTDataData%bld) + LB(1:1) = lbound(SrcWTDataData%bld, kind=B8Ki) + UB(1:1) = ubound(SrcWTDataData%bld, kind=B8Ki) if (.not. allocated(DstWTDataData%bld)) then allocate(DstWTDataData%bld(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1106,8 +1106,8 @@ subroutine AD_Dvr_CopyWTData(SrcWTDataData, DstWTDataData, CtrlCode, ErrStat, Er DstWTDataData%HAWTprojection = SrcWTDataData%HAWTprojection DstWTDataData%motionType = SrcWTDataData%motionType if (allocated(SrcWTDataData%motion)) then - LB(1:2) = lbound(SrcWTDataData%motion) - UB(1:2) = ubound(SrcWTDataData%motion) + LB(1:2) = lbound(SrcWTDataData%motion, kind=B8Ki) + UB(1:2) = ubound(SrcWTDataData%motion, kind=B8Ki) if (.not. allocated(DstWTDataData%motion)) then allocate(DstWTDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1123,8 +1123,8 @@ subroutine AD_Dvr_CopyWTData(SrcWTDataData, DstWTDataData, CtrlCode, ErrStat, Er DstWTDataData%frequency = SrcWTDataData%frequency DstWTDataData%motionFileName = SrcWTDataData%motionFileName if (allocated(SrcWTDataData%WriteOutput)) then - LB(1:1) = lbound(SrcWTDataData%WriteOutput) - UB(1:1) = ubound(SrcWTDataData%WriteOutput) + LB(1:1) = lbound(SrcWTDataData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcWTDataData%WriteOutput, kind=B8Ki) if (.not. allocated(DstWTDataData%WriteOutput)) then allocate(DstWTDataData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1135,8 +1135,8 @@ subroutine AD_Dvr_CopyWTData(SrcWTDataData, DstWTDataData, CtrlCode, ErrStat, Er DstWTDataData%WriteOutput = SrcWTDataData%WriteOutput end if if (allocated(SrcWTDataData%userSwapArray)) then - LB(1:1) = lbound(SrcWTDataData%userSwapArray) - UB(1:1) = ubound(SrcWTDataData%userSwapArray) + LB(1:1) = lbound(SrcWTDataData%userSwapArray, kind=B8Ki) + UB(1:1) = ubound(SrcWTDataData%userSwapArray, kind=B8Ki) if (.not. allocated(DstWTDataData%userSwapArray)) then allocate(DstWTDataData%userSwapArray(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1152,8 +1152,8 @@ subroutine AD_Dvr_DestroyWTData(WTDataData, ErrStat, ErrMsg) type(WTData), intent(inout) :: WTDataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_DestroyWTData' @@ -1166,8 +1166,8 @@ subroutine AD_Dvr_DestroyWTData(WTDataData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(WTDataData%map2hubPt, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(WTDataData%map2BldPt)) then - LB(1:1) = lbound(WTDataData%map2BldPt) - UB(1:1) = ubound(WTDataData%map2BldPt) + LB(1:1) = lbound(WTDataData%map2BldPt, kind=B8Ki) + UB(1:1) = ubound(WTDataData%map2BldPt, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(WTDataData%map2BldPt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1175,8 +1175,8 @@ subroutine AD_Dvr_DestroyWTData(WTDataData, ErrStat, ErrMsg) deallocate(WTDataData%map2BldPt) end if if (allocated(WTDataData%bld)) then - LB(1:1) = lbound(WTDataData%bld) - UB(1:1) = ubound(WTDataData%bld) + LB(1:1) = lbound(WTDataData%bld, kind=B8Ki) + UB(1:1) = ubound(WTDataData%bld, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_DestroyBladeData(WTDataData%bld(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1204,8 +1204,8 @@ subroutine AD_Dvr_PackWTData(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(WTData), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_Dvr_PackWTData' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%originInit) call RegPack(Buf, InData%orientationInit) @@ -1214,18 +1214,18 @@ subroutine AD_Dvr_PackWTData(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%map2hubPt) call RegPack(Buf, allocated(InData%map2BldPt)) if (allocated(InData%map2BldPt)) then - call RegPackBounds(Buf, 1, lbound(InData%map2BldPt), ubound(InData%map2BldPt)) - LB(1:1) = lbound(InData%map2BldPt) - UB(1:1) = ubound(InData%map2BldPt) + call RegPackBounds(Buf, 1, lbound(InData%map2BldPt, kind=B8Ki), ubound(InData%map2BldPt, kind=B8Ki)) + LB(1:1) = lbound(InData%map2BldPt, kind=B8Ki) + UB(1:1) = ubound(InData%map2BldPt, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%map2BldPt(i1)) end do end if call RegPack(Buf, allocated(InData%bld)) if (allocated(InData%bld)) then - call RegPackBounds(Buf, 1, lbound(InData%bld), ubound(InData%bld)) - LB(1:1) = lbound(InData%bld) - UB(1:1) = ubound(InData%bld) + call RegPackBounds(Buf, 1, lbound(InData%bld, kind=B8Ki), ubound(InData%bld, kind=B8Ki)) + LB(1:1) = lbound(InData%bld, kind=B8Ki) + UB(1:1) = ubound(InData%bld, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_PackBladeData(Buf, InData%bld(i1)) end do @@ -1242,7 +1242,7 @@ subroutine AD_Dvr_PackWTData(Buf, Indata) call RegPack(Buf, InData%motionType) call RegPack(Buf, allocated(InData%motion)) if (allocated(InData%motion)) then - call RegPackBounds(Buf, 2, lbound(InData%motion), ubound(InData%motion)) + call RegPackBounds(Buf, 2, lbound(InData%motion, kind=B8Ki), ubound(InData%motion, kind=B8Ki)) call RegPack(Buf, InData%motion) end if call RegPack(Buf, InData%iMotion) @@ -1252,12 +1252,12 @@ subroutine AD_Dvr_PackWTData(Buf, Indata) call RegPack(Buf, InData%motionFileName) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, allocated(InData%userSwapArray)) if (allocated(InData%userSwapArray)) then - call RegPackBounds(Buf, 1, lbound(InData%userSwapArray), ubound(InData%userSwapArray)) + call RegPackBounds(Buf, 1, lbound(InData%userSwapArray, kind=B8Ki), ubound(InData%userSwapArray, kind=B8Ki)) call RegPack(Buf, InData%userSwapArray) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1267,8 +1267,8 @@ subroutine AD_Dvr_UnPackWTData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WTData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackWTData' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1386,8 +1386,8 @@ subroutine AD_Dvr_CopyDvr_SimData(SrcDvr_SimDataData, DstDvr_SimDataData, CtrlCo integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyDvr_SimData' @@ -1405,8 +1405,8 @@ subroutine AD_Dvr_CopyDvr_SimData(SrcDvr_SimDataData, DstDvr_SimDataData, CtrlCo DstDvr_SimDataData%MSL2SWL = SrcDvr_SimDataData%MSL2SWL DstDvr_SimDataData%numTurbines = SrcDvr_SimDataData%numTurbines if (allocated(SrcDvr_SimDataData%WT)) then - LB(1:1) = lbound(SrcDvr_SimDataData%WT) - UB(1:1) = ubound(SrcDvr_SimDataData%WT) + LB(1:1) = lbound(SrcDvr_SimDataData%WT, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_SimDataData%WT, kind=B8Ki) if (.not. allocated(DstDvr_SimDataData%WT)) then allocate(DstDvr_SimDataData%WT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1425,8 +1425,8 @@ subroutine AD_Dvr_CopyDvr_SimData(SrcDvr_SimDataData, DstDvr_SimDataData, CtrlCo DstDvr_SimDataData%numSteps = SrcDvr_SimDataData%numSteps DstDvr_SimDataData%numCases = SrcDvr_SimDataData%numCases if (allocated(SrcDvr_SimDataData%Cases)) then - LB(1:1) = lbound(SrcDvr_SimDataData%Cases) - UB(1:1) = ubound(SrcDvr_SimDataData%Cases) + LB(1:1) = lbound(SrcDvr_SimDataData%Cases, kind=B8Ki) + UB(1:1) = ubound(SrcDvr_SimDataData%Cases, kind=B8Ki) if (.not. allocated(DstDvr_SimDataData%Cases)) then allocate(DstDvr_SimDataData%Cases(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1442,8 +1442,8 @@ subroutine AD_Dvr_CopyDvr_SimData(SrcDvr_SimDataData, DstDvr_SimDataData, CtrlCo end if DstDvr_SimDataData%iCase = SrcDvr_SimDataData%iCase if (allocated(SrcDvr_SimDataData%timeSeries)) then - LB(1:2) = lbound(SrcDvr_SimDataData%timeSeries) - UB(1:2) = ubound(SrcDvr_SimDataData%timeSeries) + LB(1:2) = lbound(SrcDvr_SimDataData%timeSeries, kind=B8Ki) + UB(1:2) = ubound(SrcDvr_SimDataData%timeSeries, kind=B8Ki) if (.not. allocated(DstDvr_SimDataData%timeSeries)) then allocate(DstDvr_SimDataData%timeSeries(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1467,16 +1467,16 @@ subroutine AD_Dvr_DestroyDvr_SimData(Dvr_SimDataData, ErrStat, ErrMsg) type(Dvr_SimData), intent(inout) :: Dvr_SimDataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_DestroyDvr_SimData' ErrStat = ErrID_None ErrMsg = '' if (allocated(Dvr_SimDataData%WT)) then - LB(1:1) = lbound(Dvr_SimDataData%WT) - UB(1:1) = ubound(Dvr_SimDataData%WT) + LB(1:1) = lbound(Dvr_SimDataData%WT, kind=B8Ki) + UB(1:1) = ubound(Dvr_SimDataData%WT, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_DestroyWTData(Dvr_SimDataData%WT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1484,8 +1484,8 @@ subroutine AD_Dvr_DestroyDvr_SimData(Dvr_SimDataData, ErrStat, ErrMsg) deallocate(Dvr_SimDataData%WT) end if if (allocated(Dvr_SimDataData%Cases)) then - LB(1:1) = lbound(Dvr_SimDataData%Cases) - UB(1:1) = ubound(Dvr_SimDataData%Cases) + LB(1:1) = lbound(Dvr_SimDataData%Cases, kind=B8Ki) + UB(1:1) = ubound(Dvr_SimDataData%Cases, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_DestroyDvr_Case(Dvr_SimDataData%Cases(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1505,8 +1505,8 @@ subroutine AD_Dvr_PackDvr_SimData(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Dvr_SimData), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_Dvr_PackDvr_SimData' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%AD_InputFile) call RegPack(Buf, InData%MHK) @@ -1521,9 +1521,9 @@ subroutine AD_Dvr_PackDvr_SimData(Buf, Indata) call RegPack(Buf, InData%numTurbines) call RegPack(Buf, allocated(InData%WT)) if (allocated(InData%WT)) then - call RegPackBounds(Buf, 1, lbound(InData%WT), ubound(InData%WT)) - LB(1:1) = lbound(InData%WT) - UB(1:1) = ubound(InData%WT) + call RegPackBounds(Buf, 1, lbound(InData%WT, kind=B8Ki), ubound(InData%WT, kind=B8Ki)) + LB(1:1) = lbound(InData%WT, kind=B8Ki) + UB(1:1) = ubound(InData%WT, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_PackWTData(Buf, InData%WT(i1)) end do @@ -1534,9 +1534,9 @@ subroutine AD_Dvr_PackDvr_SimData(Buf, Indata) call RegPack(Buf, InData%numCases) call RegPack(Buf, allocated(InData%Cases)) if (allocated(InData%Cases)) then - call RegPackBounds(Buf, 1, lbound(InData%Cases), ubound(InData%Cases)) - LB(1:1) = lbound(InData%Cases) - UB(1:1) = ubound(InData%Cases) + call RegPackBounds(Buf, 1, lbound(InData%Cases, kind=B8Ki), ubound(InData%Cases, kind=B8Ki)) + LB(1:1) = lbound(InData%Cases, kind=B8Ki) + UB(1:1) = ubound(InData%Cases, kind=B8Ki) do i1 = LB(1), UB(1) call AD_Dvr_PackDvr_Case(Buf, InData%Cases(i1)) end do @@ -1544,7 +1544,7 @@ subroutine AD_Dvr_PackDvr_SimData(Buf, Indata) call RegPack(Buf, InData%iCase) call RegPack(Buf, allocated(InData%timeSeries)) if (allocated(InData%timeSeries)) then - call RegPackBounds(Buf, 2, lbound(InData%timeSeries), ubound(InData%timeSeries)) + call RegPackBounds(Buf, 2, lbound(InData%timeSeries, kind=B8Ki), ubound(InData%timeSeries, kind=B8Ki)) call RegPack(Buf, InData%timeSeries) end if call RegPack(Buf, InData%iTimeSeries) @@ -1558,8 +1558,8 @@ subroutine AD_Dvr_UnPackDvr_SimData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Dvr_SimData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackDvr_SimData' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 b/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 index d0acace6f4..c243d8f180 100644 --- a/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 +++ b/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 @@ -444,7 +444,7 @@ subroutine ADI_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyInitOutput' @@ -454,8 +454,8 @@ subroutine ADI_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -466,8 +466,8 @@ subroutine ADI_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -506,12 +506,12 @@ subroutine ADI_PackInitOutput(Buf, Indata) call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -521,7 +521,7 @@ subroutine ADI_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ADI_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -746,8 +746,8 @@ subroutine ADI_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyMisc' @@ -760,8 +760,8 @@ subroutine ADI_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%VTK_surfaces)) then - LB(1:1) = lbound(SrcMiscData%VTK_surfaces) - UB(1:1) = ubound(SrcMiscData%VTK_surfaces) + LB(1:1) = lbound(SrcMiscData%VTK_surfaces, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%VTK_surfaces, kind=B8Ki) if (.not. allocated(DstMiscData%VTK_surfaces)) then allocate(DstMiscData%VTK_surfaces(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -781,8 +781,8 @@ subroutine ADI_DestroyMisc(MiscData, ErrStat, ErrMsg) type(ADI_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_DestroyMisc' @@ -793,8 +793,8 @@ subroutine ADI_DestroyMisc(MiscData, ErrStat, ErrMsg) call ADI_DestroyInflowWindData(MiscData%IW, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MiscData%VTK_surfaces)) then - LB(1:1) = lbound(MiscData%VTK_surfaces) - UB(1:1) = ubound(MiscData%VTK_surfaces) + LB(1:1) = lbound(MiscData%VTK_surfaces, kind=B8Ki) + UB(1:1) = ubound(MiscData%VTK_surfaces, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyVTK_RotSurfaceType(MiscData%VTK_surfaces(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -807,16 +807,16 @@ subroutine ADI_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ADI_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call AD_PackMisc(Buf, InData%AD) call ADI_PackInflowWindData(Buf, InData%IW) call RegPack(Buf, allocated(InData%VTK_surfaces)) if (allocated(InData%VTK_surfaces)) then - call RegPackBounds(Buf, 1, lbound(InData%VTK_surfaces), ubound(InData%VTK_surfaces)) - LB(1:1) = lbound(InData%VTK_surfaces) - UB(1:1) = ubound(InData%VTK_surfaces) + call RegPackBounds(Buf, 1, lbound(InData%VTK_surfaces, kind=B8Ki), ubound(InData%VTK_surfaces, kind=B8Ki)) + LB(1:1) = lbound(InData%VTK_surfaces, kind=B8Ki) + UB(1:1) = ubound(InData%VTK_surfaces, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackVTK_RotSurfaceType(Buf, InData%VTK_surfaces(i1)) end do @@ -828,8 +828,8 @@ subroutine ADI_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ADI_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -978,7 +978,7 @@ subroutine ADI_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyOutput' @@ -988,8 +988,8 @@ subroutine ADI_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%HHVel)) then - LB(1:2) = lbound(SrcOutputData%HHVel) - UB(1:2) = ubound(SrcOutputData%HHVel) + LB(1:2) = lbound(SrcOutputData%HHVel, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%HHVel, kind=B8Ki) if (.not. allocated(DstOutputData%HHVel)) then allocate(DstOutputData%HHVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1001,8 +1001,8 @@ subroutine ADI_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs end if DstOutputData%PLExp = SrcOutputData%PLExp if (allocated(SrcOutputData%IW_WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%IW_WriteOutput) - UB(1:1) = ubound(SrcOutputData%IW_WriteOutput) + LB(1:1) = lbound(SrcOutputData%IW_WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%IW_WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%IW_WriteOutput)) then allocate(DstOutputData%IW_WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1013,8 +1013,8 @@ subroutine ADI_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%IW_WriteOutput = SrcOutputData%IW_WriteOutput end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1056,18 +1056,18 @@ subroutine ADI_PackOutput(Buf, Indata) call AD_PackOutput(Buf, InData%AD) call RegPack(Buf, allocated(InData%HHVel)) if (allocated(InData%HHVel)) then - call RegPackBounds(Buf, 2, lbound(InData%HHVel), ubound(InData%HHVel)) + call RegPackBounds(Buf, 2, lbound(InData%HHVel, kind=B8Ki), ubound(InData%HHVel, kind=B8Ki)) call RegPack(Buf, InData%HHVel) end if call RegPack(Buf, InData%PLExp) call RegPack(Buf, allocated(InData%IW_WriteOutput)) if (allocated(InData%IW_WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%IW_WriteOutput), ubound(InData%IW_WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%IW_WriteOutput, kind=B8Ki), ubound(InData%IW_WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%IW_WriteOutput) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1077,7 +1077,7 @@ subroutine ADI_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ADI_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1134,16 +1134,16 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyData' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDataData%x)) then - LB(1:1) = lbound(SrcDataData%x) - UB(1:1) = ubound(SrcDataData%x) + LB(1:1) = lbound(SrcDataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcDataData%x, kind=B8Ki) if (.not. allocated(DstDataData%x)) then allocate(DstDataData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1158,8 +1158,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcDataData%xd)) then - LB(1:1) = lbound(SrcDataData%xd) - UB(1:1) = ubound(SrcDataData%xd) + LB(1:1) = lbound(SrcDataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcDataData%xd, kind=B8Ki) if (.not. allocated(DstDataData%xd)) then allocate(DstDataData%xd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1174,8 +1174,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcDataData%z)) then - LB(1:1) = lbound(SrcDataData%z) - UB(1:1) = ubound(SrcDataData%z) + LB(1:1) = lbound(SrcDataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcDataData%z, kind=B8Ki) if (.not. allocated(DstDataData%z)) then allocate(DstDataData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1190,8 +1190,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcDataData%OtherState)) then - LB(1:1) = lbound(SrcDataData%OtherState) - UB(1:1) = ubound(SrcDataData%OtherState) + LB(1:1) = lbound(SrcDataData%OtherState, kind=B8Ki) + UB(1:1) = ubound(SrcDataData%OtherState, kind=B8Ki) if (.not. allocated(DstDataData%OtherState)) then allocate(DstDataData%OtherState(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1212,8 +1212,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcDataData%u)) then - LB(1:1) = lbound(SrcDataData%u) - UB(1:1) = ubound(SrcDataData%u) + LB(1:1) = lbound(SrcDataData%u, kind=B8Ki) + UB(1:1) = ubound(SrcDataData%u, kind=B8Ki) if (.not. allocated(DstDataData%u)) then allocate(DstDataData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1231,8 +1231,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcDataData%inputTimes)) then - LB(1:1) = lbound(SrcDataData%inputTimes) - UB(1:1) = ubound(SrcDataData%inputTimes) + LB(1:1) = lbound(SrcDataData%inputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcDataData%inputTimes, kind=B8Ki) if (.not. allocated(DstDataData%inputTimes)) then allocate(DstDataData%inputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1248,16 +1248,16 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) type(ADI_Data), intent(inout) :: DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_DestroyData' ErrStat = ErrID_None ErrMsg = '' if (allocated(DataData%x)) then - LB(1:1) = lbound(DataData%x) - UB(1:1) = ubound(DataData%x) + LB(1:1) = lbound(DataData%x, kind=B8Ki) + UB(1:1) = ubound(DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_DestroyContState(DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1265,8 +1265,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) deallocate(DataData%x) end if if (allocated(DataData%xd)) then - LB(1:1) = lbound(DataData%xd) - UB(1:1) = ubound(DataData%xd) + LB(1:1) = lbound(DataData%xd, kind=B8Ki) + UB(1:1) = ubound(DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_DestroyDiscState(DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1274,8 +1274,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) deallocate(DataData%xd) end if if (allocated(DataData%z)) then - LB(1:1) = lbound(DataData%z) - UB(1:1) = ubound(DataData%z) + LB(1:1) = lbound(DataData%z, kind=B8Ki) + UB(1:1) = ubound(DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_DestroyConstrState(DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1283,8 +1283,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) deallocate(DataData%z) end if if (allocated(DataData%OtherState)) then - LB(1:1) = lbound(DataData%OtherState) - UB(1:1) = ubound(DataData%OtherState) + LB(1:1) = lbound(DataData%OtherState, kind=B8Ki) + UB(1:1) = ubound(DataData%OtherState, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_DestroyOtherState(DataData%OtherState(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1296,8 +1296,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) call ADI_DestroyMisc(DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(DataData%u)) then - LB(1:1) = lbound(DataData%u) - UB(1:1) = ubound(DataData%u) + LB(1:1) = lbound(DataData%u, kind=B8Ki) + UB(1:1) = ubound(DataData%u, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_DestroyInput(DataData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1315,41 +1315,41 @@ subroutine ADI_PackData(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ADI_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackData' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(Buf, 1, lbound(InData%x), ubound(InData%x)) - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + call RegPackBounds(Buf, 1, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_PackContState(Buf, InData%x(i1)) end do end if call RegPack(Buf, allocated(InData%xd)) if (allocated(InData%xd)) then - call RegPackBounds(Buf, 1, lbound(InData%xd), ubound(InData%xd)) - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + call RegPackBounds(Buf, 1, lbound(InData%xd, kind=B8Ki), ubound(InData%xd, kind=B8Ki)) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_PackDiscState(Buf, InData%xd(i1)) end do end if call RegPack(Buf, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(Buf, 1, lbound(InData%z), ubound(InData%z)) - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + call RegPackBounds(Buf, 1, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_PackConstrState(Buf, InData%z(i1)) end do end if call RegPack(Buf, allocated(InData%OtherState)) if (allocated(InData%OtherState)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherState), ubound(InData%OtherState)) - LB(1:1) = lbound(InData%OtherState) - UB(1:1) = ubound(InData%OtherState) + call RegPackBounds(Buf, 1, lbound(InData%OtherState, kind=B8Ki), ubound(InData%OtherState, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherState, kind=B8Ki) + UB(1:1) = ubound(InData%OtherState, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_PackOtherState(Buf, InData%OtherState(i1)) end do @@ -1358,9 +1358,9 @@ subroutine ADI_PackData(Buf, Indata) call ADI_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(Buf, 1, lbound(InData%u), ubound(InData%u)) - LB(1:1) = lbound(InData%u) - UB(1:1) = ubound(InData%u) + call RegPackBounds(Buf, 1, lbound(InData%u, kind=B8Ki), ubound(InData%u, kind=B8Ki)) + LB(1:1) = lbound(InData%u, kind=B8Ki) + UB(1:1) = ubound(InData%u, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_PackInput(Buf, InData%u(i1)) end do @@ -1368,7 +1368,7 @@ subroutine ADI_PackData(Buf, Indata) call ADI_PackOutput(Buf, InData%y) call RegPack(Buf, allocated(InData%inputTimes)) if (allocated(InData%inputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%inputTimes), ubound(InData%inputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%inputTimes, kind=B8Ki), ubound(InData%inputTimes, kind=B8Ki)) call RegPack(Buf, InData%inputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1378,8 +1378,8 @@ subroutine ADI_UnPackData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ADI_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackData' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1483,8 +1483,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyRotFED' @@ -1506,8 +1506,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotFEDData%BladeRootMotion)) then - LB(1:1) = lbound(SrcRotFEDData%BladeRootMotion) - UB(1:1) = ubound(SrcRotFEDData%BladeRootMotion) + LB(1:1) = lbound(SrcRotFEDData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(SrcRotFEDData%BladeRootMotion, kind=B8Ki) if (.not. allocated(DstRotFEDData%BladeRootMotion)) then allocate(DstRotFEDData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1522,8 +1522,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs end do end if if (allocated(SrcRotFEDData%BladeLn2Mesh)) then - LB(1:1) = lbound(SrcRotFEDData%BladeLn2Mesh) - UB(1:1) = ubound(SrcRotFEDData%BladeLn2Mesh) + LB(1:1) = lbound(SrcRotFEDData%BladeLn2Mesh, kind=B8Ki) + UB(1:1) = ubound(SrcRotFEDData%BladeLn2Mesh, kind=B8Ki) if (.not. allocated(DstRotFEDData%BladeLn2Mesh)) then allocate(DstRotFEDData%BladeLn2Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1547,8 +1547,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotFEDData%AD_P_2_AD_L_B)) then - LB(1:1) = lbound(SrcRotFEDData%AD_P_2_AD_L_B) - UB(1:1) = ubound(SrcRotFEDData%AD_P_2_AD_L_B) + LB(1:1) = lbound(SrcRotFEDData%AD_P_2_AD_L_B, kind=B8Ki) + UB(1:1) = ubound(SrcRotFEDData%AD_P_2_AD_L_B, kind=B8Ki) if (.not. allocated(DstRotFEDData%AD_P_2_AD_L_B)) then allocate(DstRotFEDData%AD_P_2_AD_L_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1566,8 +1566,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotFEDData%ED_P_2_AD_P_R)) then - LB(1:1) = lbound(SrcRotFEDData%ED_P_2_AD_P_R) - UB(1:1) = ubound(SrcRotFEDData%ED_P_2_AD_P_R) + LB(1:1) = lbound(SrcRotFEDData%ED_P_2_AD_P_R, kind=B8Ki) + UB(1:1) = ubound(SrcRotFEDData%ED_P_2_AD_P_R, kind=B8Ki) if (.not. allocated(DstRotFEDData%ED_P_2_AD_P_R)) then allocate(DstRotFEDData%ED_P_2_AD_P_R(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1593,8 +1593,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) type(RotFED), intent(inout) :: RotFEDData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_DestroyRotFED' @@ -1611,8 +1611,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) call MeshDestroy( RotFEDData%HubPtMotion, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotFEDData%BladeRootMotion)) then - LB(1:1) = lbound(RotFEDData%BladeRootMotion) - UB(1:1) = ubound(RotFEDData%BladeRootMotion) + LB(1:1) = lbound(RotFEDData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(RotFEDData%BladeRootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotFEDData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1620,8 +1620,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) deallocate(RotFEDData%BladeRootMotion) end if if (allocated(RotFEDData%BladeLn2Mesh)) then - LB(1:1) = lbound(RotFEDData%BladeLn2Mesh) - UB(1:1) = ubound(RotFEDData%BladeLn2Mesh) + LB(1:1) = lbound(RotFEDData%BladeLn2Mesh, kind=B8Ki) + UB(1:1) = ubound(RotFEDData%BladeLn2Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotFEDData%BladeLn2Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1633,8 +1633,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(RotFEDData%AD_P_2_AD_L_T, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotFEDData%AD_P_2_AD_L_B)) then - LB(1:1) = lbound(RotFEDData%AD_P_2_AD_L_B) - UB(1:1) = ubound(RotFEDData%AD_P_2_AD_L_B) + LB(1:1) = lbound(RotFEDData%AD_P_2_AD_L_B, kind=B8Ki) + UB(1:1) = ubound(RotFEDData%AD_P_2_AD_L_B, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(RotFEDData%AD_P_2_AD_L_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1644,8 +1644,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(RotFEDData%ED_P_2_AD_P_TF, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotFEDData%ED_P_2_AD_P_R)) then - LB(1:1) = lbound(RotFEDData%ED_P_2_AD_P_R) - UB(1:1) = ubound(RotFEDData%ED_P_2_AD_P_R) + LB(1:1) = lbound(RotFEDData%ED_P_2_AD_P_R, kind=B8Ki) + UB(1:1) = ubound(RotFEDData%ED_P_2_AD_P_R, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(RotFEDData%ED_P_2_AD_P_R(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1662,8 +1662,8 @@ subroutine ADI_PackRotFED(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotFED), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackRotFED' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call MeshPack(Buf, InData%PlatformPtMesh) call MeshPack(Buf, InData%TwrPtMesh) @@ -1672,18 +1672,18 @@ subroutine ADI_PackRotFED(Buf, Indata) call MeshPack(Buf, InData%HubPtMotion) call RegPack(Buf, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) - LB(1:1) = lbound(InData%BladeRootMotion) - UB(1:1) = ubound(InData%BladeRootMotion) + call RegPackBounds(Buf, 1, lbound(InData%BladeRootMotion, kind=B8Ki), ubound(InData%BladeRootMotion, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(InData%BladeRootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeRootMotion(i1)) end do end if call RegPack(Buf, allocated(InData%BladeLn2Mesh)) if (allocated(InData%BladeLn2Mesh)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeLn2Mesh), ubound(InData%BladeLn2Mesh)) - LB(1:1) = lbound(InData%BladeLn2Mesh) - UB(1:1) = ubound(InData%BladeLn2Mesh) + call RegPackBounds(Buf, 1, lbound(InData%BladeLn2Mesh, kind=B8Ki), ubound(InData%BladeLn2Mesh, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeLn2Mesh, kind=B8Ki) + UB(1:1) = ubound(InData%BladeLn2Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeLn2Mesh(i1)) end do @@ -1695,9 +1695,9 @@ subroutine ADI_PackRotFED(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%AD_P_2_AD_L_T) call RegPack(Buf, allocated(InData%AD_P_2_AD_L_B)) if (allocated(InData%AD_P_2_AD_L_B)) then - call RegPackBounds(Buf, 1, lbound(InData%AD_P_2_AD_L_B), ubound(InData%AD_P_2_AD_L_B)) - LB(1:1) = lbound(InData%AD_P_2_AD_L_B) - UB(1:1) = ubound(InData%AD_P_2_AD_L_B) + call RegPackBounds(Buf, 1, lbound(InData%AD_P_2_AD_L_B, kind=B8Ki), ubound(InData%AD_P_2_AD_L_B, kind=B8Ki)) + LB(1:1) = lbound(InData%AD_P_2_AD_L_B, kind=B8Ki) + UB(1:1) = ubound(InData%AD_P_2_AD_L_B, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%AD_P_2_AD_L_B(i1)) end do @@ -1705,9 +1705,9 @@ subroutine ADI_PackRotFED(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_AD_P_TF) call RegPack(Buf, allocated(InData%ED_P_2_AD_P_R)) if (allocated(InData%ED_P_2_AD_P_R)) then - call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_AD_P_R), ubound(InData%ED_P_2_AD_P_R)) - LB(1:1) = lbound(InData%ED_P_2_AD_P_R) - UB(1:1) = ubound(InData%ED_P_2_AD_P_R) + call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_AD_P_R, kind=B8Ki), ubound(InData%ED_P_2_AD_P_R, kind=B8Ki)) + LB(1:1) = lbound(InData%ED_P_2_AD_P_R, kind=B8Ki) + UB(1:1) = ubound(InData%ED_P_2_AD_P_R, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_AD_P_R(i1)) end do @@ -1721,8 +1721,8 @@ subroutine ADI_UnPackRotFED(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotFED), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackRotFED' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1810,16 +1810,16 @@ subroutine ADI_CopyFED_Data(SrcFED_DataData, DstFED_DataData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyFED_Data' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcFED_DataData%WT)) then - LB(1:1) = lbound(SrcFED_DataData%WT) - UB(1:1) = ubound(SrcFED_DataData%WT) + LB(1:1) = lbound(SrcFED_DataData%WT, kind=B8Ki) + UB(1:1) = ubound(SrcFED_DataData%WT, kind=B8Ki) if (.not. allocated(DstFED_DataData%WT)) then allocate(DstFED_DataData%WT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1839,16 +1839,16 @@ subroutine ADI_DestroyFED_Data(FED_DataData, ErrStat, ErrMsg) type(FED_Data), intent(inout) :: FED_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_DestroyFED_Data' ErrStat = ErrID_None ErrMsg = '' if (allocated(FED_DataData%WT)) then - LB(1:1) = lbound(FED_DataData%WT) - UB(1:1) = ubound(FED_DataData%WT) + LB(1:1) = lbound(FED_DataData%WT, kind=B8Ki) + UB(1:1) = ubound(FED_DataData%WT, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_DestroyRotFED(FED_DataData%WT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1861,14 +1861,14 @@ subroutine ADI_PackFED_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FED_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackFED_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WT)) if (allocated(InData%WT)) then - call RegPackBounds(Buf, 1, lbound(InData%WT), ubound(InData%WT)) - LB(1:1) = lbound(InData%WT) - UB(1:1) = ubound(InData%WT) + call RegPackBounds(Buf, 1, lbound(InData%WT, kind=B8Ki), ubound(InData%WT, kind=B8Ki)) + LB(1:1) = lbound(InData%WT, kind=B8Ki) + UB(1:1) = ubound(InData%WT, kind=B8Ki) do i1 = LB(1), UB(1) call ADI_PackRotFED(Buf, InData%WT(i1)) end do @@ -1880,8 +1880,8 @@ subroutine ADI_UnPackFED_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FED_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackFED_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroDyn_Types.f90 b/modules/aerodyn/src/AeroDyn_Types.f90 index 3bd6d76a50..09b91be6f3 100644 --- a/modules/aerodyn/src/AeroDyn_Types.f90 +++ b/modules/aerodyn/src/AeroDyn_Types.f90 @@ -623,14 +623,14 @@ subroutine AD_CopyVTK_BLSurfaceType(SrcVTK_BLSurfaceTypeData, DstVTK_BLSurfaceTy integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyVTK_BLSurfaceType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcVTK_BLSurfaceTypeData%AirfoilCoords)) then - LB(1:3) = lbound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) - UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) + LB(1:3) = lbound(SrcVTK_BLSurfaceTypeData%AirfoilCoords, kind=B8Ki) + UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords, kind=B8Ki) if (.not. allocated(DstVTK_BLSurfaceTypeData%AirfoilCoords)) then allocate(DstVTK_BLSurfaceTypeData%AirfoilCoords(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -661,7 +661,7 @@ subroutine AD_PackVTK_BLSurfaceType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AirfoilCoords)) if (allocated(InData%AirfoilCoords)) then - call RegPackBounds(Buf, 3, lbound(InData%AirfoilCoords), ubound(InData%AirfoilCoords)) + call RegPackBounds(Buf, 3, lbound(InData%AirfoilCoords, kind=B8Ki), ubound(InData%AirfoilCoords, kind=B8Ki)) call RegPack(Buf, InData%AirfoilCoords) end if if (RegCheckErr(Buf, RoutineName)) return @@ -671,7 +671,7 @@ subroutine AD_UnPackVTK_BLSurfaceType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_VTK_BLSurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackVTK_BLSurfaceType' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -697,16 +697,16 @@ subroutine AD_CopyVTK_RotSurfaceType(SrcVTK_RotSurfaceTypeData, DstVTK_RotSurfac integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyVTK_RotSurfaceType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcVTK_RotSurfaceTypeData%BladeShape)) then - LB(1:1) = lbound(SrcVTK_RotSurfaceTypeData%BladeShape) - UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%BladeShape) + LB(1:1) = lbound(SrcVTK_RotSurfaceTypeData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%BladeShape, kind=B8Ki) if (.not. allocated(DstVTK_RotSurfaceTypeData%BladeShape)) then allocate(DstVTK_RotSurfaceTypeData%BladeShape(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -721,8 +721,8 @@ subroutine AD_CopyVTK_RotSurfaceType(SrcVTK_RotSurfaceTypeData, DstVTK_RotSurfac end do end if if (allocated(SrcVTK_RotSurfaceTypeData%TowerRad)) then - LB(1:1) = lbound(SrcVTK_RotSurfaceTypeData%TowerRad) - UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%TowerRad) + LB(1:1) = lbound(SrcVTK_RotSurfaceTypeData%TowerRad, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%TowerRad, kind=B8Ki) if (.not. allocated(DstVTK_RotSurfaceTypeData%TowerRad)) then allocate(DstVTK_RotSurfaceTypeData%TowerRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -738,16 +738,16 @@ subroutine AD_DestroyVTK_RotSurfaceType(VTK_RotSurfaceTypeData, ErrStat, ErrMsg) type(AD_VTK_RotSurfaceType), intent(inout) :: VTK_RotSurfaceTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyVTK_RotSurfaceType' ErrStat = ErrID_None ErrMsg = '' if (allocated(VTK_RotSurfaceTypeData%BladeShape)) then - LB(1:1) = lbound(VTK_RotSurfaceTypeData%BladeShape) - UB(1:1) = ubound(VTK_RotSurfaceTypeData%BladeShape) + LB(1:1) = lbound(VTK_RotSurfaceTypeData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(VTK_RotSurfaceTypeData%BladeShape, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyVTK_BLSurfaceType(VTK_RotSurfaceTypeData%BladeShape(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -763,21 +763,21 @@ subroutine AD_PackVTK_RotSurfaceType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_VTK_RotSurfaceType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackVTK_RotSurfaceType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%BladeShape)) if (allocated(InData%BladeShape)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeShape), ubound(InData%BladeShape)) - LB(1:1) = lbound(InData%BladeShape) - UB(1:1) = ubound(InData%BladeShape) + call RegPackBounds(Buf, 1, lbound(InData%BladeShape, kind=B8Ki), ubound(InData%BladeShape, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(InData%BladeShape, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackVTK_BLSurfaceType(Buf, InData%BladeShape(i1)) end do end if call RegPack(Buf, allocated(InData%TowerRad)) if (allocated(InData%TowerRad)) then - call RegPackBounds(Buf, 1, lbound(InData%TowerRad), ubound(InData%TowerRad)) + call RegPackBounds(Buf, 1, lbound(InData%TowerRad, kind=B8Ki), ubound(InData%TowerRad, kind=B8Ki)) call RegPack(Buf, InData%TowerRad) end if if (RegCheckErr(Buf, RoutineName)) return @@ -787,8 +787,8 @@ subroutine AD_UnPackVTK_RotSurfaceType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_VTK_RotSurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackVTK_RotSurfaceType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -829,7 +829,7 @@ subroutine AD_CopyRotInitInputType(SrcRotInitInputTypeData, DstRotInitInputTypeD integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyRotInitInputType' ErrStat = ErrID_None @@ -839,8 +839,8 @@ subroutine AD_CopyRotInitInputType(SrcRotInitInputTypeData, DstRotInitInputTypeD DstRotInitInputTypeData%HubPosition = SrcRotInitInputTypeData%HubPosition DstRotInitInputTypeData%HubOrientation = SrcRotInitInputTypeData%HubOrientation if (allocated(SrcRotInitInputTypeData%BladeRootPosition)) then - LB(1:2) = lbound(SrcRotInitInputTypeData%BladeRootPosition) - UB(1:2) = ubound(SrcRotInitInputTypeData%BladeRootPosition) + LB(1:2) = lbound(SrcRotInitInputTypeData%BladeRootPosition, kind=B8Ki) + UB(1:2) = ubound(SrcRotInitInputTypeData%BladeRootPosition, kind=B8Ki) if (.not. allocated(DstRotInitInputTypeData%BladeRootPosition)) then allocate(DstRotInitInputTypeData%BladeRootPosition(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -851,8 +851,8 @@ subroutine AD_CopyRotInitInputType(SrcRotInitInputTypeData, DstRotInitInputTypeD DstRotInitInputTypeData%BladeRootPosition = SrcRotInitInputTypeData%BladeRootPosition end if if (allocated(SrcRotInitInputTypeData%BladeRootOrientation)) then - LB(1:3) = lbound(SrcRotInitInputTypeData%BladeRootOrientation) - UB(1:3) = ubound(SrcRotInitInputTypeData%BladeRootOrientation) + LB(1:3) = lbound(SrcRotInitInputTypeData%BladeRootOrientation, kind=B8Ki) + UB(1:3) = ubound(SrcRotInitInputTypeData%BladeRootOrientation, kind=B8Ki) if (.not. allocated(DstRotInitInputTypeData%BladeRootOrientation)) then allocate(DstRotInitInputTypeData%BladeRootOrientation(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -895,12 +895,12 @@ subroutine AD_PackRotInitInputType(Buf, Indata) call RegPack(Buf, InData%HubOrientation) call RegPack(Buf, allocated(InData%BladeRootPosition)) if (allocated(InData%BladeRootPosition)) then - call RegPackBounds(Buf, 2, lbound(InData%BladeRootPosition), ubound(InData%BladeRootPosition)) + call RegPackBounds(Buf, 2, lbound(InData%BladeRootPosition, kind=B8Ki), ubound(InData%BladeRootPosition, kind=B8Ki)) call RegPack(Buf, InData%BladeRootPosition) end if call RegPack(Buf, allocated(InData%BladeRootOrientation)) if (allocated(InData%BladeRootOrientation)) then - call RegPackBounds(Buf, 3, lbound(InData%BladeRootOrientation), ubound(InData%BladeRootOrientation)) + call RegPackBounds(Buf, 3, lbound(InData%BladeRootOrientation, kind=B8Ki), ubound(InData%BladeRootOrientation, kind=B8Ki)) call RegPack(Buf, InData%BladeRootOrientation) end if call RegPack(Buf, InData%NacellePosition) @@ -915,7 +915,7 @@ subroutine AD_UnPackRotInitInputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotInitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInitInputType' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -973,16 +973,16 @@ subroutine AD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyInitInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitInputData%rotors)) then - LB(1:1) = lbound(SrcInitInputData%rotors) - UB(1:1) = ubound(SrcInitInputData%rotors) + LB(1:1) = lbound(SrcInitInputData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%rotors, kind=B8Ki) if (.not. allocated(DstInitInputData%rotors)) then allocate(DstInitInputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1019,16 +1019,16 @@ subroutine AD_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(AD_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyInitInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InitInputData%rotors)) then - LB(1:1) = lbound(InitInputData%rotors) - UB(1:1) = ubound(InitInputData%rotors) + LB(1:1) = lbound(InitInputData%rotors, kind=B8Ki) + UB(1:1) = ubound(InitInputData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotInitInputType(InitInputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1043,14 +1043,14 @@ subroutine AD_PackInitInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInitInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotInitInputType(Buf, InData%rotors(i1)) end do @@ -1077,8 +1077,8 @@ subroutine AD_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInitInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1134,15 +1134,15 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyBladePropsType' ErrStat = ErrID_None ErrMsg = '' DstBladePropsTypeData%NumBlNds = SrcBladePropsTypeData%NumBlNds if (allocated(SrcBladePropsTypeData%BlSpn)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlSpn) - UB(1:1) = ubound(SrcBladePropsTypeData%BlSpn) + LB(1:1) = lbound(SrcBladePropsTypeData%BlSpn, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlSpn, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlSpn)) then allocate(DstBladePropsTypeData%BlSpn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1153,8 +1153,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlSpn = SrcBladePropsTypeData%BlSpn end if if (allocated(SrcBladePropsTypeData%BlCrvAC)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAC) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAC) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAC, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAC, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlCrvAC)) then allocate(DstBladePropsTypeData%BlCrvAC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1165,8 +1165,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCrvAC = SrcBladePropsTypeData%BlCrvAC end if if (allocated(SrcBladePropsTypeData%BlSwpAC)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlSwpAC) - UB(1:1) = ubound(SrcBladePropsTypeData%BlSwpAC) + LB(1:1) = lbound(SrcBladePropsTypeData%BlSwpAC, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlSwpAC, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlSwpAC)) then allocate(DstBladePropsTypeData%BlSwpAC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1177,8 +1177,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlSwpAC = SrcBladePropsTypeData%BlSwpAC end if if (allocated(SrcBladePropsTypeData%BlCrvAng)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAng) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAng) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAng, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAng, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlCrvAng)) then allocate(DstBladePropsTypeData%BlCrvAng(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1189,8 +1189,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCrvAng = SrcBladePropsTypeData%BlCrvAng end if if (allocated(SrcBladePropsTypeData%BlTwist)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlTwist) - UB(1:1) = ubound(SrcBladePropsTypeData%BlTwist) + LB(1:1) = lbound(SrcBladePropsTypeData%BlTwist, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlTwist, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlTwist)) then allocate(DstBladePropsTypeData%BlTwist(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1201,8 +1201,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlTwist = SrcBladePropsTypeData%BlTwist end if if (allocated(SrcBladePropsTypeData%BlChord)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlChord) - UB(1:1) = ubound(SrcBladePropsTypeData%BlChord) + LB(1:1) = lbound(SrcBladePropsTypeData%BlChord, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlChord, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlChord)) then allocate(DstBladePropsTypeData%BlChord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1213,8 +1213,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlChord = SrcBladePropsTypeData%BlChord end if if (allocated(SrcBladePropsTypeData%BlAFID)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlAFID) - UB(1:1) = ubound(SrcBladePropsTypeData%BlAFID) + LB(1:1) = lbound(SrcBladePropsTypeData%BlAFID, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlAFID, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlAFID)) then allocate(DstBladePropsTypeData%BlAFID(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1225,8 +1225,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlAFID = SrcBladePropsTypeData%BlAFID end if if (allocated(SrcBladePropsTypeData%BlCb)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCb) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCb) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCb, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCb, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlCb)) then allocate(DstBladePropsTypeData%BlCb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1237,8 +1237,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCb = SrcBladePropsTypeData%BlCb end if if (allocated(SrcBladePropsTypeData%BlCenBn)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBn) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBn) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBn, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBn, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlCenBn)) then allocate(DstBladePropsTypeData%BlCenBn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1249,8 +1249,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCenBn = SrcBladePropsTypeData%BlCenBn end if if (allocated(SrcBladePropsTypeData%BlCenBt)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBt) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBt) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBt, kind=B8Ki) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBt, kind=B8Ki) if (.not. allocated(DstBladePropsTypeData%BlCenBt)) then allocate(DstBladePropsTypeData%BlCenBt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1309,52 +1309,52 @@ subroutine AD_PackBladePropsType(Buf, Indata) call RegPack(Buf, InData%NumBlNds) call RegPack(Buf, allocated(InData%BlSpn)) if (allocated(InData%BlSpn)) then - call RegPackBounds(Buf, 1, lbound(InData%BlSpn), ubound(InData%BlSpn)) + call RegPackBounds(Buf, 1, lbound(InData%BlSpn, kind=B8Ki), ubound(InData%BlSpn, kind=B8Ki)) call RegPack(Buf, InData%BlSpn) end if call RegPack(Buf, allocated(InData%BlCrvAC)) if (allocated(InData%BlCrvAC)) then - call RegPackBounds(Buf, 1, lbound(InData%BlCrvAC), ubound(InData%BlCrvAC)) + call RegPackBounds(Buf, 1, lbound(InData%BlCrvAC, kind=B8Ki), ubound(InData%BlCrvAC, kind=B8Ki)) call RegPack(Buf, InData%BlCrvAC) end if call RegPack(Buf, allocated(InData%BlSwpAC)) if (allocated(InData%BlSwpAC)) then - call RegPackBounds(Buf, 1, lbound(InData%BlSwpAC), ubound(InData%BlSwpAC)) + call RegPackBounds(Buf, 1, lbound(InData%BlSwpAC, kind=B8Ki), ubound(InData%BlSwpAC, kind=B8Ki)) call RegPack(Buf, InData%BlSwpAC) end if call RegPack(Buf, allocated(InData%BlCrvAng)) if (allocated(InData%BlCrvAng)) then - call RegPackBounds(Buf, 1, lbound(InData%BlCrvAng), ubound(InData%BlCrvAng)) + call RegPackBounds(Buf, 1, lbound(InData%BlCrvAng, kind=B8Ki), ubound(InData%BlCrvAng, kind=B8Ki)) call RegPack(Buf, InData%BlCrvAng) end if call RegPack(Buf, allocated(InData%BlTwist)) if (allocated(InData%BlTwist)) then - call RegPackBounds(Buf, 1, lbound(InData%BlTwist), ubound(InData%BlTwist)) + call RegPackBounds(Buf, 1, lbound(InData%BlTwist, kind=B8Ki), ubound(InData%BlTwist, kind=B8Ki)) call RegPack(Buf, InData%BlTwist) end if call RegPack(Buf, allocated(InData%BlChord)) if (allocated(InData%BlChord)) then - call RegPackBounds(Buf, 1, lbound(InData%BlChord), ubound(InData%BlChord)) + call RegPackBounds(Buf, 1, lbound(InData%BlChord, kind=B8Ki), ubound(InData%BlChord, kind=B8Ki)) call RegPack(Buf, InData%BlChord) end if call RegPack(Buf, allocated(InData%BlAFID)) if (allocated(InData%BlAFID)) then - call RegPackBounds(Buf, 1, lbound(InData%BlAFID), ubound(InData%BlAFID)) + call RegPackBounds(Buf, 1, lbound(InData%BlAFID, kind=B8Ki), ubound(InData%BlAFID, kind=B8Ki)) call RegPack(Buf, InData%BlAFID) end if call RegPack(Buf, allocated(InData%BlCb)) if (allocated(InData%BlCb)) then - call RegPackBounds(Buf, 1, lbound(InData%BlCb), ubound(InData%BlCb)) + call RegPackBounds(Buf, 1, lbound(InData%BlCb, kind=B8Ki), ubound(InData%BlCb, kind=B8Ki)) call RegPack(Buf, InData%BlCb) end if call RegPack(Buf, allocated(InData%BlCenBn)) if (allocated(InData%BlCenBn)) then - call RegPackBounds(Buf, 1, lbound(InData%BlCenBn), ubound(InData%BlCenBn)) + call RegPackBounds(Buf, 1, lbound(InData%BlCenBn, kind=B8Ki), ubound(InData%BlCenBn, kind=B8Ki)) call RegPack(Buf, InData%BlCenBn) end if call RegPack(Buf, allocated(InData%BlCenBt)) if (allocated(InData%BlCenBt)) then - call RegPackBounds(Buf, 1, lbound(InData%BlCenBt), ubound(InData%BlCenBt)) + call RegPackBounds(Buf, 1, lbound(InData%BlCenBt, kind=B8Ki), ubound(InData%BlCenBt, kind=B8Ki)) call RegPack(Buf, InData%BlCenBt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1364,7 +1364,7 @@ subroutine AD_UnPackBladePropsType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_BladePropsType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackBladePropsType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1518,14 +1518,14 @@ subroutine AD_CopyBladeShape(SrcBladeShapeData, DstBladeShapeData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyBladeShape' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcBladeShapeData%AirfoilCoords)) then - LB(1:3) = lbound(SrcBladeShapeData%AirfoilCoords) - UB(1:3) = ubound(SrcBladeShapeData%AirfoilCoords) + LB(1:3) = lbound(SrcBladeShapeData%AirfoilCoords, kind=B8Ki) + UB(1:3) = ubound(SrcBladeShapeData%AirfoilCoords, kind=B8Ki) if (.not. allocated(DstBladeShapeData%AirfoilCoords)) then allocate(DstBladeShapeData%AirfoilCoords(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1556,7 +1556,7 @@ subroutine AD_PackBladeShape(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AirfoilCoords)) if (allocated(InData%AirfoilCoords)) then - call RegPackBounds(Buf, 3, lbound(InData%AirfoilCoords), ubound(InData%AirfoilCoords)) + call RegPackBounds(Buf, 3, lbound(InData%AirfoilCoords, kind=B8Ki), ubound(InData%AirfoilCoords, kind=B8Ki)) call RegPack(Buf, InData%AirfoilCoords) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1566,7 +1566,7 @@ subroutine AD_UnPackBladeShape(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_BladeShape), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackBladeShape' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1592,8 +1592,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotInitOutputType' @@ -1601,8 +1601,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy ErrMsg = '' DstRotInitOutputTypeData%AirDens = SrcRotInitOutputTypeData%AirDens if (allocated(SrcRotInitOutputTypeData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputHdr) - UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputHdr) + LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%WriteOutputHdr)) then allocate(DstRotInitOutputTypeData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1613,8 +1613,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%WriteOutputHdr = SrcRotInitOutputTypeData%WriteOutputHdr end if if (allocated(SrcRotInitOutputTypeData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputUnt) - UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputUnt) + LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%WriteOutputUnt)) then allocate(DstRotInitOutputTypeData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1625,8 +1625,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%WriteOutputUnt = SrcRotInitOutputTypeData%WriteOutputUnt end if if (allocated(SrcRotInitOutputTypeData%BladeShape)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeShape) - UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeShape) + LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeShape, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%BladeShape)) then allocate(DstRotInitOutputTypeData%BladeShape(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1641,8 +1641,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy end do end if if (allocated(SrcRotInitOutputTypeData%LinNames_y)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_y) - UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_y) + LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_y, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%LinNames_y)) then allocate(DstRotInitOutputTypeData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1653,8 +1653,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%LinNames_y = SrcRotInitOutputTypeData%LinNames_y end if if (allocated(SrcRotInitOutputTypeData%LinNames_x)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_x) - UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_x) + LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_x, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%LinNames_x)) then allocate(DstRotInitOutputTypeData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1665,8 +1665,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%LinNames_x = SrcRotInitOutputTypeData%LinNames_x end if if (allocated(SrcRotInitOutputTypeData%LinNames_u)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_u) - UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_u) + LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_u, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%LinNames_u)) then allocate(DstRotInitOutputTypeData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1677,8 +1677,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%LinNames_u = SrcRotInitOutputTypeData%LinNames_u end if if (allocated(SrcRotInitOutputTypeData%RotFrame_y)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_y) - UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_y) + LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%RotFrame_y)) then allocate(DstRotInitOutputTypeData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1689,8 +1689,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%RotFrame_y = SrcRotInitOutputTypeData%RotFrame_y end if if (allocated(SrcRotInitOutputTypeData%RotFrame_x)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_x) - UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_x) + LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%RotFrame_x)) then allocate(DstRotInitOutputTypeData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1701,8 +1701,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%RotFrame_x = SrcRotInitOutputTypeData%RotFrame_x end if if (allocated(SrcRotInitOutputTypeData%RotFrame_u)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_u) - UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_u) + LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%RotFrame_u)) then allocate(DstRotInitOutputTypeData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1713,8 +1713,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%RotFrame_u = SrcRotInitOutputTypeData%RotFrame_u end if if (allocated(SrcRotInitOutputTypeData%IsLoad_u)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%IsLoad_u) - UB(1:1) = ubound(SrcRotInitOutputTypeData%IsLoad_u) + LB(1:1) = lbound(SrcRotInitOutputTypeData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%IsLoad_u)) then allocate(DstRotInitOutputTypeData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1725,8 +1725,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%IsLoad_u = SrcRotInitOutputTypeData%IsLoad_u end if if (allocated(SrcRotInitOutputTypeData%BladeProps)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeProps) - UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeProps) + LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeProps, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%BladeProps)) then allocate(DstRotInitOutputTypeData%BladeProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1741,8 +1741,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy end do end if if (allocated(SrcRotInitOutputTypeData%DerivOrder_x)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%DerivOrder_x) - UB(1:1) = ubound(SrcRotInitOutputTypeData%DerivOrder_x) + LB(1:1) = lbound(SrcRotInitOutputTypeData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%DerivOrder_x)) then allocate(DstRotInitOutputTypeData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1753,8 +1753,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%DerivOrder_x = SrcRotInitOutputTypeData%DerivOrder_x end if if (allocated(SrcRotInitOutputTypeData%TwrElev)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrElev) - UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrElev) + LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrElev, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrElev, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%TwrElev)) then allocate(DstRotInitOutputTypeData%TwrElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1765,8 +1765,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%TwrElev = SrcRotInitOutputTypeData%TwrElev end if if (allocated(SrcRotInitOutputTypeData%TwrDiam)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrDiam) - UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrDiam) + LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrDiam, kind=B8Ki) + UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrDiam, kind=B8Ki) if (.not. allocated(DstRotInitOutputTypeData%TwrDiam)) then allocate(DstRotInitOutputTypeData%TwrDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1782,8 +1782,8 @@ subroutine AD_DestroyRotInitOutputType(RotInitOutputTypeData, ErrStat, ErrMsg) type(RotInitOutputType), intent(inout) :: RotInitOutputTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotInitOutputType' @@ -1796,8 +1796,8 @@ subroutine AD_DestroyRotInitOutputType(RotInitOutputTypeData, ErrStat, ErrMsg) deallocate(RotInitOutputTypeData%WriteOutputUnt) end if if (allocated(RotInitOutputTypeData%BladeShape)) then - LB(1:1) = lbound(RotInitOutputTypeData%BladeShape) - UB(1:1) = ubound(RotInitOutputTypeData%BladeShape) + LB(1:1) = lbound(RotInitOutputTypeData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(RotInitOutputTypeData%BladeShape, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyBladeShape(RotInitOutputTypeData%BladeShape(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1826,8 +1826,8 @@ subroutine AD_DestroyRotInitOutputType(RotInitOutputTypeData, ErrStat, ErrMsg) deallocate(RotInitOutputTypeData%IsLoad_u) end if if (allocated(RotInitOutputTypeData%BladeProps)) then - LB(1:1) = lbound(RotInitOutputTypeData%BladeProps) - UB(1:1) = ubound(RotInitOutputTypeData%BladeProps) + LB(1:1) = lbound(RotInitOutputTypeData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(RotInitOutputTypeData%BladeProps, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyBladePropsType(RotInitOutputTypeData%BladeProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1849,86 +1849,86 @@ subroutine AD_PackRotInitOutputType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotInitOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInitOutputType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%AirDens) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call RegPack(Buf, allocated(InData%BladeShape)) if (allocated(InData%BladeShape)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeShape), ubound(InData%BladeShape)) - LB(1:1) = lbound(InData%BladeShape) - UB(1:1) = ubound(InData%BladeShape) + call RegPackBounds(Buf, 1, lbound(InData%BladeShape, kind=B8Ki), ubound(InData%BladeShape, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(InData%BladeShape, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackBladeShape(Buf, InData%BladeShape(i1)) end do end if call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%BladeProps)) if (allocated(InData%BladeProps)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeProps), ubound(InData%BladeProps)) - LB(1:1) = lbound(InData%BladeProps) - UB(1:1) = ubound(InData%BladeProps) + call RegPackBounds(Buf, 1, lbound(InData%BladeProps, kind=B8Ki), ubound(InData%BladeProps, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(InData%BladeProps, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackBladePropsType(Buf, InData%BladeProps(i1)) end do end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if call RegPack(Buf, allocated(InData%TwrElev)) if (allocated(InData%TwrElev)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrElev), ubound(InData%TwrElev)) + call RegPackBounds(Buf, 1, lbound(InData%TwrElev, kind=B8Ki), ubound(InData%TwrElev, kind=B8Ki)) call RegPack(Buf, InData%TwrElev) end if call RegPack(Buf, allocated(InData%TwrDiam)) if (allocated(InData%TwrDiam)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrDiam), ubound(InData%TwrDiam)) + call RegPackBounds(Buf, 1, lbound(InData%TwrDiam, kind=B8Ki), ubound(InData%TwrDiam, kind=B8Ki)) call RegPack(Buf, InData%TwrDiam) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1938,8 +1938,8 @@ subroutine AD_UnPackRotInitOutputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotInitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInitOutputType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2151,16 +2151,16 @@ subroutine AD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%rotors)) then - LB(1:1) = lbound(SrcInitOutputData%rotors) - UB(1:1) = ubound(SrcInitOutputData%rotors) + LB(1:1) = lbound(SrcInitOutputData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%rotors, kind=B8Ki) if (.not. allocated(DstInitOutputData%rotors)) then allocate(DstInitOutputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2183,16 +2183,16 @@ subroutine AD_DestroyInitOutput(InitOutputData, ErrStat, ErrMsg) type(AD_InitOutputType), intent(inout) :: InitOutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InitOutputData%rotors)) then - LB(1:1) = lbound(InitOutputData%rotors) - UB(1:1) = ubound(InitOutputData%rotors) + LB(1:1) = lbound(InitOutputData%rotors, kind=B8Ki) + UB(1:1) = ubound(InitOutputData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotInitOutputType(InitOutputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2207,14 +2207,14 @@ subroutine AD_PackInitOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_InitOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInitOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotInitOutputType(Buf, InData%rotors(i1)) end do @@ -2227,8 +2227,8 @@ subroutine AD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInitOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2256,16 +2256,16 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotInputFile' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcRotInputFileData%BladeProps)) then - LB(1:1) = lbound(SrcRotInputFileData%BladeProps) - UB(1:1) = ubound(SrcRotInputFileData%BladeProps) + LB(1:1) = lbound(SrcRotInputFileData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputFileData%BladeProps, kind=B8Ki) if (.not. allocated(DstRotInputFileData%BladeProps)) then allocate(DstRotInputFileData%BladeProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2281,8 +2281,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod end if DstRotInputFileData%NumTwrNds = SrcRotInputFileData%NumTwrNds if (allocated(SrcRotInputFileData%TwrElev)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrElev) - UB(1:1) = ubound(SrcRotInputFileData%TwrElev) + LB(1:1) = lbound(SrcRotInputFileData%TwrElev, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputFileData%TwrElev, kind=B8Ki) if (.not. allocated(DstRotInputFileData%TwrElev)) then allocate(DstRotInputFileData%TwrElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2293,8 +2293,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrElev = SrcRotInputFileData%TwrElev end if if (allocated(SrcRotInputFileData%TwrDiam)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrDiam) - UB(1:1) = ubound(SrcRotInputFileData%TwrDiam) + LB(1:1) = lbound(SrcRotInputFileData%TwrDiam, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputFileData%TwrDiam, kind=B8Ki) if (.not. allocated(DstRotInputFileData%TwrDiam)) then allocate(DstRotInputFileData%TwrDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2305,8 +2305,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrDiam = SrcRotInputFileData%TwrDiam end if if (allocated(SrcRotInputFileData%TwrCd)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrCd) - UB(1:1) = ubound(SrcRotInputFileData%TwrCd) + LB(1:1) = lbound(SrcRotInputFileData%TwrCd, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputFileData%TwrCd, kind=B8Ki) if (.not. allocated(DstRotInputFileData%TwrCd)) then allocate(DstRotInputFileData%TwrCd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2317,8 +2317,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrCd = SrcRotInputFileData%TwrCd end if if (allocated(SrcRotInputFileData%TwrTI)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrTI) - UB(1:1) = ubound(SrcRotInputFileData%TwrTI) + LB(1:1) = lbound(SrcRotInputFileData%TwrTI, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputFileData%TwrTI, kind=B8Ki) if (.not. allocated(DstRotInputFileData%TwrTI)) then allocate(DstRotInputFileData%TwrTI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2329,8 +2329,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrTI = SrcRotInputFileData%TwrTI end if if (allocated(SrcRotInputFileData%TwrCb)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrCb) - UB(1:1) = ubound(SrcRotInputFileData%TwrCb) + LB(1:1) = lbound(SrcRotInputFileData%TwrCb, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputFileData%TwrCb, kind=B8Ki) if (.not. allocated(DstRotInputFileData%TwrCb)) then allocate(DstRotInputFileData%TwrCb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2355,16 +2355,16 @@ subroutine AD_DestroyRotInputFile(RotInputFileData, ErrStat, ErrMsg) type(RotInputFile), intent(inout) :: RotInputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotInputFile' ErrStat = ErrID_None ErrMsg = '' if (allocated(RotInputFileData%BladeProps)) then - LB(1:1) = lbound(RotInputFileData%BladeProps) - UB(1:1) = ubound(RotInputFileData%BladeProps) + LB(1:1) = lbound(RotInputFileData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(RotInputFileData%BladeProps, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyBladePropsType(RotInputFileData%BladeProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2394,14 +2394,14 @@ subroutine AD_PackRotInputFile(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotInputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInputFile' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%BladeProps)) if (allocated(InData%BladeProps)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeProps), ubound(InData%BladeProps)) - LB(1:1) = lbound(InData%BladeProps) - UB(1:1) = ubound(InData%BladeProps) + call RegPackBounds(Buf, 1, lbound(InData%BladeProps, kind=B8Ki), ubound(InData%BladeProps, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeProps, kind=B8Ki) + UB(1:1) = ubound(InData%BladeProps, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackBladePropsType(Buf, InData%BladeProps(i1)) end do @@ -2409,27 +2409,27 @@ subroutine AD_PackRotInputFile(Buf, Indata) call RegPack(Buf, InData%NumTwrNds) call RegPack(Buf, allocated(InData%TwrElev)) if (allocated(InData%TwrElev)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrElev), ubound(InData%TwrElev)) + call RegPackBounds(Buf, 1, lbound(InData%TwrElev, kind=B8Ki), ubound(InData%TwrElev, kind=B8Ki)) call RegPack(Buf, InData%TwrElev) end if call RegPack(Buf, allocated(InData%TwrDiam)) if (allocated(InData%TwrDiam)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrDiam), ubound(InData%TwrDiam)) + call RegPackBounds(Buf, 1, lbound(InData%TwrDiam, kind=B8Ki), ubound(InData%TwrDiam, kind=B8Ki)) call RegPack(Buf, InData%TwrDiam) end if call RegPack(Buf, allocated(InData%TwrCd)) if (allocated(InData%TwrCd)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrCd), ubound(InData%TwrCd)) + call RegPackBounds(Buf, 1, lbound(InData%TwrCd, kind=B8Ki), ubound(InData%TwrCd, kind=B8Ki)) call RegPack(Buf, InData%TwrCd) end if call RegPack(Buf, allocated(InData%TwrTI)) if (allocated(InData%TwrTI)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrTI), ubound(InData%TwrTI)) + call RegPackBounds(Buf, 1, lbound(InData%TwrTI, kind=B8Ki), ubound(InData%TwrTI, kind=B8Ki)) call RegPack(Buf, InData%TwrTI) end if call RegPack(Buf, allocated(InData%TwrCb)) if (allocated(InData%TwrCb)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrCb), ubound(InData%TwrCb)) + call RegPackBounds(Buf, 1, lbound(InData%TwrCb, kind=B8Ki), ubound(InData%TwrCb, kind=B8Ki)) call RegPack(Buf, InData%TwrCb) end if call RegPack(Buf, InData%VolHub) @@ -2446,8 +2446,8 @@ subroutine AD_UnPackRotInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotInputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInputFile' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2559,8 +2559,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyInputFile' @@ -2579,8 +2579,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%CompAA = SrcInputFileData%CompAA DstInputFileData%AA_InputFile = SrcInputFileData%AA_InputFile if (allocated(SrcInputFileData%ADBlFile)) then - LB(1:1) = lbound(SrcInputFileData%ADBlFile) - UB(1:1) = ubound(SrcInputFileData%ADBlFile) + LB(1:1) = lbound(SrcInputFileData%ADBlFile, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%ADBlFile, kind=B8Ki) if (.not. allocated(DstInputFileData%ADBlFile)) then allocate(DstInputFileData%ADBlFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2615,8 +2615,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%NumAFfiles = SrcInputFileData%NumAFfiles DstInputFileData%FVWFileName = SrcInputFileData%FVWFileName if (allocated(SrcInputFileData%AFNames)) then - LB(1:1) = lbound(SrcInputFileData%AFNames) - UB(1:1) = ubound(SrcInputFileData%AFNames) + LB(1:1) = lbound(SrcInputFileData%AFNames, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%AFNames, kind=B8Ki) if (.not. allocated(DstInputFileData%AFNames)) then allocate(DstInputFileData%AFNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2634,8 +2634,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TwOutNd = SrcInputFileData%TwOutNd DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2649,8 +2649,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%DBEMT_Mod = SrcInputFileData%DBEMT_Mod DstInputFileData%BldNd_NumOuts = SrcInputFileData%BldNd_NumOuts if (allocated(SrcInputFileData%BldNd_OutList)) then - LB(1:1) = lbound(SrcInputFileData%BldNd_OutList) - UB(1:1) = ubound(SrcInputFileData%BldNd_OutList) + LB(1:1) = lbound(SrcInputFileData%BldNd_OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BldNd_OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%BldNd_OutList)) then allocate(DstInputFileData%BldNd_OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2665,8 +2665,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%UAStartRad = SrcInputFileData%UAStartRad DstInputFileData%UAEndRad = SrcInputFileData%UAEndRad if (allocated(SrcInputFileData%rotors)) then - LB(1:1) = lbound(SrcInputFileData%rotors) - UB(1:1) = ubound(SrcInputFileData%rotors) + LB(1:1) = lbound(SrcInputFileData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%rotors, kind=B8Ki) if (.not. allocated(DstInputFileData%rotors)) then allocate(DstInputFileData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2686,8 +2686,8 @@ subroutine AD_DestroyInputFile(InputFileData, ErrStat, ErrMsg) type(AD_InputFile), intent(inout) :: InputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyInputFile' @@ -2706,8 +2706,8 @@ subroutine AD_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%BldNd_OutList) end if if (allocated(InputFileData%rotors)) then - LB(1:1) = lbound(InputFileData%rotors) - UB(1:1) = ubound(InputFileData%rotors) + LB(1:1) = lbound(InputFileData%rotors, kind=B8Ki) + UB(1:1) = ubound(InputFileData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotInputFile(InputFileData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2720,8 +2720,8 @@ subroutine AD_PackInputFile(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_InputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInputFile' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%Echo) call RegPack(Buf, InData%DTAero) @@ -2737,7 +2737,7 @@ subroutine AD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%AA_InputFile) call RegPack(Buf, allocated(InData%ADBlFile)) if (allocated(InData%ADBlFile)) then - call RegPackBounds(Buf, 1, lbound(InData%ADBlFile), ubound(InData%ADBlFile)) + call RegPackBounds(Buf, 1, lbound(InData%ADBlFile, kind=B8Ki), ubound(InData%ADBlFile, kind=B8Ki)) call RegPack(Buf, InData%ADBlFile) end if call RegPack(Buf, InData%AirDens) @@ -2766,7 +2766,7 @@ subroutine AD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%FVWFileName) call RegPack(Buf, allocated(InData%AFNames)) if (allocated(InData%AFNames)) then - call RegPackBounds(Buf, 1, lbound(InData%AFNames), ubound(InData%AFNames)) + call RegPackBounds(Buf, 1, lbound(InData%AFNames, kind=B8Ki), ubound(InData%AFNames, kind=B8Ki)) call RegPack(Buf, InData%AFNames) end if call RegPack(Buf, InData%UseBlCm) @@ -2778,7 +2778,7 @@ subroutine AD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%tau1_const) @@ -2786,7 +2786,7 @@ subroutine AD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%BldNd_NumOuts) call RegPack(Buf, allocated(InData%BldNd_OutList)) if (allocated(InData%BldNd_OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutList), ubound(InData%BldNd_OutList)) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutList, kind=B8Ki), ubound(InData%BldNd_OutList, kind=B8Ki)) call RegPack(Buf, InData%BldNd_OutList) end if call RegPack(Buf, InData%BldNd_BlOutNd_Str) @@ -2795,9 +2795,9 @@ subroutine AD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%UAEndRad) call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotInputFile(Buf, InData%rotors(i1)) end do @@ -2809,8 +2809,8 @@ subroutine AD_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInputFile' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3046,16 +3046,16 @@ subroutine AD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%rotors)) then - LB(1:1) = lbound(SrcContStateData%rotors) - UB(1:1) = ubound(SrcContStateData%rotors) + LB(1:1) = lbound(SrcContStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%rotors, kind=B8Ki) if (.not. allocated(DstContStateData%rotors)) then allocate(DstContStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3078,16 +3078,16 @@ subroutine AD_DestroyContState(ContStateData, ErrStat, ErrMsg) type(AD_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%rotors)) then - LB(1:1) = lbound(ContStateData%rotors) - UB(1:1) = ubound(ContStateData%rotors) + LB(1:1) = lbound(ContStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(ContStateData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotContinuousStateType(ContStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3102,14 +3102,14 @@ subroutine AD_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotContinuousStateType(Buf, InData%rotors(i1)) end do @@ -3122,8 +3122,8 @@ subroutine AD_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3204,16 +3204,16 @@ subroutine AD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%rotors)) then - LB(1:1) = lbound(SrcDiscStateData%rotors) - UB(1:1) = ubound(SrcDiscStateData%rotors) + LB(1:1) = lbound(SrcDiscStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%rotors, kind=B8Ki) if (.not. allocated(DstDiscStateData%rotors)) then allocate(DstDiscStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3236,16 +3236,16 @@ subroutine AD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(AD_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(DiscStateData%rotors)) then - LB(1:1) = lbound(DiscStateData%rotors) - UB(1:1) = ubound(DiscStateData%rotors) + LB(1:1) = lbound(DiscStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotDiscreteStateType(DiscStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3260,14 +3260,14 @@ subroutine AD_PackDiscState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotDiscreteStateType(Buf, InData%rotors(i1)) end do @@ -3280,8 +3280,8 @@ subroutine AD_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3362,16 +3362,16 @@ subroutine AD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcConstrStateData%rotors)) then - LB(1:1) = lbound(SrcConstrStateData%rotors) - UB(1:1) = ubound(SrcConstrStateData%rotors) + LB(1:1) = lbound(SrcConstrStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%rotors, kind=B8Ki) if (.not. allocated(DstConstrStateData%rotors)) then allocate(DstConstrStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3394,16 +3394,16 @@ subroutine AD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(AD_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ConstrStateData%rotors)) then - LB(1:1) = lbound(ConstrStateData%rotors) - UB(1:1) = ubound(ConstrStateData%rotors) + LB(1:1) = lbound(ConstrStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotConstraintStateType(ConstrStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3418,14 +3418,14 @@ subroutine AD_PackConstrState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotConstraintStateType(Buf, InData%rotors(i1)) end do @@ -3438,8 +3438,8 @@ subroutine AD_UnPackConstrState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3520,16 +3520,16 @@ subroutine AD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%rotors)) then - LB(1:1) = lbound(SrcOtherStateData%rotors) - UB(1:1) = ubound(SrcOtherStateData%rotors) + LB(1:1) = lbound(SrcOtherStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%rotors, kind=B8Ki) if (.not. allocated(DstOtherStateData%rotors)) then allocate(DstOtherStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3547,8 +3547,8 @@ subroutine AD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOtherStateData%WakeLocationPoints)) then - LB(1:2) = lbound(SrcOtherStateData%WakeLocationPoints) - UB(1:2) = ubound(SrcOtherStateData%WakeLocationPoints) + LB(1:2) = lbound(SrcOtherStateData%WakeLocationPoints, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%WakeLocationPoints, kind=B8Ki) if (.not. allocated(DstOtherStateData%WakeLocationPoints)) then allocate(DstOtherStateData%WakeLocationPoints(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3564,16 +3564,16 @@ subroutine AD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(AD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%rotors)) then - LB(1:1) = lbound(OtherStateData%rotors) - UB(1:1) = ubound(OtherStateData%rotors) + LB(1:1) = lbound(OtherStateData%rotors, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotOtherStateType(OtherStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3591,14 +3591,14 @@ subroutine AD_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotOtherStateType(Buf, InData%rotors(i1)) end do @@ -3606,7 +3606,7 @@ subroutine AD_PackOtherState(Buf, Indata) call FVW_PackOtherState(Buf, InData%FVW) call RegPack(Buf, allocated(InData%WakeLocationPoints)) if (allocated(InData%WakeLocationPoints)) then - call RegPackBounds(Buf, 2, lbound(InData%WakeLocationPoints), ubound(InData%WakeLocationPoints)) + call RegPackBounds(Buf, 2, lbound(InData%WakeLocationPoints, kind=B8Ki), ubound(InData%WakeLocationPoints, kind=B8Ki)) call RegPack(Buf, InData%WakeLocationPoints) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3616,8 +3616,8 @@ subroutine AD_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3659,8 +3659,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotMiscVarType' @@ -3672,8 +3672,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C call BEMT_CopyOutput(SrcRotMiscVarTypeData%BEMT_y, DstRotMiscVarTypeData%BEMT_y, CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return - LB(1:1) = lbound(SrcRotMiscVarTypeData%BEMT_u) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BEMT_u) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BEMT_u, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BEMT_u, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_CopyInput(SrcRotMiscVarTypeData%BEMT_u(i1), DstRotMiscVarTypeData%BEMT_u(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3689,8 +3689,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotMiscVarTypeData%DisturbedInflow)) then - LB(1:3) = lbound(SrcRotMiscVarTypeData%DisturbedInflow) - UB(1:3) = ubound(SrcRotMiscVarTypeData%DisturbedInflow) + LB(1:3) = lbound(SrcRotMiscVarTypeData%DisturbedInflow, kind=B8Ki) + UB(1:3) = ubound(SrcRotMiscVarTypeData%DisturbedInflow, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%DisturbedInflow)) then allocate(DstRotMiscVarTypeData%DisturbedInflow(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3701,8 +3701,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%DisturbedInflow = SrcRotMiscVarTypeData%DisturbedInflow end if if (allocated(SrcRotMiscVarTypeData%orientationAnnulus)) then - LB(1:4) = lbound(SrcRotMiscVarTypeData%orientationAnnulus) - UB(1:4) = ubound(SrcRotMiscVarTypeData%orientationAnnulus) + LB(1:4) = lbound(SrcRotMiscVarTypeData%orientationAnnulus, kind=B8Ki) + UB(1:4) = ubound(SrcRotMiscVarTypeData%orientationAnnulus, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%orientationAnnulus)) then allocate(DstRotMiscVarTypeData%orientationAnnulus(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3713,8 +3713,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%orientationAnnulus = SrcRotMiscVarTypeData%orientationAnnulus end if if (allocated(SrcRotMiscVarTypeData%R_li)) then - LB(1:4) = lbound(SrcRotMiscVarTypeData%R_li) - UB(1:4) = ubound(SrcRotMiscVarTypeData%R_li) + LB(1:4) = lbound(SrcRotMiscVarTypeData%R_li, kind=B8Ki) + UB(1:4) = ubound(SrcRotMiscVarTypeData%R_li, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%R_li)) then allocate(DstRotMiscVarTypeData%R_li(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3725,8 +3725,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%R_li = SrcRotMiscVarTypeData%R_li end if if (allocated(SrcRotMiscVarTypeData%AllOuts)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%AllOuts) - UB(1:1) = ubound(SrcRotMiscVarTypeData%AllOuts) + LB(1:1) = lbound(SrcRotMiscVarTypeData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%AllOuts, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%AllOuts)) then allocate(DstRotMiscVarTypeData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3737,8 +3737,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%AllOuts = SrcRotMiscVarTypeData%AllOuts end if if (allocated(SrcRotMiscVarTypeData%W_Twr)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%W_Twr) - UB(1:1) = ubound(SrcRotMiscVarTypeData%W_Twr) + LB(1:1) = lbound(SrcRotMiscVarTypeData%W_Twr, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%W_Twr, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%W_Twr)) then allocate(DstRotMiscVarTypeData%W_Twr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3749,8 +3749,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%W_Twr = SrcRotMiscVarTypeData%W_Twr end if if (allocated(SrcRotMiscVarTypeData%X_Twr)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%X_Twr) - UB(1:1) = ubound(SrcRotMiscVarTypeData%X_Twr) + LB(1:1) = lbound(SrcRotMiscVarTypeData%X_Twr, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%X_Twr, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%X_Twr)) then allocate(DstRotMiscVarTypeData%X_Twr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3761,8 +3761,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%X_Twr = SrcRotMiscVarTypeData%X_Twr end if if (allocated(SrcRotMiscVarTypeData%Y_Twr)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%Y_Twr) - UB(1:1) = ubound(SrcRotMiscVarTypeData%Y_Twr) + LB(1:1) = lbound(SrcRotMiscVarTypeData%Y_Twr, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%Y_Twr, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Y_Twr)) then allocate(DstRotMiscVarTypeData%Y_Twr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3773,8 +3773,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Y_Twr = SrcRotMiscVarTypeData%Y_Twr end if if (allocated(SrcRotMiscVarTypeData%Curve)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Curve) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Curve) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Curve, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Curve, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Curve)) then allocate(DstRotMiscVarTypeData%Curve(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3785,8 +3785,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Curve = SrcRotMiscVarTypeData%Curve end if if (allocated(SrcRotMiscVarTypeData%TwrClrnc)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrClrnc) - UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrClrnc) + LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrClrnc, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrClrnc, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%TwrClrnc)) then allocate(DstRotMiscVarTypeData%TwrClrnc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3797,8 +3797,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%TwrClrnc = SrcRotMiscVarTypeData%TwrClrnc end if if (allocated(SrcRotMiscVarTypeData%X)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%X) - UB(1:2) = ubound(SrcRotMiscVarTypeData%X) + LB(1:2) = lbound(SrcRotMiscVarTypeData%X, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%X, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%X)) then allocate(DstRotMiscVarTypeData%X(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3809,8 +3809,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%X = SrcRotMiscVarTypeData%X end if if (allocated(SrcRotMiscVarTypeData%Y)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Y) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Y) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Y, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Y, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Y)) then allocate(DstRotMiscVarTypeData%Y(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3821,8 +3821,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Y = SrcRotMiscVarTypeData%Y end if if (allocated(SrcRotMiscVarTypeData%Z)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Z) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Z) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Z, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Z, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Z)) then allocate(DstRotMiscVarTypeData%Z(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3833,8 +3833,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Z = SrcRotMiscVarTypeData%Z end if if (allocated(SrcRotMiscVarTypeData%M)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%M) - UB(1:2) = ubound(SrcRotMiscVarTypeData%M) + LB(1:2) = lbound(SrcRotMiscVarTypeData%M, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%M, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%M)) then allocate(DstRotMiscVarTypeData%M(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3845,8 +3845,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%M = SrcRotMiscVarTypeData%M end if if (allocated(SrcRotMiscVarTypeData%Mx)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Mx) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Mx) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Mx, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Mx, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Mx)) then allocate(DstRotMiscVarTypeData%Mx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3857,8 +3857,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Mx = SrcRotMiscVarTypeData%Mx end if if (allocated(SrcRotMiscVarTypeData%My)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%My) - UB(1:2) = ubound(SrcRotMiscVarTypeData%My) + LB(1:2) = lbound(SrcRotMiscVarTypeData%My, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%My, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%My)) then allocate(DstRotMiscVarTypeData%My(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3869,8 +3869,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%My = SrcRotMiscVarTypeData%My end if if (allocated(SrcRotMiscVarTypeData%Mz)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Mz) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Mz) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Mz, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Mz, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Mz)) then allocate(DstRotMiscVarTypeData%Mz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3881,8 +3881,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Mz = SrcRotMiscVarTypeData%Mz end if if (allocated(SrcRotMiscVarTypeData%Vind_i)) then - LB(1:3) = lbound(SrcRotMiscVarTypeData%Vind_i) - UB(1:3) = ubound(SrcRotMiscVarTypeData%Vind_i) + LB(1:3) = lbound(SrcRotMiscVarTypeData%Vind_i, kind=B8Ki) + UB(1:3) = ubound(SrcRotMiscVarTypeData%Vind_i, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%Vind_i)) then allocate(DstRotMiscVarTypeData%Vind_i(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3896,8 +3896,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%yaw = SrcRotMiscVarTypeData%yaw DstRotMiscVarTypeData%tilt = SrcRotMiscVarTypeData%tilt if (allocated(SrcRotMiscVarTypeData%hub_theta_x_root)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%hub_theta_x_root) - UB(1:1) = ubound(SrcRotMiscVarTypeData%hub_theta_x_root) + LB(1:1) = lbound(SrcRotMiscVarTypeData%hub_theta_x_root, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%hub_theta_x_root, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%hub_theta_x_root)) then allocate(DstRotMiscVarTypeData%hub_theta_x_root(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3912,8 +3912,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotMiscVarTypeData%B_L_2_H_P)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%B_L_2_H_P) - UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_H_P) + LB(1:1) = lbound(SrcRotMiscVarTypeData%B_L_2_H_P, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_H_P, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%B_L_2_H_P)) then allocate(DstRotMiscVarTypeData%B_L_2_H_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3928,8 +3928,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%SigmaCavitCrit)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavitCrit) - UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavitCrit) + LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavitCrit, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavitCrit, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%SigmaCavitCrit)) then allocate(DstRotMiscVarTypeData%SigmaCavitCrit(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3940,8 +3940,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%SigmaCavitCrit = SrcRotMiscVarTypeData%SigmaCavitCrit end if if (allocated(SrcRotMiscVarTypeData%SigmaCavit)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavit) - UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavit) + LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavit, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavit, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%SigmaCavit)) then allocate(DstRotMiscVarTypeData%SigmaCavit(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3952,8 +3952,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%SigmaCavit = SrcRotMiscVarTypeData%SigmaCavit end if if (allocated(SrcRotMiscVarTypeData%CavitWarnSet)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%CavitWarnSet) - UB(1:2) = ubound(SrcRotMiscVarTypeData%CavitWarnSet) + LB(1:2) = lbound(SrcRotMiscVarTypeData%CavitWarnSet, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%CavitWarnSet, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%CavitWarnSet)) then allocate(DstRotMiscVarTypeData%CavitWarnSet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3964,8 +3964,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%CavitWarnSet = SrcRotMiscVarTypeData%CavitWarnSet end if if (allocated(SrcRotMiscVarTypeData%TwrFB)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrFB) - UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrFB) + LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrFB, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrFB, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%TwrFB)) then allocate(DstRotMiscVarTypeData%TwrFB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3976,8 +3976,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%TwrFB = SrcRotMiscVarTypeData%TwrFB end if if (allocated(SrcRotMiscVarTypeData%TwrMB)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrMB) - UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrMB) + LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrMB, kind=B8Ki) + UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrMB, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%TwrMB)) then allocate(DstRotMiscVarTypeData%TwrMB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3988,8 +3988,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%TwrMB = SrcRotMiscVarTypeData%TwrMB end if if (allocated(SrcRotMiscVarTypeData%HubFB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%HubFB) - UB(1:1) = ubound(SrcRotMiscVarTypeData%HubFB) + LB(1:1) = lbound(SrcRotMiscVarTypeData%HubFB, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%HubFB, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%HubFB)) then allocate(DstRotMiscVarTypeData%HubFB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4000,8 +4000,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%HubFB = SrcRotMiscVarTypeData%HubFB end if if (allocated(SrcRotMiscVarTypeData%HubMB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%HubMB) - UB(1:1) = ubound(SrcRotMiscVarTypeData%HubMB) + LB(1:1) = lbound(SrcRotMiscVarTypeData%HubMB, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%HubMB, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%HubMB)) then allocate(DstRotMiscVarTypeData%HubMB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4012,8 +4012,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%HubMB = SrcRotMiscVarTypeData%HubMB end if if (allocated(SrcRotMiscVarTypeData%NacFB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacFB) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacFB) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacFB, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacFB, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%NacFB)) then allocate(DstRotMiscVarTypeData%NacFB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4024,8 +4024,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacFB = SrcRotMiscVarTypeData%NacFB end if if (allocated(SrcRotMiscVarTypeData%NacMB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacMB) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacMB) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacMB, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacMB, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%NacMB)) then allocate(DstRotMiscVarTypeData%NacMB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4036,8 +4036,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacMB = SrcRotMiscVarTypeData%NacMB end if if (allocated(SrcRotMiscVarTypeData%BladeRootLoad)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeRootLoad) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeRootLoad) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeRootLoad, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeRootLoad, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%BladeRootLoad)) then allocate(DstRotMiscVarTypeData%BladeRootLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4052,8 +4052,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%B_L_2_R_P)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%B_L_2_R_P) - UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_R_P) + LB(1:1) = lbound(SrcRotMiscVarTypeData%B_L_2_R_P, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_R_P, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%B_L_2_R_P)) then allocate(DstRotMiscVarTypeData%B_L_2_R_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4068,8 +4068,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%BladeBuoyLoadPoint)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%BladeBuoyLoadPoint)) then allocate(DstRotMiscVarTypeData%BladeBuoyLoadPoint(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4084,8 +4084,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%BladeBuoyLoad)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoad) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoad) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%BladeBuoyLoad)) then allocate(DstRotMiscVarTypeData%BladeBuoyLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4100,8 +4100,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%B_P_2_B_L)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%B_P_2_B_L) - UB(1:1) = ubound(SrcRotMiscVarTypeData%B_P_2_B_L) + LB(1:1) = lbound(SrcRotMiscVarTypeData%B_P_2_B_L, kind=B8Ki) + UB(1:1) = ubound(SrcRotMiscVarTypeData%B_P_2_B_L, kind=B8Ki) if (.not. allocated(DstRotMiscVarTypeData%B_P_2_B_L)) then allocate(DstRotMiscVarTypeData%B_P_2_B_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4142,8 +4142,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) type(RotMiscVarType), intent(inout) :: RotMiscVarTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotMiscVarType' @@ -4153,8 +4153,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) call BEMT_DestroyOutput(RotMiscVarTypeData%BEMT_y, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - LB(1:1) = lbound(RotMiscVarTypeData%BEMT_u) - UB(1:1) = ubound(RotMiscVarTypeData%BEMT_u) + LB(1:1) = lbound(RotMiscVarTypeData%BEMT_u, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%BEMT_u, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_DestroyInput(RotMiscVarTypeData%BEMT_u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4222,8 +4222,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) call MeshDestroy( RotMiscVarTypeData%HubLoad, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotMiscVarTypeData%B_L_2_H_P)) then - LB(1:1) = lbound(RotMiscVarTypeData%B_L_2_H_P) - UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_H_P) + LB(1:1) = lbound(RotMiscVarTypeData%B_L_2_H_P, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_H_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(RotMiscVarTypeData%B_L_2_H_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4258,8 +4258,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%NacMB) end if if (allocated(RotMiscVarTypeData%BladeRootLoad)) then - LB(1:1) = lbound(RotMiscVarTypeData%BladeRootLoad) - UB(1:1) = ubound(RotMiscVarTypeData%BladeRootLoad) + LB(1:1) = lbound(RotMiscVarTypeData%BladeRootLoad, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%BladeRootLoad, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotMiscVarTypeData%BladeRootLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4267,8 +4267,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%BladeRootLoad) end if if (allocated(RotMiscVarTypeData%B_L_2_R_P)) then - LB(1:1) = lbound(RotMiscVarTypeData%B_L_2_R_P) - UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_R_P) + LB(1:1) = lbound(RotMiscVarTypeData%B_L_2_R_P, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_R_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(RotMiscVarTypeData%B_L_2_R_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4276,8 +4276,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%B_L_2_R_P) end if if (allocated(RotMiscVarTypeData%BladeBuoyLoadPoint)) then - LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoadPoint) - UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoadPoint) + LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotMiscVarTypeData%BladeBuoyLoadPoint(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4285,8 +4285,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%BladeBuoyLoadPoint) end if if (allocated(RotMiscVarTypeData%BladeBuoyLoad)) then - LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoad) - UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoad) + LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotMiscVarTypeData%BladeBuoyLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4294,8 +4294,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%BladeBuoyLoad) end if if (allocated(RotMiscVarTypeData%B_P_2_B_L)) then - LB(1:1) = lbound(RotMiscVarTypeData%B_P_2_B_L) - UB(1:1) = ubound(RotMiscVarTypeData%B_P_2_B_L) + LB(1:1) = lbound(RotMiscVarTypeData%B_P_2_B_L, kind=B8Ki) + UB(1:1) = ubound(RotMiscVarTypeData%B_P_2_B_L, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(RotMiscVarTypeData%B_P_2_B_L(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4314,13 +4314,13 @@ subroutine AD_PackRotMiscVarType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotMiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotMiscVarType' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) if (Buf%ErrStat >= AbortErrLev) return call BEMT_PackMisc(Buf, InData%BEMT) call BEMT_PackOutput(Buf, InData%BEMT_y) - LB(1:1) = lbound(InData%BEMT_u) - UB(1:1) = ubound(InData%BEMT_u) + LB(1:1) = lbound(InData%BEMT_u, kind=B8Ki) + UB(1:1) = ubound(InData%BEMT_u, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_PackInput(Buf, InData%BEMT_u(i1)) end do @@ -4329,87 +4329,87 @@ subroutine AD_PackRotMiscVarType(Buf, Indata) call AA_PackInput(Buf, InData%AA_u) call RegPack(Buf, allocated(InData%DisturbedInflow)) if (allocated(InData%DisturbedInflow)) then - call RegPackBounds(Buf, 3, lbound(InData%DisturbedInflow), ubound(InData%DisturbedInflow)) + call RegPackBounds(Buf, 3, lbound(InData%DisturbedInflow, kind=B8Ki), ubound(InData%DisturbedInflow, kind=B8Ki)) call RegPack(Buf, InData%DisturbedInflow) end if call RegPack(Buf, allocated(InData%orientationAnnulus)) if (allocated(InData%orientationAnnulus)) then - call RegPackBounds(Buf, 4, lbound(InData%orientationAnnulus), ubound(InData%orientationAnnulus)) + call RegPackBounds(Buf, 4, lbound(InData%orientationAnnulus, kind=B8Ki), ubound(InData%orientationAnnulus, kind=B8Ki)) call RegPack(Buf, InData%orientationAnnulus) end if call RegPack(Buf, allocated(InData%R_li)) if (allocated(InData%R_li)) then - call RegPackBounds(Buf, 4, lbound(InData%R_li), ubound(InData%R_li)) + call RegPackBounds(Buf, 4, lbound(InData%R_li, kind=B8Ki), ubound(InData%R_li, kind=B8Ki)) call RegPack(Buf, InData%R_li) end if call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, allocated(InData%W_Twr)) if (allocated(InData%W_Twr)) then - call RegPackBounds(Buf, 1, lbound(InData%W_Twr), ubound(InData%W_Twr)) + call RegPackBounds(Buf, 1, lbound(InData%W_Twr, kind=B8Ki), ubound(InData%W_Twr, kind=B8Ki)) call RegPack(Buf, InData%W_Twr) end if call RegPack(Buf, allocated(InData%X_Twr)) if (allocated(InData%X_Twr)) then - call RegPackBounds(Buf, 1, lbound(InData%X_Twr), ubound(InData%X_Twr)) + call RegPackBounds(Buf, 1, lbound(InData%X_Twr, kind=B8Ki), ubound(InData%X_Twr, kind=B8Ki)) call RegPack(Buf, InData%X_Twr) end if call RegPack(Buf, allocated(InData%Y_Twr)) if (allocated(InData%Y_Twr)) then - call RegPackBounds(Buf, 1, lbound(InData%Y_Twr), ubound(InData%Y_Twr)) + call RegPackBounds(Buf, 1, lbound(InData%Y_Twr, kind=B8Ki), ubound(InData%Y_Twr, kind=B8Ki)) call RegPack(Buf, InData%Y_Twr) end if call RegPack(Buf, allocated(InData%Curve)) if (allocated(InData%Curve)) then - call RegPackBounds(Buf, 2, lbound(InData%Curve), ubound(InData%Curve)) + call RegPackBounds(Buf, 2, lbound(InData%Curve, kind=B8Ki), ubound(InData%Curve, kind=B8Ki)) call RegPack(Buf, InData%Curve) end if call RegPack(Buf, allocated(InData%TwrClrnc)) if (allocated(InData%TwrClrnc)) then - call RegPackBounds(Buf, 2, lbound(InData%TwrClrnc), ubound(InData%TwrClrnc)) + call RegPackBounds(Buf, 2, lbound(InData%TwrClrnc, kind=B8Ki), ubound(InData%TwrClrnc, kind=B8Ki)) call RegPack(Buf, InData%TwrClrnc) end if call RegPack(Buf, allocated(InData%X)) if (allocated(InData%X)) then - call RegPackBounds(Buf, 2, lbound(InData%X), ubound(InData%X)) + call RegPackBounds(Buf, 2, lbound(InData%X, kind=B8Ki), ubound(InData%X, kind=B8Ki)) call RegPack(Buf, InData%X) end if call RegPack(Buf, allocated(InData%Y)) if (allocated(InData%Y)) then - call RegPackBounds(Buf, 2, lbound(InData%Y), ubound(InData%Y)) + call RegPackBounds(Buf, 2, lbound(InData%Y, kind=B8Ki), ubound(InData%Y, kind=B8Ki)) call RegPack(Buf, InData%Y) end if call RegPack(Buf, allocated(InData%Z)) if (allocated(InData%Z)) then - call RegPackBounds(Buf, 2, lbound(InData%Z), ubound(InData%Z)) + call RegPackBounds(Buf, 2, lbound(InData%Z, kind=B8Ki), ubound(InData%Z, kind=B8Ki)) call RegPack(Buf, InData%Z) end if call RegPack(Buf, allocated(InData%M)) if (allocated(InData%M)) then - call RegPackBounds(Buf, 2, lbound(InData%M), ubound(InData%M)) + call RegPackBounds(Buf, 2, lbound(InData%M, kind=B8Ki), ubound(InData%M, kind=B8Ki)) call RegPack(Buf, InData%M) end if call RegPack(Buf, allocated(InData%Mx)) if (allocated(InData%Mx)) then - call RegPackBounds(Buf, 2, lbound(InData%Mx), ubound(InData%Mx)) + call RegPackBounds(Buf, 2, lbound(InData%Mx, kind=B8Ki), ubound(InData%Mx, kind=B8Ki)) call RegPack(Buf, InData%Mx) end if call RegPack(Buf, allocated(InData%My)) if (allocated(InData%My)) then - call RegPackBounds(Buf, 2, lbound(InData%My), ubound(InData%My)) + call RegPackBounds(Buf, 2, lbound(InData%My, kind=B8Ki), ubound(InData%My, kind=B8Ki)) call RegPack(Buf, InData%My) end if call RegPack(Buf, allocated(InData%Mz)) if (allocated(InData%Mz)) then - call RegPackBounds(Buf, 2, lbound(InData%Mz), ubound(InData%Mz)) + call RegPackBounds(Buf, 2, lbound(InData%Mz, kind=B8Ki), ubound(InData%Mz, kind=B8Ki)) call RegPack(Buf, InData%Mz) end if call RegPack(Buf, allocated(InData%Vind_i)) if (allocated(InData%Vind_i)) then - call RegPackBounds(Buf, 3, lbound(InData%Vind_i), ubound(InData%Vind_i)) + call RegPackBounds(Buf, 3, lbound(InData%Vind_i, kind=B8Ki), ubound(InData%Vind_i, kind=B8Ki)) call RegPack(Buf, InData%Vind_i) end if call RegPack(Buf, InData%V_DiskAvg) @@ -4417,106 +4417,106 @@ subroutine AD_PackRotMiscVarType(Buf, Indata) call RegPack(Buf, InData%tilt) call RegPack(Buf, allocated(InData%hub_theta_x_root)) if (allocated(InData%hub_theta_x_root)) then - call RegPackBounds(Buf, 1, lbound(InData%hub_theta_x_root), ubound(InData%hub_theta_x_root)) + call RegPackBounds(Buf, 1, lbound(InData%hub_theta_x_root, kind=B8Ki), ubound(InData%hub_theta_x_root, kind=B8Ki)) call RegPack(Buf, InData%hub_theta_x_root) end if call RegPack(Buf, InData%V_dot_x) call MeshPack(Buf, InData%HubLoad) call RegPack(Buf, allocated(InData%B_L_2_H_P)) if (allocated(InData%B_L_2_H_P)) then - call RegPackBounds(Buf, 1, lbound(InData%B_L_2_H_P), ubound(InData%B_L_2_H_P)) - LB(1:1) = lbound(InData%B_L_2_H_P) - UB(1:1) = ubound(InData%B_L_2_H_P) + call RegPackBounds(Buf, 1, lbound(InData%B_L_2_H_P, kind=B8Ki), ubound(InData%B_L_2_H_P, kind=B8Ki)) + LB(1:1) = lbound(InData%B_L_2_H_P, kind=B8Ki) + UB(1:1) = ubound(InData%B_L_2_H_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%B_L_2_H_P(i1)) end do end if call RegPack(Buf, allocated(InData%SigmaCavitCrit)) if (allocated(InData%SigmaCavitCrit)) then - call RegPackBounds(Buf, 2, lbound(InData%SigmaCavitCrit), ubound(InData%SigmaCavitCrit)) + call RegPackBounds(Buf, 2, lbound(InData%SigmaCavitCrit, kind=B8Ki), ubound(InData%SigmaCavitCrit, kind=B8Ki)) call RegPack(Buf, InData%SigmaCavitCrit) end if call RegPack(Buf, allocated(InData%SigmaCavit)) if (allocated(InData%SigmaCavit)) then - call RegPackBounds(Buf, 2, lbound(InData%SigmaCavit), ubound(InData%SigmaCavit)) + call RegPackBounds(Buf, 2, lbound(InData%SigmaCavit, kind=B8Ki), ubound(InData%SigmaCavit, kind=B8Ki)) call RegPack(Buf, InData%SigmaCavit) end if call RegPack(Buf, allocated(InData%CavitWarnSet)) if (allocated(InData%CavitWarnSet)) then - call RegPackBounds(Buf, 2, lbound(InData%CavitWarnSet), ubound(InData%CavitWarnSet)) + call RegPackBounds(Buf, 2, lbound(InData%CavitWarnSet, kind=B8Ki), ubound(InData%CavitWarnSet, kind=B8Ki)) call RegPack(Buf, InData%CavitWarnSet) end if call RegPack(Buf, allocated(InData%TwrFB)) if (allocated(InData%TwrFB)) then - call RegPackBounds(Buf, 2, lbound(InData%TwrFB), ubound(InData%TwrFB)) + call RegPackBounds(Buf, 2, lbound(InData%TwrFB, kind=B8Ki), ubound(InData%TwrFB, kind=B8Ki)) call RegPack(Buf, InData%TwrFB) end if call RegPack(Buf, allocated(InData%TwrMB)) if (allocated(InData%TwrMB)) then - call RegPackBounds(Buf, 2, lbound(InData%TwrMB), ubound(InData%TwrMB)) + call RegPackBounds(Buf, 2, lbound(InData%TwrMB, kind=B8Ki), ubound(InData%TwrMB, kind=B8Ki)) call RegPack(Buf, InData%TwrMB) end if call RegPack(Buf, allocated(InData%HubFB)) if (allocated(InData%HubFB)) then - call RegPackBounds(Buf, 1, lbound(InData%HubFB), ubound(InData%HubFB)) + call RegPackBounds(Buf, 1, lbound(InData%HubFB, kind=B8Ki), ubound(InData%HubFB, kind=B8Ki)) call RegPack(Buf, InData%HubFB) end if call RegPack(Buf, allocated(InData%HubMB)) if (allocated(InData%HubMB)) then - call RegPackBounds(Buf, 1, lbound(InData%HubMB), ubound(InData%HubMB)) + call RegPackBounds(Buf, 1, lbound(InData%HubMB, kind=B8Ki), ubound(InData%HubMB, kind=B8Ki)) call RegPack(Buf, InData%HubMB) end if call RegPack(Buf, allocated(InData%NacFB)) if (allocated(InData%NacFB)) then - call RegPackBounds(Buf, 1, lbound(InData%NacFB), ubound(InData%NacFB)) + call RegPackBounds(Buf, 1, lbound(InData%NacFB, kind=B8Ki), ubound(InData%NacFB, kind=B8Ki)) call RegPack(Buf, InData%NacFB) end if call RegPack(Buf, allocated(InData%NacMB)) if (allocated(InData%NacMB)) then - call RegPackBounds(Buf, 1, lbound(InData%NacMB), ubound(InData%NacMB)) + call RegPackBounds(Buf, 1, lbound(InData%NacMB, kind=B8Ki), ubound(InData%NacMB, kind=B8Ki)) call RegPack(Buf, InData%NacMB) end if call RegPack(Buf, allocated(InData%BladeRootLoad)) if (allocated(InData%BladeRootLoad)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeRootLoad), ubound(InData%BladeRootLoad)) - LB(1:1) = lbound(InData%BladeRootLoad) - UB(1:1) = ubound(InData%BladeRootLoad) + call RegPackBounds(Buf, 1, lbound(InData%BladeRootLoad, kind=B8Ki), ubound(InData%BladeRootLoad, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeRootLoad, kind=B8Ki) + UB(1:1) = ubound(InData%BladeRootLoad, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeRootLoad(i1)) end do end if call RegPack(Buf, allocated(InData%B_L_2_R_P)) if (allocated(InData%B_L_2_R_P)) then - call RegPackBounds(Buf, 1, lbound(InData%B_L_2_R_P), ubound(InData%B_L_2_R_P)) - LB(1:1) = lbound(InData%B_L_2_R_P) - UB(1:1) = ubound(InData%B_L_2_R_P) + call RegPackBounds(Buf, 1, lbound(InData%B_L_2_R_P, kind=B8Ki), ubound(InData%B_L_2_R_P, kind=B8Ki)) + LB(1:1) = lbound(InData%B_L_2_R_P, kind=B8Ki) + UB(1:1) = ubound(InData%B_L_2_R_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%B_L_2_R_P(i1)) end do end if call RegPack(Buf, allocated(InData%BladeBuoyLoadPoint)) if (allocated(InData%BladeBuoyLoadPoint)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeBuoyLoadPoint), ubound(InData%BladeBuoyLoadPoint)) - LB(1:1) = lbound(InData%BladeBuoyLoadPoint) - UB(1:1) = ubound(InData%BladeBuoyLoadPoint) + call RegPackBounds(Buf, 1, lbound(InData%BladeBuoyLoadPoint, kind=B8Ki), ubound(InData%BladeBuoyLoadPoint, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeBuoyLoadPoint, kind=B8Ki) + UB(1:1) = ubound(InData%BladeBuoyLoadPoint, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeBuoyLoadPoint(i1)) end do end if call RegPack(Buf, allocated(InData%BladeBuoyLoad)) if (allocated(InData%BladeBuoyLoad)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeBuoyLoad), ubound(InData%BladeBuoyLoad)) - LB(1:1) = lbound(InData%BladeBuoyLoad) - UB(1:1) = ubound(InData%BladeBuoyLoad) + call RegPackBounds(Buf, 1, lbound(InData%BladeBuoyLoad, kind=B8Ki), ubound(InData%BladeBuoyLoad, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeBuoyLoad, kind=B8Ki) + UB(1:1) = ubound(InData%BladeBuoyLoad, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeBuoyLoad(i1)) end do end if call RegPack(Buf, allocated(InData%B_P_2_B_L)) if (allocated(InData%B_P_2_B_L)) then - call RegPackBounds(Buf, 1, lbound(InData%B_P_2_B_L), ubound(InData%B_P_2_B_L)) - LB(1:1) = lbound(InData%B_P_2_B_L) - UB(1:1) = ubound(InData%B_P_2_B_L) + call RegPackBounds(Buf, 1, lbound(InData%B_P_2_B_L, kind=B8Ki), ubound(InData%B_P_2_B_L, kind=B8Ki)) + LB(1:1) = lbound(InData%B_P_2_B_L, kind=B8Ki) + UB(1:1) = ubound(InData%B_P_2_B_L, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%B_P_2_B_L(i1)) end do @@ -4543,15 +4543,15 @@ subroutine AD_UnPackRotMiscVarType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotMiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotMiscVarType' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return call BEMT_UnpackMisc(Buf, OutData%BEMT) ! BEMT call BEMT_UnpackOutput(Buf, OutData%BEMT_y) ! BEMT_y - LB(1:1) = lbound(OutData%BEMT_u) - UB(1:1) = ubound(OutData%BEMT_u) + LB(1:1) = lbound(OutData%BEMT_u, kind=B8Ki) + UB(1:1) = ubound(OutData%BEMT_u, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_UnpackInput(Buf, OutData%BEMT_u(i1)) ! BEMT_u end do @@ -5070,16 +5070,16 @@ subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%rotors)) then - LB(1:1) = lbound(SrcMiscData%rotors) - UB(1:1) = ubound(SrcMiscData%rotors) + LB(1:1) = lbound(SrcMiscData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%rotors, kind=B8Ki) if (.not. allocated(DstMiscData%rotors)) then allocate(DstMiscData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5094,8 +5094,8 @@ subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%FVW_u)) then - LB(1:1) = lbound(SrcMiscData%FVW_u) - UB(1:1) = ubound(SrcMiscData%FVW_u) + LB(1:1) = lbound(SrcMiscData%FVW_u, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FVW_u, kind=B8Ki) if (.not. allocated(DstMiscData%FVW_u)) then allocate(DstMiscData%FVW_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5116,8 +5116,8 @@ subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%WindPos)) then - LB(1:2) = lbound(SrcMiscData%WindPos) - UB(1:2) = ubound(SrcMiscData%WindPos) + LB(1:2) = lbound(SrcMiscData%WindPos, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%WindPos, kind=B8Ki) if (.not. allocated(DstMiscData%WindPos)) then allocate(DstMiscData%WindPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5128,8 +5128,8 @@ subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%WindPos = SrcMiscData%WindPos end if if (allocated(SrcMiscData%WindVel)) then - LB(1:2) = lbound(SrcMiscData%WindVel) - UB(1:2) = ubound(SrcMiscData%WindVel) + LB(1:2) = lbound(SrcMiscData%WindVel, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%WindVel, kind=B8Ki) if (.not. allocated(DstMiscData%WindVel)) then allocate(DstMiscData%WindVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5140,8 +5140,8 @@ subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%WindVel = SrcMiscData%WindVel end if if (allocated(SrcMiscData%WindAcc)) then - LB(1:2) = lbound(SrcMiscData%WindAcc) - UB(1:2) = ubound(SrcMiscData%WindAcc) + LB(1:2) = lbound(SrcMiscData%WindAcc, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%WindAcc, kind=B8Ki) if (.not. allocated(DstMiscData%WindAcc)) then allocate(DstMiscData%WindAcc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5157,16 +5157,16 @@ subroutine AD_DestroyMisc(MiscData, ErrStat, ErrMsg) type(AD_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(MiscData%rotors)) then - LB(1:1) = lbound(MiscData%rotors) - UB(1:1) = ubound(MiscData%rotors) + LB(1:1) = lbound(MiscData%rotors, kind=B8Ki) + UB(1:1) = ubound(MiscData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotMiscVarType(MiscData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5174,8 +5174,8 @@ subroutine AD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%rotors) end if if (allocated(MiscData%FVW_u)) then - LB(1:1) = lbound(MiscData%FVW_u) - UB(1:1) = ubound(MiscData%FVW_u) + LB(1:1) = lbound(MiscData%FVW_u, kind=B8Ki) + UB(1:1) = ubound(MiscData%FVW_u, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyInput(MiscData%FVW_u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5201,23 +5201,23 @@ subroutine AD_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotMiscVarType(Buf, InData%rotors(i1)) end do end if call RegPack(Buf, allocated(InData%FVW_u)) if (allocated(InData%FVW_u)) then - call RegPackBounds(Buf, 1, lbound(InData%FVW_u), ubound(InData%FVW_u)) - LB(1:1) = lbound(InData%FVW_u) - UB(1:1) = ubound(InData%FVW_u) + call RegPackBounds(Buf, 1, lbound(InData%FVW_u, kind=B8Ki), ubound(InData%FVW_u, kind=B8Ki)) + LB(1:1) = lbound(InData%FVW_u, kind=B8Ki) + UB(1:1) = ubound(InData%FVW_u, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackInput(Buf, InData%FVW_u(i1)) end do @@ -5226,17 +5226,17 @@ subroutine AD_PackMisc(Buf, Indata) call FVW_PackMisc(Buf, InData%FVW) call RegPack(Buf, allocated(InData%WindPos)) if (allocated(InData%WindPos)) then - call RegPackBounds(Buf, 2, lbound(InData%WindPos), ubound(InData%WindPos)) + call RegPackBounds(Buf, 2, lbound(InData%WindPos, kind=B8Ki), ubound(InData%WindPos, kind=B8Ki)) call RegPack(Buf, InData%WindPos) end if call RegPack(Buf, allocated(InData%WindVel)) if (allocated(InData%WindVel)) then - call RegPackBounds(Buf, 2, lbound(InData%WindVel), ubound(InData%WindVel)) + call RegPackBounds(Buf, 2, lbound(InData%WindVel, kind=B8Ki), ubound(InData%WindVel, kind=B8Ki)) call RegPack(Buf, InData%WindVel) end if call RegPack(Buf, allocated(InData%WindAcc)) if (allocated(InData%WindAcc)) then - call RegPackBounds(Buf, 2, lbound(InData%WindAcc), ubound(InData%WindAcc)) + call RegPackBounds(Buf, 2, lbound(InData%WindAcc, kind=B8Ki), ubound(InData%WindAcc, kind=B8Ki)) call RegPack(Buf, InData%WindAcc) end if if (RegCheckErr(Buf, RoutineName)) return @@ -5246,8 +5246,8 @@ subroutine AD_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5333,8 +5333,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotParameterType' @@ -5344,8 +5344,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%NumBlNds = SrcRotParameterTypeData%NumBlNds DstRotParameterTypeData%NumTwrNds = SrcRotParameterTypeData%NumTwrNds if (allocated(SrcRotParameterTypeData%TwrDiam)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrDiam) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrDiam) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrDiam, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrDiam, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrDiam)) then allocate(DstRotParameterTypeData%TwrDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5356,8 +5356,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrDiam = SrcRotParameterTypeData%TwrDiam end if if (allocated(SrcRotParameterTypeData%TwrCd)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrCd) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrCd) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrCd, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrCd, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrCd)) then allocate(DstRotParameterTypeData%TwrCd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5368,8 +5368,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrCd = SrcRotParameterTypeData%TwrCd end if if (allocated(SrcRotParameterTypeData%TwrTI)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrTI) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrTI) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrTI, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrTI, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrTI)) then allocate(DstRotParameterTypeData%TwrTI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5380,8 +5380,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrTI = SrcRotParameterTypeData%TwrTI end if if (allocated(SrcRotParameterTypeData%BlTwist)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlTwist) - UB(1:2) = ubound(SrcRotParameterTypeData%BlTwist) + LB(1:2) = lbound(SrcRotParameterTypeData%BlTwist, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlTwist, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlTwist)) then allocate(DstRotParameterTypeData%BlTwist(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5392,8 +5392,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlTwist = SrcRotParameterTypeData%BlTwist end if if (allocated(SrcRotParameterTypeData%TwrCb)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrCb) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrCb) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrCb, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrCb, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrCb)) then allocate(DstRotParameterTypeData%TwrCb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5404,8 +5404,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrCb = SrcRotParameterTypeData%TwrCb end if if (allocated(SrcRotParameterTypeData%BlCenBn)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBn) - UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBn) + LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBn, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBn, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlCenBn)) then allocate(DstRotParameterTypeData%BlCenBn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5416,8 +5416,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlCenBn = SrcRotParameterTypeData%BlCenBn end if if (allocated(SrcRotParameterTypeData%BlCenBt)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBt) - UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBt) + LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBt, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBt, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlCenBt)) then allocate(DstRotParameterTypeData%BlCenBt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5434,8 +5434,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%VolBl = SrcRotParameterTypeData%VolBl DstRotParameterTypeData%VolTwr = SrcRotParameterTypeData%VolTwr if (allocated(SrcRotParameterTypeData%BlRad)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlRad) - UB(1:2) = ubound(SrcRotParameterTypeData%BlRad) + LB(1:2) = lbound(SrcRotParameterTypeData%BlRad, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlRad, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlRad)) then allocate(DstRotParameterTypeData%BlRad(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5446,8 +5446,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlRad = SrcRotParameterTypeData%BlRad end if if (allocated(SrcRotParameterTypeData%BlDL)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlDL) - UB(1:2) = ubound(SrcRotParameterTypeData%BlDL) + LB(1:2) = lbound(SrcRotParameterTypeData%BlDL, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlDL, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlDL)) then allocate(DstRotParameterTypeData%BlDL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5458,8 +5458,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlDL = SrcRotParameterTypeData%BlDL end if if (allocated(SrcRotParameterTypeData%BlTaper)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlTaper) - UB(1:2) = ubound(SrcRotParameterTypeData%BlTaper) + LB(1:2) = lbound(SrcRotParameterTypeData%BlTaper, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlTaper, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlTaper)) then allocate(DstRotParameterTypeData%BlTaper(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5470,8 +5470,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlTaper = SrcRotParameterTypeData%BlTaper end if if (allocated(SrcRotParameterTypeData%BlAxCent)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlAxCent) - UB(1:2) = ubound(SrcRotParameterTypeData%BlAxCent) + LB(1:2) = lbound(SrcRotParameterTypeData%BlAxCent, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%BlAxCent, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BlAxCent)) then allocate(DstRotParameterTypeData%BlAxCent(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5482,8 +5482,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlAxCent = SrcRotParameterTypeData%BlAxCent end if if (allocated(SrcRotParameterTypeData%TwrRad)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrRad) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrRad) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrRad, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrRad, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrRad)) then allocate(DstRotParameterTypeData%TwrRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5494,8 +5494,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrRad = SrcRotParameterTypeData%TwrRad end if if (allocated(SrcRotParameterTypeData%TwrDL)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrDL) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrDL) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrDL, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrDL, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrDL)) then allocate(DstRotParameterTypeData%TwrDL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5506,8 +5506,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrDL = SrcRotParameterTypeData%TwrDL end if if (allocated(SrcRotParameterTypeData%TwrTaper)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrTaper) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrTaper) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrTaper, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrTaper, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrTaper)) then allocate(DstRotParameterTypeData%TwrTaper(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5518,8 +5518,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrTaper = SrcRotParameterTypeData%TwrTaper end if if (allocated(SrcRotParameterTypeData%TwrAxCent)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrAxCent) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrAxCent) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrAxCent, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrAxCent, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%TwrAxCent)) then allocate(DstRotParameterTypeData%TwrAxCent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5536,8 +5536,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotParameterTypeData%Jac_u_indx)) then - LB(1:2) = lbound(SrcRotParameterTypeData%Jac_u_indx) - UB(1:2) = ubound(SrcRotParameterTypeData%Jac_u_indx) + LB(1:2) = lbound(SrcRotParameterTypeData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcRotParameterTypeData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%Jac_u_indx)) then allocate(DstRotParameterTypeData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5548,8 +5548,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%Jac_u_indx = SrcRotParameterTypeData%Jac_u_indx end if if (allocated(SrcRotParameterTypeData%du)) then - LB(1:1) = lbound(SrcRotParameterTypeData%du) - UB(1:1) = ubound(SrcRotParameterTypeData%du) + LB(1:1) = lbound(SrcRotParameterTypeData%du, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%du, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%du)) then allocate(DstRotParameterTypeData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5560,8 +5560,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%du = SrcRotParameterTypeData%du end if if (allocated(SrcRotParameterTypeData%dx)) then - LB(1:1) = lbound(SrcRotParameterTypeData%dx) - UB(1:1) = ubound(SrcRotParameterTypeData%dx) + LB(1:1) = lbound(SrcRotParameterTypeData%dx, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%dx, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%dx)) then allocate(DstRotParameterTypeData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5594,8 +5594,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%NumOuts = SrcRotParameterTypeData%NumOuts DstRotParameterTypeData%RootName = SrcRotParameterTypeData%RootName if (allocated(SrcRotParameterTypeData%OutParam)) then - LB(1:1) = lbound(SrcRotParameterTypeData%OutParam) - UB(1:1) = ubound(SrcRotParameterTypeData%OutParam) + LB(1:1) = lbound(SrcRotParameterTypeData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%OutParam, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%OutParam)) then allocate(DstRotParameterTypeData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5616,8 +5616,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BldNd_NumOuts = SrcRotParameterTypeData%BldNd_NumOuts DstRotParameterTypeData%BldNd_TotNumOuts = SrcRotParameterTypeData%BldNd_TotNumOuts if (allocated(SrcRotParameterTypeData%BldNd_OutParam)) then - LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_OutParam) - UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_OutParam) + LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_OutParam, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BldNd_OutParam)) then allocate(DstRotParameterTypeData%BldNd_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5632,8 +5632,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD end do end if if (allocated(SrcRotParameterTypeData%BldNd_BlOutNd)) then - LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_BlOutNd) - UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_BlOutNd) + LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_BlOutNd, kind=B8Ki) + UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_BlOutNd, kind=B8Ki) if (.not. allocated(DstRotParameterTypeData%BldNd_BlOutNd)) then allocate(DstRotParameterTypeData%BldNd_BlOutNd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5654,8 +5654,8 @@ subroutine AD_DestroyRotParameterType(RotParameterTypeData, ErrStat, ErrMsg) type(RotParameterType), intent(inout) :: RotParameterTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotParameterType' @@ -5720,8 +5720,8 @@ subroutine AD_DestroyRotParameterType(RotParameterTypeData, ErrStat, ErrMsg) deallocate(RotParameterTypeData%dx) end if if (allocated(RotParameterTypeData%OutParam)) then - LB(1:1) = lbound(RotParameterTypeData%OutParam) - UB(1:1) = ubound(RotParameterTypeData%OutParam) + LB(1:1) = lbound(RotParameterTypeData%OutParam, kind=B8Ki) + UB(1:1) = ubound(RotParameterTypeData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(RotParameterTypeData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5729,8 +5729,8 @@ subroutine AD_DestroyRotParameterType(RotParameterTypeData, ErrStat, ErrMsg) deallocate(RotParameterTypeData%OutParam) end if if (allocated(RotParameterTypeData%BldNd_OutParam)) then - LB(1:1) = lbound(RotParameterTypeData%BldNd_OutParam) - UB(1:1) = ubound(RotParameterTypeData%BldNd_OutParam) + LB(1:1) = lbound(RotParameterTypeData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(RotParameterTypeData%BldNd_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(RotParameterTypeData%BldNd_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5748,45 +5748,45 @@ subroutine AD_PackRotParameterType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotParameterType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%NumBlades) call RegPack(Buf, InData%NumBlNds) call RegPack(Buf, InData%NumTwrNds) call RegPack(Buf, allocated(InData%TwrDiam)) if (allocated(InData%TwrDiam)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrDiam), ubound(InData%TwrDiam)) + call RegPackBounds(Buf, 1, lbound(InData%TwrDiam, kind=B8Ki), ubound(InData%TwrDiam, kind=B8Ki)) call RegPack(Buf, InData%TwrDiam) end if call RegPack(Buf, allocated(InData%TwrCd)) if (allocated(InData%TwrCd)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrCd), ubound(InData%TwrCd)) + call RegPackBounds(Buf, 1, lbound(InData%TwrCd, kind=B8Ki), ubound(InData%TwrCd, kind=B8Ki)) call RegPack(Buf, InData%TwrCd) end if call RegPack(Buf, allocated(InData%TwrTI)) if (allocated(InData%TwrTI)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrTI), ubound(InData%TwrTI)) + call RegPackBounds(Buf, 1, lbound(InData%TwrTI, kind=B8Ki), ubound(InData%TwrTI, kind=B8Ki)) call RegPack(Buf, InData%TwrTI) end if call RegPack(Buf, allocated(InData%BlTwist)) if (allocated(InData%BlTwist)) then - call RegPackBounds(Buf, 2, lbound(InData%BlTwist), ubound(InData%BlTwist)) + call RegPackBounds(Buf, 2, lbound(InData%BlTwist, kind=B8Ki), ubound(InData%BlTwist, kind=B8Ki)) call RegPack(Buf, InData%BlTwist) end if call RegPack(Buf, allocated(InData%TwrCb)) if (allocated(InData%TwrCb)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrCb), ubound(InData%TwrCb)) + call RegPackBounds(Buf, 1, lbound(InData%TwrCb, kind=B8Ki), ubound(InData%TwrCb, kind=B8Ki)) call RegPack(Buf, InData%TwrCb) end if call RegPack(Buf, allocated(InData%BlCenBn)) if (allocated(InData%BlCenBn)) then - call RegPackBounds(Buf, 2, lbound(InData%BlCenBn), ubound(InData%BlCenBn)) + call RegPackBounds(Buf, 2, lbound(InData%BlCenBn, kind=B8Ki), ubound(InData%BlCenBn, kind=B8Ki)) call RegPack(Buf, InData%BlCenBn) end if call RegPack(Buf, allocated(InData%BlCenBt)) if (allocated(InData%BlCenBt)) then - call RegPackBounds(Buf, 2, lbound(InData%BlCenBt), ubound(InData%BlCenBt)) + call RegPackBounds(Buf, 2, lbound(InData%BlCenBt, kind=B8Ki), ubound(InData%BlCenBt, kind=B8Ki)) call RegPack(Buf, InData%BlCenBt) end if call RegPack(Buf, InData%VolHub) @@ -5797,59 +5797,59 @@ subroutine AD_PackRotParameterType(Buf, Indata) call RegPack(Buf, InData%VolTwr) call RegPack(Buf, allocated(InData%BlRad)) if (allocated(InData%BlRad)) then - call RegPackBounds(Buf, 2, lbound(InData%BlRad), ubound(InData%BlRad)) + call RegPackBounds(Buf, 2, lbound(InData%BlRad, kind=B8Ki), ubound(InData%BlRad, kind=B8Ki)) call RegPack(Buf, InData%BlRad) end if call RegPack(Buf, allocated(InData%BlDL)) if (allocated(InData%BlDL)) then - call RegPackBounds(Buf, 2, lbound(InData%BlDL), ubound(InData%BlDL)) + call RegPackBounds(Buf, 2, lbound(InData%BlDL, kind=B8Ki), ubound(InData%BlDL, kind=B8Ki)) call RegPack(Buf, InData%BlDL) end if call RegPack(Buf, allocated(InData%BlTaper)) if (allocated(InData%BlTaper)) then - call RegPackBounds(Buf, 2, lbound(InData%BlTaper), ubound(InData%BlTaper)) + call RegPackBounds(Buf, 2, lbound(InData%BlTaper, kind=B8Ki), ubound(InData%BlTaper, kind=B8Ki)) call RegPack(Buf, InData%BlTaper) end if call RegPack(Buf, allocated(InData%BlAxCent)) if (allocated(InData%BlAxCent)) then - call RegPackBounds(Buf, 2, lbound(InData%BlAxCent), ubound(InData%BlAxCent)) + call RegPackBounds(Buf, 2, lbound(InData%BlAxCent, kind=B8Ki), ubound(InData%BlAxCent, kind=B8Ki)) call RegPack(Buf, InData%BlAxCent) end if call RegPack(Buf, allocated(InData%TwrRad)) if (allocated(InData%TwrRad)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrRad), ubound(InData%TwrRad)) + call RegPackBounds(Buf, 1, lbound(InData%TwrRad, kind=B8Ki), ubound(InData%TwrRad, kind=B8Ki)) call RegPack(Buf, InData%TwrRad) end if call RegPack(Buf, allocated(InData%TwrDL)) if (allocated(InData%TwrDL)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrDL), ubound(InData%TwrDL)) + call RegPackBounds(Buf, 1, lbound(InData%TwrDL, kind=B8Ki), ubound(InData%TwrDL, kind=B8Ki)) call RegPack(Buf, InData%TwrDL) end if call RegPack(Buf, allocated(InData%TwrTaper)) if (allocated(InData%TwrTaper)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrTaper), ubound(InData%TwrTaper)) + call RegPackBounds(Buf, 1, lbound(InData%TwrTaper, kind=B8Ki), ubound(InData%TwrTaper, kind=B8Ki)) call RegPack(Buf, InData%TwrTaper) end if call RegPack(Buf, allocated(InData%TwrAxCent)) if (allocated(InData%TwrAxCent)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrAxCent), ubound(InData%TwrAxCent)) + call RegPackBounds(Buf, 1, lbound(InData%TwrAxCent, kind=B8Ki), ubound(InData%TwrAxCent, kind=B8Ki)) call RegPack(Buf, InData%TwrAxCent) end if call BEMT_PackParam(Buf, InData%BEMT) call AA_PackParam(Buf, InData%AA) call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, allocated(InData%dx)) if (allocated(InData%dx)) then - call RegPackBounds(Buf, 1, lbound(InData%dx), ubound(InData%dx)) + call RegPackBounds(Buf, 1, lbound(InData%dx, kind=B8Ki), ubound(InData%dx, kind=B8Ki)) call RegPack(Buf, InData%dx) end if call RegPack(Buf, InData%Jac_ny) @@ -5876,9 +5876,9 @@ subroutine AD_PackRotParameterType(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -5891,16 +5891,16 @@ subroutine AD_PackRotParameterType(Buf, Indata) call RegPack(Buf, InData%BldNd_TotNumOuts) call RegPack(Buf, allocated(InData%BldNd_OutParam)) if (allocated(InData%BldNd_OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutParam), ubound(InData%BldNd_OutParam)) - LB(1:1) = lbound(InData%BldNd_OutParam) - UB(1:1) = ubound(InData%BldNd_OutParam) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutParam, kind=B8Ki), ubound(InData%BldNd_OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%BldNd_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%BldNd_OutParam(i1)) end do end if call RegPack(Buf, allocated(InData%BldNd_BlOutNd)) if (allocated(InData%BldNd_BlOutNd)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_BlOutNd), ubound(InData%BldNd_BlOutNd)) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_BlOutNd, kind=B8Ki), ubound(InData%BldNd_BlOutNd, kind=B8Ki)) call RegPack(Buf, InData%BldNd_BlOutNd) end if call RegPack(Buf, InData%BldNd_BladesOut) @@ -5913,8 +5913,8 @@ subroutine AD_UnPackRotParameterType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotParameterType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6303,16 +6303,16 @@ subroutine AD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcParamData%rotors)) then - LB(1:1) = lbound(SrcParamData%rotors) - UB(1:1) = ubound(SrcParamData%rotors) + LB(1:1) = lbound(SrcParamData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rotors, kind=B8Ki) if (.not. allocated(DstParamData%rotors)) then allocate(DstParamData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6329,8 +6329,8 @@ subroutine AD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DT = SrcParamData%DT DstParamData%RootName = SrcParamData%RootName if (allocated(SrcParamData%AFI)) then - LB(1:1) = lbound(SrcParamData%AFI) - UB(1:1) = ubound(SrcParamData%AFI) + LB(1:1) = lbound(SrcParamData%AFI, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%AFI, kind=B8Ki) if (.not. allocated(DstParamData%AFI)) then allocate(DstParamData%AFI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6358,16 +6358,16 @@ subroutine AD_DestroyParam(ParamData, ErrStat, ErrMsg) type(AD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(ParamData%rotors)) then - LB(1:1) = lbound(ParamData%rotors) - UB(1:1) = ubound(ParamData%rotors) + LB(1:1) = lbound(ParamData%rotors, kind=B8Ki) + UB(1:1) = ubound(ParamData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotParameterType(ParamData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6375,8 +6375,8 @@ subroutine AD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%rotors) end if if (allocated(ParamData%AFI)) then - LB(1:1) = lbound(ParamData%AFI) - UB(1:1) = ubound(ParamData%AFI) + LB(1:1) = lbound(ParamData%AFI, kind=B8Ki) + UB(1:1) = ubound(ParamData%AFI, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_DestroyParam(ParamData%AFI(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6392,15 +6392,15 @@ subroutine AD_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotParameterType(Buf, InData%rotors(i1)) end do @@ -6409,9 +6409,9 @@ subroutine AD_PackParam(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%AFI)) if (allocated(InData%AFI)) then - call RegPackBounds(Buf, 1, lbound(InData%AFI), ubound(InData%AFI)) - LB(1:1) = lbound(InData%AFI) - UB(1:1) = ubound(InData%AFI) + call RegPackBounds(Buf, 1, lbound(InData%AFI, kind=B8Ki), ubound(InData%AFI, kind=B8Ki)) + LB(1:1) = lbound(InData%AFI, kind=B8Ki) + UB(1:1) = ubound(InData%AFI, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_PackParam(Buf, InData%AFI(i1)) end do @@ -6435,11 +6435,11 @@ subroutine AD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (allocated(OutData%rotors)) deallocate(OutData%rotors) @@ -6513,14 +6513,14 @@ subroutine AD_CopyBldInputType(SrcBldInputTypeData, DstBldInputTypeData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyBldInputType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcBldInputTypeData%InflowOnBlade)) then - LB(1:2) = lbound(SrcBldInputTypeData%InflowOnBlade) - UB(1:2) = ubound(SrcBldInputTypeData%InflowOnBlade) + LB(1:2) = lbound(SrcBldInputTypeData%InflowOnBlade, kind=B8Ki) + UB(1:2) = ubound(SrcBldInputTypeData%InflowOnBlade, kind=B8Ki) if (.not. allocated(DstBldInputTypeData%InflowOnBlade)) then allocate(DstBldInputTypeData%InflowOnBlade(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6531,8 +6531,8 @@ subroutine AD_CopyBldInputType(SrcBldInputTypeData, DstBldInputTypeData, CtrlCod DstBldInputTypeData%InflowOnBlade = SrcBldInputTypeData%InflowOnBlade end if if (allocated(SrcBldInputTypeData%AccelOnBlade)) then - LB(1:2) = lbound(SrcBldInputTypeData%AccelOnBlade) - UB(1:2) = ubound(SrcBldInputTypeData%AccelOnBlade) + LB(1:2) = lbound(SrcBldInputTypeData%AccelOnBlade, kind=B8Ki) + UB(1:2) = ubound(SrcBldInputTypeData%AccelOnBlade, kind=B8Ki) if (.not. allocated(DstBldInputTypeData%AccelOnBlade)) then allocate(DstBldInputTypeData%AccelOnBlade(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6566,12 +6566,12 @@ subroutine AD_PackBldInputType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%InflowOnBlade)) if (allocated(InData%InflowOnBlade)) then - call RegPackBounds(Buf, 2, lbound(InData%InflowOnBlade), ubound(InData%InflowOnBlade)) + call RegPackBounds(Buf, 2, lbound(InData%InflowOnBlade, kind=B8Ki), ubound(InData%InflowOnBlade, kind=B8Ki)) call RegPack(Buf, InData%InflowOnBlade) end if call RegPack(Buf, allocated(InData%AccelOnBlade)) if (allocated(InData%AccelOnBlade)) then - call RegPackBounds(Buf, 2, lbound(InData%AccelOnBlade), ubound(InData%AccelOnBlade)) + call RegPackBounds(Buf, 2, lbound(InData%AccelOnBlade, kind=B8Ki), ubound(InData%AccelOnBlade, kind=B8Ki)) call RegPack(Buf, InData%AccelOnBlade) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6581,7 +6581,7 @@ subroutine AD_UnPackBldInputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BldInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackBldInputType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6621,8 +6621,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotInputType' @@ -6638,8 +6638,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotInputTypeData%BladeRootMotion)) then - LB(1:1) = lbound(SrcRotInputTypeData%BladeRootMotion) - UB(1:1) = ubound(SrcRotInputTypeData%BladeRootMotion) + LB(1:1) = lbound(SrcRotInputTypeData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputTypeData%BladeRootMotion, kind=B8Ki) if (.not. allocated(DstRotInputTypeData%BladeRootMotion)) then allocate(DstRotInputTypeData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6654,8 +6654,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod end do end if if (allocated(SrcRotInputTypeData%BladeMotion)) then - LB(1:1) = lbound(SrcRotInputTypeData%BladeMotion) - UB(1:1) = ubound(SrcRotInputTypeData%BladeMotion) + LB(1:1) = lbound(SrcRotInputTypeData%BladeMotion, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputTypeData%BladeMotion, kind=B8Ki) if (.not. allocated(DstRotInputTypeData%BladeMotion)) then allocate(DstRotInputTypeData%BladeMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6673,8 +6673,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotInputTypeData%Bld)) then - LB(1:1) = lbound(SrcRotInputTypeData%Bld) - UB(1:1) = ubound(SrcRotInputTypeData%Bld) + LB(1:1) = lbound(SrcRotInputTypeData%Bld, kind=B8Ki) + UB(1:1) = ubound(SrcRotInputTypeData%Bld, kind=B8Ki) if (.not. allocated(DstRotInputTypeData%Bld)) then allocate(DstRotInputTypeData%Bld(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6689,8 +6689,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod end do end if if (allocated(SrcRotInputTypeData%InflowOnTower)) then - LB(1:2) = lbound(SrcRotInputTypeData%InflowOnTower) - UB(1:2) = ubound(SrcRotInputTypeData%InflowOnTower) + LB(1:2) = lbound(SrcRotInputTypeData%InflowOnTower, kind=B8Ki) + UB(1:2) = ubound(SrcRotInputTypeData%InflowOnTower, kind=B8Ki) if (.not. allocated(DstRotInputTypeData%InflowOnTower)) then allocate(DstRotInputTypeData%InflowOnTower(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6701,8 +6701,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod DstRotInputTypeData%InflowOnTower = SrcRotInputTypeData%InflowOnTower end if if (allocated(SrcRotInputTypeData%AccelOnTower)) then - LB(1:2) = lbound(SrcRotInputTypeData%AccelOnTower) - UB(1:2) = ubound(SrcRotInputTypeData%AccelOnTower) + LB(1:2) = lbound(SrcRotInputTypeData%AccelOnTower, kind=B8Ki) + UB(1:2) = ubound(SrcRotInputTypeData%AccelOnTower, kind=B8Ki) if (.not. allocated(DstRotInputTypeData%AccelOnTower)) then allocate(DstRotInputTypeData%AccelOnTower(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6717,8 +6717,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod DstRotInputTypeData%InflowOnTailFin = SrcRotInputTypeData%InflowOnTailFin DstRotInputTypeData%AvgDiskVel = SrcRotInputTypeData%AvgDiskVel if (allocated(SrcRotInputTypeData%UserProp)) then - LB(1:2) = lbound(SrcRotInputTypeData%UserProp) - UB(1:2) = ubound(SrcRotInputTypeData%UserProp) + LB(1:2) = lbound(SrcRotInputTypeData%UserProp, kind=B8Ki) + UB(1:2) = ubound(SrcRotInputTypeData%UserProp, kind=B8Ki) if (.not. allocated(DstRotInputTypeData%UserProp)) then allocate(DstRotInputTypeData%UserProp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6734,8 +6734,8 @@ subroutine AD_DestroyRotInputType(RotInputTypeData, ErrStat, ErrMsg) type(RotInputType), intent(inout) :: RotInputTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotInputType' @@ -6748,8 +6748,8 @@ subroutine AD_DestroyRotInputType(RotInputTypeData, ErrStat, ErrMsg) call MeshDestroy( RotInputTypeData%HubMotion, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotInputTypeData%BladeRootMotion)) then - LB(1:1) = lbound(RotInputTypeData%BladeRootMotion) - UB(1:1) = ubound(RotInputTypeData%BladeRootMotion) + LB(1:1) = lbound(RotInputTypeData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(RotInputTypeData%BladeRootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotInputTypeData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6757,8 +6757,8 @@ subroutine AD_DestroyRotInputType(RotInputTypeData, ErrStat, ErrMsg) deallocate(RotInputTypeData%BladeRootMotion) end if if (allocated(RotInputTypeData%BladeMotion)) then - LB(1:1) = lbound(RotInputTypeData%BladeMotion) - UB(1:1) = ubound(RotInputTypeData%BladeMotion) + LB(1:1) = lbound(RotInputTypeData%BladeMotion, kind=B8Ki) + UB(1:1) = ubound(RotInputTypeData%BladeMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotInputTypeData%BladeMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6768,8 +6768,8 @@ subroutine AD_DestroyRotInputType(RotInputTypeData, ErrStat, ErrMsg) call MeshDestroy( RotInputTypeData%TFinMotion, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotInputTypeData%Bld)) then - LB(1:1) = lbound(RotInputTypeData%Bld) - UB(1:1) = ubound(RotInputTypeData%Bld) + LB(1:1) = lbound(RotInputTypeData%Bld, kind=B8Ki) + UB(1:1) = ubound(RotInputTypeData%Bld, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyBldInputType(RotInputTypeData%Bld(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6791,26 +6791,26 @@ subroutine AD_PackRotInputType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInputType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call MeshPack(Buf, InData%NacelleMotion) call MeshPack(Buf, InData%TowerMotion) call MeshPack(Buf, InData%HubMotion) call RegPack(Buf, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) - LB(1:1) = lbound(InData%BladeRootMotion) - UB(1:1) = ubound(InData%BladeRootMotion) + call RegPackBounds(Buf, 1, lbound(InData%BladeRootMotion, kind=B8Ki), ubound(InData%BladeRootMotion, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(InData%BladeRootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeRootMotion(i1)) end do end if call RegPack(Buf, allocated(InData%BladeMotion)) if (allocated(InData%BladeMotion)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeMotion), ubound(InData%BladeMotion)) - LB(1:1) = lbound(InData%BladeMotion) - UB(1:1) = ubound(InData%BladeMotion) + call RegPackBounds(Buf, 1, lbound(InData%BladeMotion, kind=B8Ki), ubound(InData%BladeMotion, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeMotion, kind=B8Ki) + UB(1:1) = ubound(InData%BladeMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeMotion(i1)) end do @@ -6818,21 +6818,21 @@ subroutine AD_PackRotInputType(Buf, Indata) call MeshPack(Buf, InData%TFinMotion) call RegPack(Buf, allocated(InData%Bld)) if (allocated(InData%Bld)) then - call RegPackBounds(Buf, 1, lbound(InData%Bld), ubound(InData%Bld)) - LB(1:1) = lbound(InData%Bld) - UB(1:1) = ubound(InData%Bld) + call RegPackBounds(Buf, 1, lbound(InData%Bld, kind=B8Ki), ubound(InData%Bld, kind=B8Ki)) + LB(1:1) = lbound(InData%Bld, kind=B8Ki) + UB(1:1) = ubound(InData%Bld, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackBldInputType(Buf, InData%Bld(i1)) end do end if call RegPack(Buf, allocated(InData%InflowOnTower)) if (allocated(InData%InflowOnTower)) then - call RegPackBounds(Buf, 2, lbound(InData%InflowOnTower), ubound(InData%InflowOnTower)) + call RegPackBounds(Buf, 2, lbound(InData%InflowOnTower, kind=B8Ki), ubound(InData%InflowOnTower, kind=B8Ki)) call RegPack(Buf, InData%InflowOnTower) end if call RegPack(Buf, allocated(InData%AccelOnTower)) if (allocated(InData%AccelOnTower)) then - call RegPackBounds(Buf, 2, lbound(InData%AccelOnTower), ubound(InData%AccelOnTower)) + call RegPackBounds(Buf, 2, lbound(InData%AccelOnTower, kind=B8Ki), ubound(InData%AccelOnTower, kind=B8Ki)) call RegPack(Buf, InData%AccelOnTower) end if call RegPack(Buf, InData%InflowOnHub) @@ -6841,7 +6841,7 @@ subroutine AD_PackRotInputType(Buf, Indata) call RegPack(Buf, InData%AvgDiskVel) call RegPack(Buf, allocated(InData%UserProp)) if (allocated(InData%UserProp)) then - call RegPackBounds(Buf, 2, lbound(InData%UserProp), ubound(InData%UserProp)) + call RegPackBounds(Buf, 2, lbound(InData%UserProp, kind=B8Ki), ubound(InData%UserProp, kind=B8Ki)) call RegPack(Buf, InData%UserProp) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6851,8 +6851,8 @@ subroutine AD_UnPackRotInputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInputType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6963,16 +6963,16 @@ subroutine AD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%rotors)) then - LB(1:1) = lbound(SrcInputData%rotors) - UB(1:1) = ubound(SrcInputData%rotors) + LB(1:1) = lbound(SrcInputData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%rotors, kind=B8Ki) if (.not. allocated(DstInputData%rotors)) then allocate(DstInputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6987,8 +6987,8 @@ subroutine AD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%InflowWakeVel)) then - LB(1:2) = lbound(SrcInputData%InflowWakeVel) - UB(1:2) = ubound(SrcInputData%InflowWakeVel) + LB(1:2) = lbound(SrcInputData%InflowWakeVel, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%InflowWakeVel, kind=B8Ki) if (.not. allocated(DstInputData%InflowWakeVel)) then allocate(DstInputData%InflowWakeVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7004,16 +7004,16 @@ subroutine AD_DestroyInput(InputData, ErrStat, ErrMsg) type(AD_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%rotors)) then - LB(1:1) = lbound(InputData%rotors) - UB(1:1) = ubound(InputData%rotors) + LB(1:1) = lbound(InputData%rotors, kind=B8Ki) + UB(1:1) = ubound(InputData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotInputType(InputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7029,21 +7029,21 @@ subroutine AD_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotInputType(Buf, InData%rotors(i1)) end do end if call RegPack(Buf, allocated(InData%InflowWakeVel)) if (allocated(InData%InflowWakeVel)) then - call RegPackBounds(Buf, 2, lbound(InData%InflowWakeVel), ubound(InData%InflowWakeVel)) + call RegPackBounds(Buf, 2, lbound(InData%InflowWakeVel, kind=B8Ki), ubound(InData%InflowWakeVel, kind=B8Ki)) call RegPack(Buf, InData%InflowWakeVel) end if if (RegCheckErr(Buf, RoutineName)) return @@ -7053,8 +7053,8 @@ subroutine AD_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7095,8 +7095,8 @@ subroutine AD_CopyRotOutputType(SrcRotOutputTypeData, DstRotOutputTypeData, Ctrl integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotOutputType' @@ -7112,8 +7112,8 @@ subroutine AD_CopyRotOutputType(SrcRotOutputTypeData, DstRotOutputTypeData, Ctrl call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotOutputTypeData%BladeLoad)) then - LB(1:1) = lbound(SrcRotOutputTypeData%BladeLoad) - UB(1:1) = ubound(SrcRotOutputTypeData%BladeLoad) + LB(1:1) = lbound(SrcRotOutputTypeData%BladeLoad, kind=B8Ki) + UB(1:1) = ubound(SrcRotOutputTypeData%BladeLoad, kind=B8Ki) if (.not. allocated(DstRotOutputTypeData%BladeLoad)) then allocate(DstRotOutputTypeData%BladeLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7131,8 +7131,8 @@ subroutine AD_CopyRotOutputType(SrcRotOutputTypeData, DstRotOutputTypeData, Ctrl call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotOutputTypeData%WriteOutput)) then - LB(1:1) = lbound(SrcRotOutputTypeData%WriteOutput) - UB(1:1) = ubound(SrcRotOutputTypeData%WriteOutput) + LB(1:1) = lbound(SrcRotOutputTypeData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcRotOutputTypeData%WriteOutput, kind=B8Ki) if (.not. allocated(DstRotOutputTypeData%WriteOutput)) then allocate(DstRotOutputTypeData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7148,8 +7148,8 @@ subroutine AD_DestroyRotOutputType(RotOutputTypeData, ErrStat, ErrMsg) type(RotOutputType), intent(inout) :: RotOutputTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotOutputType' @@ -7162,8 +7162,8 @@ subroutine AD_DestroyRotOutputType(RotOutputTypeData, ErrStat, ErrMsg) call MeshDestroy( RotOutputTypeData%TowerLoad, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(RotOutputTypeData%BladeLoad)) then - LB(1:1) = lbound(RotOutputTypeData%BladeLoad) - UB(1:1) = ubound(RotOutputTypeData%BladeLoad) + LB(1:1) = lbound(RotOutputTypeData%BladeLoad, kind=B8Ki) + UB(1:1) = ubound(RotOutputTypeData%BladeLoad, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( RotOutputTypeData%BladeLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7181,17 +7181,17 @@ subroutine AD_PackRotOutputType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(RotOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotOutputType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call MeshPack(Buf, InData%NacelleLoad) call MeshPack(Buf, InData%HubLoad) call MeshPack(Buf, InData%TowerLoad) call RegPack(Buf, allocated(InData%BladeLoad)) if (allocated(InData%BladeLoad)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeLoad), ubound(InData%BladeLoad)) - LB(1:1) = lbound(InData%BladeLoad) - UB(1:1) = ubound(InData%BladeLoad) + call RegPackBounds(Buf, 1, lbound(InData%BladeLoad, kind=B8Ki), ubound(InData%BladeLoad, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeLoad, kind=B8Ki) + UB(1:1) = ubound(InData%BladeLoad, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeLoad(i1)) end do @@ -7199,7 +7199,7 @@ subroutine AD_PackRotOutputType(Buf, Indata) call MeshPack(Buf, InData%TFinLoad) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -7209,8 +7209,8 @@ subroutine AD_UnPackRotOutputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(RotOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotOutputType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7255,16 +7255,16 @@ subroutine AD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%rotors)) then - LB(1:1) = lbound(SrcOutputData%rotors) - UB(1:1) = ubound(SrcOutputData%rotors) + LB(1:1) = lbound(SrcOutputData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%rotors, kind=B8Ki) if (.not. allocated(DstOutputData%rotors)) then allocate(DstOutputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7284,16 +7284,16 @@ subroutine AD_DestroyOutput(OutputData, ErrStat, ErrMsg) type(AD_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%rotors)) then - LB(1:1) = lbound(OutputData%rotors) - UB(1:1) = ubound(OutputData%rotors) + LB(1:1) = lbound(OutputData%rotors, kind=B8Ki) + UB(1:1) = ubound(OutputData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyRotOutputType(OutputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7306,14 +7306,14 @@ subroutine AD_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackRotOutputType(Buf, InData%rotors(i1)) end do @@ -7325,8 +7325,8 @@ subroutine AD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7449,75 +7449,75 @@ SUBROUTINE AD_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg ) a2 = t_out/t(2) IF (ALLOCATED(u_out%rotors) .AND. ALLOCATED(u1%rotors)) THEN - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%rotors(i01)%NacelleMotion, u2%rotors(i01)%NacelleMotion, tin, u_out%rotors(i01)%NacelleMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%rotors(i01)%TowerMotion, u2%rotors(i01)%TowerMotion, tin, u_out%rotors(i01)%TowerMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%rotors(i01)%HubMotion, u2%rotors(i01)%HubMotion, tin, u_out%rotors(i01)%HubMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%BladeRootMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeRootMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeRootMotion,1),UBOUND(u_out%rotors(i01)%BladeRootMotion,1) + DO i1 = LBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%rotors(i01)%BladeRootMotion(i1), u2%rotors(i01)%BladeRootMotion(i1), tin, u_out%rotors(i01)%BladeRootMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%BladeMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeMotion,1),UBOUND(u_out%rotors(i01)%BladeMotion,1) + DO i1 = LBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%rotors(i01)%BladeMotion(i1), u2%rotors(i01)%BladeMotion(i1), tin, u_out%rotors(i01)%BladeMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%rotors(i01)%TFinMotion, u2%rotors(i01)%TFinMotion, tin, u_out%rotors(i01)%TFinMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%Bld) .AND. ALLOCATED(u1%rotors(i01)%Bld)) THEN - DO i11 = LBOUND(u_out%rotors(i01)%Bld,1),UBOUND(u_out%rotors(i01)%Bld,1) + DO i11 = LBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%Bld(i11)%InflowOnBlade) .AND. ALLOCATED(u1%rotors(i01)%Bld(i11)%InflowOnBlade)) THEN u_out%rotors(i01)%Bld(i11)%InflowOnBlade = a1*u1%rotors(i01)%Bld(i11)%InflowOnBlade + a2*u2%rotors(i01)%Bld(i11)%InflowOnBlade END IF ! check if allocated END DO - DO i11 = LBOUND(u_out%rotors(i01)%Bld,1),UBOUND(u_out%rotors(i01)%Bld,1) + DO i11 = LBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%Bld(i11)%AccelOnBlade) .AND. ALLOCATED(u1%rotors(i01)%Bld(i11)%AccelOnBlade)) THEN u_out%rotors(i01)%Bld(i11)%AccelOnBlade = a1*u1%rotors(i01)%Bld(i11)%AccelOnBlade + a2*u2%rotors(i01)%Bld(i11)%AccelOnBlade END IF ! check if allocated END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%InflowOnTower) .AND. ALLOCATED(u1%rotors(i01)%InflowOnTower)) THEN u_out%rotors(i01)%InflowOnTower = a1*u1%rotors(i01)%InflowOnTower + a2*u2%rotors(i01)%InflowOnTower END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%AccelOnTower) .AND. ALLOCATED(u1%rotors(i01)%AccelOnTower)) THEN u_out%rotors(i01)%AccelOnTower = a1*u1%rotors(i01)%AccelOnTower + a2*u2%rotors(i01)%AccelOnTower END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%InflowOnHub = a1*u1%rotors(i01)%InflowOnHub + a2*u2%rotors(i01)%InflowOnHub END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%InflowOnNacelle = a1*u1%rotors(i01)%InflowOnNacelle + a2*u2%rotors(i01)%InflowOnNacelle END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%InflowOnTailFin = a1*u1%rotors(i01)%InflowOnTailFin + a2*u2%rotors(i01)%InflowOnTailFin END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%AvgDiskVel = a1*u1%rotors(i01)%AvgDiskVel + a2*u2%rotors(i01)%AvgDiskVel END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%UserProp) .AND. ALLOCATED(u1%rotors(i01)%UserProp)) THEN u_out%rotors(i01)%UserProp = a1*u1%rotors(i01)%UserProp + a2*u2%rotors(i01)%UserProp END IF ! check if allocated @@ -7588,75 +7588,75 @@ SUBROUTINE AD_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, ErrM a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%rotors) .AND. ALLOCATED(u1%rotors)) THEN - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%rotors(i01)%NacelleMotion, u2%rotors(i01)%NacelleMotion, u3%rotors(i01)%NacelleMotion, tin, u_out%rotors(i01)%NacelleMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%rotors(i01)%TowerMotion, u2%rotors(i01)%TowerMotion, u3%rotors(i01)%TowerMotion, tin, u_out%rotors(i01)%TowerMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%rotors(i01)%HubMotion, u2%rotors(i01)%HubMotion, u3%rotors(i01)%HubMotion, tin, u_out%rotors(i01)%HubMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%BladeRootMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeRootMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeRootMotion,1),UBOUND(u_out%rotors(i01)%BladeRootMotion,1) + DO i1 = LBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%rotors(i01)%BladeRootMotion(i1), u2%rotors(i01)%BladeRootMotion(i1), u3%rotors(i01)%BladeRootMotion(i1), tin, u_out%rotors(i01)%BladeRootMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%BladeMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeMotion,1),UBOUND(u_out%rotors(i01)%BladeMotion,1) + DO i1 = LBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%rotors(i01)%BladeMotion(i1), u2%rotors(i01)%BladeMotion(i1), u3%rotors(i01)%BladeMotion(i1), tin, u_out%rotors(i01)%BladeMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%rotors(i01)%TFinMotion, u2%rotors(i01)%TFinMotion, u3%rotors(i01)%TFinMotion, tin, u_out%rotors(i01)%TFinMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%Bld) .AND. ALLOCATED(u1%rotors(i01)%Bld)) THEN - DO i11 = LBOUND(u_out%rotors(i01)%Bld,1),UBOUND(u_out%rotors(i01)%Bld,1) + DO i11 = LBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%Bld(i11)%InflowOnBlade) .AND. ALLOCATED(u1%rotors(i01)%Bld(i11)%InflowOnBlade)) THEN u_out%rotors(i01)%Bld(i11)%InflowOnBlade = a1*u1%rotors(i01)%Bld(i11)%InflowOnBlade + a2*u2%rotors(i01)%Bld(i11)%InflowOnBlade + a3*u3%rotors(i01)%Bld(i11)%InflowOnBlade END IF ! check if allocated END DO - DO i11 = LBOUND(u_out%rotors(i01)%Bld,1),UBOUND(u_out%rotors(i01)%Bld,1) + DO i11 = LBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%Bld,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%Bld(i11)%AccelOnBlade) .AND. ALLOCATED(u1%rotors(i01)%Bld(i11)%AccelOnBlade)) THEN u_out%rotors(i01)%Bld(i11)%AccelOnBlade = a1*u1%rotors(i01)%Bld(i11)%AccelOnBlade + a2*u2%rotors(i01)%Bld(i11)%AccelOnBlade + a3*u3%rotors(i01)%Bld(i11)%AccelOnBlade END IF ! check if allocated END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%InflowOnTower) .AND. ALLOCATED(u1%rotors(i01)%InflowOnTower)) THEN u_out%rotors(i01)%InflowOnTower = a1*u1%rotors(i01)%InflowOnTower + a2*u2%rotors(i01)%InflowOnTower + a3*u3%rotors(i01)%InflowOnTower END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%AccelOnTower) .AND. ALLOCATED(u1%rotors(i01)%AccelOnTower)) THEN u_out%rotors(i01)%AccelOnTower = a1*u1%rotors(i01)%AccelOnTower + a2*u2%rotors(i01)%AccelOnTower + a3*u3%rotors(i01)%AccelOnTower END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%InflowOnHub = a1*u1%rotors(i01)%InflowOnHub + a2*u2%rotors(i01)%InflowOnHub + a3*u3%rotors(i01)%InflowOnHub END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%InflowOnNacelle = a1*u1%rotors(i01)%InflowOnNacelle + a2*u2%rotors(i01)%InflowOnNacelle + a3*u3%rotors(i01)%InflowOnNacelle END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%InflowOnTailFin = a1*u1%rotors(i01)%InflowOnTailFin + a2*u2%rotors(i01)%InflowOnTailFin + a3*u3%rotors(i01)%InflowOnTailFin END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%AvgDiskVel = a1*u1%rotors(i01)%AvgDiskVel + a2*u2%rotors(i01)%AvgDiskVel + a3*u3%rotors(i01)%AvgDiskVel END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) IF (ALLOCATED(u_out%rotors(i01)%UserProp) .AND. ALLOCATED(u1%rotors(i01)%UserProp)) THEN u_out%rotors(i01)%UserProp = a1*u1%rotors(i01)%UserProp + a2*u2%rotors(i01)%UserProp + a3*u3%rotors(i01)%UserProp END IF ! check if allocated @@ -7765,31 +7765,31 @@ SUBROUTINE AD_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(y_out%rotors) .AND. ALLOCATED(y1%rotors)) THEN - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%rotors(i01)%NacelleLoad, y2%rotors(i01)%NacelleLoad, tin, y_out%rotors(i01)%NacelleLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%rotors(i01)%HubLoad, y2%rotors(i01)%HubLoad, tin, y_out%rotors(i01)%HubLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%rotors(i01)%TowerLoad, y2%rotors(i01)%TowerLoad, tin, y_out%rotors(i01)%TowerLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) IF (ALLOCATED(y_out%rotors(i01)%BladeLoad) .AND. ALLOCATED(y1%rotors(i01)%BladeLoad)) THEN - DO i1 = LBOUND(y_out%rotors(i01)%BladeLoad,1),UBOUND(y_out%rotors(i01)%BladeLoad,1) + DO i1 = LBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki),UBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%rotors(i01)%BladeLoad(i1), y2%rotors(i01)%BladeLoad(i1), tin, y_out%rotors(i01)%BladeLoad(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%rotors(i01)%TFinLoad, y2%rotors(i01)%TFinLoad, tin, y_out%rotors(i01)%TFinLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) IF (ALLOCATED(y_out%rotors(i01)%WriteOutput) .AND. ALLOCATED(y1%rotors(i01)%WriteOutput)) THEN y_out%rotors(i01)%WriteOutput = a1*y1%rotors(i01)%WriteOutput + a2*y2%rotors(i01)%WriteOutput END IF ! check if allocated @@ -7853,31 +7853,31 @@ SUBROUTINE AD_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%rotors) .AND. ALLOCATED(y1%rotors)) THEN - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%rotors(i01)%NacelleLoad, y2%rotors(i01)%NacelleLoad, y3%rotors(i01)%NacelleLoad, tin, y_out%rotors(i01)%NacelleLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%rotors(i01)%HubLoad, y2%rotors(i01)%HubLoad, y3%rotors(i01)%HubLoad, tin, y_out%rotors(i01)%HubLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%rotors(i01)%TowerLoad, y2%rotors(i01)%TowerLoad, y3%rotors(i01)%TowerLoad, tin, y_out%rotors(i01)%TowerLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) IF (ALLOCATED(y_out%rotors(i01)%BladeLoad) .AND. ALLOCATED(y1%rotors(i01)%BladeLoad)) THEN - DO i1 = LBOUND(y_out%rotors(i01)%BladeLoad,1),UBOUND(y_out%rotors(i01)%BladeLoad,1) + DO i1 = LBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki),UBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%rotors(i01)%BladeLoad(i1), y2%rotors(i01)%BladeLoad(i1), y3%rotors(i01)%BladeLoad(i1), tin, y_out%rotors(i01)%BladeLoad(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%rotors(i01)%TFinLoad, y2%rotors(i01)%TFinLoad, y3%rotors(i01)%TFinLoad, tin, y_out%rotors(i01)%TFinLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO - DO i01 = LBOUND(y_out%rotors,1),UBOUND(y_out%rotors,1) + DO i01 = LBOUND(y_out%rotors,1, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) IF (ALLOCATED(y_out%rotors(i01)%WriteOutput) .AND. ALLOCATED(y1%rotors(i01)%WriteOutput)) THEN y_out%rotors(i01)%WriteOutput = a1*y1%rotors(i01)%WriteOutput + a2*y2%rotors(i01)%WriteOutput + a3*y3%rotors(i01)%WriteOutput END IF ! check if allocated diff --git a/modules/aerodyn/src/AirfoilInfo_Types.f90 b/modules/aerodyn/src/AirfoilInfo_Types.f90 index ec227a4ad7..48668f43af 100644 --- a/modules/aerodyn/src/AirfoilInfo_Types.f90 +++ b/modules/aerodyn/src/AirfoilInfo_Types.f90 @@ -608,15 +608,15 @@ subroutine AFI_CopyTable_Type(SrcTable_TypeData, DstTable_TypeData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AFI_CopyTable_Type' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcTable_TypeData%Alpha)) then - LB(1:1) = lbound(SrcTable_TypeData%Alpha) - UB(1:1) = ubound(SrcTable_TypeData%Alpha) + LB(1:1) = lbound(SrcTable_TypeData%Alpha, kind=B8Ki) + UB(1:1) = ubound(SrcTable_TypeData%Alpha, kind=B8Ki) if (.not. allocated(DstTable_TypeData%Alpha)) then allocate(DstTable_TypeData%Alpha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -627,8 +627,8 @@ subroutine AFI_CopyTable_Type(SrcTable_TypeData, DstTable_TypeData, CtrlCode, Er DstTable_TypeData%Alpha = SrcTable_TypeData%Alpha end if if (allocated(SrcTable_TypeData%Coefs)) then - LB(1:2) = lbound(SrcTable_TypeData%Coefs) - UB(1:2) = ubound(SrcTable_TypeData%Coefs) + LB(1:2) = lbound(SrcTable_TypeData%Coefs, kind=B8Ki) + UB(1:2) = ubound(SrcTable_TypeData%Coefs, kind=B8Ki) if (.not. allocated(DstTable_TypeData%Coefs)) then allocate(DstTable_TypeData%Coefs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -639,8 +639,8 @@ subroutine AFI_CopyTable_Type(SrcTable_TypeData, DstTable_TypeData, CtrlCode, Er DstTable_TypeData%Coefs = SrcTable_TypeData%Coefs end if if (allocated(SrcTable_TypeData%SplineCoefs)) then - LB(1:3) = lbound(SrcTable_TypeData%SplineCoefs) - UB(1:3) = ubound(SrcTable_TypeData%SplineCoefs) + LB(1:3) = lbound(SrcTable_TypeData%SplineCoefs, kind=B8Ki) + UB(1:3) = ubound(SrcTable_TypeData%SplineCoefs, kind=B8Ki) if (.not. allocated(DstTable_TypeData%SplineCoefs)) then allocate(DstTable_TypeData%SplineCoefs(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -689,17 +689,17 @@ subroutine AFI_PackTable_Type(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Alpha)) if (allocated(InData%Alpha)) then - call RegPackBounds(Buf, 1, lbound(InData%Alpha), ubound(InData%Alpha)) + call RegPackBounds(Buf, 1, lbound(InData%Alpha, kind=B8Ki), ubound(InData%Alpha, kind=B8Ki)) call RegPack(Buf, InData%Alpha) end if call RegPack(Buf, allocated(InData%Coefs)) if (allocated(InData%Coefs)) then - call RegPackBounds(Buf, 2, lbound(InData%Coefs), ubound(InData%Coefs)) + call RegPackBounds(Buf, 2, lbound(InData%Coefs, kind=B8Ki), ubound(InData%Coefs, kind=B8Ki)) call RegPack(Buf, InData%Coefs) end if call RegPack(Buf, allocated(InData%SplineCoefs)) if (allocated(InData%SplineCoefs)) then - call RegPackBounds(Buf, 3, lbound(InData%SplineCoefs), ubound(InData%SplineCoefs)) + call RegPackBounds(Buf, 3, lbound(InData%SplineCoefs, kind=B8Ki), ubound(InData%SplineCoefs, kind=B8Ki)) call RegPack(Buf, InData%SplineCoefs) end if call RegPack(Buf, InData%UserProp) @@ -715,7 +715,7 @@ subroutine AFI_UnPackTable_Type(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AFI_Table_Type), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AFI_UnPackTable_Type' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -893,8 +893,8 @@ subroutine AFI_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AFI_CopyParam' @@ -907,8 +907,8 @@ subroutine AFI_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ColUAf = SrcParamData%ColUAf DstParamData%AFTabMod = SrcParamData%AFTabMod if (allocated(SrcParamData%secondVals)) then - LB(1:1) = lbound(SrcParamData%secondVals) - UB(1:1) = ubound(SrcParamData%secondVals) + LB(1:1) = lbound(SrcParamData%secondVals, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%secondVals, kind=B8Ki) if (.not. allocated(DstParamData%secondVals)) then allocate(DstParamData%secondVals(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -923,8 +923,8 @@ subroutine AFI_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NonDimArea = SrcParamData%NonDimArea DstParamData%NumCoords = SrcParamData%NumCoords if (allocated(SrcParamData%X_Coord)) then - LB(1:1) = lbound(SrcParamData%X_Coord) - UB(1:1) = ubound(SrcParamData%X_Coord) + LB(1:1) = lbound(SrcParamData%X_Coord, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%X_Coord, kind=B8Ki) if (.not. allocated(DstParamData%X_Coord)) then allocate(DstParamData%X_Coord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -935,8 +935,8 @@ subroutine AFI_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%X_Coord = SrcParamData%X_Coord end if if (allocated(SrcParamData%Y_Coord)) then - LB(1:1) = lbound(SrcParamData%Y_Coord) - UB(1:1) = ubound(SrcParamData%Y_Coord) + LB(1:1) = lbound(SrcParamData%Y_Coord, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Y_Coord, kind=B8Ki) if (.not. allocated(DstParamData%Y_Coord)) then allocate(DstParamData%Y_Coord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -948,8 +948,8 @@ subroutine AFI_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NumTabs = SrcParamData%NumTabs if (allocated(SrcParamData%Table)) then - LB(1:1) = lbound(SrcParamData%Table) - UB(1:1) = ubound(SrcParamData%Table) + LB(1:1) = lbound(SrcParamData%Table, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Table, kind=B8Ki) if (.not. allocated(DstParamData%Table)) then allocate(DstParamData%Table(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -971,8 +971,8 @@ subroutine AFI_DestroyParam(ParamData, ErrStat, ErrMsg) type(AFI_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AFI_DestroyParam' @@ -988,8 +988,8 @@ subroutine AFI_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%Y_Coord) end if if (allocated(ParamData%Table)) then - LB(1:1) = lbound(ParamData%Table) - UB(1:1) = ubound(ParamData%Table) + LB(1:1) = lbound(ParamData%Table, kind=B8Ki) + UB(1:1) = ubound(ParamData%Table, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_DestroyTable_Type(ParamData%Table(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1002,8 +1002,8 @@ subroutine AFI_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AFI_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AFI_PackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%ColCd) call RegPack(Buf, InData%ColCl) @@ -1013,7 +1013,7 @@ subroutine AFI_PackParam(Buf, Indata) call RegPack(Buf, InData%AFTabMod) call RegPack(Buf, allocated(InData%secondVals)) if (allocated(InData%secondVals)) then - call RegPackBounds(Buf, 1, lbound(InData%secondVals), ubound(InData%secondVals)) + call RegPackBounds(Buf, 1, lbound(InData%secondVals, kind=B8Ki), ubound(InData%secondVals, kind=B8Ki)) call RegPack(Buf, InData%secondVals) end if call RegPack(Buf, InData%InterpOrd) @@ -1022,20 +1022,20 @@ subroutine AFI_PackParam(Buf, Indata) call RegPack(Buf, InData%NumCoords) call RegPack(Buf, allocated(InData%X_Coord)) if (allocated(InData%X_Coord)) then - call RegPackBounds(Buf, 1, lbound(InData%X_Coord), ubound(InData%X_Coord)) + call RegPackBounds(Buf, 1, lbound(InData%X_Coord, kind=B8Ki), ubound(InData%X_Coord, kind=B8Ki)) call RegPack(Buf, InData%X_Coord) end if call RegPack(Buf, allocated(InData%Y_Coord)) if (allocated(InData%Y_Coord)) then - call RegPackBounds(Buf, 1, lbound(InData%Y_Coord), ubound(InData%Y_Coord)) + call RegPackBounds(Buf, 1, lbound(InData%Y_Coord, kind=B8Ki), ubound(InData%Y_Coord, kind=B8Ki)) call RegPack(Buf, InData%Y_Coord) end if call RegPack(Buf, InData%NumTabs) call RegPack(Buf, allocated(InData%Table)) if (allocated(InData%Table)) then - call RegPackBounds(Buf, 1, lbound(InData%Table), ubound(InData%Table)) - LB(1:1) = lbound(InData%Table) - UB(1:1) = ubound(InData%Table) + call RegPackBounds(Buf, 1, lbound(InData%Table, kind=B8Ki), ubound(InData%Table, kind=B8Ki)) + LB(1:1) = lbound(InData%Table, kind=B8Ki) + UB(1:1) = ubound(InData%Table, kind=B8Ki) do i1 = LB(1), UB(1) call AFI_PackTable_Type(Buf, InData%Table(i1)) end do @@ -1049,8 +1049,8 @@ subroutine AFI_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AFI_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AFI_UnPackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/BEMT_Types.f90 b/modules/aerodyn/src/BEMT_Types.f90 index 9242628999..c8acce2fc8 100644 --- a/modules/aerodyn/src/BEMT_Types.f90 +++ b/modules/aerodyn/src/BEMT_Types.f90 @@ -235,14 +235,14 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BEMT_CopyInitInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitInputData%chord)) then - LB(1:2) = lbound(SrcInitInputData%chord) - UB(1:2) = ubound(SrcInitInputData%chord) + LB(1:2) = lbound(SrcInitInputData%chord, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%chord, kind=B8Ki) if (.not. allocated(DstInitInputData%chord)) then allocate(DstInitInputData%chord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -268,8 +268,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%numReIterations = SrcInitInputData%numReIterations DstInitInputData%maxIndIterations = SrcInitInputData%maxIndIterations if (allocated(SrcInitInputData%AFindx)) then - LB(1:2) = lbound(SrcInitInputData%AFindx) - UB(1:2) = ubound(SrcInitInputData%AFindx) + LB(1:2) = lbound(SrcInitInputData%AFindx, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%AFindx, kind=B8Ki) if (.not. allocated(DstInitInputData%AFindx)) then allocate(DstInitInputData%AFindx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -280,8 +280,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%AFindx = SrcInitInputData%AFindx end if if (allocated(SrcInitInputData%zHub)) then - LB(1:1) = lbound(SrcInitInputData%zHub) - UB(1:1) = ubound(SrcInitInputData%zHub) + LB(1:1) = lbound(SrcInitInputData%zHub, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%zHub, kind=B8Ki) if (.not. allocated(DstInitInputData%zHub)) then allocate(DstInitInputData%zHub(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -292,8 +292,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%zHub = SrcInitInputData%zHub end if if (allocated(SrcInitInputData%zLocal)) then - LB(1:2) = lbound(SrcInitInputData%zLocal) - UB(1:2) = ubound(SrcInitInputData%zLocal) + LB(1:2) = lbound(SrcInitInputData%zLocal, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%zLocal, kind=B8Ki) if (.not. allocated(DstInitInputData%zLocal)) then allocate(DstInitInputData%zLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -304,8 +304,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%zLocal = SrcInitInputData%zLocal end if if (allocated(SrcInitInputData%zTip)) then - LB(1:1) = lbound(SrcInitInputData%zTip) - UB(1:1) = ubound(SrcInitInputData%zTip) + LB(1:1) = lbound(SrcInitInputData%zTip, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%zTip, kind=B8Ki) if (.not. allocated(DstInitInputData%zTip)) then allocate(DstInitInputData%zTip(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -316,8 +316,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%zTip = SrcInitInputData%zTip end if if (allocated(SrcInitInputData%rLocal)) then - LB(1:2) = lbound(SrcInitInputData%rLocal) - UB(1:2) = ubound(SrcInitInputData%rLocal) + LB(1:2) = lbound(SrcInitInputData%rLocal, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%rLocal, kind=B8Ki) if (.not. allocated(DstInitInputData%rLocal)) then allocate(DstInitInputData%rLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -328,8 +328,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%rLocal = SrcInitInputData%rLocal end if if (allocated(SrcInitInputData%rTipFix)) then - LB(1:1) = lbound(SrcInitInputData%rTipFix) - UB(1:1) = ubound(SrcInitInputData%rTipFix) + LB(1:1) = lbound(SrcInitInputData%rTipFix, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%rTipFix, kind=B8Ki) if (.not. allocated(DstInitInputData%rTipFix)) then allocate(DstInitInputData%rTipFix(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -347,8 +347,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%tau1_const = SrcInitInputData%tau1_const DstInitInputData%yawCorrFactor = SrcInitInputData%yawCorrFactor if (allocated(SrcInitInputData%UAOff_innerNode)) then - LB(1:1) = lbound(SrcInitInputData%UAOff_innerNode) - UB(1:1) = ubound(SrcInitInputData%UAOff_innerNode) + LB(1:1) = lbound(SrcInitInputData%UAOff_innerNode, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%UAOff_innerNode, kind=B8Ki) if (.not. allocated(DstInitInputData%UAOff_innerNode)) then allocate(DstInitInputData%UAOff_innerNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -359,8 +359,8 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%UAOff_innerNode = SrcInitInputData%UAOff_innerNode end if if (allocated(SrcInitInputData%UAOff_outerNode)) then - LB(1:1) = lbound(SrcInitInputData%UAOff_outerNode) - UB(1:1) = ubound(SrcInitInputData%UAOff_outerNode) + LB(1:1) = lbound(SrcInitInputData%UAOff_outerNode, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%UAOff_outerNode, kind=B8Ki) if (.not. allocated(DstInitInputData%UAOff_outerNode)) then allocate(DstInitInputData%UAOff_outerNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -418,7 +418,7 @@ subroutine BEMT_PackInitInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%chord)) if (allocated(InData%chord)) then - call RegPackBounds(Buf, 2, lbound(InData%chord), ubound(InData%chord)) + call RegPackBounds(Buf, 2, lbound(InData%chord, kind=B8Ki), ubound(InData%chord, kind=B8Ki)) call RegPack(Buf, InData%chord) end if call RegPack(Buf, InData%numBlades) @@ -438,32 +438,32 @@ subroutine BEMT_PackInitInput(Buf, Indata) call RegPack(Buf, InData%maxIndIterations) call RegPack(Buf, allocated(InData%AFindx)) if (allocated(InData%AFindx)) then - call RegPackBounds(Buf, 2, lbound(InData%AFindx), ubound(InData%AFindx)) + call RegPackBounds(Buf, 2, lbound(InData%AFindx, kind=B8Ki), ubound(InData%AFindx, kind=B8Ki)) call RegPack(Buf, InData%AFindx) end if call RegPack(Buf, allocated(InData%zHub)) if (allocated(InData%zHub)) then - call RegPackBounds(Buf, 1, lbound(InData%zHub), ubound(InData%zHub)) + call RegPackBounds(Buf, 1, lbound(InData%zHub, kind=B8Ki), ubound(InData%zHub, kind=B8Ki)) call RegPack(Buf, InData%zHub) end if call RegPack(Buf, allocated(InData%zLocal)) if (allocated(InData%zLocal)) then - call RegPackBounds(Buf, 2, lbound(InData%zLocal), ubound(InData%zLocal)) + call RegPackBounds(Buf, 2, lbound(InData%zLocal, kind=B8Ki), ubound(InData%zLocal, kind=B8Ki)) call RegPack(Buf, InData%zLocal) end if call RegPack(Buf, allocated(InData%zTip)) if (allocated(InData%zTip)) then - call RegPackBounds(Buf, 1, lbound(InData%zTip), ubound(InData%zTip)) + call RegPackBounds(Buf, 1, lbound(InData%zTip, kind=B8Ki), ubound(InData%zTip, kind=B8Ki)) call RegPack(Buf, InData%zTip) end if call RegPack(Buf, allocated(InData%rLocal)) if (allocated(InData%rLocal)) then - call RegPackBounds(Buf, 2, lbound(InData%rLocal), ubound(InData%rLocal)) + call RegPackBounds(Buf, 2, lbound(InData%rLocal, kind=B8Ki), ubound(InData%rLocal, kind=B8Ki)) call RegPack(Buf, InData%rLocal) end if call RegPack(Buf, allocated(InData%rTipFix)) if (allocated(InData%rTipFix)) then - call RegPackBounds(Buf, 1, lbound(InData%rTipFix), ubound(InData%rTipFix)) + call RegPackBounds(Buf, 1, lbound(InData%rTipFix, kind=B8Ki), ubound(InData%rTipFix, kind=B8Ki)) call RegPack(Buf, InData%rTipFix) end if call RegPack(Buf, InData%UAMod) @@ -475,12 +475,12 @@ subroutine BEMT_PackInitInput(Buf, Indata) call RegPack(Buf, InData%yawCorrFactor) call RegPack(Buf, allocated(InData%UAOff_innerNode)) if (allocated(InData%UAOff_innerNode)) then - call RegPackBounds(Buf, 1, lbound(InData%UAOff_innerNode), ubound(InData%UAOff_innerNode)) + call RegPackBounds(Buf, 1, lbound(InData%UAOff_innerNode, kind=B8Ki), ubound(InData%UAOff_innerNode, kind=B8Ki)) call RegPack(Buf, InData%UAOff_innerNode) end if call RegPack(Buf, allocated(InData%UAOff_outerNode)) if (allocated(InData%UAOff_outerNode)) then - call RegPackBounds(Buf, 1, lbound(InData%UAOff_outerNode), ubound(InData%UAOff_outerNode)) + call RegPackBounds(Buf, 1, lbound(InData%UAOff_outerNode, kind=B8Ki), ubound(InData%UAOff_outerNode, kind=B8Ki)) call RegPack(Buf, InData%UAOff_outerNode) end if call RegPack(Buf, InData%RootName) @@ -493,7 +493,7 @@ subroutine BEMT_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackInitInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -877,14 +877,14 @@ subroutine BEMT_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BEMT_CopyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcConstrStateData%phi)) then - LB(1:2) = lbound(SrcConstrStateData%phi) - UB(1:2) = ubound(SrcConstrStateData%phi) + LB(1:2) = lbound(SrcConstrStateData%phi, kind=B8Ki) + UB(1:2) = ubound(SrcConstrStateData%phi, kind=B8Ki) if (.not. allocated(DstConstrStateData%phi)) then allocate(DstConstrStateData%phi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -915,7 +915,7 @@ subroutine BEMT_PackConstrState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%phi)) if (allocated(InData%phi)) then - call RegPackBounds(Buf, 2, lbound(InData%phi), ubound(InData%phi)) + call RegPackBounds(Buf, 2, lbound(InData%phi, kind=B8Ki), ubound(InData%phi, kind=B8Ki)) call RegPack(Buf, InData%phi) end if if (RegCheckErr(Buf, RoutineName)) return @@ -925,7 +925,7 @@ subroutine BEMT_UnPackConstrState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackConstrState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -951,8 +951,8 @@ subroutine BEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyOtherState' @@ -965,8 +965,8 @@ subroutine BEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOtherStateData%ValidPhi)) then - LB(1:2) = lbound(SrcOtherStateData%ValidPhi) - UB(1:2) = ubound(SrcOtherStateData%ValidPhi) + LB(1:2) = lbound(SrcOtherStateData%ValidPhi, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%ValidPhi, kind=B8Ki) if (.not. allocated(DstOtherStateData%ValidPhi)) then allocate(DstOtherStateData%ValidPhi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -977,8 +977,8 @@ subroutine BEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%ValidPhi = SrcOtherStateData%ValidPhi end if DstOtherStateData%nodesInitialized = SrcOtherStateData%nodesInitialized - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -991,8 +991,8 @@ subroutine BEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(BEMT_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_DestroyOtherState' @@ -1005,8 +1005,8 @@ subroutine BEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) if (allocated(OtherStateData%ValidPhi)) then deallocate(OtherStateData%ValidPhi) end if - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1017,19 +1017,19 @@ subroutine BEMT_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(BEMT_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'BEMT_PackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call UA_PackOtherState(Buf, InData%UA) call DBEMT_PackOtherState(Buf, InData%DBEMT) call RegPack(Buf, allocated(InData%ValidPhi)) if (allocated(InData%ValidPhi)) then - call RegPackBounds(Buf, 2, lbound(InData%ValidPhi), ubound(InData%ValidPhi)) + call RegPackBounds(Buf, 2, lbound(InData%ValidPhi, kind=B8Ki), ubound(InData%ValidPhi, kind=B8Ki)) call RegPack(Buf, InData%ValidPhi) end if call RegPack(Buf, InData%nodesInitialized) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_PackContState(Buf, InData%xdot(i1)) end do @@ -1041,8 +1041,8 @@ subroutine BEMT_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1064,8 +1064,8 @@ subroutine BEMT_UnPackOtherState(Buf, OutData) end if call RegUnpack(Buf, OutData%nodesInitialized) if (RegCheckErr(Buf, RoutineName)) return - LB(1:1) = lbound(OutData%xdot) - UB(1:1) = ubound(OutData%xdot) + LB(1:1) = lbound(OutData%xdot, kind=B8Ki) + UB(1:1) = ubound(OutData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_UnpackContState(Buf, OutData%xdot(i1)) ! xdot end do @@ -1079,8 +1079,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyMisc' @@ -1099,8 +1099,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%u_UA)) then - LB(1:3) = lbound(SrcMiscData%u_UA) - UB(1:3) = ubound(SrcMiscData%u_UA) + LB(1:3) = lbound(SrcMiscData%u_UA, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%u_UA, kind=B8Ki) if (.not. allocated(DstMiscData%u_UA)) then allocate(DstMiscData%u_UA(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1118,23 +1118,23 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end do end if - LB(1:1) = lbound(SrcMiscData%u_DBEMT) - UB(1:1) = ubound(SrcMiscData%u_DBEMT) + LB(1:1) = lbound(SrcMiscData%u_DBEMT, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%u_DBEMT, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_CopyInput(SrcMiscData%u_DBEMT(i1), DstMiscData%u_DBEMT(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcMiscData%u_SkewWake) - UB(1:1) = ubound(SrcMiscData%u_SkewWake) + LB(1:1) = lbound(SrcMiscData%u_SkewWake, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%u_SkewWake, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_CopySkewWake_InputType(SrcMiscData%u_SkewWake(i1), DstMiscData%u_SkewWake(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do if (allocated(SrcMiscData%TnInd_op)) then - LB(1:2) = lbound(SrcMiscData%TnInd_op) - UB(1:2) = ubound(SrcMiscData%TnInd_op) + LB(1:2) = lbound(SrcMiscData%TnInd_op, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%TnInd_op, kind=B8Ki) if (.not. allocated(DstMiscData%TnInd_op)) then allocate(DstMiscData%TnInd_op(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1145,8 +1145,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%TnInd_op = SrcMiscData%TnInd_op end if if (allocated(SrcMiscData%AxInd_op)) then - LB(1:2) = lbound(SrcMiscData%AxInd_op) - UB(1:2) = ubound(SrcMiscData%AxInd_op) + LB(1:2) = lbound(SrcMiscData%AxInd_op, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%AxInd_op, kind=B8Ki) if (.not. allocated(DstMiscData%AxInd_op)) then allocate(DstMiscData%AxInd_op(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1157,8 +1157,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AxInd_op = SrcMiscData%AxInd_op end if if (allocated(SrcMiscData%AxInduction)) then - LB(1:2) = lbound(SrcMiscData%AxInduction) - UB(1:2) = ubound(SrcMiscData%AxInduction) + LB(1:2) = lbound(SrcMiscData%AxInduction, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%AxInduction, kind=B8Ki) if (.not. allocated(DstMiscData%AxInduction)) then allocate(DstMiscData%AxInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1169,8 +1169,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AxInduction = SrcMiscData%AxInduction end if if (allocated(SrcMiscData%TanInduction)) then - LB(1:2) = lbound(SrcMiscData%TanInduction) - UB(1:2) = ubound(SrcMiscData%TanInduction) + LB(1:2) = lbound(SrcMiscData%TanInduction, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%TanInduction, kind=B8Ki) if (.not. allocated(DstMiscData%TanInduction)) then allocate(DstMiscData%TanInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1182,8 +1182,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end if DstMiscData%UseFrozenWake = SrcMiscData%UseFrozenWake if (allocated(SrcMiscData%Rtip)) then - LB(1:1) = lbound(SrcMiscData%Rtip) - UB(1:1) = ubound(SrcMiscData%Rtip) + LB(1:1) = lbound(SrcMiscData%Rtip, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Rtip, kind=B8Ki) if (.not. allocated(DstMiscData%Rtip)) then allocate(DstMiscData%Rtip(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1194,8 +1194,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Rtip = SrcMiscData%Rtip end if if (allocated(SrcMiscData%phi)) then - LB(1:2) = lbound(SrcMiscData%phi) - UB(1:2) = ubound(SrcMiscData%phi) + LB(1:2) = lbound(SrcMiscData%phi, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%phi, kind=B8Ki) if (.not. allocated(DstMiscData%phi)) then allocate(DstMiscData%phi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1206,8 +1206,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%phi = SrcMiscData%phi end if if (allocated(SrcMiscData%chi)) then - LB(1:2) = lbound(SrcMiscData%chi) - UB(1:2) = ubound(SrcMiscData%chi) + LB(1:2) = lbound(SrcMiscData%chi, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%chi, kind=B8Ki) if (.not. allocated(DstMiscData%chi)) then allocate(DstMiscData%chi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1218,8 +1218,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%chi = SrcMiscData%chi end if if (allocated(SrcMiscData%ValidPhi)) then - LB(1:2) = lbound(SrcMiscData%ValidPhi) - UB(1:2) = ubound(SrcMiscData%ValidPhi) + LB(1:2) = lbound(SrcMiscData%ValidPhi, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%ValidPhi, kind=B8Ki) if (.not. allocated(DstMiscData%ValidPhi)) then allocate(DstMiscData%ValidPhi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1236,8 +1236,8 @@ subroutine BEMT_DestroyMisc(MiscData, ErrStat, ErrMsg) type(BEMT_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_DestroyMisc' @@ -1250,8 +1250,8 @@ subroutine BEMT_DestroyMisc(MiscData, ErrStat, ErrMsg) call UA_DestroyOutput(MiscData%y_UA, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MiscData%u_UA)) then - LB(1:3) = lbound(MiscData%u_UA) - UB(1:3) = ubound(MiscData%u_UA) + LB(1:3) = lbound(MiscData%u_UA, kind=B8Ki) + UB(1:3) = ubound(MiscData%u_UA, kind=B8Ki) do i3 = LB(3), UB(3) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) @@ -1262,14 +1262,14 @@ subroutine BEMT_DestroyMisc(MiscData, ErrStat, ErrMsg) end do deallocate(MiscData%u_UA) end if - LB(1:1) = lbound(MiscData%u_DBEMT) - UB(1:1) = ubound(MiscData%u_DBEMT) + LB(1:1) = lbound(MiscData%u_DBEMT, kind=B8Ki) + UB(1:1) = ubound(MiscData%u_DBEMT, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_DestroyInput(MiscData%u_DBEMT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(MiscData%u_SkewWake) - UB(1:1) = ubound(MiscData%u_SkewWake) + LB(1:1) = lbound(MiscData%u_SkewWake, kind=B8Ki) + UB(1:1) = ubound(MiscData%u_SkewWake, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_DestroySkewWake_InputType(MiscData%u_SkewWake(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1304,8 +1304,8 @@ subroutine BEMT_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(BEMT_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'BEMT_PackMisc' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%FirstWarn_Skew) call RegPack(Buf, InData%FirstWarn_Phi) @@ -1315,9 +1315,9 @@ subroutine BEMT_PackMisc(Buf, Indata) call UA_PackOutput(Buf, InData%y_UA) call RegPack(Buf, allocated(InData%u_UA)) if (allocated(InData%u_UA)) then - call RegPackBounds(Buf, 3, lbound(InData%u_UA), ubound(InData%u_UA)) - LB(1:3) = lbound(InData%u_UA) - UB(1:3) = ubound(InData%u_UA) + call RegPackBounds(Buf, 3, lbound(InData%u_UA, kind=B8Ki), ubound(InData%u_UA, kind=B8Ki)) + LB(1:3) = lbound(InData%u_UA, kind=B8Ki) + UB(1:3) = ubound(InData%u_UA, kind=B8Ki) do i3 = LB(3), UB(3) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) @@ -1326,55 +1326,55 @@ subroutine BEMT_PackMisc(Buf, Indata) end do end do end if - LB(1:1) = lbound(InData%u_DBEMT) - UB(1:1) = ubound(InData%u_DBEMT) + LB(1:1) = lbound(InData%u_DBEMT, kind=B8Ki) + UB(1:1) = ubound(InData%u_DBEMT, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_PackInput(Buf, InData%u_DBEMT(i1)) end do - LB(1:1) = lbound(InData%u_SkewWake) - UB(1:1) = ubound(InData%u_SkewWake) + LB(1:1) = lbound(InData%u_SkewWake, kind=B8Ki) + UB(1:1) = ubound(InData%u_SkewWake, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_PackSkewWake_InputType(Buf, InData%u_SkewWake(i1)) end do call RegPack(Buf, allocated(InData%TnInd_op)) if (allocated(InData%TnInd_op)) then - call RegPackBounds(Buf, 2, lbound(InData%TnInd_op), ubound(InData%TnInd_op)) + call RegPackBounds(Buf, 2, lbound(InData%TnInd_op, kind=B8Ki), ubound(InData%TnInd_op, kind=B8Ki)) call RegPack(Buf, InData%TnInd_op) end if call RegPack(Buf, allocated(InData%AxInd_op)) if (allocated(InData%AxInd_op)) then - call RegPackBounds(Buf, 2, lbound(InData%AxInd_op), ubound(InData%AxInd_op)) + call RegPackBounds(Buf, 2, lbound(InData%AxInd_op, kind=B8Ki), ubound(InData%AxInd_op, kind=B8Ki)) call RegPack(Buf, InData%AxInd_op) end if call RegPack(Buf, allocated(InData%AxInduction)) if (allocated(InData%AxInduction)) then - call RegPackBounds(Buf, 2, lbound(InData%AxInduction), ubound(InData%AxInduction)) + call RegPackBounds(Buf, 2, lbound(InData%AxInduction, kind=B8Ki), ubound(InData%AxInduction, kind=B8Ki)) call RegPack(Buf, InData%AxInduction) end if call RegPack(Buf, allocated(InData%TanInduction)) if (allocated(InData%TanInduction)) then - call RegPackBounds(Buf, 2, lbound(InData%TanInduction), ubound(InData%TanInduction)) + call RegPackBounds(Buf, 2, lbound(InData%TanInduction, kind=B8Ki), ubound(InData%TanInduction, kind=B8Ki)) call RegPack(Buf, InData%TanInduction) end if call RegPack(Buf, InData%UseFrozenWake) call RegPack(Buf, allocated(InData%Rtip)) if (allocated(InData%Rtip)) then - call RegPackBounds(Buf, 1, lbound(InData%Rtip), ubound(InData%Rtip)) + call RegPackBounds(Buf, 1, lbound(InData%Rtip, kind=B8Ki), ubound(InData%Rtip, kind=B8Ki)) call RegPack(Buf, InData%Rtip) end if call RegPack(Buf, allocated(InData%phi)) if (allocated(InData%phi)) then - call RegPackBounds(Buf, 2, lbound(InData%phi), ubound(InData%phi)) + call RegPackBounds(Buf, 2, lbound(InData%phi, kind=B8Ki), ubound(InData%phi, kind=B8Ki)) call RegPack(Buf, InData%phi) end if call RegPack(Buf, allocated(InData%chi)) if (allocated(InData%chi)) then - call RegPackBounds(Buf, 2, lbound(InData%chi), ubound(InData%chi)) + call RegPackBounds(Buf, 2, lbound(InData%chi, kind=B8Ki), ubound(InData%chi, kind=B8Ki)) call RegPack(Buf, InData%chi) end if call RegPack(Buf, allocated(InData%ValidPhi)) if (allocated(InData%ValidPhi)) then - call RegPackBounds(Buf, 2, lbound(InData%ValidPhi), ubound(InData%ValidPhi)) + call RegPackBounds(Buf, 2, lbound(InData%ValidPhi, kind=B8Ki), ubound(InData%ValidPhi, kind=B8Ki)) call RegPack(Buf, InData%ValidPhi) end if call RegPack(Buf, InData%BEM_weight) @@ -1385,8 +1385,8 @@ subroutine BEMT_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackMisc' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1418,13 +1418,13 @@ subroutine BEMT_UnPackMisc(Buf, OutData) end do end do end if - LB(1:1) = lbound(OutData%u_DBEMT) - UB(1:1) = ubound(OutData%u_DBEMT) + LB(1:1) = lbound(OutData%u_DBEMT, kind=B8Ki) + UB(1:1) = ubound(OutData%u_DBEMT, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_UnpackInput(Buf, OutData%u_DBEMT(i1)) ! u_DBEMT end do - LB(1:1) = lbound(OutData%u_SkewWake) - UB(1:1) = ubound(OutData%u_SkewWake) + LB(1:1) = lbound(OutData%u_SkewWake, kind=B8Ki) + UB(1:1) = ubound(OutData%u_SkewWake, kind=B8Ki) do i1 = LB(1), UB(1) call BEMT_UnpackSkewWake_InputType(Buf, OutData%u_SkewWake(i1)) ! u_SkewWake end do @@ -1552,7 +1552,7 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyParam' @@ -1560,8 +1560,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) ErrMsg = '' DstParamData%DT = SrcParamData%DT if (allocated(SrcParamData%chord)) then - LB(1:2) = lbound(SrcParamData%chord) - UB(1:2) = ubound(SrcParamData%chord) + LB(1:2) = lbound(SrcParamData%chord, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%chord, kind=B8Ki) if (.not. allocated(DstParamData%chord)) then allocate(DstParamData%chord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1586,8 +1586,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%numReIterations = SrcParamData%numReIterations DstParamData%maxIndIterations = SrcParamData%maxIndIterations if (allocated(SrcParamData%AFindx)) then - LB(1:2) = lbound(SrcParamData%AFindx) - UB(1:2) = ubound(SrcParamData%AFindx) + LB(1:2) = lbound(SrcParamData%AFindx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%AFindx, kind=B8Ki) if (.not. allocated(DstParamData%AFindx)) then allocate(DstParamData%AFindx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1598,8 +1598,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AFindx = SrcParamData%AFindx end if if (allocated(SrcParamData%tipLossConst)) then - LB(1:2) = lbound(SrcParamData%tipLossConst) - UB(1:2) = ubound(SrcParamData%tipLossConst) + LB(1:2) = lbound(SrcParamData%tipLossConst, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%tipLossConst, kind=B8Ki) if (.not. allocated(DstParamData%tipLossConst)) then allocate(DstParamData%tipLossConst(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1610,8 +1610,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%tipLossConst = SrcParamData%tipLossConst end if if (allocated(SrcParamData%hubLossConst)) then - LB(1:2) = lbound(SrcParamData%hubLossConst) - UB(1:2) = ubound(SrcParamData%hubLossConst) + LB(1:2) = lbound(SrcParamData%hubLossConst, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%hubLossConst, kind=B8Ki) if (.not. allocated(DstParamData%hubLossConst)) then allocate(DstParamData%hubLossConst(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1622,8 +1622,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%hubLossConst = SrcParamData%hubLossConst end if if (allocated(SrcParamData%zHub)) then - LB(1:1) = lbound(SrcParamData%zHub) - UB(1:1) = ubound(SrcParamData%zHub) + LB(1:1) = lbound(SrcParamData%zHub, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%zHub, kind=B8Ki) if (.not. allocated(DstParamData%zHub)) then allocate(DstParamData%zHub(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1643,8 +1643,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DBEMT_Mod = SrcParamData%DBEMT_Mod DstParamData%yawCorrFactor = SrcParamData%yawCorrFactor if (allocated(SrcParamData%FixedInductions)) then - LB(1:2) = lbound(SrcParamData%FixedInductions) - UB(1:2) = ubound(SrcParamData%FixedInductions) + LB(1:2) = lbound(SrcParamData%FixedInductions, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%FixedInductions, kind=B8Ki) if (.not. allocated(DstParamData%FixedInductions)) then allocate(DstParamData%FixedInductions(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1657,8 +1657,8 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MomentumCorr = SrcParamData%MomentumCorr DstParamData%rTipFixMax = SrcParamData%rTipFixMax if (allocated(SrcParamData%IntegrateWeight)) then - LB(1:2) = lbound(SrcParamData%IntegrateWeight) - UB(1:2) = ubound(SrcParamData%IntegrateWeight) + LB(1:2) = lbound(SrcParamData%IntegrateWeight, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%IntegrateWeight, kind=B8Ki) if (.not. allocated(DstParamData%IntegrateWeight)) then allocate(DstParamData%IntegrateWeight(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1716,7 +1716,7 @@ subroutine BEMT_PackParam(Buf, Indata) call RegPack(Buf, InData%DT) call RegPack(Buf, allocated(InData%chord)) if (allocated(InData%chord)) then - call RegPackBounds(Buf, 2, lbound(InData%chord), ubound(InData%chord)) + call RegPackBounds(Buf, 2, lbound(InData%chord, kind=B8Ki), ubound(InData%chord, kind=B8Ki)) call RegPack(Buf, InData%chord) end if call RegPack(Buf, InData%numBlades) @@ -1735,22 +1735,22 @@ subroutine BEMT_PackParam(Buf, Indata) call RegPack(Buf, InData%maxIndIterations) call RegPack(Buf, allocated(InData%AFindx)) if (allocated(InData%AFindx)) then - call RegPackBounds(Buf, 2, lbound(InData%AFindx), ubound(InData%AFindx)) + call RegPackBounds(Buf, 2, lbound(InData%AFindx, kind=B8Ki), ubound(InData%AFindx, kind=B8Ki)) call RegPack(Buf, InData%AFindx) end if call RegPack(Buf, allocated(InData%tipLossConst)) if (allocated(InData%tipLossConst)) then - call RegPackBounds(Buf, 2, lbound(InData%tipLossConst), ubound(InData%tipLossConst)) + call RegPackBounds(Buf, 2, lbound(InData%tipLossConst, kind=B8Ki), ubound(InData%tipLossConst, kind=B8Ki)) call RegPack(Buf, InData%tipLossConst) end if call RegPack(Buf, allocated(InData%hubLossConst)) if (allocated(InData%hubLossConst)) then - call RegPackBounds(Buf, 2, lbound(InData%hubLossConst), ubound(InData%hubLossConst)) + call RegPackBounds(Buf, 2, lbound(InData%hubLossConst, kind=B8Ki), ubound(InData%hubLossConst, kind=B8Ki)) call RegPack(Buf, InData%hubLossConst) end if call RegPack(Buf, allocated(InData%zHub)) if (allocated(InData%zHub)) then - call RegPackBounds(Buf, 1, lbound(InData%zHub), ubound(InData%zHub)) + call RegPackBounds(Buf, 1, lbound(InData%zHub, kind=B8Ki), ubound(InData%zHub, kind=B8Ki)) call RegPack(Buf, InData%zHub) end if call UA_PackParam(Buf, InData%UA) @@ -1760,14 +1760,14 @@ subroutine BEMT_PackParam(Buf, Indata) call RegPack(Buf, InData%yawCorrFactor) call RegPack(Buf, allocated(InData%FixedInductions)) if (allocated(InData%FixedInductions)) then - call RegPackBounds(Buf, 2, lbound(InData%FixedInductions), ubound(InData%FixedInductions)) + call RegPackBounds(Buf, 2, lbound(InData%FixedInductions, kind=B8Ki), ubound(InData%FixedInductions, kind=B8Ki)) call RegPack(Buf, InData%FixedInductions) end if call RegPack(Buf, InData%MomentumCorr) call RegPack(Buf, InData%rTipFixMax) call RegPack(Buf, allocated(InData%IntegrateWeight)) if (allocated(InData%IntegrateWeight)) then - call RegPackBounds(Buf, 2, lbound(InData%IntegrateWeight), ubound(InData%IntegrateWeight)) + call RegPackBounds(Buf, 2, lbound(InData%IntegrateWeight, kind=B8Ki), ubound(InData%IntegrateWeight, kind=B8Ki)) call RegPack(Buf, InData%IntegrateWeight) end if call RegPack(Buf, InData%lin_nx) @@ -1779,7 +1779,7 @@ subroutine BEMT_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1935,14 +1935,14 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BEMT_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%theta)) then - LB(1:2) = lbound(SrcInputData%theta) - UB(1:2) = ubound(SrcInputData%theta) + LB(1:2) = lbound(SrcInputData%theta, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%theta, kind=B8Ki) if (.not. allocated(DstInputData%theta)) then allocate(DstInputData%theta(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1955,8 +1955,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%chi0 = SrcInputData%chi0 DstInputData%psiSkewOffset = SrcInputData%psiSkewOffset if (allocated(SrcInputData%psi_s)) then - LB(1:1) = lbound(SrcInputData%psi_s) - UB(1:1) = ubound(SrcInputData%psi_s) + LB(1:1) = lbound(SrcInputData%psi_s, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%psi_s, kind=B8Ki) if (.not. allocated(DstInputData%psi_s)) then allocate(DstInputData%psi_s(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1969,8 +1969,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%omega = SrcInputData%omega DstInputData%TSR = SrcInputData%TSR if (allocated(SrcInputData%Vx)) then - LB(1:2) = lbound(SrcInputData%Vx) - UB(1:2) = ubound(SrcInputData%Vx) + LB(1:2) = lbound(SrcInputData%Vx, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%Vx, kind=B8Ki) if (.not. allocated(DstInputData%Vx)) then allocate(DstInputData%Vx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1981,8 +1981,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vx = SrcInputData%Vx end if if (allocated(SrcInputData%Vy)) then - LB(1:2) = lbound(SrcInputData%Vy) - UB(1:2) = ubound(SrcInputData%Vy) + LB(1:2) = lbound(SrcInputData%Vy, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%Vy, kind=B8Ki) if (.not. allocated(DstInputData%Vy)) then allocate(DstInputData%Vy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1993,8 +1993,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vy = SrcInputData%Vy end if if (allocated(SrcInputData%Vz)) then - LB(1:2) = lbound(SrcInputData%Vz) - UB(1:2) = ubound(SrcInputData%Vz) + LB(1:2) = lbound(SrcInputData%Vz, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%Vz, kind=B8Ki) if (.not. allocated(DstInputData%Vz)) then allocate(DstInputData%Vz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2005,8 +2005,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vz = SrcInputData%Vz end if if (allocated(SrcInputData%omega_z)) then - LB(1:2) = lbound(SrcInputData%omega_z) - UB(1:2) = ubound(SrcInputData%omega_z) + LB(1:2) = lbound(SrcInputData%omega_z, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%omega_z, kind=B8Ki) if (.not. allocated(DstInputData%omega_z)) then allocate(DstInputData%omega_z(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2017,8 +2017,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%omega_z = SrcInputData%omega_z end if if (allocated(SrcInputData%xVelCorr)) then - LB(1:2) = lbound(SrcInputData%xVelCorr) - UB(1:2) = ubound(SrcInputData%xVelCorr) + LB(1:2) = lbound(SrcInputData%xVelCorr, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%xVelCorr, kind=B8Ki) if (.not. allocated(DstInputData%xVelCorr)) then allocate(DstInputData%xVelCorr(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2029,8 +2029,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%xVelCorr = SrcInputData%xVelCorr end if if (allocated(SrcInputData%rLocal)) then - LB(1:2) = lbound(SrcInputData%rLocal) - UB(1:2) = ubound(SrcInputData%rLocal) + LB(1:2) = lbound(SrcInputData%rLocal, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%rLocal, kind=B8Ki) if (.not. allocated(DstInputData%rLocal)) then allocate(DstInputData%rLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2044,8 +2044,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%V0 = SrcInputData%V0 DstInputData%x_hat_disk = SrcInputData%x_hat_disk if (allocated(SrcInputData%UserProp)) then - LB(1:2) = lbound(SrcInputData%UserProp) - UB(1:2) = ubound(SrcInputData%UserProp) + LB(1:2) = lbound(SrcInputData%UserProp, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%UserProp, kind=B8Ki) if (.not. allocated(DstInputData%UserProp)) then allocate(DstInputData%UserProp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2056,8 +2056,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%UserProp = SrcInputData%UserProp end if if (allocated(SrcInputData%CantAngle)) then - LB(1:2) = lbound(SrcInputData%CantAngle) - UB(1:2) = ubound(SrcInputData%CantAngle) + LB(1:2) = lbound(SrcInputData%CantAngle, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%CantAngle, kind=B8Ki) if (.not. allocated(DstInputData%CantAngle)) then allocate(DstInputData%CantAngle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2068,8 +2068,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%CantAngle = SrcInputData%CantAngle end if if (allocated(SrcInputData%drdz)) then - LB(1:2) = lbound(SrcInputData%drdz) - UB(1:2) = ubound(SrcInputData%drdz) + LB(1:2) = lbound(SrcInputData%drdz, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%drdz, kind=B8Ki) if (.not. allocated(DstInputData%drdz)) then allocate(DstInputData%drdz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2080,8 +2080,8 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%drdz = SrcInputData%drdz end if if (allocated(SrcInputData%toeAngle)) then - LB(1:2) = lbound(SrcInputData%toeAngle) - UB(1:2) = ubound(SrcInputData%toeAngle) + LB(1:2) = lbound(SrcInputData%toeAngle, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%toeAngle, kind=B8Ki) if (.not. allocated(DstInputData%toeAngle)) then allocate(DstInputData%toeAngle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2145,46 +2145,46 @@ subroutine BEMT_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%theta)) if (allocated(InData%theta)) then - call RegPackBounds(Buf, 2, lbound(InData%theta), ubound(InData%theta)) + call RegPackBounds(Buf, 2, lbound(InData%theta, kind=B8Ki), ubound(InData%theta, kind=B8Ki)) call RegPack(Buf, InData%theta) end if call RegPack(Buf, InData%chi0) call RegPack(Buf, InData%psiSkewOffset) call RegPack(Buf, allocated(InData%psi_s)) if (allocated(InData%psi_s)) then - call RegPackBounds(Buf, 1, lbound(InData%psi_s), ubound(InData%psi_s)) + call RegPackBounds(Buf, 1, lbound(InData%psi_s, kind=B8Ki), ubound(InData%psi_s, kind=B8Ki)) call RegPack(Buf, InData%psi_s) end if call RegPack(Buf, InData%omega) call RegPack(Buf, InData%TSR) call RegPack(Buf, allocated(InData%Vx)) if (allocated(InData%Vx)) then - call RegPackBounds(Buf, 2, lbound(InData%Vx), ubound(InData%Vx)) + call RegPackBounds(Buf, 2, lbound(InData%Vx, kind=B8Ki), ubound(InData%Vx, kind=B8Ki)) call RegPack(Buf, InData%Vx) end if call RegPack(Buf, allocated(InData%Vy)) if (allocated(InData%Vy)) then - call RegPackBounds(Buf, 2, lbound(InData%Vy), ubound(InData%Vy)) + call RegPackBounds(Buf, 2, lbound(InData%Vy, kind=B8Ki), ubound(InData%Vy, kind=B8Ki)) call RegPack(Buf, InData%Vy) end if call RegPack(Buf, allocated(InData%Vz)) if (allocated(InData%Vz)) then - call RegPackBounds(Buf, 2, lbound(InData%Vz), ubound(InData%Vz)) + call RegPackBounds(Buf, 2, lbound(InData%Vz, kind=B8Ki), ubound(InData%Vz, kind=B8Ki)) call RegPack(Buf, InData%Vz) end if call RegPack(Buf, allocated(InData%omega_z)) if (allocated(InData%omega_z)) then - call RegPackBounds(Buf, 2, lbound(InData%omega_z), ubound(InData%omega_z)) + call RegPackBounds(Buf, 2, lbound(InData%omega_z, kind=B8Ki), ubound(InData%omega_z, kind=B8Ki)) call RegPack(Buf, InData%omega_z) end if call RegPack(Buf, allocated(InData%xVelCorr)) if (allocated(InData%xVelCorr)) then - call RegPackBounds(Buf, 2, lbound(InData%xVelCorr), ubound(InData%xVelCorr)) + call RegPackBounds(Buf, 2, lbound(InData%xVelCorr, kind=B8Ki), ubound(InData%xVelCorr, kind=B8Ki)) call RegPack(Buf, InData%xVelCorr) end if call RegPack(Buf, allocated(InData%rLocal)) if (allocated(InData%rLocal)) then - call RegPackBounds(Buf, 2, lbound(InData%rLocal), ubound(InData%rLocal)) + call RegPackBounds(Buf, 2, lbound(InData%rLocal, kind=B8Ki), ubound(InData%rLocal, kind=B8Ki)) call RegPack(Buf, InData%rLocal) end if call RegPack(Buf, InData%Un_disk) @@ -2192,22 +2192,22 @@ subroutine BEMT_PackInput(Buf, Indata) call RegPack(Buf, InData%x_hat_disk) call RegPack(Buf, allocated(InData%UserProp)) if (allocated(InData%UserProp)) then - call RegPackBounds(Buf, 2, lbound(InData%UserProp), ubound(InData%UserProp)) + call RegPackBounds(Buf, 2, lbound(InData%UserProp, kind=B8Ki), ubound(InData%UserProp, kind=B8Ki)) call RegPack(Buf, InData%UserProp) end if call RegPack(Buf, allocated(InData%CantAngle)) if (allocated(InData%CantAngle)) then - call RegPackBounds(Buf, 2, lbound(InData%CantAngle), ubound(InData%CantAngle)) + call RegPackBounds(Buf, 2, lbound(InData%CantAngle, kind=B8Ki), ubound(InData%CantAngle, kind=B8Ki)) call RegPack(Buf, InData%CantAngle) end if call RegPack(Buf, allocated(InData%drdz)) if (allocated(InData%drdz)) then - call RegPackBounds(Buf, 2, lbound(InData%drdz), ubound(InData%drdz)) + call RegPackBounds(Buf, 2, lbound(InData%drdz, kind=B8Ki), ubound(InData%drdz, kind=B8Ki)) call RegPack(Buf, InData%drdz) end if call RegPack(Buf, allocated(InData%toeAngle)) if (allocated(InData%toeAngle)) then - call RegPackBounds(Buf, 2, lbound(InData%toeAngle), ubound(InData%toeAngle)) + call RegPackBounds(Buf, 2, lbound(InData%toeAngle, kind=B8Ki), ubound(InData%toeAngle, kind=B8Ki)) call RegPack(Buf, InData%toeAngle) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2217,7 +2217,7 @@ subroutine BEMT_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2411,14 +2411,14 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BEMT_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%Vrel)) then - LB(1:2) = lbound(SrcOutputData%Vrel) - UB(1:2) = ubound(SrcOutputData%Vrel) + LB(1:2) = lbound(SrcOutputData%Vrel, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Vrel, kind=B8Ki) if (.not. allocated(DstOutputData%Vrel)) then allocate(DstOutputData%Vrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2429,8 +2429,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Vrel = SrcOutputData%Vrel end if if (allocated(SrcOutputData%phi)) then - LB(1:2) = lbound(SrcOutputData%phi) - UB(1:2) = ubound(SrcOutputData%phi) + LB(1:2) = lbound(SrcOutputData%phi, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%phi, kind=B8Ki) if (.not. allocated(DstOutputData%phi)) then allocate(DstOutputData%phi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2441,8 +2441,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%phi = SrcOutputData%phi end if if (allocated(SrcOutputData%axInduction)) then - LB(1:2) = lbound(SrcOutputData%axInduction) - UB(1:2) = ubound(SrcOutputData%axInduction) + LB(1:2) = lbound(SrcOutputData%axInduction, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%axInduction, kind=B8Ki) if (.not. allocated(DstOutputData%axInduction)) then allocate(DstOutputData%axInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2453,8 +2453,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%axInduction = SrcOutputData%axInduction end if if (allocated(SrcOutputData%tanInduction)) then - LB(1:2) = lbound(SrcOutputData%tanInduction) - UB(1:2) = ubound(SrcOutputData%tanInduction) + LB(1:2) = lbound(SrcOutputData%tanInduction, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%tanInduction, kind=B8Ki) if (.not. allocated(DstOutputData%tanInduction)) then allocate(DstOutputData%tanInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2465,8 +2465,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%tanInduction = SrcOutputData%tanInduction end if if (allocated(SrcOutputData%axInduction_qs)) then - LB(1:2) = lbound(SrcOutputData%axInduction_qs) - UB(1:2) = ubound(SrcOutputData%axInduction_qs) + LB(1:2) = lbound(SrcOutputData%axInduction_qs, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%axInduction_qs, kind=B8Ki) if (.not. allocated(DstOutputData%axInduction_qs)) then allocate(DstOutputData%axInduction_qs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2477,8 +2477,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%axInduction_qs = SrcOutputData%axInduction_qs end if if (allocated(SrcOutputData%tanInduction_qs)) then - LB(1:2) = lbound(SrcOutputData%tanInduction_qs) - UB(1:2) = ubound(SrcOutputData%tanInduction_qs) + LB(1:2) = lbound(SrcOutputData%tanInduction_qs, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%tanInduction_qs, kind=B8Ki) if (.not. allocated(DstOutputData%tanInduction_qs)) then allocate(DstOutputData%tanInduction_qs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2489,8 +2489,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%tanInduction_qs = SrcOutputData%tanInduction_qs end if if (allocated(SrcOutputData%k)) then - LB(1:2) = lbound(SrcOutputData%k) - UB(1:2) = ubound(SrcOutputData%k) + LB(1:2) = lbound(SrcOutputData%k, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%k, kind=B8Ki) if (.not. allocated(DstOutputData%k)) then allocate(DstOutputData%k(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2501,8 +2501,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%k = SrcOutputData%k end if if (allocated(SrcOutputData%k_p)) then - LB(1:2) = lbound(SrcOutputData%k_p) - UB(1:2) = ubound(SrcOutputData%k_p) + LB(1:2) = lbound(SrcOutputData%k_p, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%k_p, kind=B8Ki) if (.not. allocated(DstOutputData%k_p)) then allocate(DstOutputData%k_p(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2513,8 +2513,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%k_p = SrcOutputData%k_p end if if (allocated(SrcOutputData%F)) then - LB(1:2) = lbound(SrcOutputData%F) - UB(1:2) = ubound(SrcOutputData%F) + LB(1:2) = lbound(SrcOutputData%F, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%F, kind=B8Ki) if (.not. allocated(DstOutputData%F)) then allocate(DstOutputData%F(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2525,8 +2525,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%F = SrcOutputData%F end if if (allocated(SrcOutputData%Re)) then - LB(1:2) = lbound(SrcOutputData%Re) - UB(1:2) = ubound(SrcOutputData%Re) + LB(1:2) = lbound(SrcOutputData%Re, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Re, kind=B8Ki) if (.not. allocated(DstOutputData%Re)) then allocate(DstOutputData%Re(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2537,8 +2537,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Re = SrcOutputData%Re end if if (allocated(SrcOutputData%AOA)) then - LB(1:2) = lbound(SrcOutputData%AOA) - UB(1:2) = ubound(SrcOutputData%AOA) + LB(1:2) = lbound(SrcOutputData%AOA, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%AOA, kind=B8Ki) if (.not. allocated(DstOutputData%AOA)) then allocate(DstOutputData%AOA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2549,8 +2549,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%AOA = SrcOutputData%AOA end if if (allocated(SrcOutputData%Cx)) then - LB(1:2) = lbound(SrcOutputData%Cx) - UB(1:2) = ubound(SrcOutputData%Cx) + LB(1:2) = lbound(SrcOutputData%Cx, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cx, kind=B8Ki) if (.not. allocated(DstOutputData%Cx)) then allocate(DstOutputData%Cx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2561,8 +2561,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cx = SrcOutputData%Cx end if if (allocated(SrcOutputData%Cy)) then - LB(1:2) = lbound(SrcOutputData%Cy) - UB(1:2) = ubound(SrcOutputData%Cy) + LB(1:2) = lbound(SrcOutputData%Cy, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cy, kind=B8Ki) if (.not. allocated(DstOutputData%Cy)) then allocate(DstOutputData%Cy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2573,8 +2573,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cy = SrcOutputData%Cy end if if (allocated(SrcOutputData%Cz)) then - LB(1:2) = lbound(SrcOutputData%Cz) - UB(1:2) = ubound(SrcOutputData%Cz) + LB(1:2) = lbound(SrcOutputData%Cz, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cz, kind=B8Ki) if (.not. allocated(DstOutputData%Cz)) then allocate(DstOutputData%Cz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2585,8 +2585,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cz = SrcOutputData%Cz end if if (allocated(SrcOutputData%Cmx)) then - LB(1:2) = lbound(SrcOutputData%Cmx) - UB(1:2) = ubound(SrcOutputData%Cmx) + LB(1:2) = lbound(SrcOutputData%Cmx, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cmx, kind=B8Ki) if (.not. allocated(DstOutputData%Cmx)) then allocate(DstOutputData%Cmx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2597,8 +2597,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cmx = SrcOutputData%Cmx end if if (allocated(SrcOutputData%Cmy)) then - LB(1:2) = lbound(SrcOutputData%Cmy) - UB(1:2) = ubound(SrcOutputData%Cmy) + LB(1:2) = lbound(SrcOutputData%Cmy, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cmy, kind=B8Ki) if (.not. allocated(DstOutputData%Cmy)) then allocate(DstOutputData%Cmy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2609,8 +2609,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cmy = SrcOutputData%Cmy end if if (allocated(SrcOutputData%Cmz)) then - LB(1:2) = lbound(SrcOutputData%Cmz) - UB(1:2) = ubound(SrcOutputData%Cmz) + LB(1:2) = lbound(SrcOutputData%Cmz, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cmz, kind=B8Ki) if (.not. allocated(DstOutputData%Cmz)) then allocate(DstOutputData%Cmz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2621,8 +2621,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cmz = SrcOutputData%Cmz end if if (allocated(SrcOutputData%Cm)) then - LB(1:2) = lbound(SrcOutputData%Cm) - UB(1:2) = ubound(SrcOutputData%Cm) + LB(1:2) = lbound(SrcOutputData%Cm, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cm, kind=B8Ki) if (.not. allocated(DstOutputData%Cm)) then allocate(DstOutputData%Cm(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2633,8 +2633,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cm = SrcOutputData%Cm end if if (allocated(SrcOutputData%Cl)) then - LB(1:2) = lbound(SrcOutputData%Cl) - UB(1:2) = ubound(SrcOutputData%Cl) + LB(1:2) = lbound(SrcOutputData%Cl, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cl, kind=B8Ki) if (.not. allocated(DstOutputData%Cl)) then allocate(DstOutputData%Cl(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2645,8 +2645,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cl = SrcOutputData%Cl end if if (allocated(SrcOutputData%Cd)) then - LB(1:2) = lbound(SrcOutputData%Cd) - UB(1:2) = ubound(SrcOutputData%Cd) + LB(1:2) = lbound(SrcOutputData%Cd, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cd, kind=B8Ki) if (.not. allocated(DstOutputData%Cd)) then allocate(DstOutputData%Cd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2657,8 +2657,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Cd = SrcOutputData%Cd end if if (allocated(SrcOutputData%chi)) then - LB(1:2) = lbound(SrcOutputData%chi) - UB(1:2) = ubound(SrcOutputData%chi) + LB(1:2) = lbound(SrcOutputData%chi, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%chi, kind=B8Ki) if (.not. allocated(DstOutputData%chi)) then allocate(DstOutputData%chi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2669,8 +2669,8 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%chi = SrcOutputData%chi end if if (allocated(SrcOutputData%Cpmin)) then - LB(1:2) = lbound(SrcOutputData%Cpmin) - UB(1:2) = ubound(SrcOutputData%Cpmin) + LB(1:2) = lbound(SrcOutputData%Cpmin, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Cpmin, kind=B8Ki) if (.not. allocated(DstOutputData%Cpmin)) then allocate(DstOutputData%Cpmin(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2764,112 +2764,112 @@ subroutine BEMT_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Vrel)) if (allocated(InData%Vrel)) then - call RegPackBounds(Buf, 2, lbound(InData%Vrel), ubound(InData%Vrel)) + call RegPackBounds(Buf, 2, lbound(InData%Vrel, kind=B8Ki), ubound(InData%Vrel, kind=B8Ki)) call RegPack(Buf, InData%Vrel) end if call RegPack(Buf, allocated(InData%phi)) if (allocated(InData%phi)) then - call RegPackBounds(Buf, 2, lbound(InData%phi), ubound(InData%phi)) + call RegPackBounds(Buf, 2, lbound(InData%phi, kind=B8Ki), ubound(InData%phi, kind=B8Ki)) call RegPack(Buf, InData%phi) end if call RegPack(Buf, allocated(InData%axInduction)) if (allocated(InData%axInduction)) then - call RegPackBounds(Buf, 2, lbound(InData%axInduction), ubound(InData%axInduction)) + call RegPackBounds(Buf, 2, lbound(InData%axInduction, kind=B8Ki), ubound(InData%axInduction, kind=B8Ki)) call RegPack(Buf, InData%axInduction) end if call RegPack(Buf, allocated(InData%tanInduction)) if (allocated(InData%tanInduction)) then - call RegPackBounds(Buf, 2, lbound(InData%tanInduction), ubound(InData%tanInduction)) + call RegPackBounds(Buf, 2, lbound(InData%tanInduction, kind=B8Ki), ubound(InData%tanInduction, kind=B8Ki)) call RegPack(Buf, InData%tanInduction) end if call RegPack(Buf, allocated(InData%axInduction_qs)) if (allocated(InData%axInduction_qs)) then - call RegPackBounds(Buf, 2, lbound(InData%axInduction_qs), ubound(InData%axInduction_qs)) + call RegPackBounds(Buf, 2, lbound(InData%axInduction_qs, kind=B8Ki), ubound(InData%axInduction_qs, kind=B8Ki)) call RegPack(Buf, InData%axInduction_qs) end if call RegPack(Buf, allocated(InData%tanInduction_qs)) if (allocated(InData%tanInduction_qs)) then - call RegPackBounds(Buf, 2, lbound(InData%tanInduction_qs), ubound(InData%tanInduction_qs)) + call RegPackBounds(Buf, 2, lbound(InData%tanInduction_qs, kind=B8Ki), ubound(InData%tanInduction_qs, kind=B8Ki)) call RegPack(Buf, InData%tanInduction_qs) end if call RegPack(Buf, allocated(InData%k)) if (allocated(InData%k)) then - call RegPackBounds(Buf, 2, lbound(InData%k), ubound(InData%k)) + call RegPackBounds(Buf, 2, lbound(InData%k, kind=B8Ki), ubound(InData%k, kind=B8Ki)) call RegPack(Buf, InData%k) end if call RegPack(Buf, allocated(InData%k_p)) if (allocated(InData%k_p)) then - call RegPackBounds(Buf, 2, lbound(InData%k_p), ubound(InData%k_p)) + call RegPackBounds(Buf, 2, lbound(InData%k_p, kind=B8Ki), ubound(InData%k_p, kind=B8Ki)) call RegPack(Buf, InData%k_p) end if call RegPack(Buf, allocated(InData%F)) if (allocated(InData%F)) then - call RegPackBounds(Buf, 2, lbound(InData%F), ubound(InData%F)) + call RegPackBounds(Buf, 2, lbound(InData%F, kind=B8Ki), ubound(InData%F, kind=B8Ki)) call RegPack(Buf, InData%F) end if call RegPack(Buf, allocated(InData%Re)) if (allocated(InData%Re)) then - call RegPackBounds(Buf, 2, lbound(InData%Re), ubound(InData%Re)) + call RegPackBounds(Buf, 2, lbound(InData%Re, kind=B8Ki), ubound(InData%Re, kind=B8Ki)) call RegPack(Buf, InData%Re) end if call RegPack(Buf, allocated(InData%AOA)) if (allocated(InData%AOA)) then - call RegPackBounds(Buf, 2, lbound(InData%AOA), ubound(InData%AOA)) + call RegPackBounds(Buf, 2, lbound(InData%AOA, kind=B8Ki), ubound(InData%AOA, kind=B8Ki)) call RegPack(Buf, InData%AOA) end if call RegPack(Buf, allocated(InData%Cx)) if (allocated(InData%Cx)) then - call RegPackBounds(Buf, 2, lbound(InData%Cx), ubound(InData%Cx)) + call RegPackBounds(Buf, 2, lbound(InData%Cx, kind=B8Ki), ubound(InData%Cx, kind=B8Ki)) call RegPack(Buf, InData%Cx) end if call RegPack(Buf, allocated(InData%Cy)) if (allocated(InData%Cy)) then - call RegPackBounds(Buf, 2, lbound(InData%Cy), ubound(InData%Cy)) + call RegPackBounds(Buf, 2, lbound(InData%Cy, kind=B8Ki), ubound(InData%Cy, kind=B8Ki)) call RegPack(Buf, InData%Cy) end if call RegPack(Buf, allocated(InData%Cz)) if (allocated(InData%Cz)) then - call RegPackBounds(Buf, 2, lbound(InData%Cz), ubound(InData%Cz)) + call RegPackBounds(Buf, 2, lbound(InData%Cz, kind=B8Ki), ubound(InData%Cz, kind=B8Ki)) call RegPack(Buf, InData%Cz) end if call RegPack(Buf, allocated(InData%Cmx)) if (allocated(InData%Cmx)) then - call RegPackBounds(Buf, 2, lbound(InData%Cmx), ubound(InData%Cmx)) + call RegPackBounds(Buf, 2, lbound(InData%Cmx, kind=B8Ki), ubound(InData%Cmx, kind=B8Ki)) call RegPack(Buf, InData%Cmx) end if call RegPack(Buf, allocated(InData%Cmy)) if (allocated(InData%Cmy)) then - call RegPackBounds(Buf, 2, lbound(InData%Cmy), ubound(InData%Cmy)) + call RegPackBounds(Buf, 2, lbound(InData%Cmy, kind=B8Ki), ubound(InData%Cmy, kind=B8Ki)) call RegPack(Buf, InData%Cmy) end if call RegPack(Buf, allocated(InData%Cmz)) if (allocated(InData%Cmz)) then - call RegPackBounds(Buf, 2, lbound(InData%Cmz), ubound(InData%Cmz)) + call RegPackBounds(Buf, 2, lbound(InData%Cmz, kind=B8Ki), ubound(InData%Cmz, kind=B8Ki)) call RegPack(Buf, InData%Cmz) end if call RegPack(Buf, allocated(InData%Cm)) if (allocated(InData%Cm)) then - call RegPackBounds(Buf, 2, lbound(InData%Cm), ubound(InData%Cm)) + call RegPackBounds(Buf, 2, lbound(InData%Cm, kind=B8Ki), ubound(InData%Cm, kind=B8Ki)) call RegPack(Buf, InData%Cm) end if call RegPack(Buf, allocated(InData%Cl)) if (allocated(InData%Cl)) then - call RegPackBounds(Buf, 2, lbound(InData%Cl), ubound(InData%Cl)) + call RegPackBounds(Buf, 2, lbound(InData%Cl, kind=B8Ki), ubound(InData%Cl, kind=B8Ki)) call RegPack(Buf, InData%Cl) end if call RegPack(Buf, allocated(InData%Cd)) if (allocated(InData%Cd)) then - call RegPackBounds(Buf, 2, lbound(InData%Cd), ubound(InData%Cd)) + call RegPackBounds(Buf, 2, lbound(InData%Cd, kind=B8Ki), ubound(InData%Cd, kind=B8Ki)) call RegPack(Buf, InData%Cd) end if call RegPack(Buf, allocated(InData%chi)) if (allocated(InData%chi)) then - call RegPackBounds(Buf, 2, lbound(InData%chi), ubound(InData%chi)) + call RegPackBounds(Buf, 2, lbound(InData%chi, kind=B8Ki), ubound(InData%chi, kind=B8Ki)) call RegPack(Buf, InData%chi) end if call RegPack(Buf, allocated(InData%Cpmin)) if (allocated(InData%Cpmin)) then - call RegPackBounds(Buf, 2, lbound(InData%Cpmin), ubound(InData%Cpmin)) + call RegPackBounds(Buf, 2, lbound(InData%Cpmin, kind=B8Ki), ubound(InData%Cpmin, kind=B8Ki)) call RegPack(Buf, InData%Cpmin) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2879,7 +2879,7 @@ subroutine BEMT_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BEMT_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/DBEMT_Types.f90 b/modules/aerodyn/src/DBEMT_Types.f90 index 76ad84f50f..dbc59138e3 100644 --- a/modules/aerodyn/src/DBEMT_Types.f90 +++ b/modules/aerodyn/src/DBEMT_Types.f90 @@ -125,7 +125,7 @@ subroutine DBEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DBEMT_CopyInitInput' ErrStat = ErrID_None @@ -135,8 +135,8 @@ subroutine DBEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%tau1_const = SrcInitInputData%tau1_const DstInitInputData%DBEMT_Mod = SrcInitInputData%DBEMT_Mod if (allocated(SrcInitInputData%rLocal)) then - LB(1:2) = lbound(SrcInitInputData%rLocal) - UB(1:2) = ubound(SrcInitInputData%rLocal) + LB(1:2) = lbound(SrcInitInputData%rLocal, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%rLocal, kind=B8Ki) if (.not. allocated(DstInitInputData%rLocal)) then allocate(DstInitInputData%rLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -171,7 +171,7 @@ subroutine DBEMT_PackInitInput(Buf, Indata) call RegPack(Buf, InData%DBEMT_Mod) call RegPack(Buf, allocated(InData%rLocal)) if (allocated(InData%rLocal)) then - call RegPackBounds(Buf, 2, lbound(InData%rLocal), ubound(InData%rLocal)) + call RegPackBounds(Buf, 2, lbound(InData%rLocal, kind=B8Ki), ubound(InData%rLocal, kind=B8Ki)) call RegPack(Buf, InData%rLocal) end if if (RegCheckErr(Buf, RoutineName)) return @@ -181,7 +181,7 @@ subroutine DBEMT_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DBEMT_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackInitInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -304,16 +304,16 @@ subroutine DBEMT_CopyContState(SrcContStateData, DstContStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%element)) then - LB(1:2) = lbound(SrcContStateData%element) - UB(1:2) = ubound(SrcContStateData%element) + LB(1:2) = lbound(SrcContStateData%element, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%element, kind=B8Ki) if (.not. allocated(DstContStateData%element)) then allocate(DstContStateData%element(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -335,16 +335,16 @@ subroutine DBEMT_DestroyContState(ContStateData, ErrStat, ErrMsg) type(DBEMT_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%element)) then - LB(1:2) = lbound(ContStateData%element) - UB(1:2) = ubound(ContStateData%element) + LB(1:2) = lbound(ContStateData%element, kind=B8Ki) + UB(1:2) = ubound(ContStateData%element, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_DestroyElementContinuousStateType(ContStateData%element(i1,i2), ErrStat2, ErrMsg2) @@ -359,14 +359,14 @@ subroutine DBEMT_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(DBEMT_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'DBEMT_PackContState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%element)) if (allocated(InData%element)) then - call RegPackBounds(Buf, 2, lbound(InData%element), ubound(InData%element)) - LB(1:2) = lbound(InData%element) - UB(1:2) = ubound(InData%element) + call RegPackBounds(Buf, 2, lbound(InData%element, kind=B8Ki), ubound(InData%element, kind=B8Ki)) + LB(1:2) = lbound(InData%element, kind=B8Ki) + UB(1:2) = ubound(InData%element, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_PackElementContinuousStateType(Buf, InData%element(i1,i2)) @@ -380,8 +380,8 @@ subroutine DBEMT_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DBEMT_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackContState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -488,16 +488,16 @@ subroutine DBEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%areStatesInitialized)) then - LB(1:2) = lbound(SrcOtherStateData%areStatesInitialized) - UB(1:2) = ubound(SrcOtherStateData%areStatesInitialized) + LB(1:2) = lbound(SrcOtherStateData%areStatesInitialized, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%areStatesInitialized, kind=B8Ki) if (.not. allocated(DstOtherStateData%areStatesInitialized)) then allocate(DstOtherStateData%areStatesInitialized(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -510,8 +510,8 @@ subroutine DBEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, DstOtherStateData%tau1 = SrcOtherStateData%tau1 DstOtherStateData%tau2 = SrcOtherStateData%tau2 if (allocated(SrcOtherStateData%n)) then - LB(1:2) = lbound(SrcOtherStateData%n) - UB(1:2) = ubound(SrcOtherStateData%n) + LB(1:2) = lbound(SrcOtherStateData%n, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%n, kind=B8Ki) if (.not. allocated(DstOtherStateData%n)) then allocate(DstOtherStateData%n(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -521,8 +521,8 @@ subroutine DBEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, end if DstOtherStateData%n = SrcOtherStateData%n end if - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -534,8 +534,8 @@ subroutine DBEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(DBEMT_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_DestroyOtherState' @@ -547,8 +547,8 @@ subroutine DBEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) if (allocated(OtherStateData%n)) then deallocate(OtherStateData%n) end if - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -559,23 +559,23 @@ subroutine DBEMT_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(DBEMT_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'DBEMT_PackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%areStatesInitialized)) if (allocated(InData%areStatesInitialized)) then - call RegPackBounds(Buf, 2, lbound(InData%areStatesInitialized), ubound(InData%areStatesInitialized)) + call RegPackBounds(Buf, 2, lbound(InData%areStatesInitialized, kind=B8Ki), ubound(InData%areStatesInitialized, kind=B8Ki)) call RegPack(Buf, InData%areStatesInitialized) end if call RegPack(Buf, InData%tau1) call RegPack(Buf, InData%tau2) call RegPack(Buf, allocated(InData%n)) if (allocated(InData%n)) then - call RegPackBounds(Buf, 2, lbound(InData%n), ubound(InData%n)) + call RegPackBounds(Buf, 2, lbound(InData%n, kind=B8Ki), ubound(InData%n, kind=B8Ki)) call RegPack(Buf, InData%n) end if - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_PackContState(Buf, InData%xdot(i1)) end do @@ -586,8 +586,8 @@ subroutine DBEMT_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DBEMT_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -623,8 +623,8 @@ subroutine DBEMT_UnPackOtherState(Buf, OutData) call RegUnpack(Buf, OutData%n) if (RegCheckErr(Buf, RoutineName)) return end if - LB(1:1) = lbound(OutData%xdot) - UB(1:1) = ubound(OutData%xdot) + LB(1:1) = lbound(OutData%xdot, kind=B8Ki) + UB(1:1) = ubound(OutData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call DBEMT_UnpackContState(Buf, OutData%xdot(i1)) ! xdot end do @@ -675,7 +675,7 @@ subroutine DBEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DBEMT_CopyParam' ErrStat = ErrID_None @@ -687,8 +687,8 @@ subroutine DBEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%k_0ye = SrcParamData%k_0ye DstParamData%tau1_const = SrcParamData%tau1_const if (allocated(SrcParamData%spanRatio)) then - LB(1:2) = lbound(SrcParamData%spanRatio) - UB(1:2) = ubound(SrcParamData%spanRatio) + LB(1:2) = lbound(SrcParamData%spanRatio, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%spanRatio, kind=B8Ki) if (.not. allocated(DstParamData%spanRatio)) then allocate(DstParamData%spanRatio(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -726,7 +726,7 @@ subroutine DBEMT_PackParam(Buf, Indata) call RegPack(Buf, InData%tau1_const) call RegPack(Buf, allocated(InData%spanRatio)) if (allocated(InData%spanRatio)) then - call RegPackBounds(Buf, 2, lbound(InData%spanRatio), ubound(InData%spanRatio)) + call RegPackBounds(Buf, 2, lbound(InData%spanRatio, kind=B8Ki), ubound(InData%spanRatio, kind=B8Ki)) call RegPack(Buf, InData%spanRatio) end if call RegPack(Buf, InData%DBEMT_Mod) @@ -737,7 +737,7 @@ subroutine DBEMT_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DBEMT_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -820,8 +820,8 @@ subroutine DBEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_CopyInput' @@ -831,8 +831,8 @@ subroutine DBEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg DstInputData%Un_disk = SrcInputData%Un_disk DstInputData%R_disk = SrcInputData%R_disk if (allocated(SrcInputData%element)) then - LB(1:2) = lbound(SrcInputData%element) - UB(1:2) = ubound(SrcInputData%element) + LB(1:2) = lbound(SrcInputData%element, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%element, kind=B8Ki) if (.not. allocated(DstInputData%element)) then allocate(DstInputData%element(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -854,16 +854,16 @@ subroutine DBEMT_DestroyInput(InputData, ErrStat, ErrMsg) type(DBEMT_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%element)) then - LB(1:2) = lbound(InputData%element) - UB(1:2) = ubound(InputData%element) + LB(1:2) = lbound(InputData%element, kind=B8Ki) + UB(1:2) = ubound(InputData%element, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_DestroyElementInputType(InputData%element(i1,i2), ErrStat2, ErrMsg2) @@ -878,17 +878,17 @@ subroutine DBEMT_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(DBEMT_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'DBEMT_PackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%AxInd_disk) call RegPack(Buf, InData%Un_disk) call RegPack(Buf, InData%R_disk) call RegPack(Buf, allocated(InData%element)) if (allocated(InData%element)) then - call RegPackBounds(Buf, 2, lbound(InData%element), ubound(InData%element)) - LB(1:2) = lbound(InData%element) - UB(1:2) = ubound(InData%element) + call RegPackBounds(Buf, 2, lbound(InData%element, kind=B8Ki), ubound(InData%element, kind=B8Ki)) + LB(1:2) = lbound(InData%element, kind=B8Ki) + UB(1:2) = ubound(InData%element, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_PackElementInputType(Buf, InData%element(i1,i2)) @@ -902,8 +902,8 @@ subroutine DBEMT_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DBEMT_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -938,14 +938,14 @@ subroutine DBEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DBEMT_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%vind)) then - LB(1:3) = lbound(SrcOutputData%vind) - UB(1:3) = ubound(SrcOutputData%vind) + LB(1:3) = lbound(SrcOutputData%vind, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%vind, kind=B8Ki) if (.not. allocated(DstOutputData%vind)) then allocate(DstOutputData%vind(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -976,7 +976,7 @@ subroutine DBEMT_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%vind)) if (allocated(InData%vind)) then - call RegPackBounds(Buf, 3, lbound(InData%vind), ubound(InData%vind)) + call RegPackBounds(Buf, 3, lbound(InData%vind, kind=B8Ki), ubound(InData%vind, kind=B8Ki)) call RegPack(Buf, InData%vind) end if if (RegCheckErr(Buf, RoutineName)) return @@ -986,7 +986,7 @@ subroutine DBEMT_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DBEMT_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackOutput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1269,13 +1269,13 @@ SUBROUTINE DBEMT_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMs u_out%Un_disk = a1*u1%Un_disk + a2*u2%Un_disk u_out%R_disk = a1*u1%R_disk + a2*u2%R_disk IF (ALLOCATED(u_out%element) .AND. ALLOCATED(u1%element)) THEN - DO i02 = LBOUND(u_out%element,2),UBOUND(u_out%element,2) - DO i01 = LBOUND(u_out%element,1),UBOUND(u_out%element,1) + DO i02 = LBOUND(u_out%element,2, kind=B8Ki),UBOUND(u_out%element,2, kind=B8Ki) + DO i01 = LBOUND(u_out%element,1, kind=B8Ki),UBOUND(u_out%element,1, kind=B8Ki) u_out%element(i01,i02)%vind_s = a1*u1%element(i01,i02)%vind_s + a2*u2%element(i01,i02)%vind_s END DO END DO - DO i02 = LBOUND(u_out%element,2),UBOUND(u_out%element,2) - DO i01 = LBOUND(u_out%element,1),UBOUND(u_out%element,1) + DO i02 = LBOUND(u_out%element,2, kind=B8Ki),UBOUND(u_out%element,2, kind=B8Ki) + DO i01 = LBOUND(u_out%element,1, kind=B8Ki),UBOUND(u_out%element,1, kind=B8Ki) u_out%element(i01,i02)%spanRatio = a1*u1%element(i01,i02)%spanRatio + a2*u2%element(i01,i02)%spanRatio END DO END DO @@ -1343,13 +1343,13 @@ SUBROUTINE DBEMT_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, E u_out%Un_disk = a1*u1%Un_disk + a2*u2%Un_disk + a3*u3%Un_disk u_out%R_disk = a1*u1%R_disk + a2*u2%R_disk + a3*u3%R_disk IF (ALLOCATED(u_out%element) .AND. ALLOCATED(u1%element)) THEN - DO i02 = LBOUND(u_out%element,2),UBOUND(u_out%element,2) - DO i01 = LBOUND(u_out%element,1),UBOUND(u_out%element,1) + DO i02 = LBOUND(u_out%element,2, kind=B8Ki),UBOUND(u_out%element,2, kind=B8Ki) + DO i01 = LBOUND(u_out%element,1, kind=B8Ki),UBOUND(u_out%element,1, kind=B8Ki) u_out%element(i01,i02)%vind_s = a1*u1%element(i01,i02)%vind_s + a2*u2%element(i01,i02)%vind_s + a3*u3%element(i01,i02)%vind_s END DO END DO - DO i02 = LBOUND(u_out%element,2),UBOUND(u_out%element,2) - DO i01 = LBOUND(u_out%element,1),UBOUND(u_out%element,1) + DO i02 = LBOUND(u_out%element,2, kind=B8Ki),UBOUND(u_out%element,2, kind=B8Ki) + DO i01 = LBOUND(u_out%element,1, kind=B8Ki),UBOUND(u_out%element,1, kind=B8Ki) u_out%element(i01,i02)%spanRatio = a1*u1%element(i01,i02)%spanRatio + a2*u2%element(i01,i02)%spanRatio + a3*u3%element(i01,i02)%spanRatio END DO END DO diff --git a/modules/aerodyn/src/FVW_Types.f90 b/modules/aerodyn/src/FVW_Types.f90 index 537f0b06b5..bd59dc4a50 100644 --- a/modules/aerodyn/src/FVW_Types.f90 +++ b/modules/aerodyn/src/FVW_Types.f90 @@ -363,7 +363,7 @@ subroutine FVW_CopyGridOutType(SrcGridOutTypeData, DstGridOutTypeData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyGridOutType' ErrStat = ErrID_None @@ -383,8 +383,8 @@ subroutine FVW_CopyGridOutType(SrcGridOutTypeData, DstGridOutTypeData, CtrlCode, DstGridOutTypeData%ny = SrcGridOutTypeData%ny DstGridOutTypeData%nz = SrcGridOutTypeData%nz if (allocated(SrcGridOutTypeData%uGrid)) then - LB(1:4) = lbound(SrcGridOutTypeData%uGrid) - UB(1:4) = ubound(SrcGridOutTypeData%uGrid) + LB(1:4) = lbound(SrcGridOutTypeData%uGrid, kind=B8Ki) + UB(1:4) = ubound(SrcGridOutTypeData%uGrid, kind=B8Ki) if (.not. allocated(DstGridOutTypeData%uGrid)) then allocate(DstGridOutTypeData%uGrid(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -395,8 +395,8 @@ subroutine FVW_CopyGridOutType(SrcGridOutTypeData, DstGridOutTypeData, CtrlCode, DstGridOutTypeData%uGrid = SrcGridOutTypeData%uGrid end if if (allocated(SrcGridOutTypeData%omGrid)) then - LB(1:4) = lbound(SrcGridOutTypeData%omGrid) - UB(1:4) = ubound(SrcGridOutTypeData%omGrid) + LB(1:4) = lbound(SrcGridOutTypeData%omGrid, kind=B8Ki) + UB(1:4) = ubound(SrcGridOutTypeData%omGrid, kind=B8Ki) if (.not. allocated(DstGridOutTypeData%omGrid)) then allocate(DstGridOutTypeData%omGrid(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -445,12 +445,12 @@ subroutine FVW_PackGridOutType(Buf, Indata) call RegPack(Buf, InData%nz) call RegPack(Buf, allocated(InData%uGrid)) if (allocated(InData%uGrid)) then - call RegPackBounds(Buf, 4, lbound(InData%uGrid), ubound(InData%uGrid)) + call RegPackBounds(Buf, 4, lbound(InData%uGrid, kind=B8Ki), ubound(InData%uGrid, kind=B8Ki)) call RegPack(Buf, InData%uGrid) end if call RegPack(Buf, allocated(InData%omGrid)) if (allocated(InData%omGrid)) then - call RegPackBounds(Buf, 4, lbound(InData%omGrid), ubound(InData%omGrid)) + call RegPackBounds(Buf, 4, lbound(InData%omGrid, kind=B8Ki), ubound(InData%omGrid, kind=B8Ki)) call RegPack(Buf, InData%omGrid) end if call RegPack(Buf, InData%tLastOutput) @@ -461,7 +461,7 @@ subroutine FVW_UnPackGridOutType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(GridOutType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackGridOutType' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -531,14 +531,14 @@ subroutine FVW_CopyT_Sgmt(SrcT_SgmtData, DstT_SgmtData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyT_Sgmt' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcT_SgmtData%Points)) then - LB(1:2) = lbound(SrcT_SgmtData%Points) - UB(1:2) = ubound(SrcT_SgmtData%Points) + LB(1:2) = lbound(SrcT_SgmtData%Points, kind=B8Ki) + UB(1:2) = ubound(SrcT_SgmtData%Points, kind=B8Ki) if (.not. allocated(DstT_SgmtData%Points)) then allocate(DstT_SgmtData%Points(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -549,8 +549,8 @@ subroutine FVW_CopyT_Sgmt(SrcT_SgmtData, DstT_SgmtData, CtrlCode, ErrStat, ErrMs DstT_SgmtData%Points = SrcT_SgmtData%Points end if if (allocated(SrcT_SgmtData%Connct)) then - LB(1:2) = lbound(SrcT_SgmtData%Connct) - UB(1:2) = ubound(SrcT_SgmtData%Connct) + LB(1:2) = lbound(SrcT_SgmtData%Connct, kind=B8Ki) + UB(1:2) = ubound(SrcT_SgmtData%Connct, kind=B8Ki) if (.not. allocated(DstT_SgmtData%Connct)) then allocate(DstT_SgmtData%Connct(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -561,8 +561,8 @@ subroutine FVW_CopyT_Sgmt(SrcT_SgmtData, DstT_SgmtData, CtrlCode, ErrStat, ErrMs DstT_SgmtData%Connct = SrcT_SgmtData%Connct end if if (allocated(SrcT_SgmtData%Gamma)) then - LB(1:1) = lbound(SrcT_SgmtData%Gamma) - UB(1:1) = ubound(SrcT_SgmtData%Gamma) + LB(1:1) = lbound(SrcT_SgmtData%Gamma, kind=B8Ki) + UB(1:1) = ubound(SrcT_SgmtData%Gamma, kind=B8Ki) if (.not. allocated(DstT_SgmtData%Gamma)) then allocate(DstT_SgmtData%Gamma(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -573,8 +573,8 @@ subroutine FVW_CopyT_Sgmt(SrcT_SgmtData, DstT_SgmtData, CtrlCode, ErrStat, ErrMs DstT_SgmtData%Gamma = SrcT_SgmtData%Gamma end if if (allocated(SrcT_SgmtData%Epsilon)) then - LB(1:1) = lbound(SrcT_SgmtData%Epsilon) - UB(1:1) = ubound(SrcT_SgmtData%Epsilon) + LB(1:1) = lbound(SrcT_SgmtData%Epsilon, kind=B8Ki) + UB(1:1) = ubound(SrcT_SgmtData%Epsilon, kind=B8Ki) if (.not. allocated(DstT_SgmtData%Epsilon)) then allocate(DstT_SgmtData%Epsilon(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -617,22 +617,22 @@ subroutine FVW_PackT_Sgmt(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Points)) if (allocated(InData%Points)) then - call RegPackBounds(Buf, 2, lbound(InData%Points), ubound(InData%Points)) + call RegPackBounds(Buf, 2, lbound(InData%Points, kind=B8Ki), ubound(InData%Points, kind=B8Ki)) call RegPack(Buf, InData%Points) end if call RegPack(Buf, allocated(InData%Connct)) if (allocated(InData%Connct)) then - call RegPackBounds(Buf, 2, lbound(InData%Connct), ubound(InData%Connct)) + call RegPackBounds(Buf, 2, lbound(InData%Connct, kind=B8Ki), ubound(InData%Connct, kind=B8Ki)) call RegPack(Buf, InData%Connct) end if call RegPack(Buf, allocated(InData%Gamma)) if (allocated(InData%Gamma)) then - call RegPackBounds(Buf, 1, lbound(InData%Gamma), ubound(InData%Gamma)) + call RegPackBounds(Buf, 1, lbound(InData%Gamma, kind=B8Ki), ubound(InData%Gamma, kind=B8Ki)) call RegPack(Buf, InData%Gamma) end if call RegPack(Buf, allocated(InData%Epsilon)) if (allocated(InData%Epsilon)) then - call RegPackBounds(Buf, 1, lbound(InData%Epsilon), ubound(InData%Epsilon)) + call RegPackBounds(Buf, 1, lbound(InData%Epsilon, kind=B8Ki), ubound(InData%Epsilon, kind=B8Ki)) call RegPack(Buf, InData%Epsilon) end if call RegPack(Buf, InData%RegFunction) @@ -645,7 +645,7 @@ subroutine FVW_UnPackT_Sgmt(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(T_Sgmt), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackT_Sgmt' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -719,14 +719,14 @@ subroutine FVW_CopyT_Part(SrcT_PartData, DstT_PartData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyT_Part' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcT_PartData%P)) then - LB(1:2) = lbound(SrcT_PartData%P) - UB(1:2) = ubound(SrcT_PartData%P) + LB(1:2) = lbound(SrcT_PartData%P, kind=B8Ki) + UB(1:2) = ubound(SrcT_PartData%P, kind=B8Ki) if (.not. allocated(DstT_PartData%P)) then allocate(DstT_PartData%P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -737,8 +737,8 @@ subroutine FVW_CopyT_Part(SrcT_PartData, DstT_PartData, CtrlCode, ErrStat, ErrMs DstT_PartData%P = SrcT_PartData%P end if if (allocated(SrcT_PartData%Alpha)) then - LB(1:2) = lbound(SrcT_PartData%Alpha) - UB(1:2) = ubound(SrcT_PartData%Alpha) + LB(1:2) = lbound(SrcT_PartData%Alpha, kind=B8Ki) + UB(1:2) = ubound(SrcT_PartData%Alpha, kind=B8Ki) if (.not. allocated(DstT_PartData%Alpha)) then allocate(DstT_PartData%Alpha(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -749,8 +749,8 @@ subroutine FVW_CopyT_Part(SrcT_PartData, DstT_PartData, CtrlCode, ErrStat, ErrMs DstT_PartData%Alpha = SrcT_PartData%Alpha end if if (allocated(SrcT_PartData%RegParam)) then - LB(1:1) = lbound(SrcT_PartData%RegParam) - UB(1:1) = ubound(SrcT_PartData%RegParam) + LB(1:1) = lbound(SrcT_PartData%RegParam, kind=B8Ki) + UB(1:1) = ubound(SrcT_PartData%RegParam, kind=B8Ki) if (.not. allocated(DstT_PartData%RegParam)) then allocate(DstT_PartData%RegParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -789,17 +789,17 @@ subroutine FVW_PackT_Part(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%P)) if (allocated(InData%P)) then - call RegPackBounds(Buf, 2, lbound(InData%P), ubound(InData%P)) + call RegPackBounds(Buf, 2, lbound(InData%P, kind=B8Ki), ubound(InData%P, kind=B8Ki)) call RegPack(Buf, InData%P) end if call RegPack(Buf, allocated(InData%Alpha)) if (allocated(InData%Alpha)) then - call RegPackBounds(Buf, 2, lbound(InData%Alpha), ubound(InData%Alpha)) + call RegPackBounds(Buf, 2, lbound(InData%Alpha, kind=B8Ki), ubound(InData%Alpha, kind=B8Ki)) call RegPack(Buf, InData%Alpha) end if call RegPack(Buf, allocated(InData%RegParam)) if (allocated(InData%RegParam)) then - call RegPackBounds(Buf, 1, lbound(InData%RegParam), ubound(InData%RegParam)) + call RegPackBounds(Buf, 1, lbound(InData%RegParam, kind=B8Ki), ubound(InData%RegParam, kind=B8Ki)) call RegPack(Buf, InData%RegParam) end if call RegPack(Buf, InData%RegFunction) @@ -811,7 +811,7 @@ subroutine FVW_UnPackT_Part(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(T_Part), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackT_Part' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -869,14 +869,14 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyWng_ParameterType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_ParameterTypeData%chord_LL)) then - LB(1:1) = lbound(SrcWng_ParameterTypeData%chord_LL) - UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_LL) + LB(1:1) = lbound(SrcWng_ParameterTypeData%chord_LL, kind=B8Ki) + UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_LL, kind=B8Ki) if (.not. allocated(DstWng_ParameterTypeData%chord_LL)) then allocate(DstWng_ParameterTypeData%chord_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -887,8 +887,8 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT DstWng_ParameterTypeData%chord_LL = SrcWng_ParameterTypeData%chord_LL end if if (allocated(SrcWng_ParameterTypeData%chord_CP)) then - LB(1:1) = lbound(SrcWng_ParameterTypeData%chord_CP) - UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_CP) + LB(1:1) = lbound(SrcWng_ParameterTypeData%chord_CP, kind=B8Ki) + UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_CP, kind=B8Ki) if (.not. allocated(DstWng_ParameterTypeData%chord_CP)) then allocate(DstWng_ParameterTypeData%chord_CP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -899,8 +899,8 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT DstWng_ParameterTypeData%chord_CP = SrcWng_ParameterTypeData%chord_CP end if if (allocated(SrcWng_ParameterTypeData%s_LL)) then - LB(1:1) = lbound(SrcWng_ParameterTypeData%s_LL) - UB(1:1) = ubound(SrcWng_ParameterTypeData%s_LL) + LB(1:1) = lbound(SrcWng_ParameterTypeData%s_LL, kind=B8Ki) + UB(1:1) = ubound(SrcWng_ParameterTypeData%s_LL, kind=B8Ki) if (.not. allocated(DstWng_ParameterTypeData%s_LL)) then allocate(DstWng_ParameterTypeData%s_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -911,8 +911,8 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT DstWng_ParameterTypeData%s_LL = SrcWng_ParameterTypeData%s_LL end if if (allocated(SrcWng_ParameterTypeData%s_CP)) then - LB(1:1) = lbound(SrcWng_ParameterTypeData%s_CP) - UB(1:1) = ubound(SrcWng_ParameterTypeData%s_CP) + LB(1:1) = lbound(SrcWng_ParameterTypeData%s_CP, kind=B8Ki) + UB(1:1) = ubound(SrcWng_ParameterTypeData%s_CP, kind=B8Ki) if (.not. allocated(DstWng_ParameterTypeData%s_CP)) then allocate(DstWng_ParameterTypeData%s_CP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -924,8 +924,8 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT end if DstWng_ParameterTypeData%iRotor = SrcWng_ParameterTypeData%iRotor if (allocated(SrcWng_ParameterTypeData%AFindx)) then - LB(1:2) = lbound(SrcWng_ParameterTypeData%AFindx) - UB(1:2) = ubound(SrcWng_ParameterTypeData%AFindx) + LB(1:2) = lbound(SrcWng_ParameterTypeData%AFindx, kind=B8Ki) + UB(1:2) = ubound(SrcWng_ParameterTypeData%AFindx, kind=B8Ki) if (.not. allocated(DstWng_ParameterTypeData%AFindx)) then allocate(DstWng_ParameterTypeData%AFindx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -937,8 +937,8 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT end if DstWng_ParameterTypeData%nSpan = SrcWng_ParameterTypeData%nSpan if (allocated(SrcWng_ParameterTypeData%PrescribedCirculation)) then - LB(1:1) = lbound(SrcWng_ParameterTypeData%PrescribedCirculation) - UB(1:1) = ubound(SrcWng_ParameterTypeData%PrescribedCirculation) + LB(1:1) = lbound(SrcWng_ParameterTypeData%PrescribedCirculation, kind=B8Ki) + UB(1:1) = ubound(SrcWng_ParameterTypeData%PrescribedCirculation, kind=B8Ki) if (.not. allocated(DstWng_ParameterTypeData%PrescribedCirculation)) then allocate(DstWng_ParameterTypeData%PrescribedCirculation(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -984,34 +984,34 @@ subroutine FVW_PackWng_ParameterType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%chord_LL)) if (allocated(InData%chord_LL)) then - call RegPackBounds(Buf, 1, lbound(InData%chord_LL), ubound(InData%chord_LL)) + call RegPackBounds(Buf, 1, lbound(InData%chord_LL, kind=B8Ki), ubound(InData%chord_LL, kind=B8Ki)) call RegPack(Buf, InData%chord_LL) end if call RegPack(Buf, allocated(InData%chord_CP)) if (allocated(InData%chord_CP)) then - call RegPackBounds(Buf, 1, lbound(InData%chord_CP), ubound(InData%chord_CP)) + call RegPackBounds(Buf, 1, lbound(InData%chord_CP, kind=B8Ki), ubound(InData%chord_CP, kind=B8Ki)) call RegPack(Buf, InData%chord_CP) end if call RegPack(Buf, allocated(InData%s_LL)) if (allocated(InData%s_LL)) then - call RegPackBounds(Buf, 1, lbound(InData%s_LL), ubound(InData%s_LL)) + call RegPackBounds(Buf, 1, lbound(InData%s_LL, kind=B8Ki), ubound(InData%s_LL, kind=B8Ki)) call RegPack(Buf, InData%s_LL) end if call RegPack(Buf, allocated(InData%s_CP)) if (allocated(InData%s_CP)) then - call RegPackBounds(Buf, 1, lbound(InData%s_CP), ubound(InData%s_CP)) + call RegPackBounds(Buf, 1, lbound(InData%s_CP, kind=B8Ki), ubound(InData%s_CP, kind=B8Ki)) call RegPack(Buf, InData%s_CP) end if call RegPack(Buf, InData%iRotor) call RegPack(Buf, allocated(InData%AFindx)) if (allocated(InData%AFindx)) then - call RegPackBounds(Buf, 2, lbound(InData%AFindx), ubound(InData%AFindx)) + call RegPackBounds(Buf, 2, lbound(InData%AFindx, kind=B8Ki), ubound(InData%AFindx, kind=B8Ki)) call RegPack(Buf, InData%AFindx) end if call RegPack(Buf, InData%nSpan) call RegPack(Buf, allocated(InData%PrescribedCirculation)) if (allocated(InData%PrescribedCirculation)) then - call RegPackBounds(Buf, 1, lbound(InData%PrescribedCirculation), ubound(InData%PrescribedCirculation)) + call RegPackBounds(Buf, 1, lbound(InData%PrescribedCirculation, kind=B8Ki), ubound(InData%PrescribedCirculation, kind=B8Ki)) call RegPack(Buf, InData%PrescribedCirculation) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1021,7 +1021,7 @@ subroutine FVW_UnPackWng_ParameterType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_ParameterType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1121,8 +1121,8 @@ subroutine FVW_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyParam' @@ -1131,8 +1131,8 @@ subroutine FVW_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nRotors = SrcParamData%nRotors DstParamData%nWings = SrcParamData%nWings if (allocated(SrcParamData%W)) then - LB(1:1) = lbound(SrcParamData%W) - UB(1:1) = ubound(SrcParamData%W) + LB(1:1) = lbound(SrcParamData%W, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%W, kind=B8Ki) if (.not. allocated(DstParamData%W)) then allocate(DstParamData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1147,8 +1147,8 @@ subroutine FVW_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%Bld2Wings)) then - LB(1:2) = lbound(SrcParamData%Bld2Wings) - UB(1:2) = ubound(SrcParamData%Bld2Wings) + LB(1:2) = lbound(SrcParamData%Bld2Wings, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Bld2Wings, kind=B8Ki) if (.not. allocated(DstParamData%Bld2Wings)) then allocate(DstParamData%Bld2Wings(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1209,16 +1209,16 @@ subroutine FVW_DestroyParam(ParamData, ErrStat, ErrMsg) type(FVW_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(ParamData%W)) then - LB(1:1) = lbound(ParamData%W) - UB(1:1) = ubound(ParamData%W) + LB(1:1) = lbound(ParamData%W, kind=B8Ki) + UB(1:1) = ubound(ParamData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_ParameterType(ParamData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1234,23 +1234,23 @@ subroutine FVW_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%nRotors) call RegPack(Buf, InData%nWings) call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_ParameterType(Buf, InData%W(i1)) end do end if call RegPack(Buf, allocated(InData%Bld2Wings)) if (allocated(InData%Bld2Wings)) then - call RegPackBounds(Buf, 2, lbound(InData%Bld2Wings), ubound(InData%Bld2Wings)) + call RegPackBounds(Buf, 2, lbound(InData%Bld2Wings, kind=B8Ki), ubound(InData%Bld2Wings, kind=B8Ki)) call RegPack(Buf, InData%Bld2Wings) end if call RegPack(Buf, InData%iNWStart) @@ -1305,8 +1305,8 @@ subroutine FVW_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1441,14 +1441,14 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyWng_ContinuousStateType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_ContinuousStateTypeData%Gamma_NW)) then - LB(1:2) = lbound(SrcWng_ContinuousStateTypeData%Gamma_NW) - UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_NW) + LB(1:2) = lbound(SrcWng_ContinuousStateTypeData%Gamma_NW, kind=B8Ki) + UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_NW, kind=B8Ki) if (.not. allocated(DstWng_ContinuousStateTypeData%Gamma_NW)) then allocate(DstWng_ContinuousStateTypeData%Gamma_NW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1459,8 +1459,8 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn DstWng_ContinuousStateTypeData%Gamma_NW = SrcWng_ContinuousStateTypeData%Gamma_NW end if if (allocated(SrcWng_ContinuousStateTypeData%Gamma_FW)) then - LB(1:2) = lbound(SrcWng_ContinuousStateTypeData%Gamma_FW) - UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_FW) + LB(1:2) = lbound(SrcWng_ContinuousStateTypeData%Gamma_FW, kind=B8Ki) + UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_FW, kind=B8Ki) if (.not. allocated(DstWng_ContinuousStateTypeData%Gamma_FW)) then allocate(DstWng_ContinuousStateTypeData%Gamma_FW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1471,8 +1471,8 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn DstWng_ContinuousStateTypeData%Gamma_FW = SrcWng_ContinuousStateTypeData%Gamma_FW end if if (allocated(SrcWng_ContinuousStateTypeData%Eps_NW)) then - LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%Eps_NW) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_NW) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%Eps_NW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_NW, kind=B8Ki) if (.not. allocated(DstWng_ContinuousStateTypeData%Eps_NW)) then allocate(DstWng_ContinuousStateTypeData%Eps_NW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1483,8 +1483,8 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn DstWng_ContinuousStateTypeData%Eps_NW = SrcWng_ContinuousStateTypeData%Eps_NW end if if (allocated(SrcWng_ContinuousStateTypeData%Eps_FW)) then - LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%Eps_FW) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_FW) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%Eps_FW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_FW, kind=B8Ki) if (.not. allocated(DstWng_ContinuousStateTypeData%Eps_FW)) then allocate(DstWng_ContinuousStateTypeData%Eps_FW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1495,8 +1495,8 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn DstWng_ContinuousStateTypeData%Eps_FW = SrcWng_ContinuousStateTypeData%Eps_FW end if if (allocated(SrcWng_ContinuousStateTypeData%r_NW)) then - LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%r_NW) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_NW) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%r_NW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_NW, kind=B8Ki) if (.not. allocated(DstWng_ContinuousStateTypeData%r_NW)) then allocate(DstWng_ContinuousStateTypeData%r_NW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1507,8 +1507,8 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn DstWng_ContinuousStateTypeData%r_NW = SrcWng_ContinuousStateTypeData%r_NW end if if (allocated(SrcWng_ContinuousStateTypeData%r_FW)) then - LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%r_FW) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_FW) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%r_FW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_FW, kind=B8Ki) if (.not. allocated(DstWng_ContinuousStateTypeData%r_FW)) then allocate(DstWng_ContinuousStateTypeData%r_FW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1554,32 +1554,32 @@ subroutine FVW_PackWng_ContinuousStateType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Gamma_NW)) if (allocated(InData%Gamma_NW)) then - call RegPackBounds(Buf, 2, lbound(InData%Gamma_NW), ubound(InData%Gamma_NW)) + call RegPackBounds(Buf, 2, lbound(InData%Gamma_NW, kind=B8Ki), ubound(InData%Gamma_NW, kind=B8Ki)) call RegPack(Buf, InData%Gamma_NW) end if call RegPack(Buf, allocated(InData%Gamma_FW)) if (allocated(InData%Gamma_FW)) then - call RegPackBounds(Buf, 2, lbound(InData%Gamma_FW), ubound(InData%Gamma_FW)) + call RegPackBounds(Buf, 2, lbound(InData%Gamma_FW, kind=B8Ki), ubound(InData%Gamma_FW, kind=B8Ki)) call RegPack(Buf, InData%Gamma_FW) end if call RegPack(Buf, allocated(InData%Eps_NW)) if (allocated(InData%Eps_NW)) then - call RegPackBounds(Buf, 3, lbound(InData%Eps_NW), ubound(InData%Eps_NW)) + call RegPackBounds(Buf, 3, lbound(InData%Eps_NW, kind=B8Ki), ubound(InData%Eps_NW, kind=B8Ki)) call RegPack(Buf, InData%Eps_NW) end if call RegPack(Buf, allocated(InData%Eps_FW)) if (allocated(InData%Eps_FW)) then - call RegPackBounds(Buf, 3, lbound(InData%Eps_FW), ubound(InData%Eps_FW)) + call RegPackBounds(Buf, 3, lbound(InData%Eps_FW, kind=B8Ki), ubound(InData%Eps_FW, kind=B8Ki)) call RegPack(Buf, InData%Eps_FW) end if call RegPack(Buf, allocated(InData%r_NW)) if (allocated(InData%r_NW)) then - call RegPackBounds(Buf, 3, lbound(InData%r_NW), ubound(InData%r_NW)) + call RegPackBounds(Buf, 3, lbound(InData%r_NW, kind=B8Ki), ubound(InData%r_NW, kind=B8Ki)) call RegPack(Buf, InData%r_NW) end if call RegPack(Buf, allocated(InData%r_FW)) if (allocated(InData%r_FW)) then - call RegPackBounds(Buf, 3, lbound(InData%r_FW), ubound(InData%r_FW)) + call RegPackBounds(Buf, 3, lbound(InData%r_FW, kind=B8Ki), ubound(InData%r_FW, kind=B8Ki)) call RegPack(Buf, InData%r_FW) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1589,7 +1589,7 @@ subroutine FVW_UnPackWng_ContinuousStateType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_ContinuousStateType' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1685,16 +1685,16 @@ subroutine FVW_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%W)) then - LB(1:1) = lbound(SrcContStateData%W) - UB(1:1) = ubound(SrcContStateData%W) + LB(1:1) = lbound(SrcContStateData%W, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%W, kind=B8Ki) if (.not. allocated(DstContStateData%W)) then allocate(DstContStateData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1709,8 +1709,8 @@ subroutine FVW_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt end do end if if (allocated(SrcContStateData%UA)) then - LB(1:1) = lbound(SrcContStateData%UA) - UB(1:1) = ubound(SrcContStateData%UA) + LB(1:1) = lbound(SrcContStateData%UA, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%UA, kind=B8Ki) if (.not. allocated(DstContStateData%UA)) then allocate(DstContStateData%UA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1730,16 +1730,16 @@ subroutine FVW_DestroyContState(ContStateData, ErrStat, ErrMsg) type(FVW_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%W)) then - LB(1:1) = lbound(ContStateData%W) - UB(1:1) = ubound(ContStateData%W) + LB(1:1) = lbound(ContStateData%W, kind=B8Ki) + UB(1:1) = ubound(ContStateData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_ContinuousStateType(ContStateData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1747,8 +1747,8 @@ subroutine FVW_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%W) end if if (allocated(ContStateData%UA)) then - LB(1:1) = lbound(ContStateData%UA) - UB(1:1) = ubound(ContStateData%UA) + LB(1:1) = lbound(ContStateData%UA, kind=B8Ki) + UB(1:1) = ubound(ContStateData%UA, kind=B8Ki) do i1 = LB(1), UB(1) call UA_DestroyContState(ContStateData%UA(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1761,23 +1761,23 @@ subroutine FVW_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_ContinuousStateType(Buf, InData%W(i1)) end do end if call RegPack(Buf, allocated(InData%UA)) if (allocated(InData%UA)) then - call RegPackBounds(Buf, 1, lbound(InData%UA), ubound(InData%UA)) - LB(1:1) = lbound(InData%UA) - UB(1:1) = ubound(InData%UA) + call RegPackBounds(Buf, 1, lbound(InData%UA, kind=B8Ki), ubound(InData%UA, kind=B8Ki)) + LB(1:1) = lbound(InData%UA, kind=B8Ki) + UB(1:1) = ubound(InData%UA, kind=B8Ki) do i1 = LB(1), UB(1) call UA_PackContState(Buf, InData%UA(i1)) end do @@ -1789,8 +1789,8 @@ subroutine FVW_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1832,14 +1832,14 @@ subroutine FVW_CopyWng_OutputType(SrcWng_OutputTypeData, DstWng_OutputTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyWng_OutputType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_OutputTypeData%Vind)) then - LB(1:2) = lbound(SrcWng_OutputTypeData%Vind) - UB(1:2) = ubound(SrcWng_OutputTypeData%Vind) + LB(1:2) = lbound(SrcWng_OutputTypeData%Vind, kind=B8Ki) + UB(1:2) = ubound(SrcWng_OutputTypeData%Vind, kind=B8Ki) if (.not. allocated(DstWng_OutputTypeData%Vind)) then allocate(DstWng_OutputTypeData%Vind(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1870,7 +1870,7 @@ subroutine FVW_PackWng_OutputType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Vind)) if (allocated(InData%Vind)) then - call RegPackBounds(Buf, 2, lbound(InData%Vind), ubound(InData%Vind)) + call RegPackBounds(Buf, 2, lbound(InData%Vind, kind=B8Ki), ubound(InData%Vind, kind=B8Ki)) call RegPack(Buf, InData%Vind) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1880,7 +1880,7 @@ subroutine FVW_UnPackWng_OutputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_OutputType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1906,16 +1906,16 @@ subroutine FVW_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%W)) then - LB(1:1) = lbound(SrcOutputData%W) - UB(1:1) = ubound(SrcOutputData%W) + LB(1:1) = lbound(SrcOutputData%W, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%W, kind=B8Ki) if (.not. allocated(DstOutputData%W)) then allocate(DstOutputData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1935,16 +1935,16 @@ subroutine FVW_DestroyOutput(OutputData, ErrStat, ErrMsg) type(FVW_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%W)) then - LB(1:1) = lbound(OutputData%W) - UB(1:1) = ubound(OutputData%W) + LB(1:1) = lbound(OutputData%W, kind=B8Ki) + UB(1:1) = ubound(OutputData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_OutputType(OutputData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1957,14 +1957,14 @@ subroutine FVW_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_OutputType(Buf, InData%W(i1)) end do @@ -1976,8 +1976,8 @@ subroutine FVW_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2004,16 +2004,16 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyWng_MiscVarType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_MiscVarTypeData%LE)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%LE) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%LE) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%LE, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%LE, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%LE)) then allocate(DstWng_MiscVarTypeData%LE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2024,8 +2024,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%LE = SrcWng_MiscVarTypeData%LE end if if (allocated(SrcWng_MiscVarTypeData%TE)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%TE) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%TE) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%TE, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%TE, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%TE)) then allocate(DstWng_MiscVarTypeData%TE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2036,8 +2036,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%TE = SrcWng_MiscVarTypeData%TE end if if (allocated(SrcWng_MiscVarTypeData%r_LL)) then - LB(1:3) = lbound(SrcWng_MiscVarTypeData%r_LL) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%r_LL) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%r_LL, kind=B8Ki) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%r_LL, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%r_LL)) then allocate(DstWng_MiscVarTypeData%r_LL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2048,8 +2048,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%r_LL = SrcWng_MiscVarTypeData%r_LL end if if (allocated(SrcWng_MiscVarTypeData%CP)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%CP) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%CP) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%CP, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%CP, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%CP)) then allocate(DstWng_MiscVarTypeData%CP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2060,8 +2060,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%CP = SrcWng_MiscVarTypeData%CP end if if (allocated(SrcWng_MiscVarTypeData%Tang)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Tang) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Tang) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Tang, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Tang, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Tang)) then allocate(DstWng_MiscVarTypeData%Tang(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2072,8 +2072,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Tang = SrcWng_MiscVarTypeData%Tang end if if (allocated(SrcWng_MiscVarTypeData%Norm)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Norm) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Norm) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Norm, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Norm, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Norm)) then allocate(DstWng_MiscVarTypeData%Norm(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2084,8 +2084,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Norm = SrcWng_MiscVarTypeData%Norm end if if (allocated(SrcWng_MiscVarTypeData%Orth)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Orth) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Orth) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Orth, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Orth, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Orth)) then allocate(DstWng_MiscVarTypeData%Orth(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2096,8 +2096,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Orth = SrcWng_MiscVarTypeData%Orth end if if (allocated(SrcWng_MiscVarTypeData%dl)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%dl) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%dl) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%dl, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%dl, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%dl)) then allocate(DstWng_MiscVarTypeData%dl(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2108,8 +2108,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%dl = SrcWng_MiscVarTypeData%dl end if if (allocated(SrcWng_MiscVarTypeData%Area)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%Area) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%Area) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%Area, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%Area, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Area)) then allocate(DstWng_MiscVarTypeData%Area(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2120,8 +2120,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Area = SrcWng_MiscVarTypeData%Area end if if (allocated(SrcWng_MiscVarTypeData%diag_LL)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%diag_LL) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%diag_LL) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%diag_LL, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%diag_LL, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%diag_LL)) then allocate(DstWng_MiscVarTypeData%diag_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2132,8 +2132,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%diag_LL = SrcWng_MiscVarTypeData%diag_LL end if if (allocated(SrcWng_MiscVarTypeData%Vind_CP)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vind_CP) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_CP) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vind_CP, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_CP, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vind_CP)) then allocate(DstWng_MiscVarTypeData%Vind_CP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2144,8 +2144,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vind_CP = SrcWng_MiscVarTypeData%Vind_CP end if if (allocated(SrcWng_MiscVarTypeData%Vtot_CP)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vtot_CP) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vtot_CP) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vtot_CP, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vtot_CP, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vtot_CP)) then allocate(DstWng_MiscVarTypeData%Vtot_CP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2156,8 +2156,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vtot_CP = SrcWng_MiscVarTypeData%Vtot_CP end if if (allocated(SrcWng_MiscVarTypeData%Vstr_CP)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vstr_CP) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vstr_CP) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vstr_CP, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vstr_CP, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vstr_CP)) then allocate(DstWng_MiscVarTypeData%Vstr_CP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2168,8 +2168,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vstr_CP = SrcWng_MiscVarTypeData%Vstr_CP end if if (allocated(SrcWng_MiscVarTypeData%Vwnd_CP)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vwnd_CP) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vwnd_CP) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vwnd_CP, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vwnd_CP, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vwnd_CP)) then allocate(DstWng_MiscVarTypeData%Vwnd_CP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2180,8 +2180,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vwnd_CP = SrcWng_MiscVarTypeData%Vwnd_CP end if if (allocated(SrcWng_MiscVarTypeData%Vwnd_NW)) then - LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vwnd_NW) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_NW) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vwnd_NW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_NW, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vwnd_NW)) then allocate(DstWng_MiscVarTypeData%Vwnd_NW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2192,8 +2192,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vwnd_NW = SrcWng_MiscVarTypeData%Vwnd_NW end if if (allocated(SrcWng_MiscVarTypeData%Vwnd_FW)) then - LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vwnd_FW) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_FW) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vwnd_FW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_FW, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vwnd_FW)) then allocate(DstWng_MiscVarTypeData%Vwnd_FW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2204,8 +2204,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vwnd_FW = SrcWng_MiscVarTypeData%Vwnd_FW end if if (allocated(SrcWng_MiscVarTypeData%Vind_NW)) then - LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vind_NW) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_NW) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vind_NW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_NW, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vind_NW)) then allocate(DstWng_MiscVarTypeData%Vind_NW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2216,8 +2216,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vind_NW = SrcWng_MiscVarTypeData%Vind_NW end if if (allocated(SrcWng_MiscVarTypeData%Vind_FW)) then - LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vind_FW) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_FW) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vind_FW, kind=B8Ki) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_FW, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vind_FW)) then allocate(DstWng_MiscVarTypeData%Vind_FW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2228,8 +2228,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vind_FW = SrcWng_MiscVarTypeData%Vind_FW end if if (allocated(SrcWng_MiscVarTypeData%PitchAndTwist)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%PitchAndTwist) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%PitchAndTwist) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%PitchAndTwist, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%PitchAndTwist, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%PitchAndTwist)) then allocate(DstWng_MiscVarTypeData%PitchAndTwist(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2242,8 +2242,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%iTip = SrcWng_MiscVarTypeData%iTip DstWng_MiscVarTypeData%iRoot = SrcWng_MiscVarTypeData%iRoot if (allocated(SrcWng_MiscVarTypeData%alpha_LL)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%alpha_LL) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%alpha_LL) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%alpha_LL, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%alpha_LL, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%alpha_LL)) then allocate(DstWng_MiscVarTypeData%alpha_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2254,8 +2254,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%alpha_LL = SrcWng_MiscVarTypeData%alpha_LL end if if (allocated(SrcWng_MiscVarTypeData%Vreln_LL)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%Vreln_LL) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%Vreln_LL) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%Vreln_LL, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%Vreln_LL, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vreln_LL)) then allocate(DstWng_MiscVarTypeData%Vreln_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2266,8 +2266,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vreln_LL = SrcWng_MiscVarTypeData%Vreln_LL end if if (allocated(SrcWng_MiscVarTypeData%u_UA)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%u_UA) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%u_UA) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%u_UA, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%u_UA, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%u_UA)) then allocate(DstWng_MiscVarTypeData%u_UA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2293,8 +2293,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcWng_MiscVarTypeData%Vind_LL)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vind_LL) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_LL) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vind_LL, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_LL, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%Vind_LL)) then allocate(DstWng_MiscVarTypeData%Vind_LL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2305,8 +2305,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%Vind_LL = SrcWng_MiscVarTypeData%Vind_LL end if if (allocated(SrcWng_MiscVarTypeData%BN_AxInd)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_AxInd) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_AxInd) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_AxInd, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_AxInd, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_AxInd)) then allocate(DstWng_MiscVarTypeData%BN_AxInd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2317,8 +2317,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_AxInd = SrcWng_MiscVarTypeData%BN_AxInd end if if (allocated(SrcWng_MiscVarTypeData%BN_TanInd)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_TanInd) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_TanInd) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_TanInd, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_TanInd, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_TanInd)) then allocate(DstWng_MiscVarTypeData%BN_TanInd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2329,8 +2329,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_TanInd = SrcWng_MiscVarTypeData%BN_TanInd end if if (allocated(SrcWng_MiscVarTypeData%BN_Vrel)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Vrel) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Vrel) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Vrel, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Vrel, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Vrel)) then allocate(DstWng_MiscVarTypeData%BN_Vrel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2341,8 +2341,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Vrel = SrcWng_MiscVarTypeData%BN_Vrel end if if (allocated(SrcWng_MiscVarTypeData%BN_alpha)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_alpha) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_alpha) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_alpha, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_alpha, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_alpha)) then allocate(DstWng_MiscVarTypeData%BN_alpha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2353,8 +2353,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_alpha = SrcWng_MiscVarTypeData%BN_alpha end if if (allocated(SrcWng_MiscVarTypeData%BN_phi)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_phi) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_phi) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_phi, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_phi, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_phi)) then allocate(DstWng_MiscVarTypeData%BN_phi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2365,8 +2365,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_phi = SrcWng_MiscVarTypeData%BN_phi end if if (allocated(SrcWng_MiscVarTypeData%BN_Re)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Re) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Re) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Re, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Re, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Re)) then allocate(DstWng_MiscVarTypeData%BN_Re(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2377,8 +2377,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Re = SrcWng_MiscVarTypeData%BN_Re end if if (allocated(SrcWng_MiscVarTypeData%BN_URelWind_s)) then - LB(1:2) = lbound(SrcWng_MiscVarTypeData%BN_URelWind_s) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%BN_URelWind_s) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%BN_URelWind_s, kind=B8Ki) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%BN_URelWind_s, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_URelWind_s)) then allocate(DstWng_MiscVarTypeData%BN_URelWind_s(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2389,8 +2389,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_URelWind_s = SrcWng_MiscVarTypeData%BN_URelWind_s end if if (allocated(SrcWng_MiscVarTypeData%BN_Cl_Static)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cl_Static) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl_Static) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cl_Static, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl_Static, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cl_Static)) then allocate(DstWng_MiscVarTypeData%BN_Cl_Static(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2401,8 +2401,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cl_Static = SrcWng_MiscVarTypeData%BN_Cl_Static end if if (allocated(SrcWng_MiscVarTypeData%BN_Cd_Static)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cd_Static) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd_Static) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cd_Static, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd_Static, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cd_Static)) then allocate(DstWng_MiscVarTypeData%BN_Cd_Static(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2413,8 +2413,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cd_Static = SrcWng_MiscVarTypeData%BN_Cd_Static end if if (allocated(SrcWng_MiscVarTypeData%BN_Cm_Static)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cm_Static) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm_Static) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cm_Static, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm_Static, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cm_Static)) then allocate(DstWng_MiscVarTypeData%BN_Cm_Static(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2425,8 +2425,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cm_Static = SrcWng_MiscVarTypeData%BN_Cm_Static end if if (allocated(SrcWng_MiscVarTypeData%BN_Cpmin)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cpmin) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cpmin) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cpmin, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cpmin, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cpmin)) then allocate(DstWng_MiscVarTypeData%BN_Cpmin(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2437,8 +2437,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cpmin = SrcWng_MiscVarTypeData%BN_Cpmin end if if (allocated(SrcWng_MiscVarTypeData%BN_Cl)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cl) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cl, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cl)) then allocate(DstWng_MiscVarTypeData%BN_Cl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2449,8 +2449,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cl = SrcWng_MiscVarTypeData%BN_Cl end if if (allocated(SrcWng_MiscVarTypeData%BN_Cd)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cd) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cd, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cd)) then allocate(DstWng_MiscVarTypeData%BN_Cd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2461,8 +2461,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cd = SrcWng_MiscVarTypeData%BN_Cd end if if (allocated(SrcWng_MiscVarTypeData%BN_Cm)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cm) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cm, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cm)) then allocate(DstWng_MiscVarTypeData%BN_Cm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2473,8 +2473,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cm = SrcWng_MiscVarTypeData%BN_Cm end if if (allocated(SrcWng_MiscVarTypeData%BN_Cx)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cx) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cx) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cx, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cx, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cx)) then allocate(DstWng_MiscVarTypeData%BN_Cx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2485,8 +2485,8 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat DstWng_MiscVarTypeData%BN_Cx = SrcWng_MiscVarTypeData%BN_Cx end if if (allocated(SrcWng_MiscVarTypeData%BN_Cy)) then - LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cy) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cy) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cy, kind=B8Ki) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cy, kind=B8Ki) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cy)) then allocate(DstWng_MiscVarTypeData%BN_Cy(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2502,8 +2502,8 @@ subroutine FVW_DestroyWng_MiscVarType(Wng_MiscVarTypeData, ErrStat, ErrMsg) type(Wng_MiscVarType), intent(inout) :: Wng_MiscVarTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyWng_MiscVarType' @@ -2573,8 +2573,8 @@ subroutine FVW_DestroyWng_MiscVarType(Wng_MiscVarTypeData, ErrStat, ErrMsg) deallocate(Wng_MiscVarTypeData%Vreln_LL) end if if (allocated(Wng_MiscVarTypeData%u_UA)) then - LB(1:2) = lbound(Wng_MiscVarTypeData%u_UA) - UB(1:2) = ubound(Wng_MiscVarTypeData%u_UA) + LB(1:2) = lbound(Wng_MiscVarTypeData%u_UA, kind=B8Ki) + UB(1:2) = ubound(Wng_MiscVarTypeData%u_UA, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_DestroyInput(Wng_MiscVarTypeData%u_UA(i1,i2), ErrStat2, ErrMsg2) @@ -2646,121 +2646,121 @@ subroutine FVW_PackWng_MiscVarType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Wng_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackWng_MiscVarType' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%LE)) if (allocated(InData%LE)) then - call RegPackBounds(Buf, 2, lbound(InData%LE), ubound(InData%LE)) + call RegPackBounds(Buf, 2, lbound(InData%LE, kind=B8Ki), ubound(InData%LE, kind=B8Ki)) call RegPack(Buf, InData%LE) end if call RegPack(Buf, allocated(InData%TE)) if (allocated(InData%TE)) then - call RegPackBounds(Buf, 2, lbound(InData%TE), ubound(InData%TE)) + call RegPackBounds(Buf, 2, lbound(InData%TE, kind=B8Ki), ubound(InData%TE, kind=B8Ki)) call RegPack(Buf, InData%TE) end if call RegPack(Buf, allocated(InData%r_LL)) if (allocated(InData%r_LL)) then - call RegPackBounds(Buf, 3, lbound(InData%r_LL), ubound(InData%r_LL)) + call RegPackBounds(Buf, 3, lbound(InData%r_LL, kind=B8Ki), ubound(InData%r_LL, kind=B8Ki)) call RegPack(Buf, InData%r_LL) end if call RegPack(Buf, allocated(InData%CP)) if (allocated(InData%CP)) then - call RegPackBounds(Buf, 2, lbound(InData%CP), ubound(InData%CP)) + call RegPackBounds(Buf, 2, lbound(InData%CP, kind=B8Ki), ubound(InData%CP, kind=B8Ki)) call RegPack(Buf, InData%CP) end if call RegPack(Buf, allocated(InData%Tang)) if (allocated(InData%Tang)) then - call RegPackBounds(Buf, 2, lbound(InData%Tang), ubound(InData%Tang)) + call RegPackBounds(Buf, 2, lbound(InData%Tang, kind=B8Ki), ubound(InData%Tang, kind=B8Ki)) call RegPack(Buf, InData%Tang) end if call RegPack(Buf, allocated(InData%Norm)) if (allocated(InData%Norm)) then - call RegPackBounds(Buf, 2, lbound(InData%Norm), ubound(InData%Norm)) + call RegPackBounds(Buf, 2, lbound(InData%Norm, kind=B8Ki), ubound(InData%Norm, kind=B8Ki)) call RegPack(Buf, InData%Norm) end if call RegPack(Buf, allocated(InData%Orth)) if (allocated(InData%Orth)) then - call RegPackBounds(Buf, 2, lbound(InData%Orth), ubound(InData%Orth)) + call RegPackBounds(Buf, 2, lbound(InData%Orth, kind=B8Ki), ubound(InData%Orth, kind=B8Ki)) call RegPack(Buf, InData%Orth) end if call RegPack(Buf, allocated(InData%dl)) if (allocated(InData%dl)) then - call RegPackBounds(Buf, 2, lbound(InData%dl), ubound(InData%dl)) + call RegPackBounds(Buf, 2, lbound(InData%dl, kind=B8Ki), ubound(InData%dl, kind=B8Ki)) call RegPack(Buf, InData%dl) end if call RegPack(Buf, allocated(InData%Area)) if (allocated(InData%Area)) then - call RegPackBounds(Buf, 1, lbound(InData%Area), ubound(InData%Area)) + call RegPackBounds(Buf, 1, lbound(InData%Area, kind=B8Ki), ubound(InData%Area, kind=B8Ki)) call RegPack(Buf, InData%Area) end if call RegPack(Buf, allocated(InData%diag_LL)) if (allocated(InData%diag_LL)) then - call RegPackBounds(Buf, 1, lbound(InData%diag_LL), ubound(InData%diag_LL)) + call RegPackBounds(Buf, 1, lbound(InData%diag_LL, kind=B8Ki), ubound(InData%diag_LL, kind=B8Ki)) call RegPack(Buf, InData%diag_LL) end if call RegPack(Buf, allocated(InData%Vind_CP)) if (allocated(InData%Vind_CP)) then - call RegPackBounds(Buf, 2, lbound(InData%Vind_CP), ubound(InData%Vind_CP)) + call RegPackBounds(Buf, 2, lbound(InData%Vind_CP, kind=B8Ki), ubound(InData%Vind_CP, kind=B8Ki)) call RegPack(Buf, InData%Vind_CP) end if call RegPack(Buf, allocated(InData%Vtot_CP)) if (allocated(InData%Vtot_CP)) then - call RegPackBounds(Buf, 2, lbound(InData%Vtot_CP), ubound(InData%Vtot_CP)) + call RegPackBounds(Buf, 2, lbound(InData%Vtot_CP, kind=B8Ki), ubound(InData%Vtot_CP, kind=B8Ki)) call RegPack(Buf, InData%Vtot_CP) end if call RegPack(Buf, allocated(InData%Vstr_CP)) if (allocated(InData%Vstr_CP)) then - call RegPackBounds(Buf, 2, lbound(InData%Vstr_CP), ubound(InData%Vstr_CP)) + call RegPackBounds(Buf, 2, lbound(InData%Vstr_CP, kind=B8Ki), ubound(InData%Vstr_CP, kind=B8Ki)) call RegPack(Buf, InData%Vstr_CP) end if call RegPack(Buf, allocated(InData%Vwnd_CP)) if (allocated(InData%Vwnd_CP)) then - call RegPackBounds(Buf, 2, lbound(InData%Vwnd_CP), ubound(InData%Vwnd_CP)) + call RegPackBounds(Buf, 2, lbound(InData%Vwnd_CP, kind=B8Ki), ubound(InData%Vwnd_CP, kind=B8Ki)) call RegPack(Buf, InData%Vwnd_CP) end if call RegPack(Buf, allocated(InData%Vwnd_NW)) if (allocated(InData%Vwnd_NW)) then - call RegPackBounds(Buf, 3, lbound(InData%Vwnd_NW), ubound(InData%Vwnd_NW)) + call RegPackBounds(Buf, 3, lbound(InData%Vwnd_NW, kind=B8Ki), ubound(InData%Vwnd_NW, kind=B8Ki)) call RegPack(Buf, InData%Vwnd_NW) end if call RegPack(Buf, allocated(InData%Vwnd_FW)) if (allocated(InData%Vwnd_FW)) then - call RegPackBounds(Buf, 3, lbound(InData%Vwnd_FW), ubound(InData%Vwnd_FW)) + call RegPackBounds(Buf, 3, lbound(InData%Vwnd_FW, kind=B8Ki), ubound(InData%Vwnd_FW, kind=B8Ki)) call RegPack(Buf, InData%Vwnd_FW) end if call RegPack(Buf, allocated(InData%Vind_NW)) if (allocated(InData%Vind_NW)) then - call RegPackBounds(Buf, 3, lbound(InData%Vind_NW), ubound(InData%Vind_NW)) + call RegPackBounds(Buf, 3, lbound(InData%Vind_NW, kind=B8Ki), ubound(InData%Vind_NW, kind=B8Ki)) call RegPack(Buf, InData%Vind_NW) end if call RegPack(Buf, allocated(InData%Vind_FW)) if (allocated(InData%Vind_FW)) then - call RegPackBounds(Buf, 3, lbound(InData%Vind_FW), ubound(InData%Vind_FW)) + call RegPackBounds(Buf, 3, lbound(InData%Vind_FW, kind=B8Ki), ubound(InData%Vind_FW, kind=B8Ki)) call RegPack(Buf, InData%Vind_FW) end if call RegPack(Buf, allocated(InData%PitchAndTwist)) if (allocated(InData%PitchAndTwist)) then - call RegPackBounds(Buf, 1, lbound(InData%PitchAndTwist), ubound(InData%PitchAndTwist)) + call RegPackBounds(Buf, 1, lbound(InData%PitchAndTwist, kind=B8Ki), ubound(InData%PitchAndTwist, kind=B8Ki)) call RegPack(Buf, InData%PitchAndTwist) end if call RegPack(Buf, InData%iTip) call RegPack(Buf, InData%iRoot) call RegPack(Buf, allocated(InData%alpha_LL)) if (allocated(InData%alpha_LL)) then - call RegPackBounds(Buf, 1, lbound(InData%alpha_LL), ubound(InData%alpha_LL)) + call RegPackBounds(Buf, 1, lbound(InData%alpha_LL, kind=B8Ki), ubound(InData%alpha_LL, kind=B8Ki)) call RegPack(Buf, InData%alpha_LL) end if call RegPack(Buf, allocated(InData%Vreln_LL)) if (allocated(InData%Vreln_LL)) then - call RegPackBounds(Buf, 1, lbound(InData%Vreln_LL), ubound(InData%Vreln_LL)) + call RegPackBounds(Buf, 1, lbound(InData%Vreln_LL, kind=B8Ki), ubound(InData%Vreln_LL, kind=B8Ki)) call RegPack(Buf, InData%Vreln_LL) end if call RegPack(Buf, allocated(InData%u_UA)) if (allocated(InData%u_UA)) then - call RegPackBounds(Buf, 2, lbound(InData%u_UA), ubound(InData%u_UA)) - LB(1:2) = lbound(InData%u_UA) - UB(1:2) = ubound(InData%u_UA) + call RegPackBounds(Buf, 2, lbound(InData%u_UA, kind=B8Ki), ubound(InData%u_UA, kind=B8Ki)) + LB(1:2) = lbound(InData%u_UA, kind=B8Ki) + UB(1:2) = ubound(InData%u_UA, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_PackInput(Buf, InData%u_UA(i1,i2)) @@ -2772,87 +2772,87 @@ subroutine FVW_PackWng_MiscVarType(Buf, Indata) call UA_PackParam(Buf, InData%p_UA) call RegPack(Buf, allocated(InData%Vind_LL)) if (allocated(InData%Vind_LL)) then - call RegPackBounds(Buf, 2, lbound(InData%Vind_LL), ubound(InData%Vind_LL)) + call RegPackBounds(Buf, 2, lbound(InData%Vind_LL, kind=B8Ki), ubound(InData%Vind_LL, kind=B8Ki)) call RegPack(Buf, InData%Vind_LL) end if call RegPack(Buf, allocated(InData%BN_AxInd)) if (allocated(InData%BN_AxInd)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_AxInd), ubound(InData%BN_AxInd)) + call RegPackBounds(Buf, 1, lbound(InData%BN_AxInd, kind=B8Ki), ubound(InData%BN_AxInd, kind=B8Ki)) call RegPack(Buf, InData%BN_AxInd) end if call RegPack(Buf, allocated(InData%BN_TanInd)) if (allocated(InData%BN_TanInd)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_TanInd), ubound(InData%BN_TanInd)) + call RegPackBounds(Buf, 1, lbound(InData%BN_TanInd, kind=B8Ki), ubound(InData%BN_TanInd, kind=B8Ki)) call RegPack(Buf, InData%BN_TanInd) end if call RegPack(Buf, allocated(InData%BN_Vrel)) if (allocated(InData%BN_Vrel)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Vrel), ubound(InData%BN_Vrel)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Vrel, kind=B8Ki), ubound(InData%BN_Vrel, kind=B8Ki)) call RegPack(Buf, InData%BN_Vrel) end if call RegPack(Buf, allocated(InData%BN_alpha)) if (allocated(InData%BN_alpha)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_alpha), ubound(InData%BN_alpha)) + call RegPackBounds(Buf, 1, lbound(InData%BN_alpha, kind=B8Ki), ubound(InData%BN_alpha, kind=B8Ki)) call RegPack(Buf, InData%BN_alpha) end if call RegPack(Buf, allocated(InData%BN_phi)) if (allocated(InData%BN_phi)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_phi), ubound(InData%BN_phi)) + call RegPackBounds(Buf, 1, lbound(InData%BN_phi, kind=B8Ki), ubound(InData%BN_phi, kind=B8Ki)) call RegPack(Buf, InData%BN_phi) end if call RegPack(Buf, allocated(InData%BN_Re)) if (allocated(InData%BN_Re)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Re), ubound(InData%BN_Re)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Re, kind=B8Ki), ubound(InData%BN_Re, kind=B8Ki)) call RegPack(Buf, InData%BN_Re) end if call RegPack(Buf, allocated(InData%BN_URelWind_s)) if (allocated(InData%BN_URelWind_s)) then - call RegPackBounds(Buf, 2, lbound(InData%BN_URelWind_s), ubound(InData%BN_URelWind_s)) + call RegPackBounds(Buf, 2, lbound(InData%BN_URelWind_s, kind=B8Ki), ubound(InData%BN_URelWind_s, kind=B8Ki)) call RegPack(Buf, InData%BN_URelWind_s) end if call RegPack(Buf, allocated(InData%BN_Cl_Static)) if (allocated(InData%BN_Cl_Static)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cl_Static), ubound(InData%BN_Cl_Static)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cl_Static, kind=B8Ki), ubound(InData%BN_Cl_Static, kind=B8Ki)) call RegPack(Buf, InData%BN_Cl_Static) end if call RegPack(Buf, allocated(InData%BN_Cd_Static)) if (allocated(InData%BN_Cd_Static)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cd_Static), ubound(InData%BN_Cd_Static)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cd_Static, kind=B8Ki), ubound(InData%BN_Cd_Static, kind=B8Ki)) call RegPack(Buf, InData%BN_Cd_Static) end if call RegPack(Buf, allocated(InData%BN_Cm_Static)) if (allocated(InData%BN_Cm_Static)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cm_Static), ubound(InData%BN_Cm_Static)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cm_Static, kind=B8Ki), ubound(InData%BN_Cm_Static, kind=B8Ki)) call RegPack(Buf, InData%BN_Cm_Static) end if call RegPack(Buf, allocated(InData%BN_Cpmin)) if (allocated(InData%BN_Cpmin)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cpmin), ubound(InData%BN_Cpmin)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cpmin, kind=B8Ki), ubound(InData%BN_Cpmin, kind=B8Ki)) call RegPack(Buf, InData%BN_Cpmin) end if call RegPack(Buf, allocated(InData%BN_Cl)) if (allocated(InData%BN_Cl)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cl), ubound(InData%BN_Cl)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cl, kind=B8Ki), ubound(InData%BN_Cl, kind=B8Ki)) call RegPack(Buf, InData%BN_Cl) end if call RegPack(Buf, allocated(InData%BN_Cd)) if (allocated(InData%BN_Cd)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cd), ubound(InData%BN_Cd)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cd, kind=B8Ki), ubound(InData%BN_Cd, kind=B8Ki)) call RegPack(Buf, InData%BN_Cd) end if call RegPack(Buf, allocated(InData%BN_Cm)) if (allocated(InData%BN_Cm)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cm), ubound(InData%BN_Cm)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cm, kind=B8Ki), ubound(InData%BN_Cm, kind=B8Ki)) call RegPack(Buf, InData%BN_Cm) end if call RegPack(Buf, allocated(InData%BN_Cx)) if (allocated(InData%BN_Cx)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cx), ubound(InData%BN_Cx)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cx, kind=B8Ki), ubound(InData%BN_Cx, kind=B8Ki)) call RegPack(Buf, InData%BN_Cx) end if call RegPack(Buf, allocated(InData%BN_Cy)) if (allocated(InData%BN_Cy)) then - call RegPackBounds(Buf, 1, lbound(InData%BN_Cy), ubound(InData%BN_Cy)) + call RegPackBounds(Buf, 1, lbound(InData%BN_Cy, kind=B8Ki), ubound(InData%BN_Cy, kind=B8Ki)) call RegPack(Buf, InData%BN_Cy) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2862,8 +2862,8 @@ subroutine FVW_UnPackWng_MiscVarType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_MiscVarType' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3431,16 +3431,16 @@ subroutine FVW_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%W)) then - LB(1:1) = lbound(SrcMiscData%W) - UB(1:1) = ubound(SrcMiscData%W) + LB(1:1) = lbound(SrcMiscData%W, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%W, kind=B8Ki) if (.not. allocated(DstMiscData%W)) then allocate(DstMiscData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3461,8 +3461,8 @@ subroutine FVW_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%VTKstep = SrcMiscData%VTKstep DstMiscData%VTKlastTime = SrcMiscData%VTKlastTime if (allocated(SrcMiscData%r_wind)) then - LB(1:2) = lbound(SrcMiscData%r_wind) - UB(1:2) = ubound(SrcMiscData%r_wind) + LB(1:2) = lbound(SrcMiscData%r_wind, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%r_wind, kind=B8Ki) if (.not. allocated(DstMiscData%r_wind)) then allocate(DstMiscData%r_wind(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3493,8 +3493,8 @@ subroutine FVW_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%CPs)) then - LB(1:2) = lbound(SrcMiscData%CPs) - UB(1:2) = ubound(SrcMiscData%CPs) + LB(1:2) = lbound(SrcMiscData%CPs, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%CPs, kind=B8Ki) if (.not. allocated(DstMiscData%CPs)) then allocate(DstMiscData%CPs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3505,8 +3505,8 @@ subroutine FVW_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%CPs = SrcMiscData%CPs end if if (allocated(SrcMiscData%Uind)) then - LB(1:2) = lbound(SrcMiscData%Uind) - UB(1:2) = ubound(SrcMiscData%Uind) + LB(1:2) = lbound(SrcMiscData%Uind, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%Uind, kind=B8Ki) if (.not. allocated(DstMiscData%Uind)) then allocate(DstMiscData%Uind(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3517,8 +3517,8 @@ subroutine FVW_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Uind = SrcMiscData%Uind end if if (allocated(SrcMiscData%GridOutputs)) then - LB(1:1) = lbound(SrcMiscData%GridOutputs) - UB(1:1) = ubound(SrcMiscData%GridOutputs) + LB(1:1) = lbound(SrcMiscData%GridOutputs, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%GridOutputs, kind=B8Ki) if (.not. allocated(DstMiscData%GridOutputs)) then allocate(DstMiscData%GridOutputs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3539,16 +3539,16 @@ subroutine FVW_DestroyMisc(MiscData, ErrStat, ErrMsg) type(FVW_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(MiscData%W)) then - LB(1:1) = lbound(MiscData%W) - UB(1:1) = ubound(MiscData%W) + LB(1:1) = lbound(MiscData%W, kind=B8Ki) + UB(1:1) = ubound(MiscData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_MiscVarType(MiscData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3575,8 +3575,8 @@ subroutine FVW_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%Uind) end if if (allocated(MiscData%GridOutputs)) then - LB(1:1) = lbound(MiscData%GridOutputs) - UB(1:1) = ubound(MiscData%GridOutputs) + LB(1:1) = lbound(MiscData%GridOutputs, kind=B8Ki) + UB(1:1) = ubound(MiscData%GridOutputs, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyGridOutType(MiscData%GridOutputs(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3589,14 +3589,14 @@ subroutine FVW_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_MiscVarType(Buf, InData%W(i1)) end do @@ -3609,7 +3609,7 @@ subroutine FVW_PackMisc(Buf, Indata) call RegPack(Buf, InData%VTKlastTime) call RegPack(Buf, allocated(InData%r_wind)) if (allocated(InData%r_wind)) then - call RegPackBounds(Buf, 2, lbound(InData%r_wind), ubound(InData%r_wind)) + call RegPackBounds(Buf, 2, lbound(InData%r_wind, kind=B8Ki), ubound(InData%r_wind, kind=B8Ki)) call RegPack(Buf, InData%r_wind) end if call RegPack(Buf, InData%ComputeWakeInduced) @@ -3624,19 +3624,19 @@ subroutine FVW_PackMisc(Buf, Indata) call FVW_PackT_Part(Buf, InData%Part) call RegPack(Buf, allocated(InData%CPs)) if (allocated(InData%CPs)) then - call RegPackBounds(Buf, 2, lbound(InData%CPs), ubound(InData%CPs)) + call RegPackBounds(Buf, 2, lbound(InData%CPs, kind=B8Ki), ubound(InData%CPs, kind=B8Ki)) call RegPack(Buf, InData%CPs) end if call RegPack(Buf, allocated(InData%Uind)) if (allocated(InData%Uind)) then - call RegPackBounds(Buf, 2, lbound(InData%Uind), ubound(InData%Uind)) + call RegPackBounds(Buf, 2, lbound(InData%Uind, kind=B8Ki), ubound(InData%Uind, kind=B8Ki)) call RegPack(Buf, InData%Uind) end if call RegPack(Buf, allocated(InData%GridOutputs)) if (allocated(InData%GridOutputs)) then - call RegPackBounds(Buf, 1, lbound(InData%GridOutputs), ubound(InData%GridOutputs)) - LB(1:1) = lbound(InData%GridOutputs) - UB(1:1) = ubound(InData%GridOutputs) + call RegPackBounds(Buf, 1, lbound(InData%GridOutputs, kind=B8Ki), ubound(InData%GridOutputs, kind=B8Ki)) + LB(1:1) = lbound(InData%GridOutputs, kind=B8Ki) + UB(1:1) = ubound(InData%GridOutputs, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackGridOutType(Buf, InData%GridOutputs(i1)) end do @@ -3649,8 +3649,8 @@ subroutine FVW_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3806,14 +3806,14 @@ subroutine FVW_CopyWng_InputType(SrcWng_InputTypeData, DstWng_InputTypeData, Ctr integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyWng_InputType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_InputTypeData%Vwnd_LL)) then - LB(1:2) = lbound(SrcWng_InputTypeData%Vwnd_LL) - UB(1:2) = ubound(SrcWng_InputTypeData%Vwnd_LL) + LB(1:2) = lbound(SrcWng_InputTypeData%Vwnd_LL, kind=B8Ki) + UB(1:2) = ubound(SrcWng_InputTypeData%Vwnd_LL, kind=B8Ki) if (.not. allocated(DstWng_InputTypeData%Vwnd_LL)) then allocate(DstWng_InputTypeData%Vwnd_LL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3824,8 +3824,8 @@ subroutine FVW_CopyWng_InputType(SrcWng_InputTypeData, DstWng_InputTypeData, Ctr DstWng_InputTypeData%Vwnd_LL = SrcWng_InputTypeData%Vwnd_LL end if if (allocated(SrcWng_InputTypeData%omega_z)) then - LB(1:1) = lbound(SrcWng_InputTypeData%omega_z) - UB(1:1) = ubound(SrcWng_InputTypeData%omega_z) + LB(1:1) = lbound(SrcWng_InputTypeData%omega_z, kind=B8Ki) + UB(1:1) = ubound(SrcWng_InputTypeData%omega_z, kind=B8Ki) if (.not. allocated(DstWng_InputTypeData%omega_z)) then allocate(DstWng_InputTypeData%omega_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3859,12 +3859,12 @@ subroutine FVW_PackWng_InputType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Vwnd_LL)) if (allocated(InData%Vwnd_LL)) then - call RegPackBounds(Buf, 2, lbound(InData%Vwnd_LL), ubound(InData%Vwnd_LL)) + call RegPackBounds(Buf, 2, lbound(InData%Vwnd_LL, kind=B8Ki), ubound(InData%Vwnd_LL, kind=B8Ki)) call RegPack(Buf, InData%Vwnd_LL) end if call RegPack(Buf, allocated(InData%omega_z)) if (allocated(InData%omega_z)) then - call RegPackBounds(Buf, 1, lbound(InData%omega_z), ubound(InData%omega_z)) + call RegPackBounds(Buf, 1, lbound(InData%omega_z, kind=B8Ki), ubound(InData%omega_z, kind=B8Ki)) call RegPack(Buf, InData%omega_z) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3874,7 +3874,7 @@ subroutine FVW_UnPackWng_InputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_InputType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3914,16 +3914,16 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%rotors)) then - LB(1:1) = lbound(SrcInputData%rotors) - UB(1:1) = ubound(SrcInputData%rotors) + LB(1:1) = lbound(SrcInputData%rotors, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%rotors, kind=B8Ki) if (.not. allocated(DstInputData%rotors)) then allocate(DstInputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3938,8 +3938,8 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%W)) then - LB(1:1) = lbound(SrcInputData%W) - UB(1:1) = ubound(SrcInputData%W) + LB(1:1) = lbound(SrcInputData%W, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%W, kind=B8Ki) if (.not. allocated(DstInputData%W)) then allocate(DstInputData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3954,8 +3954,8 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%WingsMesh)) then - LB(1:1) = lbound(SrcInputData%WingsMesh) - UB(1:1) = ubound(SrcInputData%WingsMesh) + LB(1:1) = lbound(SrcInputData%WingsMesh, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%WingsMesh, kind=B8Ki) if (.not. allocated(DstInputData%WingsMesh)) then allocate(DstInputData%WingsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3970,8 +3970,8 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%V_wind)) then - LB(1:2) = lbound(SrcInputData%V_wind) - UB(1:2) = ubound(SrcInputData%V_wind) + LB(1:2) = lbound(SrcInputData%V_wind, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%V_wind, kind=B8Ki) if (.not. allocated(DstInputData%V_wind)) then allocate(DstInputData%V_wind(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3987,16 +3987,16 @@ subroutine FVW_DestroyInput(InputData, ErrStat, ErrMsg) type(FVW_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%rotors)) then - LB(1:1) = lbound(InputData%rotors) - UB(1:1) = ubound(InputData%rotors) + LB(1:1) = lbound(InputData%rotors, kind=B8Ki) + UB(1:1) = ubound(InputData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyRot_InputType(InputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4004,8 +4004,8 @@ subroutine FVW_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%rotors) end if if (allocated(InputData%W)) then - LB(1:1) = lbound(InputData%W) - UB(1:1) = ubound(InputData%W) + LB(1:1) = lbound(InputData%W, kind=B8Ki) + UB(1:1) = ubound(InputData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_InputType(InputData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4013,8 +4013,8 @@ subroutine FVW_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%W) end if if (allocated(InputData%WingsMesh)) then - LB(1:1) = lbound(InputData%WingsMesh) - UB(1:1) = ubound(InputData%WingsMesh) + LB(1:1) = lbound(InputData%WingsMesh, kind=B8Ki) + UB(1:1) = ubound(InputData%WingsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%WingsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4030,39 +4030,39 @@ subroutine FVW_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(Buf, 1, lbound(InData%rotors), ubound(InData%rotors)) - LB(1:1) = lbound(InData%rotors) - UB(1:1) = ubound(InData%rotors) + call RegPackBounds(Buf, 1, lbound(InData%rotors, kind=B8Ki), ubound(InData%rotors, kind=B8Ki)) + LB(1:1) = lbound(InData%rotors, kind=B8Ki) + UB(1:1) = ubound(InData%rotors, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackRot_InputType(Buf, InData%rotors(i1)) end do end if call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_InputType(Buf, InData%W(i1)) end do end if call RegPack(Buf, allocated(InData%WingsMesh)) if (allocated(InData%WingsMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%WingsMesh), ubound(InData%WingsMesh)) - LB(1:1) = lbound(InData%WingsMesh) - UB(1:1) = ubound(InData%WingsMesh) + call RegPackBounds(Buf, 1, lbound(InData%WingsMesh, kind=B8Ki), ubound(InData%WingsMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%WingsMesh, kind=B8Ki) + UB(1:1) = ubound(InData%WingsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%WingsMesh(i1)) end do end if call RegPack(Buf, allocated(InData%V_wind)) if (allocated(InData%V_wind)) then - call RegPackBounds(Buf, 2, lbound(InData%V_wind), ubound(InData%V_wind)) + call RegPackBounds(Buf, 2, lbound(InData%V_wind, kind=B8Ki), ubound(InData%V_wind, kind=B8Ki)) call RegPack(Buf, InData%V_wind) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4072,8 +4072,8 @@ subroutine FVW_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4144,8 +4144,8 @@ subroutine FVW_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyDiscState' @@ -4153,8 +4153,8 @@ subroutine FVW_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSt ErrMsg = '' DstDiscStateData%Dummy = SrcDiscStateData%Dummy if (allocated(SrcDiscStateData%UA)) then - LB(1:1) = lbound(SrcDiscStateData%UA) - UB(1:1) = ubound(SrcDiscStateData%UA) + LB(1:1) = lbound(SrcDiscStateData%UA, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%UA, kind=B8Ki) if (.not. allocated(DstDiscStateData%UA)) then allocate(DstDiscStateData%UA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4174,16 +4174,16 @@ subroutine FVW_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(FVW_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(DiscStateData%UA)) then - LB(1:1) = lbound(DiscStateData%UA) - UB(1:1) = ubound(DiscStateData%UA) + LB(1:1) = lbound(DiscStateData%UA, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%UA, kind=B8Ki) do i1 = LB(1), UB(1) call UA_DestroyDiscState(DiscStateData%UA(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4196,15 +4196,15 @@ subroutine FVW_PackDiscState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%Dummy) call RegPack(Buf, allocated(InData%UA)) if (allocated(InData%UA)) then - call RegPackBounds(Buf, 1, lbound(InData%UA), ubound(InData%UA)) - LB(1:1) = lbound(InData%UA) - UB(1:1) = ubound(InData%UA) + call RegPackBounds(Buf, 1, lbound(InData%UA, kind=B8Ki), ubound(InData%UA, kind=B8Ki)) + LB(1:1) = lbound(InData%UA, kind=B8Ki) + UB(1:1) = ubound(InData%UA, kind=B8Ki) do i1 = LB(1), UB(1) call UA_PackDiscState(Buf, InData%UA(i1)) end do @@ -4216,8 +4216,8 @@ subroutine FVW_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4246,14 +4246,14 @@ subroutine FVW_CopyWng_ConstraintStateType(SrcWng_ConstraintStateTypeData, DstWn integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyWng_ConstraintStateType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_ConstraintStateTypeData%Gamma_LL)) then - LB(1:1) = lbound(SrcWng_ConstraintStateTypeData%Gamma_LL) - UB(1:1) = ubound(SrcWng_ConstraintStateTypeData%Gamma_LL) + LB(1:1) = lbound(SrcWng_ConstraintStateTypeData%Gamma_LL, kind=B8Ki) + UB(1:1) = ubound(SrcWng_ConstraintStateTypeData%Gamma_LL, kind=B8Ki) if (.not. allocated(DstWng_ConstraintStateTypeData%Gamma_LL)) then allocate(DstWng_ConstraintStateTypeData%Gamma_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4284,7 +4284,7 @@ subroutine FVW_PackWng_ConstraintStateType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Gamma_LL)) if (allocated(InData%Gamma_LL)) then - call RegPackBounds(Buf, 1, lbound(InData%Gamma_LL), ubound(InData%Gamma_LL)) + call RegPackBounds(Buf, 1, lbound(InData%Gamma_LL, kind=B8Ki), ubound(InData%Gamma_LL, kind=B8Ki)) call RegPack(Buf, InData%Gamma_LL) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4294,7 +4294,7 @@ subroutine FVW_UnPackWng_ConstraintStateType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_ConstraintStateType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4320,16 +4320,16 @@ subroutine FVW_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcConstrStateData%W)) then - LB(1:1) = lbound(SrcConstrStateData%W) - UB(1:1) = ubound(SrcConstrStateData%W) + LB(1:1) = lbound(SrcConstrStateData%W, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%W, kind=B8Ki) if (.not. allocated(DstConstrStateData%W)) then allocate(DstConstrStateData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4350,16 +4350,16 @@ subroutine FVW_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(FVW_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ConstrStateData%W)) then - LB(1:1) = lbound(ConstrStateData%W) - UB(1:1) = ubound(ConstrStateData%W) + LB(1:1) = lbound(ConstrStateData%W, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_ConstraintStateType(ConstrStateData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4372,14 +4372,14 @@ subroutine FVW_PackConstrState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_ConstraintStateType(Buf, InData%W(i1)) end do @@ -4392,8 +4392,8 @@ subroutine FVW_UnPackConstrState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4422,8 +4422,8 @@ subroutine FVW_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyOtherState' @@ -4431,8 +4431,8 @@ subroutine FVW_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er ErrMsg = '' DstOtherStateData%Dummy = SrcOtherStateData%Dummy if (allocated(SrcOtherStateData%UA)) then - LB(1:1) = lbound(SrcOtherStateData%UA) - UB(1:1) = ubound(SrcOtherStateData%UA) + LB(1:1) = lbound(SrcOtherStateData%UA, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%UA, kind=B8Ki) if (.not. allocated(DstOtherStateData%UA)) then allocate(DstOtherStateData%UA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4452,16 +4452,16 @@ subroutine FVW_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(FVW_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%UA)) then - LB(1:1) = lbound(OtherStateData%UA) - UB(1:1) = ubound(OtherStateData%UA) + LB(1:1) = lbound(OtherStateData%UA, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%UA, kind=B8Ki) do i1 = LB(1), UB(1) call UA_DestroyOtherState(OtherStateData%UA(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4474,15 +4474,15 @@ subroutine FVW_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%Dummy) call RegPack(Buf, allocated(InData%UA)) if (allocated(InData%UA)) then - call RegPackBounds(Buf, 1, lbound(InData%UA), ubound(InData%UA)) - LB(1:1) = lbound(InData%UA) - UB(1:1) = ubound(InData%UA) + call RegPackBounds(Buf, 1, lbound(InData%UA, kind=B8Ki), ubound(InData%UA, kind=B8Ki)) + LB(1:1) = lbound(InData%UA, kind=B8Ki) + UB(1:1) = ubound(InData%UA, kind=B8Ki) do i1 = LB(1), UB(1) call UA_PackOtherState(Buf, InData%UA(i1)) end do @@ -4494,8 +4494,8 @@ subroutine FVW_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4524,14 +4524,14 @@ subroutine FVW_CopyWng_InitInputType(SrcWng_InitInputTypeData, DstWng_InitInputT integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyWng_InitInputType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWng_InitInputTypeData%AFindx)) then - LB(1:2) = lbound(SrcWng_InitInputTypeData%AFindx) - UB(1:2) = ubound(SrcWng_InitInputTypeData%AFindx) + LB(1:2) = lbound(SrcWng_InitInputTypeData%AFindx, kind=B8Ki) + UB(1:2) = ubound(SrcWng_InitInputTypeData%AFindx, kind=B8Ki) if (.not. allocated(DstWng_InitInputTypeData%AFindx)) then allocate(DstWng_InitInputTypeData%AFindx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4542,8 +4542,8 @@ subroutine FVW_CopyWng_InitInputType(SrcWng_InitInputTypeData, DstWng_InitInputT DstWng_InitInputTypeData%AFindx = SrcWng_InitInputTypeData%AFindx end if if (allocated(SrcWng_InitInputTypeData%chord)) then - LB(1:1) = lbound(SrcWng_InitInputTypeData%chord) - UB(1:1) = ubound(SrcWng_InitInputTypeData%chord) + LB(1:1) = lbound(SrcWng_InitInputTypeData%chord, kind=B8Ki) + UB(1:1) = ubound(SrcWng_InitInputTypeData%chord, kind=B8Ki) if (.not. allocated(DstWng_InitInputTypeData%chord)) then allocate(DstWng_InitInputTypeData%chord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4554,8 +4554,8 @@ subroutine FVW_CopyWng_InitInputType(SrcWng_InitInputTypeData, DstWng_InitInputT DstWng_InitInputTypeData%chord = SrcWng_InitInputTypeData%chord end if if (allocated(SrcWng_InitInputTypeData%RElm)) then - LB(1:1) = lbound(SrcWng_InitInputTypeData%RElm) - UB(1:1) = ubound(SrcWng_InitInputTypeData%RElm) + LB(1:1) = lbound(SrcWng_InitInputTypeData%RElm, kind=B8Ki) + UB(1:1) = ubound(SrcWng_InitInputTypeData%RElm, kind=B8Ki) if (.not. allocated(DstWng_InitInputTypeData%RElm)) then allocate(DstWng_InitInputTypeData%RElm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4595,17 +4595,17 @@ subroutine FVW_PackWng_InitInputType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AFindx)) if (allocated(InData%AFindx)) then - call RegPackBounds(Buf, 2, lbound(InData%AFindx), ubound(InData%AFindx)) + call RegPackBounds(Buf, 2, lbound(InData%AFindx, kind=B8Ki), ubound(InData%AFindx, kind=B8Ki)) call RegPack(Buf, InData%AFindx) end if call RegPack(Buf, allocated(InData%chord)) if (allocated(InData%chord)) then - call RegPackBounds(Buf, 1, lbound(InData%chord), ubound(InData%chord)) + call RegPackBounds(Buf, 1, lbound(InData%chord, kind=B8Ki), ubound(InData%chord, kind=B8Ki)) call RegPack(Buf, InData%chord) end if call RegPack(Buf, allocated(InData%RElm)) if (allocated(InData%RElm)) then - call RegPackBounds(Buf, 1, lbound(InData%RElm), ubound(InData%RElm)) + call RegPackBounds(Buf, 1, lbound(InData%RElm, kind=B8Ki), ubound(InData%RElm, kind=B8Ki)) call RegPack(Buf, InData%RElm) end if call RegPack(Buf, InData%iRotor) @@ -4618,7 +4618,7 @@ subroutine FVW_UnPackWng_InitInputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Wng_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_InitInputType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4678,8 +4678,8 @@ subroutine FVW_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyInitInput' @@ -4688,8 +4688,8 @@ subroutine FVW_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt DstInitInputData%FVWFileName = SrcInitInputData%FVWFileName DstInitInputData%RootName = SrcInitInputData%RootName if (allocated(SrcInitInputData%W)) then - LB(1:1) = lbound(SrcInitInputData%W) - UB(1:1) = ubound(SrcInitInputData%W) + LB(1:1) = lbound(SrcInitInputData%W, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%W, kind=B8Ki) if (.not. allocated(DstInitInputData%W)) then allocate(DstInitInputData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4704,8 +4704,8 @@ subroutine FVW_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt end do end if if (allocated(SrcInitInputData%WingsMesh)) then - LB(1:1) = lbound(SrcInitInputData%WingsMesh) - UB(1:1) = ubound(SrcInitInputData%WingsMesh) + LB(1:1) = lbound(SrcInitInputData%WingsMesh, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WingsMesh, kind=B8Ki) if (.not. allocated(DstInitInputData%WingsMesh)) then allocate(DstInitInputData%WingsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4735,16 +4735,16 @@ subroutine FVW_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(FVW_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyInitInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InitInputData%W)) then - LB(1:1) = lbound(InitInputData%W) - UB(1:1) = ubound(InitInputData%W) + LB(1:1) = lbound(InitInputData%W, kind=B8Ki) + UB(1:1) = ubound(InitInputData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_DestroyWng_InitInputType(InitInputData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4752,8 +4752,8 @@ subroutine FVW_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%W) end if if (allocated(InitInputData%WingsMesh)) then - LB(1:1) = lbound(InitInputData%WingsMesh) - UB(1:1) = ubound(InitInputData%WingsMesh) + LB(1:1) = lbound(InitInputData%WingsMesh, kind=B8Ki) + UB(1:1) = ubound(InitInputData%WingsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InitInputData%WingsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4766,25 +4766,25 @@ subroutine FVW_PackInitInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FVW_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackInitInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%FVWFileName) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 1, lbound(InData%W), ubound(InData%W)) - LB(1:1) = lbound(InData%W) - UB(1:1) = ubound(InData%W) + call RegPackBounds(Buf, 1, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) + LB(1:1) = lbound(InData%W, kind=B8Ki) + UB(1:1) = ubound(InData%W, kind=B8Ki) do i1 = LB(1), UB(1) call FVW_PackWng_InitInputType(Buf, InData%W(i1)) end do end if call RegPack(Buf, allocated(InData%WingsMesh)) if (allocated(InData%WingsMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%WingsMesh), ubound(InData%WingsMesh)) - LB(1:1) = lbound(InData%WingsMesh) - UB(1:1) = ubound(InData%WingsMesh) + call RegPackBounds(Buf, 1, lbound(InData%WingsMesh, kind=B8Ki), ubound(InData%WingsMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%WingsMesh, kind=B8Ki) + UB(1:1) = ubound(InData%WingsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%WingsMesh(i1)) end do @@ -4806,8 +4806,8 @@ subroutine FVW_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FVW_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackInitInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5169,27 +5169,27 @@ SUBROUTINE FVW_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(u_out%rotors) .AND. ALLOCATED(u1%rotors)) THEN - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%HubOrientation = a1*u1%rotors(i01)%HubOrientation + a2*u2%rotors(i01)%HubOrientation END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%HubPosition = a1*u1%rotors(i01)%HubPosition + a2*u2%rotors(i01)%HubPosition END DO END IF ! check if allocated IF (ALLOCATED(u_out%W) .AND. ALLOCATED(u1%W)) THEN - DO i01 = LBOUND(u_out%W,1),UBOUND(u_out%W,1) + DO i01 = LBOUND(u_out%W,1, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) IF (ALLOCATED(u_out%W(i01)%Vwnd_LL) .AND. ALLOCATED(u1%W(i01)%Vwnd_LL)) THEN u_out%W(i01)%Vwnd_LL = a1*u1%W(i01)%Vwnd_LL + a2*u2%W(i01)%Vwnd_LL END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%W,1),UBOUND(u_out%W,1) + DO i01 = LBOUND(u_out%W,1, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) IF (ALLOCATED(u_out%W(i01)%omega_z) .AND. ALLOCATED(u1%W(i01)%omega_z)) THEN u_out%W(i01)%omega_z = a1*u1%W(i01)%omega_z + a2*u2%W(i01)%omega_z END IF ! check if allocated END DO END IF ! check if allocated IF (ALLOCATED(u_out%WingsMesh) .AND. ALLOCATED(u1%WingsMesh)) THEN - DO i1 = LBOUND(u_out%WingsMesh,1),UBOUND(u_out%WingsMesh,1) + DO i1 = LBOUND(u_out%WingsMesh,1, kind=B8Ki),UBOUND(u_out%WingsMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%WingsMesh(i1), u2%WingsMesh(i1), tin, u_out%WingsMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -5257,27 +5257,27 @@ SUBROUTINE FVW_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Err a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%rotors) .AND. ALLOCATED(u1%rotors)) THEN - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%HubOrientation = a1*u1%rotors(i01)%HubOrientation + a2*u2%rotors(i01)%HubOrientation + a3*u3%rotors(i01)%HubOrientation END DO - DO i01 = LBOUND(u_out%rotors,1),UBOUND(u_out%rotors,1) + DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) u_out%rotors(i01)%HubPosition = a1*u1%rotors(i01)%HubPosition + a2*u2%rotors(i01)%HubPosition + a3*u3%rotors(i01)%HubPosition END DO END IF ! check if allocated IF (ALLOCATED(u_out%W) .AND. ALLOCATED(u1%W)) THEN - DO i01 = LBOUND(u_out%W,1),UBOUND(u_out%W,1) + DO i01 = LBOUND(u_out%W,1, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) IF (ALLOCATED(u_out%W(i01)%Vwnd_LL) .AND. ALLOCATED(u1%W(i01)%Vwnd_LL)) THEN u_out%W(i01)%Vwnd_LL = a1*u1%W(i01)%Vwnd_LL + a2*u2%W(i01)%Vwnd_LL + a3*u3%W(i01)%Vwnd_LL END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%W,1),UBOUND(u_out%W,1) + DO i01 = LBOUND(u_out%W,1, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) IF (ALLOCATED(u_out%W(i01)%omega_z) .AND. ALLOCATED(u1%W(i01)%omega_z)) THEN u_out%W(i01)%omega_z = a1*u1%W(i01)%omega_z + a2*u2%W(i01)%omega_z + a3*u3%W(i01)%omega_z END IF ! check if allocated END DO END IF ! check if allocated IF (ALLOCATED(u_out%WingsMesh) .AND. ALLOCATED(u1%WingsMesh)) THEN - DO i1 = LBOUND(u_out%WingsMesh,1),UBOUND(u_out%WingsMesh,1) + DO i1 = LBOUND(u_out%WingsMesh,1, kind=B8Ki),UBOUND(u_out%WingsMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%WingsMesh(i1), u2%WingsMesh(i1), u3%WingsMesh(i1), tin, u_out%WingsMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -5387,7 +5387,7 @@ SUBROUTINE FVW_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(y_out%W) .AND. ALLOCATED(y1%W)) THEN - DO i01 = LBOUND(y_out%W,1),UBOUND(y_out%W,1) + DO i01 = LBOUND(y_out%W,1, kind=B8Ki),UBOUND(y_out%W,1, kind=B8Ki) IF (ALLOCATED(y_out%W(i01)%Vind) .AND. ALLOCATED(y1%W(i01)%Vind)) THEN y_out%W(i01)%Vind = a1*y1%W(i01)%Vind + a2*y2%W(i01)%Vind END IF ! check if allocated @@ -5453,7 +5453,7 @@ SUBROUTINE FVW_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Er a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%W) .AND. ALLOCATED(y1%W)) THEN - DO i01 = LBOUND(y_out%W,1),UBOUND(y_out%W,1) + DO i01 = LBOUND(y_out%W,1, kind=B8Ki),UBOUND(y_out%W,1, kind=B8Ki) IF (ALLOCATED(y_out%W(i01)%Vind) .AND. ALLOCATED(y1%W(i01)%Vind)) THEN y_out%W(i01)%Vind = a1*y1%W(i01)%Vind + a2*y2%W(i01)%Vind + a3*y3%W(i01)%Vind END IF ! check if allocated diff --git a/modules/aerodyn/src/UnsteadyAero_Types.f90 b/modules/aerodyn/src/UnsteadyAero_Types.f90 index 23a120ec97..af725dc88d 100644 --- a/modules/aerodyn/src/UnsteadyAero_Types.f90 +++ b/modules/aerodyn/src/UnsteadyAero_Types.f90 @@ -254,7 +254,7 @@ subroutine UA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyInitInput' ErrStat = ErrID_None @@ -262,8 +262,8 @@ subroutine UA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%dt = SrcInitInputData%dt DstInitInputData%OutRootName = SrcInitInputData%OutRootName if (allocated(SrcInitInputData%c)) then - LB(1:2) = lbound(SrcInitInputData%c) - UB(1:2) = ubound(SrcInitInputData%c) + LB(1:2) = lbound(SrcInitInputData%c, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%c, kind=B8Ki) if (.not. allocated(DstInitInputData%c)) then allocate(DstInitInputData%c(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -281,8 +281,8 @@ subroutine UA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%ShedEffect = SrcInitInputData%ShedEffect DstInitInputData%WrSum = SrcInitInputData%WrSum if (allocated(SrcInitInputData%UAOff_innerNode)) then - LB(1:1) = lbound(SrcInitInputData%UAOff_innerNode) - UB(1:1) = ubound(SrcInitInputData%UAOff_innerNode) + LB(1:1) = lbound(SrcInitInputData%UAOff_innerNode, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%UAOff_innerNode, kind=B8Ki) if (.not. allocated(DstInitInputData%UAOff_innerNode)) then allocate(DstInitInputData%UAOff_innerNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -293,8 +293,8 @@ subroutine UA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%UAOff_innerNode = SrcInitInputData%UAOff_innerNode end if if (allocated(SrcInitInputData%UAOff_outerNode)) then - LB(1:1) = lbound(SrcInitInputData%UAOff_outerNode) - UB(1:1) = ubound(SrcInitInputData%UAOff_outerNode) + LB(1:1) = lbound(SrcInitInputData%UAOff_outerNode, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%UAOff_outerNode, kind=B8Ki) if (.not. allocated(DstInitInputData%UAOff_outerNode)) then allocate(DstInitInputData%UAOff_outerNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -333,7 +333,7 @@ subroutine UA_PackInitInput(Buf, Indata) call RegPack(Buf, InData%OutRootName) call RegPack(Buf, allocated(InData%c)) if (allocated(InData%c)) then - call RegPackBounds(Buf, 2, lbound(InData%c), ubound(InData%c)) + call RegPackBounds(Buf, 2, lbound(InData%c, kind=B8Ki), ubound(InData%c, kind=B8Ki)) call RegPack(Buf, InData%c) end if call RegPack(Buf, InData%numBlades) @@ -345,12 +345,12 @@ subroutine UA_PackInitInput(Buf, Indata) call RegPack(Buf, InData%WrSum) call RegPack(Buf, allocated(InData%UAOff_innerNode)) if (allocated(InData%UAOff_innerNode)) then - call RegPackBounds(Buf, 1, lbound(InData%UAOff_innerNode), ubound(InData%UAOff_innerNode)) + call RegPackBounds(Buf, 1, lbound(InData%UAOff_innerNode, kind=B8Ki), ubound(InData%UAOff_innerNode, kind=B8Ki)) call RegPack(Buf, InData%UAOff_innerNode) end if call RegPack(Buf, allocated(InData%UAOff_outerNode)) if (allocated(InData%UAOff_outerNode)) then - call RegPackBounds(Buf, 1, lbound(InData%UAOff_outerNode), ubound(InData%UAOff_outerNode)) + call RegPackBounds(Buf, 1, lbound(InData%UAOff_outerNode, kind=B8Ki), ubound(InData%UAOff_outerNode, kind=B8Ki)) call RegPack(Buf, InData%UAOff_outerNode) end if if (RegCheckErr(Buf, RoutineName)) return @@ -360,7 +360,7 @@ subroutine UA_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackInitInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -432,7 +432,7 @@ subroutine UA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_CopyInitOutput' @@ -442,8 +442,8 @@ subroutine UA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -454,8 +454,8 @@ subroutine UA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -494,12 +494,12 @@ subroutine UA_PackInitOutput(Buf, Indata) call NWTC_Library_PackProgDesc(Buf, InData%Version) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -509,7 +509,7 @@ subroutine UA_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -828,16 +828,16 @@ subroutine UA_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%element)) then - LB(1:2) = lbound(SrcContStateData%element) - UB(1:2) = ubound(SrcContStateData%element) + LB(1:2) = lbound(SrcContStateData%element, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%element, kind=B8Ki) if (.not. allocated(DstContStateData%element)) then allocate(DstContStateData%element(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -859,16 +859,16 @@ subroutine UA_DestroyContState(ContStateData, ErrStat, ErrMsg) type(UA_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%element)) then - LB(1:2) = lbound(ContStateData%element) - UB(1:2) = ubound(ContStateData%element) + LB(1:2) = lbound(ContStateData%element, kind=B8Ki) + UB(1:2) = ubound(ContStateData%element, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_DestroyElementContinuousStateType(ContStateData%element(i1,i2), ErrStat2, ErrMsg2) @@ -883,14 +883,14 @@ subroutine UA_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(UA_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'UA_PackContState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%element)) if (allocated(InData%element)) then - call RegPackBounds(Buf, 2, lbound(InData%element), ubound(InData%element)) - LB(1:2) = lbound(InData%element) - UB(1:2) = ubound(InData%element) + call RegPackBounds(Buf, 2, lbound(InData%element, kind=B8Ki), ubound(InData%element, kind=B8Ki)) + LB(1:2) = lbound(InData%element, kind=B8Ki) + UB(1:2) = ubound(InData%element, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_PackElementContinuousStateType(Buf, InData%element(i1,i2)) @@ -904,8 +904,8 @@ subroutine UA_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackContState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -934,14 +934,14 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%alpha_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%alpha_minus1) - UB(1:2) = ubound(SrcDiscStateData%alpha_minus1) + LB(1:2) = lbound(SrcDiscStateData%alpha_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%alpha_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%alpha_minus1)) then allocate(DstDiscStateData%alpha_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -952,8 +952,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%alpha_minus1 = SrcDiscStateData%alpha_minus1 end if if (allocated(SrcDiscStateData%alpha_filt_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%alpha_filt_minus1) - UB(1:2) = ubound(SrcDiscStateData%alpha_filt_minus1) + LB(1:2) = lbound(SrcDiscStateData%alpha_filt_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%alpha_filt_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%alpha_filt_minus1)) then allocate(DstDiscStateData%alpha_filt_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -964,8 +964,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%alpha_filt_minus1 = SrcDiscStateData%alpha_filt_minus1 end if if (allocated(SrcDiscStateData%alpha_dot)) then - LB(1:2) = lbound(SrcDiscStateData%alpha_dot) - UB(1:2) = ubound(SrcDiscStateData%alpha_dot) + LB(1:2) = lbound(SrcDiscStateData%alpha_dot, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%alpha_dot, kind=B8Ki) if (.not. allocated(DstDiscStateData%alpha_dot)) then allocate(DstDiscStateData%alpha_dot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -976,8 +976,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%alpha_dot = SrcDiscStateData%alpha_dot end if if (allocated(SrcDiscStateData%alpha_dot_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%alpha_dot_minus1) - UB(1:2) = ubound(SrcDiscStateData%alpha_dot_minus1) + LB(1:2) = lbound(SrcDiscStateData%alpha_dot_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%alpha_dot_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%alpha_dot_minus1)) then allocate(DstDiscStateData%alpha_dot_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -988,8 +988,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%alpha_dot_minus1 = SrcDiscStateData%alpha_dot_minus1 end if if (allocated(SrcDiscStateData%q_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%q_minus1) - UB(1:2) = ubound(SrcDiscStateData%q_minus1) + LB(1:2) = lbound(SrcDiscStateData%q_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%q_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%q_minus1)) then allocate(DstDiscStateData%q_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1000,8 +1000,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%q_minus1 = SrcDiscStateData%q_minus1 end if if (allocated(SrcDiscStateData%Kalpha_f_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Kalpha_f_minus1) - UB(1:2) = ubound(SrcDiscStateData%Kalpha_f_minus1) + LB(1:2) = lbound(SrcDiscStateData%Kalpha_f_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Kalpha_f_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Kalpha_f_minus1)) then allocate(DstDiscStateData%Kalpha_f_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1012,8 +1012,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Kalpha_f_minus1 = SrcDiscStateData%Kalpha_f_minus1 end if if (allocated(SrcDiscStateData%Kq_f_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Kq_f_minus1) - UB(1:2) = ubound(SrcDiscStateData%Kq_f_minus1) + LB(1:2) = lbound(SrcDiscStateData%Kq_f_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Kq_f_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Kq_f_minus1)) then allocate(DstDiscStateData%Kq_f_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1024,8 +1024,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Kq_f_minus1 = SrcDiscStateData%Kq_f_minus1 end if if (allocated(SrcDiscStateData%q_f_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%q_f_minus1) - UB(1:2) = ubound(SrcDiscStateData%q_f_minus1) + LB(1:2) = lbound(SrcDiscStateData%q_f_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%q_f_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%q_f_minus1)) then allocate(DstDiscStateData%q_f_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1036,8 +1036,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%q_f_minus1 = SrcDiscStateData%q_f_minus1 end if if (allocated(SrcDiscStateData%X1_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%X1_minus1) - UB(1:2) = ubound(SrcDiscStateData%X1_minus1) + LB(1:2) = lbound(SrcDiscStateData%X1_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%X1_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%X1_minus1)) then allocate(DstDiscStateData%X1_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1048,8 +1048,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%X1_minus1 = SrcDiscStateData%X1_minus1 end if if (allocated(SrcDiscStateData%X2_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%X2_minus1) - UB(1:2) = ubound(SrcDiscStateData%X2_minus1) + LB(1:2) = lbound(SrcDiscStateData%X2_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%X2_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%X2_minus1)) then allocate(DstDiscStateData%X2_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1060,8 +1060,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%X2_minus1 = SrcDiscStateData%X2_minus1 end if if (allocated(SrcDiscStateData%X3_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%X3_minus1) - UB(1:2) = ubound(SrcDiscStateData%X3_minus1) + LB(1:2) = lbound(SrcDiscStateData%X3_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%X3_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%X3_minus1)) then allocate(DstDiscStateData%X3_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1072,8 +1072,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%X3_minus1 = SrcDiscStateData%X3_minus1 end if if (allocated(SrcDiscStateData%X4_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%X4_minus1) - UB(1:2) = ubound(SrcDiscStateData%X4_minus1) + LB(1:2) = lbound(SrcDiscStateData%X4_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%X4_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%X4_minus1)) then allocate(DstDiscStateData%X4_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1084,8 +1084,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%X4_minus1 = SrcDiscStateData%X4_minus1 end if if (allocated(SrcDiscStateData%Kprime_alpha_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Kprime_alpha_minus1) - UB(1:2) = ubound(SrcDiscStateData%Kprime_alpha_minus1) + LB(1:2) = lbound(SrcDiscStateData%Kprime_alpha_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Kprime_alpha_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Kprime_alpha_minus1)) then allocate(DstDiscStateData%Kprime_alpha_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1096,8 +1096,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Kprime_alpha_minus1 = SrcDiscStateData%Kprime_alpha_minus1 end if if (allocated(SrcDiscStateData%Kprime_q_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Kprime_q_minus1) - UB(1:2) = ubound(SrcDiscStateData%Kprime_q_minus1) + LB(1:2) = lbound(SrcDiscStateData%Kprime_q_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Kprime_q_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Kprime_q_minus1)) then allocate(DstDiscStateData%Kprime_q_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1108,8 +1108,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Kprime_q_minus1 = SrcDiscStateData%Kprime_q_minus1 end if if (allocated(SrcDiscStateData%Kprimeprime_q_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Kprimeprime_q_minus1) - UB(1:2) = ubound(SrcDiscStateData%Kprimeprime_q_minus1) + LB(1:2) = lbound(SrcDiscStateData%Kprimeprime_q_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Kprimeprime_q_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Kprimeprime_q_minus1)) then allocate(DstDiscStateData%Kprimeprime_q_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1120,8 +1120,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Kprimeprime_q_minus1 = SrcDiscStateData%Kprimeprime_q_minus1 end if if (allocated(SrcDiscStateData%K3prime_q_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%K3prime_q_minus1) - UB(1:2) = ubound(SrcDiscStateData%K3prime_q_minus1) + LB(1:2) = lbound(SrcDiscStateData%K3prime_q_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%K3prime_q_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%K3prime_q_minus1)) then allocate(DstDiscStateData%K3prime_q_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1132,8 +1132,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%K3prime_q_minus1 = SrcDiscStateData%K3prime_q_minus1 end if if (allocated(SrcDiscStateData%Dp_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Dp_minus1) - UB(1:2) = ubound(SrcDiscStateData%Dp_minus1) + LB(1:2) = lbound(SrcDiscStateData%Dp_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Dp_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Dp_minus1)) then allocate(DstDiscStateData%Dp_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1144,8 +1144,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Dp_minus1 = SrcDiscStateData%Dp_minus1 end if if (allocated(SrcDiscStateData%Cn_pot_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Cn_pot_minus1) - UB(1:2) = ubound(SrcDiscStateData%Cn_pot_minus1) + LB(1:2) = lbound(SrcDiscStateData%Cn_pot_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Cn_pot_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Cn_pot_minus1)) then allocate(DstDiscStateData%Cn_pot_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1156,8 +1156,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Cn_pot_minus1 = SrcDiscStateData%Cn_pot_minus1 end if if (allocated(SrcDiscStateData%fprimeprime_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%fprimeprime_minus1) - UB(1:2) = ubound(SrcDiscStateData%fprimeprime_minus1) + LB(1:2) = lbound(SrcDiscStateData%fprimeprime_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%fprimeprime_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%fprimeprime_minus1)) then allocate(DstDiscStateData%fprimeprime_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1168,8 +1168,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%fprimeprime_minus1 = SrcDiscStateData%fprimeprime_minus1 end if if (allocated(SrcDiscStateData%fprimeprime_c_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%fprimeprime_c_minus1) - UB(1:2) = ubound(SrcDiscStateData%fprimeprime_c_minus1) + LB(1:2) = lbound(SrcDiscStateData%fprimeprime_c_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%fprimeprime_c_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%fprimeprime_c_minus1)) then allocate(DstDiscStateData%fprimeprime_c_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1180,8 +1180,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%fprimeprime_c_minus1 = SrcDiscStateData%fprimeprime_c_minus1 end if if (allocated(SrcDiscStateData%fprimeprime_m_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%fprimeprime_m_minus1) - UB(1:2) = ubound(SrcDiscStateData%fprimeprime_m_minus1) + LB(1:2) = lbound(SrcDiscStateData%fprimeprime_m_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%fprimeprime_m_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%fprimeprime_m_minus1)) then allocate(DstDiscStateData%fprimeprime_m_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1192,8 +1192,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%fprimeprime_m_minus1 = SrcDiscStateData%fprimeprime_m_minus1 end if if (allocated(SrcDiscStateData%Df_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Df_minus1) - UB(1:2) = ubound(SrcDiscStateData%Df_minus1) + LB(1:2) = lbound(SrcDiscStateData%Df_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Df_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Df_minus1)) then allocate(DstDiscStateData%Df_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1204,8 +1204,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Df_minus1 = SrcDiscStateData%Df_minus1 end if if (allocated(SrcDiscStateData%Df_c_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Df_c_minus1) - UB(1:2) = ubound(SrcDiscStateData%Df_c_minus1) + LB(1:2) = lbound(SrcDiscStateData%Df_c_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Df_c_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Df_c_minus1)) then allocate(DstDiscStateData%Df_c_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1216,8 +1216,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Df_c_minus1 = SrcDiscStateData%Df_c_minus1 end if if (allocated(SrcDiscStateData%Df_m_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Df_m_minus1) - UB(1:2) = ubound(SrcDiscStateData%Df_m_minus1) + LB(1:2) = lbound(SrcDiscStateData%Df_m_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Df_m_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Df_m_minus1)) then allocate(DstDiscStateData%Df_m_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1228,8 +1228,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Df_m_minus1 = SrcDiscStateData%Df_m_minus1 end if if (allocated(SrcDiscStateData%Dalphaf_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Dalphaf_minus1) - UB(1:2) = ubound(SrcDiscStateData%Dalphaf_minus1) + LB(1:2) = lbound(SrcDiscStateData%Dalphaf_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Dalphaf_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Dalphaf_minus1)) then allocate(DstDiscStateData%Dalphaf_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1240,8 +1240,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Dalphaf_minus1 = SrcDiscStateData%Dalphaf_minus1 end if if (allocated(SrcDiscStateData%alphaf_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%alphaf_minus1) - UB(1:2) = ubound(SrcDiscStateData%alphaf_minus1) + LB(1:2) = lbound(SrcDiscStateData%alphaf_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%alphaf_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%alphaf_minus1)) then allocate(DstDiscStateData%alphaf_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1252,8 +1252,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%alphaf_minus1 = SrcDiscStateData%alphaf_minus1 end if if (allocated(SrcDiscStateData%fprime_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%fprime_minus1) - UB(1:2) = ubound(SrcDiscStateData%fprime_minus1) + LB(1:2) = lbound(SrcDiscStateData%fprime_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%fprime_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%fprime_minus1)) then allocate(DstDiscStateData%fprime_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1264,8 +1264,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%fprime_minus1 = SrcDiscStateData%fprime_minus1 end if if (allocated(SrcDiscStateData%fprime_c_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%fprime_c_minus1) - UB(1:2) = ubound(SrcDiscStateData%fprime_c_minus1) + LB(1:2) = lbound(SrcDiscStateData%fprime_c_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%fprime_c_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%fprime_c_minus1)) then allocate(DstDiscStateData%fprime_c_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1276,8 +1276,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%fprime_c_minus1 = SrcDiscStateData%fprime_c_minus1 end if if (allocated(SrcDiscStateData%fprime_m_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%fprime_m_minus1) - UB(1:2) = ubound(SrcDiscStateData%fprime_m_minus1) + LB(1:2) = lbound(SrcDiscStateData%fprime_m_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%fprime_m_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%fprime_m_minus1)) then allocate(DstDiscStateData%fprime_m_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1288,8 +1288,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%fprime_m_minus1 = SrcDiscStateData%fprime_m_minus1 end if if (allocated(SrcDiscStateData%tau_V)) then - LB(1:2) = lbound(SrcDiscStateData%tau_V) - UB(1:2) = ubound(SrcDiscStateData%tau_V) + LB(1:2) = lbound(SrcDiscStateData%tau_V, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%tau_V, kind=B8Ki) if (.not. allocated(DstDiscStateData%tau_V)) then allocate(DstDiscStateData%tau_V(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1300,8 +1300,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%tau_V = SrcDiscStateData%tau_V end if if (allocated(SrcDiscStateData%tau_V_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%tau_V_minus1) - UB(1:2) = ubound(SrcDiscStateData%tau_V_minus1) + LB(1:2) = lbound(SrcDiscStateData%tau_V_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%tau_V_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%tau_V_minus1)) then allocate(DstDiscStateData%tau_V_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1312,8 +1312,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%tau_V_minus1 = SrcDiscStateData%tau_V_minus1 end if if (allocated(SrcDiscStateData%Cn_v_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Cn_v_minus1) - UB(1:2) = ubound(SrcDiscStateData%Cn_v_minus1) + LB(1:2) = lbound(SrcDiscStateData%Cn_v_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Cn_v_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Cn_v_minus1)) then allocate(DstDiscStateData%Cn_v_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1324,8 +1324,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Cn_v_minus1 = SrcDiscStateData%Cn_v_minus1 end if if (allocated(SrcDiscStateData%C_V_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%C_V_minus1) - UB(1:2) = ubound(SrcDiscStateData%C_V_minus1) + LB(1:2) = lbound(SrcDiscStateData%C_V_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%C_V_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%C_V_minus1)) then allocate(DstDiscStateData%C_V_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1336,8 +1336,8 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%C_V_minus1 = SrcDiscStateData%C_V_minus1 end if if (allocated(SrcDiscStateData%Cn_prime_minus1)) then - LB(1:2) = lbound(SrcDiscStateData%Cn_prime_minus1) - UB(1:2) = ubound(SrcDiscStateData%Cn_prime_minus1) + LB(1:2) = lbound(SrcDiscStateData%Cn_prime_minus1, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Cn_prime_minus1, kind=B8Ki) if (.not. allocated(DstDiscStateData%Cn_prime_minus1)) then allocate(DstDiscStateData%Cn_prime_minus1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1467,172 +1467,172 @@ subroutine UA_PackDiscState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%alpha_minus1)) if (allocated(InData%alpha_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%alpha_minus1), ubound(InData%alpha_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%alpha_minus1, kind=B8Ki), ubound(InData%alpha_minus1, kind=B8Ki)) call RegPack(Buf, InData%alpha_minus1) end if call RegPack(Buf, allocated(InData%alpha_filt_minus1)) if (allocated(InData%alpha_filt_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%alpha_filt_minus1), ubound(InData%alpha_filt_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%alpha_filt_minus1, kind=B8Ki), ubound(InData%alpha_filt_minus1, kind=B8Ki)) call RegPack(Buf, InData%alpha_filt_minus1) end if call RegPack(Buf, allocated(InData%alpha_dot)) if (allocated(InData%alpha_dot)) then - call RegPackBounds(Buf, 2, lbound(InData%alpha_dot), ubound(InData%alpha_dot)) + call RegPackBounds(Buf, 2, lbound(InData%alpha_dot, kind=B8Ki), ubound(InData%alpha_dot, kind=B8Ki)) call RegPack(Buf, InData%alpha_dot) end if call RegPack(Buf, allocated(InData%alpha_dot_minus1)) if (allocated(InData%alpha_dot_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%alpha_dot_minus1), ubound(InData%alpha_dot_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%alpha_dot_minus1, kind=B8Ki), ubound(InData%alpha_dot_minus1, kind=B8Ki)) call RegPack(Buf, InData%alpha_dot_minus1) end if call RegPack(Buf, allocated(InData%q_minus1)) if (allocated(InData%q_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%q_minus1), ubound(InData%q_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%q_minus1, kind=B8Ki), ubound(InData%q_minus1, kind=B8Ki)) call RegPack(Buf, InData%q_minus1) end if call RegPack(Buf, allocated(InData%Kalpha_f_minus1)) if (allocated(InData%Kalpha_f_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Kalpha_f_minus1), ubound(InData%Kalpha_f_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Kalpha_f_minus1, kind=B8Ki), ubound(InData%Kalpha_f_minus1, kind=B8Ki)) call RegPack(Buf, InData%Kalpha_f_minus1) end if call RegPack(Buf, allocated(InData%Kq_f_minus1)) if (allocated(InData%Kq_f_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Kq_f_minus1), ubound(InData%Kq_f_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Kq_f_minus1, kind=B8Ki), ubound(InData%Kq_f_minus1, kind=B8Ki)) call RegPack(Buf, InData%Kq_f_minus1) end if call RegPack(Buf, allocated(InData%q_f_minus1)) if (allocated(InData%q_f_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%q_f_minus1), ubound(InData%q_f_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%q_f_minus1, kind=B8Ki), ubound(InData%q_f_minus1, kind=B8Ki)) call RegPack(Buf, InData%q_f_minus1) end if call RegPack(Buf, allocated(InData%X1_minus1)) if (allocated(InData%X1_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%X1_minus1), ubound(InData%X1_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%X1_minus1, kind=B8Ki), ubound(InData%X1_minus1, kind=B8Ki)) call RegPack(Buf, InData%X1_minus1) end if call RegPack(Buf, allocated(InData%X2_minus1)) if (allocated(InData%X2_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%X2_minus1), ubound(InData%X2_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%X2_minus1, kind=B8Ki), ubound(InData%X2_minus1, kind=B8Ki)) call RegPack(Buf, InData%X2_minus1) end if call RegPack(Buf, allocated(InData%X3_minus1)) if (allocated(InData%X3_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%X3_minus1), ubound(InData%X3_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%X3_minus1, kind=B8Ki), ubound(InData%X3_minus1, kind=B8Ki)) call RegPack(Buf, InData%X3_minus1) end if call RegPack(Buf, allocated(InData%X4_minus1)) if (allocated(InData%X4_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%X4_minus1), ubound(InData%X4_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%X4_minus1, kind=B8Ki), ubound(InData%X4_minus1, kind=B8Ki)) call RegPack(Buf, InData%X4_minus1) end if call RegPack(Buf, allocated(InData%Kprime_alpha_minus1)) if (allocated(InData%Kprime_alpha_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Kprime_alpha_minus1), ubound(InData%Kprime_alpha_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Kprime_alpha_minus1, kind=B8Ki), ubound(InData%Kprime_alpha_minus1, kind=B8Ki)) call RegPack(Buf, InData%Kprime_alpha_minus1) end if call RegPack(Buf, allocated(InData%Kprime_q_minus1)) if (allocated(InData%Kprime_q_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Kprime_q_minus1), ubound(InData%Kprime_q_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Kprime_q_minus1, kind=B8Ki), ubound(InData%Kprime_q_minus1, kind=B8Ki)) call RegPack(Buf, InData%Kprime_q_minus1) end if call RegPack(Buf, allocated(InData%Kprimeprime_q_minus1)) if (allocated(InData%Kprimeprime_q_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Kprimeprime_q_minus1), ubound(InData%Kprimeprime_q_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Kprimeprime_q_minus1, kind=B8Ki), ubound(InData%Kprimeprime_q_minus1, kind=B8Ki)) call RegPack(Buf, InData%Kprimeprime_q_minus1) end if call RegPack(Buf, allocated(InData%K3prime_q_minus1)) if (allocated(InData%K3prime_q_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%K3prime_q_minus1), ubound(InData%K3prime_q_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%K3prime_q_minus1, kind=B8Ki), ubound(InData%K3prime_q_minus1, kind=B8Ki)) call RegPack(Buf, InData%K3prime_q_minus1) end if call RegPack(Buf, allocated(InData%Dp_minus1)) if (allocated(InData%Dp_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Dp_minus1), ubound(InData%Dp_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Dp_minus1, kind=B8Ki), ubound(InData%Dp_minus1, kind=B8Ki)) call RegPack(Buf, InData%Dp_minus1) end if call RegPack(Buf, allocated(InData%Cn_pot_minus1)) if (allocated(InData%Cn_pot_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Cn_pot_minus1), ubound(InData%Cn_pot_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Cn_pot_minus1, kind=B8Ki), ubound(InData%Cn_pot_minus1, kind=B8Ki)) call RegPack(Buf, InData%Cn_pot_minus1) end if call RegPack(Buf, allocated(InData%fprimeprime_minus1)) if (allocated(InData%fprimeprime_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%fprimeprime_minus1), ubound(InData%fprimeprime_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%fprimeprime_minus1, kind=B8Ki), ubound(InData%fprimeprime_minus1, kind=B8Ki)) call RegPack(Buf, InData%fprimeprime_minus1) end if call RegPack(Buf, allocated(InData%fprimeprime_c_minus1)) if (allocated(InData%fprimeprime_c_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%fprimeprime_c_minus1), ubound(InData%fprimeprime_c_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%fprimeprime_c_minus1, kind=B8Ki), ubound(InData%fprimeprime_c_minus1, kind=B8Ki)) call RegPack(Buf, InData%fprimeprime_c_minus1) end if call RegPack(Buf, allocated(InData%fprimeprime_m_minus1)) if (allocated(InData%fprimeprime_m_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%fprimeprime_m_minus1), ubound(InData%fprimeprime_m_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%fprimeprime_m_minus1, kind=B8Ki), ubound(InData%fprimeprime_m_minus1, kind=B8Ki)) call RegPack(Buf, InData%fprimeprime_m_minus1) end if call RegPack(Buf, allocated(InData%Df_minus1)) if (allocated(InData%Df_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Df_minus1), ubound(InData%Df_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Df_minus1, kind=B8Ki), ubound(InData%Df_minus1, kind=B8Ki)) call RegPack(Buf, InData%Df_minus1) end if call RegPack(Buf, allocated(InData%Df_c_minus1)) if (allocated(InData%Df_c_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Df_c_minus1), ubound(InData%Df_c_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Df_c_minus1, kind=B8Ki), ubound(InData%Df_c_minus1, kind=B8Ki)) call RegPack(Buf, InData%Df_c_minus1) end if call RegPack(Buf, allocated(InData%Df_m_minus1)) if (allocated(InData%Df_m_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Df_m_minus1), ubound(InData%Df_m_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Df_m_minus1, kind=B8Ki), ubound(InData%Df_m_minus1, kind=B8Ki)) call RegPack(Buf, InData%Df_m_minus1) end if call RegPack(Buf, allocated(InData%Dalphaf_minus1)) if (allocated(InData%Dalphaf_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Dalphaf_minus1), ubound(InData%Dalphaf_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Dalphaf_minus1, kind=B8Ki), ubound(InData%Dalphaf_minus1, kind=B8Ki)) call RegPack(Buf, InData%Dalphaf_minus1) end if call RegPack(Buf, allocated(InData%alphaf_minus1)) if (allocated(InData%alphaf_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%alphaf_minus1), ubound(InData%alphaf_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%alphaf_minus1, kind=B8Ki), ubound(InData%alphaf_minus1, kind=B8Ki)) call RegPack(Buf, InData%alphaf_minus1) end if call RegPack(Buf, allocated(InData%fprime_minus1)) if (allocated(InData%fprime_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%fprime_minus1), ubound(InData%fprime_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%fprime_minus1, kind=B8Ki), ubound(InData%fprime_minus1, kind=B8Ki)) call RegPack(Buf, InData%fprime_minus1) end if call RegPack(Buf, allocated(InData%fprime_c_minus1)) if (allocated(InData%fprime_c_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%fprime_c_minus1), ubound(InData%fprime_c_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%fprime_c_minus1, kind=B8Ki), ubound(InData%fprime_c_minus1, kind=B8Ki)) call RegPack(Buf, InData%fprime_c_minus1) end if call RegPack(Buf, allocated(InData%fprime_m_minus1)) if (allocated(InData%fprime_m_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%fprime_m_minus1), ubound(InData%fprime_m_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%fprime_m_minus1, kind=B8Ki), ubound(InData%fprime_m_minus1, kind=B8Ki)) call RegPack(Buf, InData%fprime_m_minus1) end if call RegPack(Buf, allocated(InData%tau_V)) if (allocated(InData%tau_V)) then - call RegPackBounds(Buf, 2, lbound(InData%tau_V), ubound(InData%tau_V)) + call RegPackBounds(Buf, 2, lbound(InData%tau_V, kind=B8Ki), ubound(InData%tau_V, kind=B8Ki)) call RegPack(Buf, InData%tau_V) end if call RegPack(Buf, allocated(InData%tau_V_minus1)) if (allocated(InData%tau_V_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%tau_V_minus1), ubound(InData%tau_V_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%tau_V_minus1, kind=B8Ki), ubound(InData%tau_V_minus1, kind=B8Ki)) call RegPack(Buf, InData%tau_V_minus1) end if call RegPack(Buf, allocated(InData%Cn_v_minus1)) if (allocated(InData%Cn_v_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Cn_v_minus1), ubound(InData%Cn_v_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Cn_v_minus1, kind=B8Ki), ubound(InData%Cn_v_minus1, kind=B8Ki)) call RegPack(Buf, InData%Cn_v_minus1) end if call RegPack(Buf, allocated(InData%C_V_minus1)) if (allocated(InData%C_V_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%C_V_minus1), ubound(InData%C_V_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%C_V_minus1, kind=B8Ki), ubound(InData%C_V_minus1, kind=B8Ki)) call RegPack(Buf, InData%C_V_minus1) end if call RegPack(Buf, allocated(InData%Cn_prime_minus1)) if (allocated(InData%Cn_prime_minus1)) then - call RegPackBounds(Buf, 2, lbound(InData%Cn_prime_minus1), ubound(InData%Cn_prime_minus1)) + call RegPackBounds(Buf, 2, lbound(InData%Cn_prime_minus1, kind=B8Ki), ubound(InData%Cn_prime_minus1, kind=B8Ki)) call RegPack(Buf, InData%Cn_prime_minus1) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1642,7 +1642,7 @@ subroutine UA_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackDiscState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2169,16 +2169,16 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%FirstPass)) then - LB(1:2) = lbound(SrcOtherStateData%FirstPass) - UB(1:2) = ubound(SrcOtherStateData%FirstPass) + LB(1:2) = lbound(SrcOtherStateData%FirstPass, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%FirstPass, kind=B8Ki) if (.not. allocated(DstOtherStateData%FirstPass)) then allocate(DstOtherStateData%FirstPass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2189,8 +2189,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%FirstPass = SrcOtherStateData%FirstPass end if if (allocated(SrcOtherStateData%sigma1)) then - LB(1:2) = lbound(SrcOtherStateData%sigma1) - UB(1:2) = ubound(SrcOtherStateData%sigma1) + LB(1:2) = lbound(SrcOtherStateData%sigma1, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%sigma1, kind=B8Ki) if (.not. allocated(DstOtherStateData%sigma1)) then allocate(DstOtherStateData%sigma1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2201,8 +2201,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%sigma1 = SrcOtherStateData%sigma1 end if if (allocated(SrcOtherStateData%sigma1c)) then - LB(1:2) = lbound(SrcOtherStateData%sigma1c) - UB(1:2) = ubound(SrcOtherStateData%sigma1c) + LB(1:2) = lbound(SrcOtherStateData%sigma1c, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%sigma1c, kind=B8Ki) if (.not. allocated(DstOtherStateData%sigma1c)) then allocate(DstOtherStateData%sigma1c(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2213,8 +2213,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%sigma1c = SrcOtherStateData%sigma1c end if if (allocated(SrcOtherStateData%sigma1m)) then - LB(1:2) = lbound(SrcOtherStateData%sigma1m) - UB(1:2) = ubound(SrcOtherStateData%sigma1m) + LB(1:2) = lbound(SrcOtherStateData%sigma1m, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%sigma1m, kind=B8Ki) if (.not. allocated(DstOtherStateData%sigma1m)) then allocate(DstOtherStateData%sigma1m(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2225,8 +2225,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%sigma1m = SrcOtherStateData%sigma1m end if if (allocated(SrcOtherStateData%sigma3)) then - LB(1:2) = lbound(SrcOtherStateData%sigma3) - UB(1:2) = ubound(SrcOtherStateData%sigma3) + LB(1:2) = lbound(SrcOtherStateData%sigma3, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%sigma3, kind=B8Ki) if (.not. allocated(DstOtherStateData%sigma3)) then allocate(DstOtherStateData%sigma3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2237,8 +2237,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%sigma3 = SrcOtherStateData%sigma3 end if if (allocated(SrcOtherStateData%n)) then - LB(1:2) = lbound(SrcOtherStateData%n) - UB(1:2) = ubound(SrcOtherStateData%n) + LB(1:2) = lbound(SrcOtherStateData%n, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%n, kind=B8Ki) if (.not. allocated(DstOtherStateData%n)) then allocate(DstOtherStateData%n(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2248,23 +2248,23 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err end if DstOtherStateData%n = SrcOtherStateData%n end if - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call UA_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcOtherStateData%xHistory) - UB(1:1) = ubound(SrcOtherStateData%xHistory) + LB(1:1) = lbound(SrcOtherStateData%xHistory, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xHistory, kind=B8Ki) do i1 = LB(1), UB(1) call UA_CopyContState(SrcOtherStateData%xHistory(i1), DstOtherStateData%xHistory(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do if (allocated(SrcOtherStateData%t_vortexBegin)) then - LB(1:2) = lbound(SrcOtherStateData%t_vortexBegin) - UB(1:2) = ubound(SrcOtherStateData%t_vortexBegin) + LB(1:2) = lbound(SrcOtherStateData%t_vortexBegin, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%t_vortexBegin, kind=B8Ki) if (.not. allocated(DstOtherStateData%t_vortexBegin)) then allocate(DstOtherStateData%t_vortexBegin(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2275,8 +2275,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%t_vortexBegin = SrcOtherStateData%t_vortexBegin end if if (allocated(SrcOtherStateData%SignOfOmega)) then - LB(1:2) = lbound(SrcOtherStateData%SignOfOmega) - UB(1:2) = ubound(SrcOtherStateData%SignOfOmega) + LB(1:2) = lbound(SrcOtherStateData%SignOfOmega, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%SignOfOmega, kind=B8Ki) if (.not. allocated(DstOtherStateData%SignOfOmega)) then allocate(DstOtherStateData%SignOfOmega(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2287,8 +2287,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%SignOfOmega = SrcOtherStateData%SignOfOmega end if if (allocated(SrcOtherStateData%PositivePressure)) then - LB(1:2) = lbound(SrcOtherStateData%PositivePressure) - UB(1:2) = ubound(SrcOtherStateData%PositivePressure) + LB(1:2) = lbound(SrcOtherStateData%PositivePressure, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%PositivePressure, kind=B8Ki) if (.not. allocated(DstOtherStateData%PositivePressure)) then allocate(DstOtherStateData%PositivePressure(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2299,8 +2299,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%PositivePressure = SrcOtherStateData%PositivePressure end if if (allocated(SrcOtherStateData%vortexOn)) then - LB(1:2) = lbound(SrcOtherStateData%vortexOn) - UB(1:2) = ubound(SrcOtherStateData%vortexOn) + LB(1:2) = lbound(SrcOtherStateData%vortexOn, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%vortexOn, kind=B8Ki) if (.not. allocated(DstOtherStateData%vortexOn)) then allocate(DstOtherStateData%vortexOn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2311,8 +2311,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%vortexOn = SrcOtherStateData%vortexOn end if if (allocated(SrcOtherStateData%BelowThreshold)) then - LB(1:2) = lbound(SrcOtherStateData%BelowThreshold) - UB(1:2) = ubound(SrcOtherStateData%BelowThreshold) + LB(1:2) = lbound(SrcOtherStateData%BelowThreshold, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%BelowThreshold, kind=B8Ki) if (.not. allocated(DstOtherStateData%BelowThreshold)) then allocate(DstOtherStateData%BelowThreshold(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2323,8 +2323,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%BelowThreshold = SrcOtherStateData%BelowThreshold end if if (allocated(SrcOtherStateData%activeL)) then - LB(1:2) = lbound(SrcOtherStateData%activeL) - UB(1:2) = ubound(SrcOtherStateData%activeL) + LB(1:2) = lbound(SrcOtherStateData%activeL, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%activeL, kind=B8Ki) if (.not. allocated(DstOtherStateData%activeL)) then allocate(DstOtherStateData%activeL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2335,8 +2335,8 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%activeL = SrcOtherStateData%activeL end if if (allocated(SrcOtherStateData%activeD)) then - LB(1:2) = lbound(SrcOtherStateData%activeD) - UB(1:2) = ubound(SrcOtherStateData%activeD) + LB(1:2) = lbound(SrcOtherStateData%activeD, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%activeD, kind=B8Ki) if (.not. allocated(DstOtherStateData%activeD)) then allocate(DstOtherStateData%activeD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2352,8 +2352,8 @@ subroutine UA_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(UA_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_DestroyOtherState' @@ -2377,14 +2377,14 @@ subroutine UA_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) if (allocated(OtherStateData%n)) then deallocate(OtherStateData%n) end if - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call UA_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(OtherStateData%xHistory) - UB(1:1) = ubound(OtherStateData%xHistory) + LB(1:1) = lbound(OtherStateData%xHistory, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xHistory, kind=B8Ki) do i1 = LB(1), UB(1) call UA_DestroyContState(OtherStateData%xHistory(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2416,82 +2416,82 @@ subroutine UA_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(UA_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'UA_PackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%FirstPass)) if (allocated(InData%FirstPass)) then - call RegPackBounds(Buf, 2, lbound(InData%FirstPass), ubound(InData%FirstPass)) + call RegPackBounds(Buf, 2, lbound(InData%FirstPass, kind=B8Ki), ubound(InData%FirstPass, kind=B8Ki)) call RegPack(Buf, InData%FirstPass) end if call RegPack(Buf, allocated(InData%sigma1)) if (allocated(InData%sigma1)) then - call RegPackBounds(Buf, 2, lbound(InData%sigma1), ubound(InData%sigma1)) + call RegPackBounds(Buf, 2, lbound(InData%sigma1, kind=B8Ki), ubound(InData%sigma1, kind=B8Ki)) call RegPack(Buf, InData%sigma1) end if call RegPack(Buf, allocated(InData%sigma1c)) if (allocated(InData%sigma1c)) then - call RegPackBounds(Buf, 2, lbound(InData%sigma1c), ubound(InData%sigma1c)) + call RegPackBounds(Buf, 2, lbound(InData%sigma1c, kind=B8Ki), ubound(InData%sigma1c, kind=B8Ki)) call RegPack(Buf, InData%sigma1c) end if call RegPack(Buf, allocated(InData%sigma1m)) if (allocated(InData%sigma1m)) then - call RegPackBounds(Buf, 2, lbound(InData%sigma1m), ubound(InData%sigma1m)) + call RegPackBounds(Buf, 2, lbound(InData%sigma1m, kind=B8Ki), ubound(InData%sigma1m, kind=B8Ki)) call RegPack(Buf, InData%sigma1m) end if call RegPack(Buf, allocated(InData%sigma3)) if (allocated(InData%sigma3)) then - call RegPackBounds(Buf, 2, lbound(InData%sigma3), ubound(InData%sigma3)) + call RegPackBounds(Buf, 2, lbound(InData%sigma3, kind=B8Ki), ubound(InData%sigma3, kind=B8Ki)) call RegPack(Buf, InData%sigma3) end if call RegPack(Buf, allocated(InData%n)) if (allocated(InData%n)) then - call RegPackBounds(Buf, 2, lbound(InData%n), ubound(InData%n)) + call RegPackBounds(Buf, 2, lbound(InData%n, kind=B8Ki), ubound(InData%n, kind=B8Ki)) call RegPack(Buf, InData%n) end if - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call UA_PackContState(Buf, InData%xdot(i1)) end do - LB(1:1) = lbound(InData%xHistory) - UB(1:1) = ubound(InData%xHistory) + LB(1:1) = lbound(InData%xHistory, kind=B8Ki) + UB(1:1) = ubound(InData%xHistory, kind=B8Ki) do i1 = LB(1), UB(1) call UA_PackContState(Buf, InData%xHistory(i1)) end do call RegPack(Buf, allocated(InData%t_vortexBegin)) if (allocated(InData%t_vortexBegin)) then - call RegPackBounds(Buf, 2, lbound(InData%t_vortexBegin), ubound(InData%t_vortexBegin)) + call RegPackBounds(Buf, 2, lbound(InData%t_vortexBegin, kind=B8Ki), ubound(InData%t_vortexBegin, kind=B8Ki)) call RegPack(Buf, InData%t_vortexBegin) end if call RegPack(Buf, allocated(InData%SignOfOmega)) if (allocated(InData%SignOfOmega)) then - call RegPackBounds(Buf, 2, lbound(InData%SignOfOmega), ubound(InData%SignOfOmega)) + call RegPackBounds(Buf, 2, lbound(InData%SignOfOmega, kind=B8Ki), ubound(InData%SignOfOmega, kind=B8Ki)) call RegPack(Buf, InData%SignOfOmega) end if call RegPack(Buf, allocated(InData%PositivePressure)) if (allocated(InData%PositivePressure)) then - call RegPackBounds(Buf, 2, lbound(InData%PositivePressure), ubound(InData%PositivePressure)) + call RegPackBounds(Buf, 2, lbound(InData%PositivePressure, kind=B8Ki), ubound(InData%PositivePressure, kind=B8Ki)) call RegPack(Buf, InData%PositivePressure) end if call RegPack(Buf, allocated(InData%vortexOn)) if (allocated(InData%vortexOn)) then - call RegPackBounds(Buf, 2, lbound(InData%vortexOn), ubound(InData%vortexOn)) + call RegPackBounds(Buf, 2, lbound(InData%vortexOn, kind=B8Ki), ubound(InData%vortexOn, kind=B8Ki)) call RegPack(Buf, InData%vortexOn) end if call RegPack(Buf, allocated(InData%BelowThreshold)) if (allocated(InData%BelowThreshold)) then - call RegPackBounds(Buf, 2, lbound(InData%BelowThreshold), ubound(InData%BelowThreshold)) + call RegPackBounds(Buf, 2, lbound(InData%BelowThreshold, kind=B8Ki), ubound(InData%BelowThreshold, kind=B8Ki)) call RegPack(Buf, InData%BelowThreshold) end if call RegPack(Buf, allocated(InData%activeL)) if (allocated(InData%activeL)) then - call RegPackBounds(Buf, 2, lbound(InData%activeL), ubound(InData%activeL)) + call RegPackBounds(Buf, 2, lbound(InData%activeL, kind=B8Ki), ubound(InData%activeL, kind=B8Ki)) call RegPack(Buf, InData%activeL) end if call RegPack(Buf, allocated(InData%activeD)) if (allocated(InData%activeD)) then - call RegPackBounds(Buf, 2, lbound(InData%activeD), ubound(InData%activeD)) + call RegPackBounds(Buf, 2, lbound(InData%activeD, kind=B8Ki), ubound(InData%activeD, kind=B8Ki)) call RegPack(Buf, InData%activeD) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2501,8 +2501,8 @@ subroutine UA_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackOtherState' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2590,13 +2590,13 @@ subroutine UA_UnPackOtherState(Buf, OutData) call RegUnpack(Buf, OutData%n) if (RegCheckErr(Buf, RoutineName)) return end if - LB(1:1) = lbound(OutData%xdot) - UB(1:1) = ubound(OutData%xdot) + LB(1:1) = lbound(OutData%xdot, kind=B8Ki) + UB(1:1) = ubound(OutData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call UA_UnpackContState(Buf, OutData%xdot(i1)) ! xdot end do - LB(1:1) = lbound(OutData%xHistory) - UB(1:1) = ubound(OutData%xHistory) + LB(1:1) = lbound(OutData%xHistory, kind=B8Ki) + UB(1:1) = ubound(OutData%xHistory, kind=B8Ki) do i1 = LB(1), UB(1) call UA_UnpackContState(Buf, OutData%xHistory(i1)) ! xHistory end do @@ -2706,7 +2706,7 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyMisc' ErrStat = ErrID_None @@ -2715,8 +2715,8 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FirstWarn_UA = SrcMiscData%FirstWarn_UA DstMiscData%FirstWarn_UA_off = SrcMiscData%FirstWarn_UA_off if (allocated(SrcMiscData%TESF)) then - LB(1:2) = lbound(SrcMiscData%TESF) - UB(1:2) = ubound(SrcMiscData%TESF) + LB(1:2) = lbound(SrcMiscData%TESF, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%TESF, kind=B8Ki) if (.not. allocated(DstMiscData%TESF)) then allocate(DstMiscData%TESF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2727,8 +2727,8 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%TESF = SrcMiscData%TESF end if if (allocated(SrcMiscData%LESF)) then - LB(1:2) = lbound(SrcMiscData%LESF) - UB(1:2) = ubound(SrcMiscData%LESF) + LB(1:2) = lbound(SrcMiscData%LESF, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%LESF, kind=B8Ki) if (.not. allocated(DstMiscData%LESF)) then allocate(DstMiscData%LESF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2739,8 +2739,8 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LESF = SrcMiscData%LESF end if if (allocated(SrcMiscData%VRTX)) then - LB(1:2) = lbound(SrcMiscData%VRTX) - UB(1:2) = ubound(SrcMiscData%VRTX) + LB(1:2) = lbound(SrcMiscData%VRTX, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%VRTX, kind=B8Ki) if (.not. allocated(DstMiscData%VRTX)) then allocate(DstMiscData%VRTX(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2751,8 +2751,8 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%VRTX = SrcMiscData%VRTX end if if (allocated(SrcMiscData%T_Sh)) then - LB(1:2) = lbound(SrcMiscData%T_Sh) - UB(1:2) = ubound(SrcMiscData%T_Sh) + LB(1:2) = lbound(SrcMiscData%T_Sh, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%T_Sh, kind=B8Ki) if (.not. allocated(DstMiscData%T_Sh)) then allocate(DstMiscData%T_Sh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2763,8 +2763,8 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%T_Sh = SrcMiscData%T_Sh end if if (allocated(SrcMiscData%BEDSEP)) then - LB(1:2) = lbound(SrcMiscData%BEDSEP) - UB(1:2) = ubound(SrcMiscData%BEDSEP) + LB(1:2) = lbound(SrcMiscData%BEDSEP, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%BEDSEP, kind=B8Ki) if (.not. allocated(DstMiscData%BEDSEP)) then allocate(DstMiscData%BEDSEP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2775,8 +2775,8 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BEDSEP = SrcMiscData%BEDSEP end if if (allocated(SrcMiscData%weight)) then - LB(1:2) = lbound(SrcMiscData%weight) - UB(1:2) = ubound(SrcMiscData%weight) + LB(1:2) = lbound(SrcMiscData%weight, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%weight, kind=B8Ki) if (.not. allocated(DstMiscData%weight)) then allocate(DstMiscData%weight(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2825,32 +2825,32 @@ subroutine UA_PackMisc(Buf, Indata) call RegPack(Buf, InData%FirstWarn_UA_off) call RegPack(Buf, allocated(InData%TESF)) if (allocated(InData%TESF)) then - call RegPackBounds(Buf, 2, lbound(InData%TESF), ubound(InData%TESF)) + call RegPackBounds(Buf, 2, lbound(InData%TESF, kind=B8Ki), ubound(InData%TESF, kind=B8Ki)) call RegPack(Buf, InData%TESF) end if call RegPack(Buf, allocated(InData%LESF)) if (allocated(InData%LESF)) then - call RegPackBounds(Buf, 2, lbound(InData%LESF), ubound(InData%LESF)) + call RegPackBounds(Buf, 2, lbound(InData%LESF, kind=B8Ki), ubound(InData%LESF, kind=B8Ki)) call RegPack(Buf, InData%LESF) end if call RegPack(Buf, allocated(InData%VRTX)) if (allocated(InData%VRTX)) then - call RegPackBounds(Buf, 2, lbound(InData%VRTX), ubound(InData%VRTX)) + call RegPackBounds(Buf, 2, lbound(InData%VRTX, kind=B8Ki), ubound(InData%VRTX, kind=B8Ki)) call RegPack(Buf, InData%VRTX) end if call RegPack(Buf, allocated(InData%T_Sh)) if (allocated(InData%T_Sh)) then - call RegPackBounds(Buf, 2, lbound(InData%T_Sh), ubound(InData%T_Sh)) + call RegPackBounds(Buf, 2, lbound(InData%T_Sh, kind=B8Ki), ubound(InData%T_Sh, kind=B8Ki)) call RegPack(Buf, InData%T_Sh) end if call RegPack(Buf, allocated(InData%BEDSEP)) if (allocated(InData%BEDSEP)) then - call RegPackBounds(Buf, 2, lbound(InData%BEDSEP), ubound(InData%BEDSEP)) + call RegPackBounds(Buf, 2, lbound(InData%BEDSEP, kind=B8Ki), ubound(InData%BEDSEP, kind=B8Ki)) call RegPack(Buf, InData%BEDSEP) end if call RegPack(Buf, allocated(InData%weight)) if (allocated(InData%weight)) then - call RegPackBounds(Buf, 2, lbound(InData%weight), ubound(InData%weight)) + call RegPackBounds(Buf, 2, lbound(InData%weight, kind=B8Ki), ubound(InData%weight, kind=B8Ki)) call RegPack(Buf, InData%weight) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2860,7 +2860,7 @@ subroutine UA_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackMisc' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2962,15 +2962,15 @@ subroutine UA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyParam' ErrStat = ErrID_None ErrMsg = '' DstParamData%dt = SrcParamData%dt if (allocated(SrcParamData%c)) then - LB(1:2) = lbound(SrcParamData%c) - UB(1:2) = ubound(SrcParamData%c) + LB(1:2) = lbound(SrcParamData%c, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%c, kind=B8Ki) if (.not. allocated(DstParamData%c)) then allocate(DstParamData%c(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2994,8 +2994,8 @@ subroutine UA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ShedEffect = SrcParamData%ShedEffect DstParamData%lin_nx = SrcParamData%lin_nx if (allocated(SrcParamData%UA_off_forGood)) then - LB(1:2) = lbound(SrcParamData%UA_off_forGood) - UB(1:2) = ubound(SrcParamData%UA_off_forGood) + LB(1:2) = lbound(SrcParamData%UA_off_forGood, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%UA_off_forGood, kind=B8Ki) if (.not. allocated(DstParamData%UA_off_forGood)) then allocate(DstParamData%UA_off_forGood(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3006,8 +3006,8 @@ subroutine UA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%UA_off_forGood = SrcParamData%UA_off_forGood end if if (allocated(SrcParamData%lin_xIndx)) then - LB(1:2) = lbound(SrcParamData%lin_xIndx) - UB(1:2) = ubound(SrcParamData%lin_xIndx) + LB(1:2) = lbound(SrcParamData%lin_xIndx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%lin_xIndx, kind=B8Ki) if (.not. allocated(DstParamData%lin_xIndx)) then allocate(DstParamData%lin_xIndx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3046,7 +3046,7 @@ subroutine UA_PackParam(Buf, Indata) call RegPack(Buf, InData%dt) call RegPack(Buf, allocated(InData%c)) if (allocated(InData%c)) then - call RegPackBounds(Buf, 2, lbound(InData%c), ubound(InData%c)) + call RegPackBounds(Buf, 2, lbound(InData%c, kind=B8Ki), ubound(InData%c, kind=B8Ki)) call RegPack(Buf, InData%c) end if call RegPack(Buf, InData%numBlades) @@ -3064,12 +3064,12 @@ subroutine UA_PackParam(Buf, Indata) call RegPack(Buf, InData%lin_nx) call RegPack(Buf, allocated(InData%UA_off_forGood)) if (allocated(InData%UA_off_forGood)) then - call RegPackBounds(Buf, 2, lbound(InData%UA_off_forGood), ubound(InData%UA_off_forGood)) + call RegPackBounds(Buf, 2, lbound(InData%UA_off_forGood, kind=B8Ki), ubound(InData%UA_off_forGood, kind=B8Ki)) call RegPack(Buf, InData%UA_off_forGood) end if call RegPack(Buf, allocated(InData%lin_xIndx)) if (allocated(InData%lin_xIndx)) then - call RegPackBounds(Buf, 2, lbound(InData%lin_xIndx), ubound(InData%lin_xIndx)) + call RegPackBounds(Buf, 2, lbound(InData%lin_xIndx, kind=B8Ki), ubound(InData%lin_xIndx, kind=B8Ki)) call RegPack(Buf, InData%lin_xIndx) end if call RegPack(Buf, InData%dx) @@ -3080,7 +3080,7 @@ subroutine UA_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3223,7 +3223,7 @@ subroutine UA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyOutput' ErrStat = ErrID_None @@ -3234,8 +3234,8 @@ subroutine UA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%Cl = SrcOutputData%Cl DstOutputData%Cd = SrcOutputData%Cd if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3271,7 +3271,7 @@ subroutine UA_PackOutput(Buf, Indata) call RegPack(Buf, InData%Cd) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3281,7 +3281,7 @@ subroutine UA_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UA_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn14/src/AeroDyn14_Types.f90 b/modules/aerodyn14/src/AeroDyn14_Types.f90 index 291c7bdd81..add62bbcfe 100644 --- a/modules/aerodyn14/src/AeroDyn14_Types.f90 +++ b/modules/aerodyn14/src/AeroDyn14_Types.f90 @@ -528,16 +528,16 @@ subroutine AD14_CopyAeroConfig(SrcAeroConfigData, DstAeroConfigData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_CopyAeroConfig' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcAeroConfigData%Blade)) then - LB(1:1) = lbound(SrcAeroConfigData%Blade) - UB(1:1) = ubound(SrcAeroConfigData%Blade) + LB(1:1) = lbound(SrcAeroConfigData%Blade, kind=B8Ki) + UB(1:1) = ubound(SrcAeroConfigData%Blade, kind=B8Ki) if (.not. allocated(DstAeroConfigData%Blade)) then allocate(DstAeroConfigData%Blade(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -579,16 +579,16 @@ subroutine AD14_DestroyAeroConfig(AeroConfigData, ErrStat, ErrMsg) type(AeroConfig), intent(inout) :: AeroConfigData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_DestroyAeroConfig' ErrStat = ErrID_None ErrMsg = '' if (allocated(AeroConfigData%Blade)) then - LB(1:1) = lbound(AeroConfigData%Blade) - UB(1:1) = ubound(AeroConfigData%Blade) + LB(1:1) = lbound(AeroConfigData%Blade, kind=B8Ki) + UB(1:1) = ubound(AeroConfigData%Blade, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_DestroyMarker(AeroConfigData%Blade(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -615,14 +615,14 @@ subroutine AD14_PackAeroConfig(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AeroConfig), intent(in) :: InData character(*), parameter :: RoutineName = 'AD14_PackAeroConfig' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Blade)) if (allocated(InData%Blade)) then - call RegPackBounds(Buf, 1, lbound(InData%Blade), ubound(InData%Blade)) - LB(1:1) = lbound(InData%Blade) - UB(1:1) = ubound(InData%Blade) + call RegPackBounds(Buf, 1, lbound(InData%Blade, kind=B8Ki), ubound(InData%Blade, kind=B8Ki)) + LB(1:1) = lbound(InData%Blade, kind=B8Ki) + UB(1:1) = ubound(InData%Blade, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_PackMarker(Buf, InData%Blade(i1)) end do @@ -642,8 +642,8 @@ subroutine AD14_UnPackAeroConfig(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AeroConfig), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackAeroConfig' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -679,14 +679,14 @@ subroutine AD14_CopyAirFoil(SrcAirFoilData, DstAirFoilData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyAirFoil' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcAirFoilData%AL)) then - LB(1:2) = lbound(SrcAirFoilData%AL) - UB(1:2) = ubound(SrcAirFoilData%AL) + LB(1:2) = lbound(SrcAirFoilData%AL, kind=B8Ki) + UB(1:2) = ubound(SrcAirFoilData%AL, kind=B8Ki) if (.not. allocated(DstAirFoilData%AL)) then allocate(DstAirFoilData%AL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -697,8 +697,8 @@ subroutine AD14_CopyAirFoil(SrcAirFoilData, DstAirFoilData, CtrlCode, ErrStat, E DstAirFoilData%AL = SrcAirFoilData%AL end if if (allocated(SrcAirFoilData%CD)) then - LB(1:3) = lbound(SrcAirFoilData%CD) - UB(1:3) = ubound(SrcAirFoilData%CD) + LB(1:3) = lbound(SrcAirFoilData%CD, kind=B8Ki) + UB(1:3) = ubound(SrcAirFoilData%CD, kind=B8Ki) if (.not. allocated(DstAirFoilData%CD)) then allocate(DstAirFoilData%CD(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -709,8 +709,8 @@ subroutine AD14_CopyAirFoil(SrcAirFoilData, DstAirFoilData, CtrlCode, ErrStat, E DstAirFoilData%CD = SrcAirFoilData%CD end if if (allocated(SrcAirFoilData%CL)) then - LB(1:3) = lbound(SrcAirFoilData%CL) - UB(1:3) = ubound(SrcAirFoilData%CL) + LB(1:3) = lbound(SrcAirFoilData%CL, kind=B8Ki) + UB(1:3) = ubound(SrcAirFoilData%CL, kind=B8Ki) if (.not. allocated(DstAirFoilData%CL)) then allocate(DstAirFoilData%CL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -721,8 +721,8 @@ subroutine AD14_CopyAirFoil(SrcAirFoilData, DstAirFoilData, CtrlCode, ErrStat, E DstAirFoilData%CL = SrcAirFoilData%CL end if if (allocated(SrcAirFoilData%CM)) then - LB(1:3) = lbound(SrcAirFoilData%CM) - UB(1:3) = ubound(SrcAirFoilData%CM) + LB(1:3) = lbound(SrcAirFoilData%CM, kind=B8Ki) + UB(1:3) = ubound(SrcAirFoilData%CM, kind=B8Ki) if (.not. allocated(DstAirFoilData%CM)) then allocate(DstAirFoilData%CM(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -764,22 +764,22 @@ subroutine AD14_PackAirFoil(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AL)) if (allocated(InData%AL)) then - call RegPackBounds(Buf, 2, lbound(InData%AL), ubound(InData%AL)) + call RegPackBounds(Buf, 2, lbound(InData%AL, kind=B8Ki), ubound(InData%AL, kind=B8Ki)) call RegPack(Buf, InData%AL) end if call RegPack(Buf, allocated(InData%CD)) if (allocated(InData%CD)) then - call RegPackBounds(Buf, 3, lbound(InData%CD), ubound(InData%CD)) + call RegPackBounds(Buf, 3, lbound(InData%CD, kind=B8Ki), ubound(InData%CD, kind=B8Ki)) call RegPack(Buf, InData%CD) end if call RegPack(Buf, allocated(InData%CL)) if (allocated(InData%CL)) then - call RegPackBounds(Buf, 3, lbound(InData%CL), ubound(InData%CL)) + call RegPackBounds(Buf, 3, lbound(InData%CL, kind=B8Ki), ubound(InData%CL, kind=B8Ki)) call RegPack(Buf, InData%CL) end if call RegPack(Buf, allocated(InData%CM)) if (allocated(InData%CM)) then - call RegPackBounds(Buf, 3, lbound(InData%CM), ubound(InData%CM)) + call RegPackBounds(Buf, 3, lbound(InData%CM, kind=B8Ki), ubound(InData%CM, kind=B8Ki)) call RegPack(Buf, InData%CM) end if call RegPack(Buf, InData%PMC) @@ -791,7 +791,7 @@ subroutine AD14_UnPackAirFoil(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AirFoil), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackAirFoil' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -863,15 +863,15 @@ subroutine AD14_CopyAirFoilParms(SrcAirFoilParmsData, DstAirFoilParmsData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyAirFoilParms' ErrStat = ErrID_None ErrMsg = '' DstAirFoilParmsData%MaxTable = SrcAirFoilParmsData%MaxTable if (allocated(SrcAirFoilParmsData%NTables)) then - LB(1:1) = lbound(SrcAirFoilParmsData%NTables) - UB(1:1) = ubound(SrcAirFoilParmsData%NTables) + LB(1:1) = lbound(SrcAirFoilParmsData%NTables, kind=B8Ki) + UB(1:1) = ubound(SrcAirFoilParmsData%NTables, kind=B8Ki) if (.not. allocated(DstAirFoilParmsData%NTables)) then allocate(DstAirFoilParmsData%NTables(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -882,8 +882,8 @@ subroutine AD14_CopyAirFoilParms(SrcAirFoilParmsData, DstAirFoilParmsData, CtrlC DstAirFoilParmsData%NTables = SrcAirFoilParmsData%NTables end if if (allocated(SrcAirFoilParmsData%NLift)) then - LB(1:1) = lbound(SrcAirFoilParmsData%NLift) - UB(1:1) = ubound(SrcAirFoilParmsData%NLift) + LB(1:1) = lbound(SrcAirFoilParmsData%NLift, kind=B8Ki) + UB(1:1) = ubound(SrcAirFoilParmsData%NLift, kind=B8Ki) if (.not. allocated(DstAirFoilParmsData%NLift)) then allocate(DstAirFoilParmsData%NLift(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -896,8 +896,8 @@ subroutine AD14_CopyAirFoilParms(SrcAirFoilParmsData, DstAirFoilParmsData, CtrlC DstAirFoilParmsData%NumCL = SrcAirFoilParmsData%NumCL DstAirFoilParmsData%NumFoil = SrcAirFoilParmsData%NumFoil if (allocated(SrcAirFoilParmsData%NFoil)) then - LB(1:1) = lbound(SrcAirFoilParmsData%NFoil) - UB(1:1) = ubound(SrcAirFoilParmsData%NFoil) + LB(1:1) = lbound(SrcAirFoilParmsData%NFoil, kind=B8Ki) + UB(1:1) = ubound(SrcAirFoilParmsData%NFoil, kind=B8Ki) if (.not. allocated(DstAirFoilParmsData%NFoil)) then allocate(DstAirFoilParmsData%NFoil(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -908,8 +908,8 @@ subroutine AD14_CopyAirFoilParms(SrcAirFoilParmsData, DstAirFoilParmsData, CtrlC DstAirFoilParmsData%NFoil = SrcAirFoilParmsData%NFoil end if if (allocated(SrcAirFoilParmsData%MulTabMet)) then - LB(1:2) = lbound(SrcAirFoilParmsData%MulTabMet) - UB(1:2) = ubound(SrcAirFoilParmsData%MulTabMet) + LB(1:2) = lbound(SrcAirFoilParmsData%MulTabMet, kind=B8Ki) + UB(1:2) = ubound(SrcAirFoilParmsData%MulTabMet, kind=B8Ki) if (.not. allocated(DstAirFoilParmsData%MulTabMet)) then allocate(DstAirFoilParmsData%MulTabMet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -920,8 +920,8 @@ subroutine AD14_CopyAirFoilParms(SrcAirFoilParmsData, DstAirFoilParmsData, CtrlC DstAirFoilParmsData%MulTabMet = SrcAirFoilParmsData%MulTabMet end if if (allocated(SrcAirFoilParmsData%FoilNm)) then - LB(1:1) = lbound(SrcAirFoilParmsData%FoilNm) - UB(1:1) = ubound(SrcAirFoilParmsData%FoilNm) + LB(1:1) = lbound(SrcAirFoilParmsData%FoilNm, kind=B8Ki) + UB(1:1) = ubound(SrcAirFoilParmsData%FoilNm, kind=B8Ki) if (.not. allocated(DstAirFoilParmsData%FoilNm)) then allocate(DstAirFoilParmsData%FoilNm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -965,29 +965,29 @@ subroutine AD14_PackAirFoilParms(Buf, Indata) call RegPack(Buf, InData%MaxTable) call RegPack(Buf, allocated(InData%NTables)) if (allocated(InData%NTables)) then - call RegPackBounds(Buf, 1, lbound(InData%NTables), ubound(InData%NTables)) + call RegPackBounds(Buf, 1, lbound(InData%NTables, kind=B8Ki), ubound(InData%NTables, kind=B8Ki)) call RegPack(Buf, InData%NTables) end if call RegPack(Buf, allocated(InData%NLift)) if (allocated(InData%NLift)) then - call RegPackBounds(Buf, 1, lbound(InData%NLift), ubound(InData%NLift)) + call RegPackBounds(Buf, 1, lbound(InData%NLift, kind=B8Ki), ubound(InData%NLift, kind=B8Ki)) call RegPack(Buf, InData%NLift) end if call RegPack(Buf, InData%NumCL) call RegPack(Buf, InData%NumFoil) call RegPack(Buf, allocated(InData%NFoil)) if (allocated(InData%NFoil)) then - call RegPackBounds(Buf, 1, lbound(InData%NFoil), ubound(InData%NFoil)) + call RegPackBounds(Buf, 1, lbound(InData%NFoil, kind=B8Ki), ubound(InData%NFoil, kind=B8Ki)) call RegPack(Buf, InData%NFoil) end if call RegPack(Buf, allocated(InData%MulTabMet)) if (allocated(InData%MulTabMet)) then - call RegPackBounds(Buf, 2, lbound(InData%MulTabMet), ubound(InData%MulTabMet)) + call RegPackBounds(Buf, 2, lbound(InData%MulTabMet, kind=B8Ki), ubound(InData%MulTabMet, kind=B8Ki)) call RegPack(Buf, InData%MulTabMet) end if call RegPack(Buf, allocated(InData%FoilNm)) if (allocated(InData%FoilNm)) then - call RegPackBounds(Buf, 1, lbound(InData%FoilNm), ubound(InData%FoilNm)) + call RegPackBounds(Buf, 1, lbound(InData%FoilNm, kind=B8Ki), ubound(InData%FoilNm, kind=B8Ki)) call RegPack(Buf, InData%FoilNm) end if if (RegCheckErr(Buf, RoutineName)) return @@ -997,7 +997,7 @@ subroutine AD14_UnPackAirFoilParms(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AirFoilParms), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackAirFoilParms' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1085,14 +1085,14 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyBeddoes' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcBeddoesData%ADOT)) then - LB(1:2) = lbound(SrcBeddoesData%ADOT) - UB(1:2) = ubound(SrcBeddoesData%ADOT) + LB(1:2) = lbound(SrcBeddoesData%ADOT, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%ADOT, kind=B8Ki) if (.not. allocated(DstBeddoesData%ADOT)) then allocate(DstBeddoesData%ADOT(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1103,8 +1103,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%ADOT = SrcBeddoesData%ADOT end if if (allocated(SrcBeddoesData%ADOT1)) then - LB(1:2) = lbound(SrcBeddoesData%ADOT1) - UB(1:2) = ubound(SrcBeddoesData%ADOT1) + LB(1:2) = lbound(SrcBeddoesData%ADOT1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%ADOT1, kind=B8Ki) if (.not. allocated(DstBeddoesData%ADOT1)) then allocate(DstBeddoesData%ADOT1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1115,8 +1115,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%ADOT1 = SrcBeddoesData%ADOT1 end if if (allocated(SrcBeddoesData%AFE)) then - LB(1:2) = lbound(SrcBeddoesData%AFE) - UB(1:2) = ubound(SrcBeddoesData%AFE) + LB(1:2) = lbound(SrcBeddoesData%AFE, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%AFE, kind=B8Ki) if (.not. allocated(DstBeddoesData%AFE)) then allocate(DstBeddoesData%AFE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1127,8 +1127,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%AFE = SrcBeddoesData%AFE end if if (allocated(SrcBeddoesData%AFE1)) then - LB(1:2) = lbound(SrcBeddoesData%AFE1) - UB(1:2) = ubound(SrcBeddoesData%AFE1) + LB(1:2) = lbound(SrcBeddoesData%AFE1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%AFE1, kind=B8Ki) if (.not. allocated(DstBeddoesData%AFE1)) then allocate(DstBeddoesData%AFE1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1140,8 +1140,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E end if DstBeddoesData%AN = SrcBeddoesData%AN if (allocated(SrcBeddoesData%ANE)) then - LB(1:2) = lbound(SrcBeddoesData%ANE) - UB(1:2) = ubound(SrcBeddoesData%ANE) + LB(1:2) = lbound(SrcBeddoesData%ANE, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%ANE, kind=B8Ki) if (.not. allocated(DstBeddoesData%ANE)) then allocate(DstBeddoesData%ANE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1152,8 +1152,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%ANE = SrcBeddoesData%ANE end if if (allocated(SrcBeddoesData%ANE1)) then - LB(1:2) = lbound(SrcBeddoesData%ANE1) - UB(1:2) = ubound(SrcBeddoesData%ANE1) + LB(1:2) = lbound(SrcBeddoesData%ANE1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%ANE1, kind=B8Ki) if (.not. allocated(DstBeddoesData%ANE1)) then allocate(DstBeddoesData%ANE1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1164,8 +1164,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%ANE1 = SrcBeddoesData%ANE1 end if if (allocated(SrcBeddoesData%AOD)) then - LB(1:2) = lbound(SrcBeddoesData%AOD) - UB(1:2) = ubound(SrcBeddoesData%AOD) + LB(1:2) = lbound(SrcBeddoesData%AOD, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%AOD, kind=B8Ki) if (.not. allocated(DstBeddoesData%AOD)) then allocate(DstBeddoesData%AOD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1176,8 +1176,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%AOD = SrcBeddoesData%AOD end if if (allocated(SrcBeddoesData%AOL)) then - LB(1:2) = lbound(SrcBeddoesData%AOL) - UB(1:2) = ubound(SrcBeddoesData%AOL) + LB(1:2) = lbound(SrcBeddoesData%AOL, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%AOL, kind=B8Ki) if (.not. allocated(DstBeddoesData%AOL)) then allocate(DstBeddoesData%AOL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1188,8 +1188,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%AOL = SrcBeddoesData%AOL end if if (allocated(SrcBeddoesData%BEDSEP)) then - LB(1:2) = lbound(SrcBeddoesData%BEDSEP) - UB(1:2) = ubound(SrcBeddoesData%BEDSEP) + LB(1:2) = lbound(SrcBeddoesData%BEDSEP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%BEDSEP, kind=B8Ki) if (.not. allocated(DstBeddoesData%BEDSEP)) then allocate(DstBeddoesData%BEDSEP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1200,8 +1200,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%BEDSEP = SrcBeddoesData%BEDSEP end if if (allocated(SrcBeddoesData%OLDSEP)) then - LB(1:2) = lbound(SrcBeddoesData%OLDSEP) - UB(1:2) = ubound(SrcBeddoesData%OLDSEP) + LB(1:2) = lbound(SrcBeddoesData%OLDSEP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDSEP, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDSEP)) then allocate(DstBeddoesData%OLDSEP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1213,8 +1213,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E end if DstBeddoesData%CC = SrcBeddoesData%CC if (allocated(SrcBeddoesData%CDO)) then - LB(1:2) = lbound(SrcBeddoesData%CDO) - UB(1:2) = ubound(SrcBeddoesData%CDO) + LB(1:2) = lbound(SrcBeddoesData%CDO, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CDO, kind=B8Ki) if (.not. allocated(DstBeddoesData%CDO)) then allocate(DstBeddoesData%CDO(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1228,8 +1228,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CMQ = SrcBeddoesData%CMQ DstBeddoesData%CN = SrcBeddoesData%CN if (allocated(SrcBeddoesData%CNA)) then - LB(1:2) = lbound(SrcBeddoesData%CNA) - UB(1:2) = ubound(SrcBeddoesData%CNA) + LB(1:2) = lbound(SrcBeddoesData%CNA, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNA, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNA)) then allocate(DstBeddoesData%CNA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1242,8 +1242,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNCP = SrcBeddoesData%CNCP DstBeddoesData%CNIQ = SrcBeddoesData%CNIQ if (allocated(SrcBeddoesData%CNP)) then - LB(1:2) = lbound(SrcBeddoesData%CNP) - UB(1:2) = ubound(SrcBeddoesData%CNP) + LB(1:2) = lbound(SrcBeddoesData%CNP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNP, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNP)) then allocate(DstBeddoesData%CNP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1254,8 +1254,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNP = SrcBeddoesData%CNP end if if (allocated(SrcBeddoesData%CNP1)) then - LB(1:2) = lbound(SrcBeddoesData%CNP1) - UB(1:2) = ubound(SrcBeddoesData%CNP1) + LB(1:2) = lbound(SrcBeddoesData%CNP1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNP1, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNP1)) then allocate(DstBeddoesData%CNP1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1266,8 +1266,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNP1 = SrcBeddoesData%CNP1 end if if (allocated(SrcBeddoesData%CNPD)) then - LB(1:2) = lbound(SrcBeddoesData%CNPD) - UB(1:2) = ubound(SrcBeddoesData%CNPD) + LB(1:2) = lbound(SrcBeddoesData%CNPD, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNPD, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNPD)) then allocate(DstBeddoesData%CNPD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1278,8 +1278,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNPD = SrcBeddoesData%CNPD end if if (allocated(SrcBeddoesData%CNPD1)) then - LB(1:2) = lbound(SrcBeddoesData%CNPD1) - UB(1:2) = ubound(SrcBeddoesData%CNPD1) + LB(1:2) = lbound(SrcBeddoesData%CNPD1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNPD1, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNPD1)) then allocate(DstBeddoesData%CNPD1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1290,8 +1290,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNPD1 = SrcBeddoesData%CNPD1 end if if (allocated(SrcBeddoesData%CNPOT)) then - LB(1:2) = lbound(SrcBeddoesData%CNPOT) - UB(1:2) = ubound(SrcBeddoesData%CNPOT) + LB(1:2) = lbound(SrcBeddoesData%CNPOT, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNPOT, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNPOT)) then allocate(DstBeddoesData%CNPOT(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1302,8 +1302,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNPOT = SrcBeddoesData%CNPOT end if if (allocated(SrcBeddoesData%CNPOT1)) then - LB(1:2) = lbound(SrcBeddoesData%CNPOT1) - UB(1:2) = ubound(SrcBeddoesData%CNPOT1) + LB(1:2) = lbound(SrcBeddoesData%CNPOT1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNPOT1, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNPOT1)) then allocate(DstBeddoesData%CNPOT1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1314,8 +1314,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNPOT1 = SrcBeddoesData%CNPOT1 end if if (allocated(SrcBeddoesData%CNS)) then - LB(1:2) = lbound(SrcBeddoesData%CNS) - UB(1:2) = ubound(SrcBeddoesData%CNS) + LB(1:2) = lbound(SrcBeddoesData%CNS, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNS, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNS)) then allocate(DstBeddoesData%CNS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1326,8 +1326,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNS = SrcBeddoesData%CNS end if if (allocated(SrcBeddoesData%CNSL)) then - LB(1:2) = lbound(SrcBeddoesData%CNSL) - UB(1:2) = ubound(SrcBeddoesData%CNSL) + LB(1:2) = lbound(SrcBeddoesData%CNSL, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNSL, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNSL)) then allocate(DstBeddoesData%CNSL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1338,8 +1338,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNSL = SrcBeddoesData%CNSL end if if (allocated(SrcBeddoesData%CNV)) then - LB(1:2) = lbound(SrcBeddoesData%CNV) - UB(1:2) = ubound(SrcBeddoesData%CNV) + LB(1:2) = lbound(SrcBeddoesData%CNV, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CNV, kind=B8Ki) if (.not. allocated(DstBeddoesData%CNV)) then allocate(DstBeddoesData%CNV(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1350,8 +1350,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CNV = SrcBeddoesData%CNV end if if (allocated(SrcBeddoesData%CVN)) then - LB(1:2) = lbound(SrcBeddoesData%CVN) - UB(1:2) = ubound(SrcBeddoesData%CVN) + LB(1:2) = lbound(SrcBeddoesData%CVN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CVN, kind=B8Ki) if (.not. allocated(DstBeddoesData%CVN)) then allocate(DstBeddoesData%CVN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1362,8 +1362,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CVN = SrcBeddoesData%CVN end if if (allocated(SrcBeddoesData%CVN1)) then - LB(1:2) = lbound(SrcBeddoesData%CVN1) - UB(1:2) = ubound(SrcBeddoesData%CVN1) + LB(1:2) = lbound(SrcBeddoesData%CVN1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%CVN1, kind=B8Ki) if (.not. allocated(DstBeddoesData%CVN1)) then allocate(DstBeddoesData%CVN1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1374,8 +1374,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%CVN1 = SrcBeddoesData%CVN1 end if if (allocated(SrcBeddoesData%DF)) then - LB(1:2) = lbound(SrcBeddoesData%DF) - UB(1:2) = ubound(SrcBeddoesData%DF) + LB(1:2) = lbound(SrcBeddoesData%DF, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DF, kind=B8Ki) if (.not. allocated(DstBeddoesData%DF)) then allocate(DstBeddoesData%DF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1386,8 +1386,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DF = SrcBeddoesData%DF end if if (allocated(SrcBeddoesData%DFAFE)) then - LB(1:2) = lbound(SrcBeddoesData%DFAFE) - UB(1:2) = ubound(SrcBeddoesData%DFAFE) + LB(1:2) = lbound(SrcBeddoesData%DFAFE, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DFAFE, kind=B8Ki) if (.not. allocated(DstBeddoesData%DFAFE)) then allocate(DstBeddoesData%DFAFE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1398,8 +1398,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DFAFE = SrcBeddoesData%DFAFE end if if (allocated(SrcBeddoesData%DFAFE1)) then - LB(1:2) = lbound(SrcBeddoesData%DFAFE1) - UB(1:2) = ubound(SrcBeddoesData%DFAFE1) + LB(1:2) = lbound(SrcBeddoesData%DFAFE1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DFAFE1, kind=B8Ki) if (.not. allocated(DstBeddoesData%DFAFE1)) then allocate(DstBeddoesData%DFAFE1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1410,8 +1410,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DFAFE1 = SrcBeddoesData%DFAFE1 end if if (allocated(SrcBeddoesData%DFC)) then - LB(1:2) = lbound(SrcBeddoesData%DFC) - UB(1:2) = ubound(SrcBeddoesData%DFC) + LB(1:2) = lbound(SrcBeddoesData%DFC, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DFC, kind=B8Ki) if (.not. allocated(DstBeddoesData%DFC)) then allocate(DstBeddoesData%DFC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1422,8 +1422,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DFC = SrcBeddoesData%DFC end if if (allocated(SrcBeddoesData%DN)) then - LB(1:2) = lbound(SrcBeddoesData%DN) - UB(1:2) = ubound(SrcBeddoesData%DN) + LB(1:2) = lbound(SrcBeddoesData%DN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DN, kind=B8Ki) if (.not. allocated(DstBeddoesData%DN)) then allocate(DstBeddoesData%DN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1434,8 +1434,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DN = SrcBeddoesData%DN end if if (allocated(SrcBeddoesData%DPP)) then - LB(1:2) = lbound(SrcBeddoesData%DPP) - UB(1:2) = ubound(SrcBeddoesData%DPP) + LB(1:2) = lbound(SrcBeddoesData%DPP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DPP, kind=B8Ki) if (.not. allocated(DstBeddoesData%DPP)) then allocate(DstBeddoesData%DPP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1446,8 +1446,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DPP = SrcBeddoesData%DPP end if if (allocated(SrcBeddoesData%DQ)) then - LB(1:2) = lbound(SrcBeddoesData%DQ) - UB(1:2) = ubound(SrcBeddoesData%DQ) + LB(1:2) = lbound(SrcBeddoesData%DQ, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DQ, kind=B8Ki) if (.not. allocated(DstBeddoesData%DQ)) then allocate(DstBeddoesData%DQ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1458,8 +1458,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DQ = SrcBeddoesData%DQ end if if (allocated(SrcBeddoesData%DQP)) then - LB(1:2) = lbound(SrcBeddoesData%DQP) - UB(1:2) = ubound(SrcBeddoesData%DQP) + LB(1:2) = lbound(SrcBeddoesData%DQP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DQP, kind=B8Ki) if (.not. allocated(DstBeddoesData%DQP)) then allocate(DstBeddoesData%DQP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1470,8 +1470,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%DQP = SrcBeddoesData%DQP end if if (allocated(SrcBeddoesData%DQP1)) then - LB(1:2) = lbound(SrcBeddoesData%DQP1) - UB(1:2) = ubound(SrcBeddoesData%DQP1) + LB(1:2) = lbound(SrcBeddoesData%DQP1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%DQP1, kind=B8Ki) if (.not. allocated(DstBeddoesData%DQP1)) then allocate(DstBeddoesData%DQP1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1486,8 +1486,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FP = SrcBeddoesData%FP DstBeddoesData%FPC = SrcBeddoesData%FPC if (allocated(SrcBeddoesData%FSP)) then - LB(1:2) = lbound(SrcBeddoesData%FSP) - UB(1:2) = ubound(SrcBeddoesData%FSP) + LB(1:2) = lbound(SrcBeddoesData%FSP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%FSP, kind=B8Ki) if (.not. allocated(DstBeddoesData%FSP)) then allocate(DstBeddoesData%FSP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1498,8 +1498,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FSP = SrcBeddoesData%FSP end if if (allocated(SrcBeddoesData%FSP1)) then - LB(1:2) = lbound(SrcBeddoesData%FSP1) - UB(1:2) = ubound(SrcBeddoesData%FSP1) + LB(1:2) = lbound(SrcBeddoesData%FSP1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%FSP1, kind=B8Ki) if (.not. allocated(DstBeddoesData%FSP1)) then allocate(DstBeddoesData%FSP1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1510,8 +1510,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FSP1 = SrcBeddoesData%FSP1 end if if (allocated(SrcBeddoesData%FSPC)) then - LB(1:2) = lbound(SrcBeddoesData%FSPC) - UB(1:2) = ubound(SrcBeddoesData%FSPC) + LB(1:2) = lbound(SrcBeddoesData%FSPC, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%FSPC, kind=B8Ki) if (.not. allocated(DstBeddoesData%FSPC)) then allocate(DstBeddoesData%FSPC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1522,8 +1522,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FSPC = SrcBeddoesData%FSPC end if if (allocated(SrcBeddoesData%FSPC1)) then - LB(1:2) = lbound(SrcBeddoesData%FSPC1) - UB(1:2) = ubound(SrcBeddoesData%FSPC1) + LB(1:2) = lbound(SrcBeddoesData%FSPC1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%FSPC1, kind=B8Ki) if (.not. allocated(DstBeddoesData%FSPC1)) then allocate(DstBeddoesData%FSPC1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1534,8 +1534,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FSPC1 = SrcBeddoesData%FSPC1 end if if (allocated(SrcBeddoesData%FTB)) then - LB(1:3) = lbound(SrcBeddoesData%FTB) - UB(1:3) = ubound(SrcBeddoesData%FTB) + LB(1:3) = lbound(SrcBeddoesData%FTB, kind=B8Ki) + UB(1:3) = ubound(SrcBeddoesData%FTB, kind=B8Ki) if (.not. allocated(DstBeddoesData%FTB)) then allocate(DstBeddoesData%FTB(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1546,8 +1546,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FTB = SrcBeddoesData%FTB end if if (allocated(SrcBeddoesData%FTBC)) then - LB(1:3) = lbound(SrcBeddoesData%FTBC) - UB(1:3) = ubound(SrcBeddoesData%FTBC) + LB(1:3) = lbound(SrcBeddoesData%FTBC, kind=B8Ki) + UB(1:3) = ubound(SrcBeddoesData%FTBC, kind=B8Ki) if (.not. allocated(DstBeddoesData%FTBC)) then allocate(DstBeddoesData%FTBC(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1558,8 +1558,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%FTBC = SrcBeddoesData%FTBC end if if (allocated(SrcBeddoesData%OLDCNV)) then - LB(1:2) = lbound(SrcBeddoesData%OLDCNV) - UB(1:2) = ubound(SrcBeddoesData%OLDCNV) + LB(1:2) = lbound(SrcBeddoesData%OLDCNV, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDCNV, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDCNV)) then allocate(DstBeddoesData%OLDCNV(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1570,8 +1570,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDCNV = SrcBeddoesData%OLDCNV end if if (allocated(SrcBeddoesData%OLDDF)) then - LB(1:2) = lbound(SrcBeddoesData%OLDDF) - UB(1:2) = ubound(SrcBeddoesData%OLDDF) + LB(1:2) = lbound(SrcBeddoesData%OLDDF, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDDF, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDDF)) then allocate(DstBeddoesData%OLDDF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1582,8 +1582,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDDF = SrcBeddoesData%OLDDF end if if (allocated(SrcBeddoesData%OLDDFC)) then - LB(1:2) = lbound(SrcBeddoesData%OLDDFC) - UB(1:2) = ubound(SrcBeddoesData%OLDDFC) + LB(1:2) = lbound(SrcBeddoesData%OLDDFC, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDDFC, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDDFC)) then allocate(DstBeddoesData%OLDDFC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1594,8 +1594,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDDFC = SrcBeddoesData%OLDDFC end if if (allocated(SrcBeddoesData%OLDDN)) then - LB(1:2) = lbound(SrcBeddoesData%OLDDN) - UB(1:2) = ubound(SrcBeddoesData%OLDDN) + LB(1:2) = lbound(SrcBeddoesData%OLDDN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDDN, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDDN)) then allocate(DstBeddoesData%OLDDN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1606,8 +1606,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDDN = SrcBeddoesData%OLDDN end if if (allocated(SrcBeddoesData%OLDDPP)) then - LB(1:2) = lbound(SrcBeddoesData%OLDDPP) - UB(1:2) = ubound(SrcBeddoesData%OLDDPP) + LB(1:2) = lbound(SrcBeddoesData%OLDDPP, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDDPP, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDDPP)) then allocate(DstBeddoesData%OLDDPP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1618,8 +1618,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDDPP = SrcBeddoesData%OLDDPP end if if (allocated(SrcBeddoesData%OLDDQ)) then - LB(1:2) = lbound(SrcBeddoesData%OLDDQ) - UB(1:2) = ubound(SrcBeddoesData%OLDDQ) + LB(1:2) = lbound(SrcBeddoesData%OLDDQ, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDDQ, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDDQ)) then allocate(DstBeddoesData%OLDDQ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1630,8 +1630,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDDQ = SrcBeddoesData%OLDDQ end if if (allocated(SrcBeddoesData%OLDTAU)) then - LB(1:2) = lbound(SrcBeddoesData%OLDTAU) - UB(1:2) = ubound(SrcBeddoesData%OLDTAU) + LB(1:2) = lbound(SrcBeddoesData%OLDTAU, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDTAU, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDTAU)) then allocate(DstBeddoesData%OLDTAU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1642,8 +1642,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDTAU = SrcBeddoesData%OLDTAU end if if (allocated(SrcBeddoesData%OLDXN)) then - LB(1:2) = lbound(SrcBeddoesData%OLDXN) - UB(1:2) = ubound(SrcBeddoesData%OLDXN) + LB(1:2) = lbound(SrcBeddoesData%OLDXN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDXN, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDXN)) then allocate(DstBeddoesData%OLDXN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1654,8 +1654,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDXN = SrcBeddoesData%OLDXN end if if (allocated(SrcBeddoesData%OLDYN)) then - LB(1:2) = lbound(SrcBeddoesData%OLDYN) - UB(1:2) = ubound(SrcBeddoesData%OLDYN) + LB(1:2) = lbound(SrcBeddoesData%OLDYN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%OLDYN, kind=B8Ki) if (.not. allocated(DstBeddoesData%OLDYN)) then allocate(DstBeddoesData%OLDYN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1666,8 +1666,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%OLDYN = SrcBeddoesData%OLDYN end if if (allocated(SrcBeddoesData%QX)) then - LB(1:2) = lbound(SrcBeddoesData%QX) - UB(1:2) = ubound(SrcBeddoesData%QX) + LB(1:2) = lbound(SrcBeddoesData%QX, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%QX, kind=B8Ki) if (.not. allocated(DstBeddoesData%QX)) then allocate(DstBeddoesData%QX(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1678,8 +1678,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%QX = SrcBeddoesData%QX end if if (allocated(SrcBeddoesData%QX1)) then - LB(1:2) = lbound(SrcBeddoesData%QX1) - UB(1:2) = ubound(SrcBeddoesData%QX1) + LB(1:2) = lbound(SrcBeddoesData%QX1, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%QX1, kind=B8Ki) if (.not. allocated(DstBeddoesData%QX1)) then allocate(DstBeddoesData%QX1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1690,8 +1690,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%QX1 = SrcBeddoesData%QX1 end if if (allocated(SrcBeddoesData%TAU)) then - LB(1:2) = lbound(SrcBeddoesData%TAU) - UB(1:2) = ubound(SrcBeddoesData%TAU) + LB(1:2) = lbound(SrcBeddoesData%TAU, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%TAU, kind=B8Ki) if (.not. allocated(DstBeddoesData%TAU)) then allocate(DstBeddoesData%TAU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1702,8 +1702,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%TAU = SrcBeddoesData%TAU end if if (allocated(SrcBeddoesData%XN)) then - LB(1:2) = lbound(SrcBeddoesData%XN) - UB(1:2) = ubound(SrcBeddoesData%XN) + LB(1:2) = lbound(SrcBeddoesData%XN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%XN, kind=B8Ki) if (.not. allocated(DstBeddoesData%XN)) then allocate(DstBeddoesData%XN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1714,8 +1714,8 @@ subroutine AD14_CopyBeddoes(SrcBeddoesData, DstBeddoesData, CtrlCode, ErrStat, E DstBeddoesData%XN = SrcBeddoesData%XN end if if (allocated(SrcBeddoesData%YN)) then - LB(1:2) = lbound(SrcBeddoesData%YN) - UB(1:2) = ubound(SrcBeddoesData%YN) + LB(1:2) = lbound(SrcBeddoesData%YN, kind=B8Ki) + UB(1:2) = ubound(SrcBeddoesData%YN, kind=B8Ki) if (.not. allocated(DstBeddoesData%YN)) then allocate(DstBeddoesData%YN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1901,59 +1901,59 @@ subroutine AD14_PackBeddoes(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%ADOT)) if (allocated(InData%ADOT)) then - call RegPackBounds(Buf, 2, lbound(InData%ADOT), ubound(InData%ADOT)) + call RegPackBounds(Buf, 2, lbound(InData%ADOT, kind=B8Ki), ubound(InData%ADOT, kind=B8Ki)) call RegPack(Buf, InData%ADOT) end if call RegPack(Buf, allocated(InData%ADOT1)) if (allocated(InData%ADOT1)) then - call RegPackBounds(Buf, 2, lbound(InData%ADOT1), ubound(InData%ADOT1)) + call RegPackBounds(Buf, 2, lbound(InData%ADOT1, kind=B8Ki), ubound(InData%ADOT1, kind=B8Ki)) call RegPack(Buf, InData%ADOT1) end if call RegPack(Buf, allocated(InData%AFE)) if (allocated(InData%AFE)) then - call RegPackBounds(Buf, 2, lbound(InData%AFE), ubound(InData%AFE)) + call RegPackBounds(Buf, 2, lbound(InData%AFE, kind=B8Ki), ubound(InData%AFE, kind=B8Ki)) call RegPack(Buf, InData%AFE) end if call RegPack(Buf, allocated(InData%AFE1)) if (allocated(InData%AFE1)) then - call RegPackBounds(Buf, 2, lbound(InData%AFE1), ubound(InData%AFE1)) + call RegPackBounds(Buf, 2, lbound(InData%AFE1, kind=B8Ki), ubound(InData%AFE1, kind=B8Ki)) call RegPack(Buf, InData%AFE1) end if call RegPack(Buf, InData%AN) call RegPack(Buf, allocated(InData%ANE)) if (allocated(InData%ANE)) then - call RegPackBounds(Buf, 2, lbound(InData%ANE), ubound(InData%ANE)) + call RegPackBounds(Buf, 2, lbound(InData%ANE, kind=B8Ki), ubound(InData%ANE, kind=B8Ki)) call RegPack(Buf, InData%ANE) end if call RegPack(Buf, allocated(InData%ANE1)) if (allocated(InData%ANE1)) then - call RegPackBounds(Buf, 2, lbound(InData%ANE1), ubound(InData%ANE1)) + call RegPackBounds(Buf, 2, lbound(InData%ANE1, kind=B8Ki), ubound(InData%ANE1, kind=B8Ki)) call RegPack(Buf, InData%ANE1) end if call RegPack(Buf, allocated(InData%AOD)) if (allocated(InData%AOD)) then - call RegPackBounds(Buf, 2, lbound(InData%AOD), ubound(InData%AOD)) + call RegPackBounds(Buf, 2, lbound(InData%AOD, kind=B8Ki), ubound(InData%AOD, kind=B8Ki)) call RegPack(Buf, InData%AOD) end if call RegPack(Buf, allocated(InData%AOL)) if (allocated(InData%AOL)) then - call RegPackBounds(Buf, 2, lbound(InData%AOL), ubound(InData%AOL)) + call RegPackBounds(Buf, 2, lbound(InData%AOL, kind=B8Ki), ubound(InData%AOL, kind=B8Ki)) call RegPack(Buf, InData%AOL) end if call RegPack(Buf, allocated(InData%BEDSEP)) if (allocated(InData%BEDSEP)) then - call RegPackBounds(Buf, 2, lbound(InData%BEDSEP), ubound(InData%BEDSEP)) + call RegPackBounds(Buf, 2, lbound(InData%BEDSEP, kind=B8Ki), ubound(InData%BEDSEP, kind=B8Ki)) call RegPack(Buf, InData%BEDSEP) end if call RegPack(Buf, allocated(InData%OLDSEP)) if (allocated(InData%OLDSEP)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDSEP), ubound(InData%OLDSEP)) + call RegPackBounds(Buf, 2, lbound(InData%OLDSEP, kind=B8Ki), ubound(InData%OLDSEP, kind=B8Ki)) call RegPack(Buf, InData%OLDSEP) end if call RegPack(Buf, InData%CC) call RegPack(Buf, allocated(InData%CDO)) if (allocated(InData%CDO)) then - call RegPackBounds(Buf, 2, lbound(InData%CDO), ubound(InData%CDO)) + call RegPackBounds(Buf, 2, lbound(InData%CDO, kind=B8Ki), ubound(InData%CDO, kind=B8Ki)) call RegPack(Buf, InData%CDO) end if call RegPack(Buf, InData%CMI) @@ -1961,109 +1961,109 @@ subroutine AD14_PackBeddoes(Buf, Indata) call RegPack(Buf, InData%CN) call RegPack(Buf, allocated(InData%CNA)) if (allocated(InData%CNA)) then - call RegPackBounds(Buf, 2, lbound(InData%CNA), ubound(InData%CNA)) + call RegPackBounds(Buf, 2, lbound(InData%CNA, kind=B8Ki), ubound(InData%CNA, kind=B8Ki)) call RegPack(Buf, InData%CNA) end if call RegPack(Buf, InData%CNCP) call RegPack(Buf, InData%CNIQ) call RegPack(Buf, allocated(InData%CNP)) if (allocated(InData%CNP)) then - call RegPackBounds(Buf, 2, lbound(InData%CNP), ubound(InData%CNP)) + call RegPackBounds(Buf, 2, lbound(InData%CNP, kind=B8Ki), ubound(InData%CNP, kind=B8Ki)) call RegPack(Buf, InData%CNP) end if call RegPack(Buf, allocated(InData%CNP1)) if (allocated(InData%CNP1)) then - call RegPackBounds(Buf, 2, lbound(InData%CNP1), ubound(InData%CNP1)) + call RegPackBounds(Buf, 2, lbound(InData%CNP1, kind=B8Ki), ubound(InData%CNP1, kind=B8Ki)) call RegPack(Buf, InData%CNP1) end if call RegPack(Buf, allocated(InData%CNPD)) if (allocated(InData%CNPD)) then - call RegPackBounds(Buf, 2, lbound(InData%CNPD), ubound(InData%CNPD)) + call RegPackBounds(Buf, 2, lbound(InData%CNPD, kind=B8Ki), ubound(InData%CNPD, kind=B8Ki)) call RegPack(Buf, InData%CNPD) end if call RegPack(Buf, allocated(InData%CNPD1)) if (allocated(InData%CNPD1)) then - call RegPackBounds(Buf, 2, lbound(InData%CNPD1), ubound(InData%CNPD1)) + call RegPackBounds(Buf, 2, lbound(InData%CNPD1, kind=B8Ki), ubound(InData%CNPD1, kind=B8Ki)) call RegPack(Buf, InData%CNPD1) end if call RegPack(Buf, allocated(InData%CNPOT)) if (allocated(InData%CNPOT)) then - call RegPackBounds(Buf, 2, lbound(InData%CNPOT), ubound(InData%CNPOT)) + call RegPackBounds(Buf, 2, lbound(InData%CNPOT, kind=B8Ki), ubound(InData%CNPOT, kind=B8Ki)) call RegPack(Buf, InData%CNPOT) end if call RegPack(Buf, allocated(InData%CNPOT1)) if (allocated(InData%CNPOT1)) then - call RegPackBounds(Buf, 2, lbound(InData%CNPOT1), ubound(InData%CNPOT1)) + call RegPackBounds(Buf, 2, lbound(InData%CNPOT1, kind=B8Ki), ubound(InData%CNPOT1, kind=B8Ki)) call RegPack(Buf, InData%CNPOT1) end if call RegPack(Buf, allocated(InData%CNS)) if (allocated(InData%CNS)) then - call RegPackBounds(Buf, 2, lbound(InData%CNS), ubound(InData%CNS)) + call RegPackBounds(Buf, 2, lbound(InData%CNS, kind=B8Ki), ubound(InData%CNS, kind=B8Ki)) call RegPack(Buf, InData%CNS) end if call RegPack(Buf, allocated(InData%CNSL)) if (allocated(InData%CNSL)) then - call RegPackBounds(Buf, 2, lbound(InData%CNSL), ubound(InData%CNSL)) + call RegPackBounds(Buf, 2, lbound(InData%CNSL, kind=B8Ki), ubound(InData%CNSL, kind=B8Ki)) call RegPack(Buf, InData%CNSL) end if call RegPack(Buf, allocated(InData%CNV)) if (allocated(InData%CNV)) then - call RegPackBounds(Buf, 2, lbound(InData%CNV), ubound(InData%CNV)) + call RegPackBounds(Buf, 2, lbound(InData%CNV, kind=B8Ki), ubound(InData%CNV, kind=B8Ki)) call RegPack(Buf, InData%CNV) end if call RegPack(Buf, allocated(InData%CVN)) if (allocated(InData%CVN)) then - call RegPackBounds(Buf, 2, lbound(InData%CVN), ubound(InData%CVN)) + call RegPackBounds(Buf, 2, lbound(InData%CVN, kind=B8Ki), ubound(InData%CVN, kind=B8Ki)) call RegPack(Buf, InData%CVN) end if call RegPack(Buf, allocated(InData%CVN1)) if (allocated(InData%CVN1)) then - call RegPackBounds(Buf, 2, lbound(InData%CVN1), ubound(InData%CVN1)) + call RegPackBounds(Buf, 2, lbound(InData%CVN1, kind=B8Ki), ubound(InData%CVN1, kind=B8Ki)) call RegPack(Buf, InData%CVN1) end if call RegPack(Buf, allocated(InData%DF)) if (allocated(InData%DF)) then - call RegPackBounds(Buf, 2, lbound(InData%DF), ubound(InData%DF)) + call RegPackBounds(Buf, 2, lbound(InData%DF, kind=B8Ki), ubound(InData%DF, kind=B8Ki)) call RegPack(Buf, InData%DF) end if call RegPack(Buf, allocated(InData%DFAFE)) if (allocated(InData%DFAFE)) then - call RegPackBounds(Buf, 2, lbound(InData%DFAFE), ubound(InData%DFAFE)) + call RegPackBounds(Buf, 2, lbound(InData%DFAFE, kind=B8Ki), ubound(InData%DFAFE, kind=B8Ki)) call RegPack(Buf, InData%DFAFE) end if call RegPack(Buf, allocated(InData%DFAFE1)) if (allocated(InData%DFAFE1)) then - call RegPackBounds(Buf, 2, lbound(InData%DFAFE1), ubound(InData%DFAFE1)) + call RegPackBounds(Buf, 2, lbound(InData%DFAFE1, kind=B8Ki), ubound(InData%DFAFE1, kind=B8Ki)) call RegPack(Buf, InData%DFAFE1) end if call RegPack(Buf, allocated(InData%DFC)) if (allocated(InData%DFC)) then - call RegPackBounds(Buf, 2, lbound(InData%DFC), ubound(InData%DFC)) + call RegPackBounds(Buf, 2, lbound(InData%DFC, kind=B8Ki), ubound(InData%DFC, kind=B8Ki)) call RegPack(Buf, InData%DFC) end if call RegPack(Buf, allocated(InData%DN)) if (allocated(InData%DN)) then - call RegPackBounds(Buf, 2, lbound(InData%DN), ubound(InData%DN)) + call RegPackBounds(Buf, 2, lbound(InData%DN, kind=B8Ki), ubound(InData%DN, kind=B8Ki)) call RegPack(Buf, InData%DN) end if call RegPack(Buf, allocated(InData%DPP)) if (allocated(InData%DPP)) then - call RegPackBounds(Buf, 2, lbound(InData%DPP), ubound(InData%DPP)) + call RegPackBounds(Buf, 2, lbound(InData%DPP, kind=B8Ki), ubound(InData%DPP, kind=B8Ki)) call RegPack(Buf, InData%DPP) end if call RegPack(Buf, allocated(InData%DQ)) if (allocated(InData%DQ)) then - call RegPackBounds(Buf, 2, lbound(InData%DQ), ubound(InData%DQ)) + call RegPackBounds(Buf, 2, lbound(InData%DQ, kind=B8Ki), ubound(InData%DQ, kind=B8Ki)) call RegPack(Buf, InData%DQ) end if call RegPack(Buf, allocated(InData%DQP)) if (allocated(InData%DQP)) then - call RegPackBounds(Buf, 2, lbound(InData%DQP), ubound(InData%DQP)) + call RegPackBounds(Buf, 2, lbound(InData%DQP, kind=B8Ki), ubound(InData%DQP, kind=B8Ki)) call RegPack(Buf, InData%DQP) end if call RegPack(Buf, allocated(InData%DQP1)) if (allocated(InData%DQP1)) then - call RegPackBounds(Buf, 2, lbound(InData%DQP1), ubound(InData%DQP1)) + call RegPackBounds(Buf, 2, lbound(InData%DQP1, kind=B8Ki), ubound(InData%DQP1, kind=B8Ki)) call RegPack(Buf, InData%DQP1) end if call RegPack(Buf, InData%DS) @@ -2072,102 +2072,102 @@ subroutine AD14_PackBeddoes(Buf, Indata) call RegPack(Buf, InData%FPC) call RegPack(Buf, allocated(InData%FSP)) if (allocated(InData%FSP)) then - call RegPackBounds(Buf, 2, lbound(InData%FSP), ubound(InData%FSP)) + call RegPackBounds(Buf, 2, lbound(InData%FSP, kind=B8Ki), ubound(InData%FSP, kind=B8Ki)) call RegPack(Buf, InData%FSP) end if call RegPack(Buf, allocated(InData%FSP1)) if (allocated(InData%FSP1)) then - call RegPackBounds(Buf, 2, lbound(InData%FSP1), ubound(InData%FSP1)) + call RegPackBounds(Buf, 2, lbound(InData%FSP1, kind=B8Ki), ubound(InData%FSP1, kind=B8Ki)) call RegPack(Buf, InData%FSP1) end if call RegPack(Buf, allocated(InData%FSPC)) if (allocated(InData%FSPC)) then - call RegPackBounds(Buf, 2, lbound(InData%FSPC), ubound(InData%FSPC)) + call RegPackBounds(Buf, 2, lbound(InData%FSPC, kind=B8Ki), ubound(InData%FSPC, kind=B8Ki)) call RegPack(Buf, InData%FSPC) end if call RegPack(Buf, allocated(InData%FSPC1)) if (allocated(InData%FSPC1)) then - call RegPackBounds(Buf, 2, lbound(InData%FSPC1), ubound(InData%FSPC1)) + call RegPackBounds(Buf, 2, lbound(InData%FSPC1, kind=B8Ki), ubound(InData%FSPC1, kind=B8Ki)) call RegPack(Buf, InData%FSPC1) end if call RegPack(Buf, allocated(InData%FTB)) if (allocated(InData%FTB)) then - call RegPackBounds(Buf, 3, lbound(InData%FTB), ubound(InData%FTB)) + call RegPackBounds(Buf, 3, lbound(InData%FTB, kind=B8Ki), ubound(InData%FTB, kind=B8Ki)) call RegPack(Buf, InData%FTB) end if call RegPack(Buf, allocated(InData%FTBC)) if (allocated(InData%FTBC)) then - call RegPackBounds(Buf, 3, lbound(InData%FTBC), ubound(InData%FTBC)) + call RegPackBounds(Buf, 3, lbound(InData%FTBC, kind=B8Ki), ubound(InData%FTBC, kind=B8Ki)) call RegPack(Buf, InData%FTBC) end if call RegPack(Buf, allocated(InData%OLDCNV)) if (allocated(InData%OLDCNV)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDCNV), ubound(InData%OLDCNV)) + call RegPackBounds(Buf, 2, lbound(InData%OLDCNV, kind=B8Ki), ubound(InData%OLDCNV, kind=B8Ki)) call RegPack(Buf, InData%OLDCNV) end if call RegPack(Buf, allocated(InData%OLDDF)) if (allocated(InData%OLDDF)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDDF), ubound(InData%OLDDF)) + call RegPackBounds(Buf, 2, lbound(InData%OLDDF, kind=B8Ki), ubound(InData%OLDDF, kind=B8Ki)) call RegPack(Buf, InData%OLDDF) end if call RegPack(Buf, allocated(InData%OLDDFC)) if (allocated(InData%OLDDFC)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDDFC), ubound(InData%OLDDFC)) + call RegPackBounds(Buf, 2, lbound(InData%OLDDFC, kind=B8Ki), ubound(InData%OLDDFC, kind=B8Ki)) call RegPack(Buf, InData%OLDDFC) end if call RegPack(Buf, allocated(InData%OLDDN)) if (allocated(InData%OLDDN)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDDN), ubound(InData%OLDDN)) + call RegPackBounds(Buf, 2, lbound(InData%OLDDN, kind=B8Ki), ubound(InData%OLDDN, kind=B8Ki)) call RegPack(Buf, InData%OLDDN) end if call RegPack(Buf, allocated(InData%OLDDPP)) if (allocated(InData%OLDDPP)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDDPP), ubound(InData%OLDDPP)) + call RegPackBounds(Buf, 2, lbound(InData%OLDDPP, kind=B8Ki), ubound(InData%OLDDPP, kind=B8Ki)) call RegPack(Buf, InData%OLDDPP) end if call RegPack(Buf, allocated(InData%OLDDQ)) if (allocated(InData%OLDDQ)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDDQ), ubound(InData%OLDDQ)) + call RegPackBounds(Buf, 2, lbound(InData%OLDDQ, kind=B8Ki), ubound(InData%OLDDQ, kind=B8Ki)) call RegPack(Buf, InData%OLDDQ) end if call RegPack(Buf, allocated(InData%OLDTAU)) if (allocated(InData%OLDTAU)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDTAU), ubound(InData%OLDTAU)) + call RegPackBounds(Buf, 2, lbound(InData%OLDTAU, kind=B8Ki), ubound(InData%OLDTAU, kind=B8Ki)) call RegPack(Buf, InData%OLDTAU) end if call RegPack(Buf, allocated(InData%OLDXN)) if (allocated(InData%OLDXN)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDXN), ubound(InData%OLDXN)) + call RegPackBounds(Buf, 2, lbound(InData%OLDXN, kind=B8Ki), ubound(InData%OLDXN, kind=B8Ki)) call RegPack(Buf, InData%OLDXN) end if call RegPack(Buf, allocated(InData%OLDYN)) if (allocated(InData%OLDYN)) then - call RegPackBounds(Buf, 2, lbound(InData%OLDYN), ubound(InData%OLDYN)) + call RegPackBounds(Buf, 2, lbound(InData%OLDYN, kind=B8Ki), ubound(InData%OLDYN, kind=B8Ki)) call RegPack(Buf, InData%OLDYN) end if call RegPack(Buf, allocated(InData%QX)) if (allocated(InData%QX)) then - call RegPackBounds(Buf, 2, lbound(InData%QX), ubound(InData%QX)) + call RegPackBounds(Buf, 2, lbound(InData%QX, kind=B8Ki), ubound(InData%QX, kind=B8Ki)) call RegPack(Buf, InData%QX) end if call RegPack(Buf, allocated(InData%QX1)) if (allocated(InData%QX1)) then - call RegPackBounds(Buf, 2, lbound(InData%QX1), ubound(InData%QX1)) + call RegPackBounds(Buf, 2, lbound(InData%QX1, kind=B8Ki), ubound(InData%QX1, kind=B8Ki)) call RegPack(Buf, InData%QX1) end if call RegPack(Buf, allocated(InData%TAU)) if (allocated(InData%TAU)) then - call RegPackBounds(Buf, 2, lbound(InData%TAU), ubound(InData%TAU)) + call RegPackBounds(Buf, 2, lbound(InData%TAU, kind=B8Ki), ubound(InData%TAU, kind=B8Ki)) call RegPack(Buf, InData%TAU) end if call RegPack(Buf, allocated(InData%XN)) if (allocated(InData%XN)) then - call RegPackBounds(Buf, 2, lbound(InData%XN), ubound(InData%XN)) + call RegPackBounds(Buf, 2, lbound(InData%XN, kind=B8Ki), ubound(InData%XN, kind=B8Ki)) call RegPack(Buf, InData%XN) end if call RegPack(Buf, allocated(InData%YN)) if (allocated(InData%YN)) then - call RegPackBounds(Buf, 2, lbound(InData%YN), ubound(InData%YN)) + call RegPackBounds(Buf, 2, lbound(InData%YN, kind=B8Ki), ubound(InData%YN, kind=B8Ki)) call RegPack(Buf, InData%YN) end if call RegPack(Buf, InData%SHIFT) @@ -2179,7 +2179,7 @@ subroutine AD14_UnPackBeddoes(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Beddoes), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackBeddoes' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3000,14 +3000,14 @@ subroutine AD14_CopyBladeParms(SrcBladeParmsData, DstBladeParmsData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyBladeParms' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcBladeParmsData%C)) then - LB(1:1) = lbound(SrcBladeParmsData%C) - UB(1:1) = ubound(SrcBladeParmsData%C) + LB(1:1) = lbound(SrcBladeParmsData%C, kind=B8Ki) + UB(1:1) = ubound(SrcBladeParmsData%C, kind=B8Ki) if (.not. allocated(DstBladeParmsData%C)) then allocate(DstBladeParmsData%C(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3018,8 +3018,8 @@ subroutine AD14_CopyBladeParms(SrcBladeParmsData, DstBladeParmsData, CtrlCode, E DstBladeParmsData%C = SrcBladeParmsData%C end if if (allocated(SrcBladeParmsData%DR)) then - LB(1:1) = lbound(SrcBladeParmsData%DR) - UB(1:1) = ubound(SrcBladeParmsData%DR) + LB(1:1) = lbound(SrcBladeParmsData%DR, kind=B8Ki) + UB(1:1) = ubound(SrcBladeParmsData%DR, kind=B8Ki) if (.not. allocated(DstBladeParmsData%DR)) then allocate(DstBladeParmsData%DR(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3055,12 +3055,12 @@ subroutine AD14_PackBladeParms(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%C)) if (allocated(InData%C)) then - call RegPackBounds(Buf, 1, lbound(InData%C), ubound(InData%C)) + call RegPackBounds(Buf, 1, lbound(InData%C, kind=B8Ki), ubound(InData%C, kind=B8Ki)) call RegPack(Buf, InData%C) end if call RegPack(Buf, allocated(InData%DR)) if (allocated(InData%DR)) then - call RegPackBounds(Buf, 1, lbound(InData%DR), ubound(InData%DR)) + call RegPackBounds(Buf, 1, lbound(InData%DR, kind=B8Ki), ubound(InData%DR, kind=B8Ki)) call RegPack(Buf, InData%DR) end if call RegPack(Buf, InData%R) @@ -3072,7 +3072,7 @@ subroutine AD14_UnPackBladeParms(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BladeParms), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackBladeParms' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3116,7 +3116,7 @@ subroutine AD14_CopyDynInflow(SrcDynInflowData, DstDynInflowData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyDynInflow' ErrStat = ErrID_None @@ -3132,8 +3132,8 @@ subroutine AD14_CopyDynInflow(SrcDynInflowData, DstDynInflowData, CtrlCode, ErrS DstDynInflowData%PhiLqS = SrcDynInflowData%PhiLqS DstDynInflowData%Pzero = SrcDynInflowData%Pzero if (allocated(SrcDynInflowData%RMC_SAVE)) then - LB(1:3) = lbound(SrcDynInflowData%RMC_SAVE) - UB(1:3) = ubound(SrcDynInflowData%RMC_SAVE) + LB(1:3) = lbound(SrcDynInflowData%RMC_SAVE, kind=B8Ki) + UB(1:3) = ubound(SrcDynInflowData%RMC_SAVE, kind=B8Ki) if (.not. allocated(DstDynInflowData%RMC_SAVE)) then allocate(DstDynInflowData%RMC_SAVE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3144,8 +3144,8 @@ subroutine AD14_CopyDynInflow(SrcDynInflowData, DstDynInflowData, CtrlCode, ErrS DstDynInflowData%RMC_SAVE = SrcDynInflowData%RMC_SAVE end if if (allocated(SrcDynInflowData%RMS_SAVE)) then - LB(1:3) = lbound(SrcDynInflowData%RMS_SAVE) - UB(1:3) = ubound(SrcDynInflowData%RMS_SAVE) + LB(1:3) = lbound(SrcDynInflowData%RMS_SAVE, kind=B8Ki) + UB(1:3) = ubound(SrcDynInflowData%RMS_SAVE, kind=B8Ki) if (.not. allocated(DstDynInflowData%RMS_SAVE)) then allocate(DstDynInflowData%RMS_SAVE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3203,12 +3203,12 @@ subroutine AD14_PackDynInflow(Buf, Indata) call RegPack(Buf, InData%Pzero) call RegPack(Buf, allocated(InData%RMC_SAVE)) if (allocated(InData%RMC_SAVE)) then - call RegPackBounds(Buf, 3, lbound(InData%RMC_SAVE), ubound(InData%RMC_SAVE)) + call RegPackBounds(Buf, 3, lbound(InData%RMC_SAVE, kind=B8Ki), ubound(InData%RMC_SAVE, kind=B8Ki)) call RegPack(Buf, InData%RMC_SAVE) end if call RegPack(Buf, allocated(InData%RMS_SAVE)) if (allocated(InData%RMS_SAVE)) then - call RegPackBounds(Buf, 3, lbound(InData%RMS_SAVE), ubound(InData%RMS_SAVE)) + call RegPackBounds(Buf, 3, lbound(InData%RMS_SAVE, kind=B8Ki), ubound(InData%RMS_SAVE, kind=B8Ki)) call RegPack(Buf, InData%RMS_SAVE) end if call RegPack(Buf, InData%TipSpeed) @@ -3232,7 +3232,7 @@ subroutine AD14_UnPackDynInflow(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DynInflow), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackDynInflow' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3363,14 +3363,14 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyElement' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcElementData%A)) then - LB(1:2) = lbound(SrcElementData%A) - UB(1:2) = ubound(SrcElementData%A) + LB(1:2) = lbound(SrcElementData%A, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%A, kind=B8Ki) if (.not. allocated(DstElementData%A)) then allocate(DstElementData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3381,8 +3381,8 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E DstElementData%A = SrcElementData%A end if if (allocated(SrcElementData%AP)) then - LB(1:2) = lbound(SrcElementData%AP) - UB(1:2) = ubound(SrcElementData%AP) + LB(1:2) = lbound(SrcElementData%AP, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%AP, kind=B8Ki) if (.not. allocated(DstElementData%AP)) then allocate(DstElementData%AP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3393,8 +3393,8 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E DstElementData%AP = SrcElementData%AP end if if (allocated(SrcElementData%ALPHA)) then - LB(1:2) = lbound(SrcElementData%ALPHA) - UB(1:2) = ubound(SrcElementData%ALPHA) + LB(1:2) = lbound(SrcElementData%ALPHA, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%ALPHA, kind=B8Ki) if (.not. allocated(DstElementData%ALPHA)) then allocate(DstElementData%ALPHA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3405,8 +3405,8 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E DstElementData%ALPHA = SrcElementData%ALPHA end if if (allocated(SrcElementData%W2)) then - LB(1:2) = lbound(SrcElementData%W2) - UB(1:2) = ubound(SrcElementData%W2) + LB(1:2) = lbound(SrcElementData%W2, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%W2, kind=B8Ki) if (.not. allocated(DstElementData%W2)) then allocate(DstElementData%W2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3417,8 +3417,8 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E DstElementData%W2 = SrcElementData%W2 end if if (allocated(SrcElementData%OLD_A_NS)) then - LB(1:2) = lbound(SrcElementData%OLD_A_NS) - UB(1:2) = ubound(SrcElementData%OLD_A_NS) + LB(1:2) = lbound(SrcElementData%OLD_A_NS, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%OLD_A_NS, kind=B8Ki) if (.not. allocated(DstElementData%OLD_A_NS)) then allocate(DstElementData%OLD_A_NS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3429,8 +3429,8 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E DstElementData%OLD_A_NS = SrcElementData%OLD_A_NS end if if (allocated(SrcElementData%OLD_AP_NS)) then - LB(1:2) = lbound(SrcElementData%OLD_AP_NS) - UB(1:2) = ubound(SrcElementData%OLD_AP_NS) + LB(1:2) = lbound(SrcElementData%OLD_AP_NS, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%OLD_AP_NS, kind=B8Ki) if (.not. allocated(DstElementData%OLD_AP_NS)) then allocate(DstElementData%OLD_AP_NS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3441,8 +3441,8 @@ subroutine AD14_CopyElement(SrcElementData, DstElementData, CtrlCode, ErrStat, E DstElementData%OLD_AP_NS = SrcElementData%OLD_AP_NS end if if (allocated(SrcElementData%PITNOW)) then - LB(1:2) = lbound(SrcElementData%PITNOW) - UB(1:2) = ubound(SrcElementData%PITNOW) + LB(1:2) = lbound(SrcElementData%PITNOW, kind=B8Ki) + UB(1:2) = ubound(SrcElementData%PITNOW, kind=B8Ki) if (.not. allocated(DstElementData%PITNOW)) then allocate(DstElementData%PITNOW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3491,37 +3491,37 @@ subroutine AD14_PackElement(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%A)) if (allocated(InData%A)) then - call RegPackBounds(Buf, 2, lbound(InData%A), ubound(InData%A)) + call RegPackBounds(Buf, 2, lbound(InData%A, kind=B8Ki), ubound(InData%A, kind=B8Ki)) call RegPack(Buf, InData%A) end if call RegPack(Buf, allocated(InData%AP)) if (allocated(InData%AP)) then - call RegPackBounds(Buf, 2, lbound(InData%AP), ubound(InData%AP)) + call RegPackBounds(Buf, 2, lbound(InData%AP, kind=B8Ki), ubound(InData%AP, kind=B8Ki)) call RegPack(Buf, InData%AP) end if call RegPack(Buf, allocated(InData%ALPHA)) if (allocated(InData%ALPHA)) then - call RegPackBounds(Buf, 2, lbound(InData%ALPHA), ubound(InData%ALPHA)) + call RegPackBounds(Buf, 2, lbound(InData%ALPHA, kind=B8Ki), ubound(InData%ALPHA, kind=B8Ki)) call RegPack(Buf, InData%ALPHA) end if call RegPack(Buf, allocated(InData%W2)) if (allocated(InData%W2)) then - call RegPackBounds(Buf, 2, lbound(InData%W2), ubound(InData%W2)) + call RegPackBounds(Buf, 2, lbound(InData%W2, kind=B8Ki), ubound(InData%W2, kind=B8Ki)) call RegPack(Buf, InData%W2) end if call RegPack(Buf, allocated(InData%OLD_A_NS)) if (allocated(InData%OLD_A_NS)) then - call RegPackBounds(Buf, 2, lbound(InData%OLD_A_NS), ubound(InData%OLD_A_NS)) + call RegPackBounds(Buf, 2, lbound(InData%OLD_A_NS, kind=B8Ki), ubound(InData%OLD_A_NS, kind=B8Ki)) call RegPack(Buf, InData%OLD_A_NS) end if call RegPack(Buf, allocated(InData%OLD_AP_NS)) if (allocated(InData%OLD_AP_NS)) then - call RegPackBounds(Buf, 2, lbound(InData%OLD_AP_NS), ubound(InData%OLD_AP_NS)) + call RegPackBounds(Buf, 2, lbound(InData%OLD_AP_NS, kind=B8Ki), ubound(InData%OLD_AP_NS, kind=B8Ki)) call RegPack(Buf, InData%OLD_AP_NS) end if call RegPack(Buf, allocated(InData%PITNOW)) if (allocated(InData%PITNOW)) then - call RegPackBounds(Buf, 2, lbound(InData%PITNOW), ubound(InData%PITNOW)) + call RegPackBounds(Buf, 2, lbound(InData%PITNOW, kind=B8Ki), ubound(InData%PITNOW, kind=B8Ki)) call RegPack(Buf, InData%PITNOW) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3531,7 +3531,7 @@ subroutine AD14_UnPackElement(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Element), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackElement' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3641,15 +3641,15 @@ subroutine AD14_CopyElementParms(SrcElementParmsData, DstElementParmsData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyElementParms' ErrStat = ErrID_None ErrMsg = '' DstElementParmsData%NELM = SrcElementParmsData%NELM if (allocated(SrcElementParmsData%TWIST)) then - LB(1:1) = lbound(SrcElementParmsData%TWIST) - UB(1:1) = ubound(SrcElementParmsData%TWIST) + LB(1:1) = lbound(SrcElementParmsData%TWIST, kind=B8Ki) + UB(1:1) = ubound(SrcElementParmsData%TWIST, kind=B8Ki) if (.not. allocated(DstElementParmsData%TWIST)) then allocate(DstElementParmsData%TWIST(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3660,8 +3660,8 @@ subroutine AD14_CopyElementParms(SrcElementParmsData, DstElementParmsData, CtrlC DstElementParmsData%TWIST = SrcElementParmsData%TWIST end if if (allocated(SrcElementParmsData%RELM)) then - LB(1:1) = lbound(SrcElementParmsData%RELM) - UB(1:1) = ubound(SrcElementParmsData%RELM) + LB(1:1) = lbound(SrcElementParmsData%RELM, kind=B8Ki) + UB(1:1) = ubound(SrcElementParmsData%RELM, kind=B8Ki) if (.not. allocated(DstElementParmsData%RELM)) then allocate(DstElementParmsData%RELM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3672,8 +3672,8 @@ subroutine AD14_CopyElementParms(SrcElementParmsData, DstElementParmsData, CtrlC DstElementParmsData%RELM = SrcElementParmsData%RELM end if if (allocated(SrcElementParmsData%HLCNST)) then - LB(1:1) = lbound(SrcElementParmsData%HLCNST) - UB(1:1) = ubound(SrcElementParmsData%HLCNST) + LB(1:1) = lbound(SrcElementParmsData%HLCNST, kind=B8Ki) + UB(1:1) = ubound(SrcElementParmsData%HLCNST, kind=B8Ki) if (.not. allocated(DstElementParmsData%HLCNST)) then allocate(DstElementParmsData%HLCNST(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3684,8 +3684,8 @@ subroutine AD14_CopyElementParms(SrcElementParmsData, DstElementParmsData, CtrlC DstElementParmsData%HLCNST = SrcElementParmsData%HLCNST end if if (allocated(SrcElementParmsData%TLCNST)) then - LB(1:1) = lbound(SrcElementParmsData%TLCNST) - UB(1:1) = ubound(SrcElementParmsData%TLCNST) + LB(1:1) = lbound(SrcElementParmsData%TLCNST, kind=B8Ki) + UB(1:1) = ubound(SrcElementParmsData%TLCNST, kind=B8Ki) if (.not. allocated(DstElementParmsData%TLCNST)) then allocate(DstElementParmsData%TLCNST(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3726,22 +3726,22 @@ subroutine AD14_PackElementParms(Buf, Indata) call RegPack(Buf, InData%NELM) call RegPack(Buf, allocated(InData%TWIST)) if (allocated(InData%TWIST)) then - call RegPackBounds(Buf, 1, lbound(InData%TWIST), ubound(InData%TWIST)) + call RegPackBounds(Buf, 1, lbound(InData%TWIST, kind=B8Ki), ubound(InData%TWIST, kind=B8Ki)) call RegPack(Buf, InData%TWIST) end if call RegPack(Buf, allocated(InData%RELM)) if (allocated(InData%RELM)) then - call RegPackBounds(Buf, 1, lbound(InData%RELM), ubound(InData%RELM)) + call RegPackBounds(Buf, 1, lbound(InData%RELM, kind=B8Ki), ubound(InData%RELM, kind=B8Ki)) call RegPack(Buf, InData%RELM) end if call RegPack(Buf, allocated(InData%HLCNST)) if (allocated(InData%HLCNST)) then - call RegPackBounds(Buf, 1, lbound(InData%HLCNST), ubound(InData%HLCNST)) + call RegPackBounds(Buf, 1, lbound(InData%HLCNST, kind=B8Ki), ubound(InData%HLCNST, kind=B8Ki)) call RegPack(Buf, InData%HLCNST) end if call RegPack(Buf, allocated(InData%TLCNST)) if (allocated(InData%TLCNST)) then - call RegPackBounds(Buf, 1, lbound(InData%TLCNST), ubound(InData%TLCNST)) + call RegPackBounds(Buf, 1, lbound(InData%TLCNST, kind=B8Ki), ubound(InData%TLCNST, kind=B8Ki)) call RegPack(Buf, InData%TLCNST) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3751,7 +3751,7 @@ subroutine AD14_UnPackElementParms(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ElementParms), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackElementParms' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3821,14 +3821,14 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyElOutParms' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcElOutParmsData%AAA)) then - LB(1:1) = lbound(SrcElOutParmsData%AAA) - UB(1:1) = ubound(SrcElOutParmsData%AAA) + LB(1:1) = lbound(SrcElOutParmsData%AAA, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%AAA, kind=B8Ki) if (.not. allocated(DstElOutParmsData%AAA)) then allocate(DstElOutParmsData%AAA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3839,8 +3839,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%AAA = SrcElOutParmsData%AAA end if if (allocated(SrcElOutParmsData%AAP)) then - LB(1:1) = lbound(SrcElOutParmsData%AAP) - UB(1:1) = ubound(SrcElOutParmsData%AAP) + LB(1:1) = lbound(SrcElOutParmsData%AAP, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%AAP, kind=B8Ki) if (.not. allocated(DstElOutParmsData%AAP)) then allocate(DstElOutParmsData%AAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3851,8 +3851,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%AAP = SrcElOutParmsData%AAP end if if (allocated(SrcElOutParmsData%ALF)) then - LB(1:1) = lbound(SrcElOutParmsData%ALF) - UB(1:1) = ubound(SrcElOutParmsData%ALF) + LB(1:1) = lbound(SrcElOutParmsData%ALF, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%ALF, kind=B8Ki) if (.not. allocated(DstElOutParmsData%ALF)) then allocate(DstElOutParmsData%ALF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3863,8 +3863,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%ALF = SrcElOutParmsData%ALF end if if (allocated(SrcElOutParmsData%CDD)) then - LB(1:1) = lbound(SrcElOutParmsData%CDD) - UB(1:1) = ubound(SrcElOutParmsData%CDD) + LB(1:1) = lbound(SrcElOutParmsData%CDD, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%CDD, kind=B8Ki) if (.not. allocated(DstElOutParmsData%CDD)) then allocate(DstElOutParmsData%CDD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3875,8 +3875,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%CDD = SrcElOutParmsData%CDD end if if (allocated(SrcElOutParmsData%CLL)) then - LB(1:1) = lbound(SrcElOutParmsData%CLL) - UB(1:1) = ubound(SrcElOutParmsData%CLL) + LB(1:1) = lbound(SrcElOutParmsData%CLL, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%CLL, kind=B8Ki) if (.not. allocated(DstElOutParmsData%CLL)) then allocate(DstElOutParmsData%CLL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3887,8 +3887,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%CLL = SrcElOutParmsData%CLL end if if (allocated(SrcElOutParmsData%CMM)) then - LB(1:1) = lbound(SrcElOutParmsData%CMM) - UB(1:1) = ubound(SrcElOutParmsData%CMM) + LB(1:1) = lbound(SrcElOutParmsData%CMM, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%CMM, kind=B8Ki) if (.not. allocated(DstElOutParmsData%CMM)) then allocate(DstElOutParmsData%CMM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3899,8 +3899,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%CMM = SrcElOutParmsData%CMM end if if (allocated(SrcElOutParmsData%CNN)) then - LB(1:1) = lbound(SrcElOutParmsData%CNN) - UB(1:1) = ubound(SrcElOutParmsData%CNN) + LB(1:1) = lbound(SrcElOutParmsData%CNN, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%CNN, kind=B8Ki) if (.not. allocated(DstElOutParmsData%CNN)) then allocate(DstElOutParmsData%CNN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3911,8 +3911,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%CNN = SrcElOutParmsData%CNN end if if (allocated(SrcElOutParmsData%CTT)) then - LB(1:1) = lbound(SrcElOutParmsData%CTT) - UB(1:1) = ubound(SrcElOutParmsData%CTT) + LB(1:1) = lbound(SrcElOutParmsData%CTT, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%CTT, kind=B8Ki) if (.not. allocated(DstElOutParmsData%CTT)) then allocate(DstElOutParmsData%CTT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3923,8 +3923,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%CTT = SrcElOutParmsData%CTT end if if (allocated(SrcElOutParmsData%DFNSAV)) then - LB(1:1) = lbound(SrcElOutParmsData%DFNSAV) - UB(1:1) = ubound(SrcElOutParmsData%DFNSAV) + LB(1:1) = lbound(SrcElOutParmsData%DFNSAV, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%DFNSAV, kind=B8Ki) if (.not. allocated(DstElOutParmsData%DFNSAV)) then allocate(DstElOutParmsData%DFNSAV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3935,8 +3935,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%DFNSAV = SrcElOutParmsData%DFNSAV end if if (allocated(SrcElOutParmsData%DFTSAV)) then - LB(1:1) = lbound(SrcElOutParmsData%DFTSAV) - UB(1:1) = ubound(SrcElOutParmsData%DFTSAV) + LB(1:1) = lbound(SrcElOutParmsData%DFTSAV, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%DFTSAV, kind=B8Ki) if (.not. allocated(DstElOutParmsData%DFTSAV)) then allocate(DstElOutParmsData%DFTSAV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3947,8 +3947,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%DFTSAV = SrcElOutParmsData%DFTSAV end if if (allocated(SrcElOutParmsData%DynPres)) then - LB(1:1) = lbound(SrcElOutParmsData%DynPres) - UB(1:1) = ubound(SrcElOutParmsData%DynPres) + LB(1:1) = lbound(SrcElOutParmsData%DynPres, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%DynPres, kind=B8Ki) if (.not. allocated(DstElOutParmsData%DynPres)) then allocate(DstElOutParmsData%DynPres(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3959,8 +3959,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%DynPres = SrcElOutParmsData%DynPres end if if (allocated(SrcElOutParmsData%PMM)) then - LB(1:1) = lbound(SrcElOutParmsData%PMM) - UB(1:1) = ubound(SrcElOutParmsData%PMM) + LB(1:1) = lbound(SrcElOutParmsData%PMM, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%PMM, kind=B8Ki) if (.not. allocated(DstElOutParmsData%PMM)) then allocate(DstElOutParmsData%PMM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3971,8 +3971,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%PMM = SrcElOutParmsData%PMM end if if (allocated(SrcElOutParmsData%PITSAV)) then - LB(1:1) = lbound(SrcElOutParmsData%PITSAV) - UB(1:1) = ubound(SrcElOutParmsData%PITSAV) + LB(1:1) = lbound(SrcElOutParmsData%PITSAV, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%PITSAV, kind=B8Ki) if (.not. allocated(DstElOutParmsData%PITSAV)) then allocate(DstElOutParmsData%PITSAV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3983,8 +3983,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%PITSAV = SrcElOutParmsData%PITSAV end if if (allocated(SrcElOutParmsData%ReyNum)) then - LB(1:1) = lbound(SrcElOutParmsData%ReyNum) - UB(1:1) = ubound(SrcElOutParmsData%ReyNum) + LB(1:1) = lbound(SrcElOutParmsData%ReyNum, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%ReyNum, kind=B8Ki) if (.not. allocated(DstElOutParmsData%ReyNum)) then allocate(DstElOutParmsData%ReyNum(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3995,8 +3995,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%ReyNum = SrcElOutParmsData%ReyNum end if if (allocated(SrcElOutParmsData%Gamma)) then - LB(1:1) = lbound(SrcElOutParmsData%Gamma) - UB(1:1) = ubound(SrcElOutParmsData%Gamma) + LB(1:1) = lbound(SrcElOutParmsData%Gamma, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%Gamma, kind=B8Ki) if (.not. allocated(DstElOutParmsData%Gamma)) then allocate(DstElOutParmsData%Gamma(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4007,8 +4007,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%Gamma = SrcElOutParmsData%Gamma end if if (allocated(SrcElOutParmsData%SaveVX)) then - LB(1:2) = lbound(SrcElOutParmsData%SaveVX) - UB(1:2) = ubound(SrcElOutParmsData%SaveVX) + LB(1:2) = lbound(SrcElOutParmsData%SaveVX, kind=B8Ki) + UB(1:2) = ubound(SrcElOutParmsData%SaveVX, kind=B8Ki) if (.not. allocated(DstElOutParmsData%SaveVX)) then allocate(DstElOutParmsData%SaveVX(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4019,8 +4019,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%SaveVX = SrcElOutParmsData%SaveVX end if if (allocated(SrcElOutParmsData%SaveVY)) then - LB(1:2) = lbound(SrcElOutParmsData%SaveVY) - UB(1:2) = ubound(SrcElOutParmsData%SaveVY) + LB(1:2) = lbound(SrcElOutParmsData%SaveVY, kind=B8Ki) + UB(1:2) = ubound(SrcElOutParmsData%SaveVY, kind=B8Ki) if (.not. allocated(DstElOutParmsData%SaveVY)) then allocate(DstElOutParmsData%SaveVY(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4031,8 +4031,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%SaveVY = SrcElOutParmsData%SaveVY end if if (allocated(SrcElOutParmsData%SaveVZ)) then - LB(1:2) = lbound(SrcElOutParmsData%SaveVZ) - UB(1:2) = ubound(SrcElOutParmsData%SaveVZ) + LB(1:2) = lbound(SrcElOutParmsData%SaveVZ, kind=B8Ki) + UB(1:2) = ubound(SrcElOutParmsData%SaveVZ, kind=B8Ki) if (.not. allocated(DstElOutParmsData%SaveVZ)) then allocate(DstElOutParmsData%SaveVZ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4047,8 +4047,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%VZSAV = SrcElOutParmsData%VZSAV DstElOutParmsData%NumWndElOut = SrcElOutParmsData%NumWndElOut if (allocated(SrcElOutParmsData%WndElPrList)) then - LB(1:1) = lbound(SrcElOutParmsData%WndElPrList) - UB(1:1) = ubound(SrcElOutParmsData%WndElPrList) + LB(1:1) = lbound(SrcElOutParmsData%WndElPrList, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%WndElPrList, kind=B8Ki) if (.not. allocated(DstElOutParmsData%WndElPrList)) then allocate(DstElOutParmsData%WndElPrList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4059,8 +4059,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%WndElPrList = SrcElOutParmsData%WndElPrList end if if (allocated(SrcElOutParmsData%WndElPrNum)) then - LB(1:1) = lbound(SrcElOutParmsData%WndElPrNum) - UB(1:1) = ubound(SrcElOutParmsData%WndElPrNum) + LB(1:1) = lbound(SrcElOutParmsData%WndElPrNum, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%WndElPrNum, kind=B8Ki) if (.not. allocated(DstElOutParmsData%WndElPrNum)) then allocate(DstElOutParmsData%WndElPrNum(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4071,8 +4071,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%WndElPrNum = SrcElOutParmsData%WndElPrNum end if if (allocated(SrcElOutParmsData%ElPrList)) then - LB(1:1) = lbound(SrcElOutParmsData%ElPrList) - UB(1:1) = ubound(SrcElOutParmsData%ElPrList) + LB(1:1) = lbound(SrcElOutParmsData%ElPrList, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%ElPrList, kind=B8Ki) if (.not. allocated(DstElOutParmsData%ElPrList)) then allocate(DstElOutParmsData%ElPrList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4083,8 +4083,8 @@ subroutine AD14_CopyElOutParms(SrcElOutParmsData, DstElOutParmsData, CtrlCode, E DstElOutParmsData%ElPrList = SrcElOutParmsData%ElPrList end if if (allocated(SrcElOutParmsData%ElPrNum)) then - LB(1:1) = lbound(SrcElOutParmsData%ElPrNum) - UB(1:1) = ubound(SrcElOutParmsData%ElPrNum) + LB(1:1) = lbound(SrcElOutParmsData%ElPrNum, kind=B8Ki) + UB(1:1) = ubound(SrcElOutParmsData%ElPrNum, kind=B8Ki) if (.not. allocated(DstElOutParmsData%ElPrNum)) then allocate(DstElOutParmsData%ElPrNum(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4179,92 +4179,92 @@ subroutine AD14_PackElOutParms(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AAA)) if (allocated(InData%AAA)) then - call RegPackBounds(Buf, 1, lbound(InData%AAA), ubound(InData%AAA)) + call RegPackBounds(Buf, 1, lbound(InData%AAA, kind=B8Ki), ubound(InData%AAA, kind=B8Ki)) call RegPack(Buf, InData%AAA) end if call RegPack(Buf, allocated(InData%AAP)) if (allocated(InData%AAP)) then - call RegPackBounds(Buf, 1, lbound(InData%AAP), ubound(InData%AAP)) + call RegPackBounds(Buf, 1, lbound(InData%AAP, kind=B8Ki), ubound(InData%AAP, kind=B8Ki)) call RegPack(Buf, InData%AAP) end if call RegPack(Buf, allocated(InData%ALF)) if (allocated(InData%ALF)) then - call RegPackBounds(Buf, 1, lbound(InData%ALF), ubound(InData%ALF)) + call RegPackBounds(Buf, 1, lbound(InData%ALF, kind=B8Ki), ubound(InData%ALF, kind=B8Ki)) call RegPack(Buf, InData%ALF) end if call RegPack(Buf, allocated(InData%CDD)) if (allocated(InData%CDD)) then - call RegPackBounds(Buf, 1, lbound(InData%CDD), ubound(InData%CDD)) + call RegPackBounds(Buf, 1, lbound(InData%CDD, kind=B8Ki), ubound(InData%CDD, kind=B8Ki)) call RegPack(Buf, InData%CDD) end if call RegPack(Buf, allocated(InData%CLL)) if (allocated(InData%CLL)) then - call RegPackBounds(Buf, 1, lbound(InData%CLL), ubound(InData%CLL)) + call RegPackBounds(Buf, 1, lbound(InData%CLL, kind=B8Ki), ubound(InData%CLL, kind=B8Ki)) call RegPack(Buf, InData%CLL) end if call RegPack(Buf, allocated(InData%CMM)) if (allocated(InData%CMM)) then - call RegPackBounds(Buf, 1, lbound(InData%CMM), ubound(InData%CMM)) + call RegPackBounds(Buf, 1, lbound(InData%CMM, kind=B8Ki), ubound(InData%CMM, kind=B8Ki)) call RegPack(Buf, InData%CMM) end if call RegPack(Buf, allocated(InData%CNN)) if (allocated(InData%CNN)) then - call RegPackBounds(Buf, 1, lbound(InData%CNN), ubound(InData%CNN)) + call RegPackBounds(Buf, 1, lbound(InData%CNN, kind=B8Ki), ubound(InData%CNN, kind=B8Ki)) call RegPack(Buf, InData%CNN) end if call RegPack(Buf, allocated(InData%CTT)) if (allocated(InData%CTT)) then - call RegPackBounds(Buf, 1, lbound(InData%CTT), ubound(InData%CTT)) + call RegPackBounds(Buf, 1, lbound(InData%CTT, kind=B8Ki), ubound(InData%CTT, kind=B8Ki)) call RegPack(Buf, InData%CTT) end if call RegPack(Buf, allocated(InData%DFNSAV)) if (allocated(InData%DFNSAV)) then - call RegPackBounds(Buf, 1, lbound(InData%DFNSAV), ubound(InData%DFNSAV)) + call RegPackBounds(Buf, 1, lbound(InData%DFNSAV, kind=B8Ki), ubound(InData%DFNSAV, kind=B8Ki)) call RegPack(Buf, InData%DFNSAV) end if call RegPack(Buf, allocated(InData%DFTSAV)) if (allocated(InData%DFTSAV)) then - call RegPackBounds(Buf, 1, lbound(InData%DFTSAV), ubound(InData%DFTSAV)) + call RegPackBounds(Buf, 1, lbound(InData%DFTSAV, kind=B8Ki), ubound(InData%DFTSAV, kind=B8Ki)) call RegPack(Buf, InData%DFTSAV) end if call RegPack(Buf, allocated(InData%DynPres)) if (allocated(InData%DynPres)) then - call RegPackBounds(Buf, 1, lbound(InData%DynPres), ubound(InData%DynPres)) + call RegPackBounds(Buf, 1, lbound(InData%DynPres, kind=B8Ki), ubound(InData%DynPres, kind=B8Ki)) call RegPack(Buf, InData%DynPres) end if call RegPack(Buf, allocated(InData%PMM)) if (allocated(InData%PMM)) then - call RegPackBounds(Buf, 1, lbound(InData%PMM), ubound(InData%PMM)) + call RegPackBounds(Buf, 1, lbound(InData%PMM, kind=B8Ki), ubound(InData%PMM, kind=B8Ki)) call RegPack(Buf, InData%PMM) end if call RegPack(Buf, allocated(InData%PITSAV)) if (allocated(InData%PITSAV)) then - call RegPackBounds(Buf, 1, lbound(InData%PITSAV), ubound(InData%PITSAV)) + call RegPackBounds(Buf, 1, lbound(InData%PITSAV, kind=B8Ki), ubound(InData%PITSAV, kind=B8Ki)) call RegPack(Buf, InData%PITSAV) end if call RegPack(Buf, allocated(InData%ReyNum)) if (allocated(InData%ReyNum)) then - call RegPackBounds(Buf, 1, lbound(InData%ReyNum), ubound(InData%ReyNum)) + call RegPackBounds(Buf, 1, lbound(InData%ReyNum, kind=B8Ki), ubound(InData%ReyNum, kind=B8Ki)) call RegPack(Buf, InData%ReyNum) end if call RegPack(Buf, allocated(InData%Gamma)) if (allocated(InData%Gamma)) then - call RegPackBounds(Buf, 1, lbound(InData%Gamma), ubound(InData%Gamma)) + call RegPackBounds(Buf, 1, lbound(InData%Gamma, kind=B8Ki), ubound(InData%Gamma, kind=B8Ki)) call RegPack(Buf, InData%Gamma) end if call RegPack(Buf, allocated(InData%SaveVX)) if (allocated(InData%SaveVX)) then - call RegPackBounds(Buf, 2, lbound(InData%SaveVX), ubound(InData%SaveVX)) + call RegPackBounds(Buf, 2, lbound(InData%SaveVX, kind=B8Ki), ubound(InData%SaveVX, kind=B8Ki)) call RegPack(Buf, InData%SaveVX) end if call RegPack(Buf, allocated(InData%SaveVY)) if (allocated(InData%SaveVY)) then - call RegPackBounds(Buf, 2, lbound(InData%SaveVY), ubound(InData%SaveVY)) + call RegPackBounds(Buf, 2, lbound(InData%SaveVY, kind=B8Ki), ubound(InData%SaveVY, kind=B8Ki)) call RegPack(Buf, InData%SaveVY) end if call RegPack(Buf, allocated(InData%SaveVZ)) if (allocated(InData%SaveVZ)) then - call RegPackBounds(Buf, 2, lbound(InData%SaveVZ), ubound(InData%SaveVZ)) + call RegPackBounds(Buf, 2, lbound(InData%SaveVZ, kind=B8Ki), ubound(InData%SaveVZ, kind=B8Ki)) call RegPack(Buf, InData%SaveVZ) end if call RegPack(Buf, InData%VXSAV) @@ -4273,22 +4273,22 @@ subroutine AD14_PackElOutParms(Buf, Indata) call RegPack(Buf, InData%NumWndElOut) call RegPack(Buf, allocated(InData%WndElPrList)) if (allocated(InData%WndElPrList)) then - call RegPackBounds(Buf, 1, lbound(InData%WndElPrList), ubound(InData%WndElPrList)) + call RegPackBounds(Buf, 1, lbound(InData%WndElPrList, kind=B8Ki), ubound(InData%WndElPrList, kind=B8Ki)) call RegPack(Buf, InData%WndElPrList) end if call RegPack(Buf, allocated(InData%WndElPrNum)) if (allocated(InData%WndElPrNum)) then - call RegPackBounds(Buf, 1, lbound(InData%WndElPrNum), ubound(InData%WndElPrNum)) + call RegPackBounds(Buf, 1, lbound(InData%WndElPrNum, kind=B8Ki), ubound(InData%WndElPrNum, kind=B8Ki)) call RegPack(Buf, InData%WndElPrNum) end if call RegPack(Buf, allocated(InData%ElPrList)) if (allocated(InData%ElPrList)) then - call RegPackBounds(Buf, 1, lbound(InData%ElPrList), ubound(InData%ElPrList)) + call RegPackBounds(Buf, 1, lbound(InData%ElPrList, kind=B8Ki), ubound(InData%ElPrList, kind=B8Ki)) call RegPack(Buf, InData%ElPrList) end if call RegPack(Buf, allocated(InData%ElPrNum)) if (allocated(InData%ElPrNum)) then - call RegPackBounds(Buf, 1, lbound(InData%ElPrNum), ubound(InData%ElPrNum)) + call RegPackBounds(Buf, 1, lbound(InData%ElPrNum, kind=B8Ki), ubound(InData%ElPrNum, kind=B8Ki)) call RegPack(Buf, InData%ElPrNum) end if call RegPack(Buf, InData%NumElOut) @@ -4299,7 +4299,7 @@ subroutine AD14_UnPackElOutParms(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ElOutParms), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackElOutParms' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4841,14 +4841,14 @@ subroutine AD14_CopyTwrPropsParms(SrcTwrPropsParmsData, DstTwrPropsParmsData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD14_CopyTwrPropsParms' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcTwrPropsParmsData%TwrHtFr)) then - LB(1:1) = lbound(SrcTwrPropsParmsData%TwrHtFr) - UB(1:1) = ubound(SrcTwrPropsParmsData%TwrHtFr) + LB(1:1) = lbound(SrcTwrPropsParmsData%TwrHtFr, kind=B8Ki) + UB(1:1) = ubound(SrcTwrPropsParmsData%TwrHtFr, kind=B8Ki) if (.not. allocated(DstTwrPropsParmsData%TwrHtFr)) then allocate(DstTwrPropsParmsData%TwrHtFr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4859,8 +4859,8 @@ subroutine AD14_CopyTwrPropsParms(SrcTwrPropsParmsData, DstTwrPropsParmsData, Ct DstTwrPropsParmsData%TwrHtFr = SrcTwrPropsParmsData%TwrHtFr end if if (allocated(SrcTwrPropsParmsData%TwrWid)) then - LB(1:1) = lbound(SrcTwrPropsParmsData%TwrWid) - UB(1:1) = ubound(SrcTwrPropsParmsData%TwrWid) + LB(1:1) = lbound(SrcTwrPropsParmsData%TwrWid, kind=B8Ki) + UB(1:1) = ubound(SrcTwrPropsParmsData%TwrWid, kind=B8Ki) if (.not. allocated(DstTwrPropsParmsData%TwrWid)) then allocate(DstTwrPropsParmsData%TwrWid(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4871,8 +4871,8 @@ subroutine AD14_CopyTwrPropsParms(SrcTwrPropsParmsData, DstTwrPropsParmsData, Ct DstTwrPropsParmsData%TwrWid = SrcTwrPropsParmsData%TwrWid end if if (allocated(SrcTwrPropsParmsData%TwrCD)) then - LB(1:2) = lbound(SrcTwrPropsParmsData%TwrCD) - UB(1:2) = ubound(SrcTwrPropsParmsData%TwrCD) + LB(1:2) = lbound(SrcTwrPropsParmsData%TwrCD, kind=B8Ki) + UB(1:2) = ubound(SrcTwrPropsParmsData%TwrCD, kind=B8Ki) if (.not. allocated(DstTwrPropsParmsData%TwrCD)) then allocate(DstTwrPropsParmsData%TwrCD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4883,8 +4883,8 @@ subroutine AD14_CopyTwrPropsParms(SrcTwrPropsParmsData, DstTwrPropsParmsData, Ct DstTwrPropsParmsData%TwrCD = SrcTwrPropsParmsData%TwrCD end if if (allocated(SrcTwrPropsParmsData%TwrRe)) then - LB(1:1) = lbound(SrcTwrPropsParmsData%TwrRe) - UB(1:1) = ubound(SrcTwrPropsParmsData%TwrRe) + LB(1:1) = lbound(SrcTwrPropsParmsData%TwrRe, kind=B8Ki) + UB(1:1) = ubound(SrcTwrPropsParmsData%TwrRe, kind=B8Ki) if (.not. allocated(DstTwrPropsParmsData%TwrRe)) then allocate(DstTwrPropsParmsData%TwrRe(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4897,8 +4897,8 @@ subroutine AD14_CopyTwrPropsParms(SrcTwrPropsParmsData, DstTwrPropsParmsData, Ct DstTwrPropsParmsData%VTwr = SrcTwrPropsParmsData%VTwr DstTwrPropsParmsData%Tower_Wake_Constant = SrcTwrPropsParmsData%Tower_Wake_Constant if (allocated(SrcTwrPropsParmsData%NTwrCDCol)) then - LB(1:1) = lbound(SrcTwrPropsParmsData%NTwrCDCol) - UB(1:1) = ubound(SrcTwrPropsParmsData%NTwrCDCol) + LB(1:1) = lbound(SrcTwrPropsParmsData%NTwrCDCol, kind=B8Ki) + UB(1:1) = ubound(SrcTwrPropsParmsData%NTwrCDCol, kind=B8Ki) if (.not. allocated(DstTwrPropsParmsData%NTwrCDCol)) then allocate(DstTwrPropsParmsData%NTwrCDCol(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4923,8 +4923,8 @@ subroutine AD14_CopyTwrPropsParms(SrcTwrPropsParmsData, DstTwrPropsParmsData, Ct DstTwrPropsParmsData%CalcTwrAero = SrcTwrPropsParmsData%CalcTwrAero DstTwrPropsParmsData%NumTwrNodes = SrcTwrPropsParmsData%NumTwrNodes if (allocated(SrcTwrPropsParmsData%TwrNodeWidth)) then - LB(1:1) = lbound(SrcTwrPropsParmsData%TwrNodeWidth) - UB(1:1) = ubound(SrcTwrPropsParmsData%TwrNodeWidth) + LB(1:1) = lbound(SrcTwrPropsParmsData%TwrNodeWidth, kind=B8Ki) + UB(1:1) = ubound(SrcTwrPropsParmsData%TwrNodeWidth, kind=B8Ki) if (.not. allocated(DstTwrPropsParmsData%TwrNodeWidth)) then allocate(DstTwrPropsParmsData%TwrNodeWidth(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4970,29 +4970,29 @@ subroutine AD14_PackTwrPropsParms(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%TwrHtFr)) if (allocated(InData%TwrHtFr)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrHtFr), ubound(InData%TwrHtFr)) + call RegPackBounds(Buf, 1, lbound(InData%TwrHtFr, kind=B8Ki), ubound(InData%TwrHtFr, kind=B8Ki)) call RegPack(Buf, InData%TwrHtFr) end if call RegPack(Buf, allocated(InData%TwrWid)) if (allocated(InData%TwrWid)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrWid), ubound(InData%TwrWid)) + call RegPackBounds(Buf, 1, lbound(InData%TwrWid, kind=B8Ki), ubound(InData%TwrWid, kind=B8Ki)) call RegPack(Buf, InData%TwrWid) end if call RegPack(Buf, allocated(InData%TwrCD)) if (allocated(InData%TwrCD)) then - call RegPackBounds(Buf, 2, lbound(InData%TwrCD), ubound(InData%TwrCD)) + call RegPackBounds(Buf, 2, lbound(InData%TwrCD, kind=B8Ki), ubound(InData%TwrCD, kind=B8Ki)) call RegPack(Buf, InData%TwrCD) end if call RegPack(Buf, allocated(InData%TwrRe)) if (allocated(InData%TwrRe)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrRe), ubound(InData%TwrRe)) + call RegPackBounds(Buf, 1, lbound(InData%TwrRe, kind=B8Ki), ubound(InData%TwrRe, kind=B8Ki)) call RegPack(Buf, InData%TwrRe) end if call RegPack(Buf, InData%VTwr) call RegPack(Buf, InData%Tower_Wake_Constant) call RegPack(Buf, allocated(InData%NTwrCDCol)) if (allocated(InData%NTwrCDCol)) then - call RegPackBounds(Buf, 1, lbound(InData%NTwrCDCol), ubound(InData%NTwrCDCol)) + call RegPackBounds(Buf, 1, lbound(InData%NTwrCDCol, kind=B8Ki), ubound(InData%NTwrCDCol, kind=B8Ki)) call RegPack(Buf, InData%NTwrCDCol) end if call RegPack(Buf, InData%NTwrHT) @@ -5011,7 +5011,7 @@ subroutine AD14_PackTwrPropsParms(Buf, Indata) call RegPack(Buf, InData%NumTwrNodes) call RegPack(Buf, allocated(InData%TwrNodeWidth)) if (allocated(InData%TwrNodeWidth)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrNodeWidth), ubound(InData%TwrNodeWidth)) + call RegPackBounds(Buf, 1, lbound(InData%TwrNodeWidth, kind=B8Ki), ubound(InData%TwrNodeWidth, kind=B8Ki)) call RegPack(Buf, InData%TwrNodeWidth) end if if (RegCheckErr(Buf, RoutineName)) return @@ -5021,7 +5021,7 @@ subroutine AD14_UnPackTwrPropsParms(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(TwrPropsParms), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackTwrPropsParms' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5329,7 +5329,7 @@ subroutine AD14_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_CopyInitInput' @@ -5348,8 +5348,8 @@ subroutine AD14_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS if (ErrStat >= AbortErrLev) return DstInitInputData%NumTwrNodes = SrcInitInputData%NumTwrNodes if (allocated(SrcInitInputData%TwrNodeLocs)) then - LB(1:2) = lbound(SrcInitInputData%TwrNodeLocs) - UB(1:2) = ubound(SrcInitInputData%TwrNodeLocs) + LB(1:2) = lbound(SrcInitInputData%TwrNodeLocs, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%TwrNodeLocs, kind=B8Ki) if (.not. allocated(DstInitInputData%TwrNodeLocs)) then allocate(DstInitInputData%TwrNodeLocs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5400,7 +5400,7 @@ subroutine AD14_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NumTwrNodes) call RegPack(Buf, allocated(InData%TwrNodeLocs)) if (allocated(InData%TwrNodeLocs)) then - call RegPackBounds(Buf, 2, lbound(InData%TwrNodeLocs), ubound(InData%TwrNodeLocs)) + call RegPackBounds(Buf, 2, lbound(InData%TwrNodeLocs, kind=B8Ki), ubound(InData%TwrNodeLocs, kind=B8Ki)) call RegPack(Buf, InData%TwrNodeLocs) end if call RegPack(Buf, InData%HubHt) @@ -5412,7 +5412,7 @@ subroutine AD14_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD14_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackInitInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5701,7 +5701,7 @@ subroutine AD14_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_CopyMisc' @@ -5718,8 +5718,8 @@ subroutine AD14_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) if (ErrStat >= AbortErrLev) return DstMiscData%DT = SrcMiscData%DT if (allocated(SrcMiscData%ElPrNum)) then - LB(1:1) = lbound(SrcMiscData%ElPrNum) - UB(1:1) = ubound(SrcMiscData%ElPrNum) + LB(1:1) = lbound(SrcMiscData%ElPrNum, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%ElPrNum, kind=B8Ki) if (.not. allocated(DstMiscData%ElPrNum)) then allocate(DstMiscData%ElPrNum(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5769,8 +5769,8 @@ subroutine AD14_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DynInit = SrcMiscData%DynInit DstMiscData%FirstWarn = SrcMiscData%FirstWarn if (allocated(SrcMiscData%StoredForces)) then - LB(1:3) = lbound(SrcMiscData%StoredForces) - UB(1:3) = ubound(SrcMiscData%StoredForces) + LB(1:3) = lbound(SrcMiscData%StoredForces, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%StoredForces, kind=B8Ki) if (.not. allocated(DstMiscData%StoredForces)) then allocate(DstMiscData%StoredForces(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5781,8 +5781,8 @@ subroutine AD14_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%StoredForces = SrcMiscData%StoredForces end if if (allocated(SrcMiscData%StoredMoments)) then - LB(1:3) = lbound(SrcMiscData%StoredMoments) - UB(1:3) = ubound(SrcMiscData%StoredMoments) + LB(1:3) = lbound(SrcMiscData%StoredMoments, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%StoredMoments, kind=B8Ki) if (.not. allocated(DstMiscData%StoredMoments)) then allocate(DstMiscData%StoredMoments(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5847,7 +5847,7 @@ subroutine AD14_PackMisc(Buf, Indata) call RegPack(Buf, InData%DT) call RegPack(Buf, allocated(InData%ElPrNum)) if (allocated(InData%ElPrNum)) then - call RegPackBounds(Buf, 1, lbound(InData%ElPrNum), ubound(InData%ElPrNum)) + call RegPackBounds(Buf, 1, lbound(InData%ElPrNum, kind=B8Ki), ubound(InData%ElPrNum, kind=B8Ki)) call RegPack(Buf, InData%ElPrNum) end if call RegPack(Buf, InData%OldTime) @@ -5875,12 +5875,12 @@ subroutine AD14_PackMisc(Buf, Indata) call RegPack(Buf, InData%FirstWarn) call RegPack(Buf, allocated(InData%StoredForces)) if (allocated(InData%StoredForces)) then - call RegPackBounds(Buf, 3, lbound(InData%StoredForces), ubound(InData%StoredForces)) + call RegPackBounds(Buf, 3, lbound(InData%StoredForces, kind=B8Ki), ubound(InData%StoredForces, kind=B8Ki)) call RegPack(Buf, InData%StoredForces) end if call RegPack(Buf, allocated(InData%StoredMoments)) if (allocated(InData%StoredMoments)) then - call RegPackBounds(Buf, 3, lbound(InData%StoredMoments), ubound(InData%StoredMoments)) + call RegPackBounds(Buf, 3, lbound(InData%StoredMoments, kind=B8Ki), ubound(InData%StoredMoments, kind=B8Ki)) call RegPack(Buf, InData%StoredMoments) end if if (RegCheckErr(Buf, RoutineName)) return @@ -5890,7 +5890,7 @@ subroutine AD14_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD14_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackMisc' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6196,16 +6196,16 @@ subroutine AD14_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%InputMarkers)) then - LB(1:1) = lbound(SrcInputData%InputMarkers) - UB(1:1) = ubound(SrcInputData%InputMarkers) + LB(1:1) = lbound(SrcInputData%InputMarkers, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%InputMarkers, kind=B8Ki) if (.not. allocated(DstInputData%InputMarkers)) then allocate(DstInputData%InputMarkers(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6226,8 +6226,8 @@ subroutine AD14_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInputData%MulTabLoc)) then - LB(1:2) = lbound(SrcInputData%MulTabLoc) - UB(1:2) = ubound(SrcInputData%MulTabLoc) + LB(1:2) = lbound(SrcInputData%MulTabLoc, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%MulTabLoc, kind=B8Ki) if (.not. allocated(DstInputData%MulTabLoc)) then allocate(DstInputData%MulTabLoc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6238,8 +6238,8 @@ subroutine AD14_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%MulTabLoc = SrcInputData%MulTabLoc end if if (allocated(SrcInputData%InflowVelocity)) then - LB(1:2) = lbound(SrcInputData%InflowVelocity) - UB(1:2) = ubound(SrcInputData%InflowVelocity) + LB(1:2) = lbound(SrcInputData%InflowVelocity, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%InflowVelocity, kind=B8Ki) if (.not. allocated(DstInputData%InflowVelocity)) then allocate(DstInputData%InflowVelocity(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6256,16 +6256,16 @@ subroutine AD14_DestroyInput(InputData, ErrStat, ErrMsg) type(AD14_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%InputMarkers)) then - LB(1:1) = lbound(InputData%InputMarkers) - UB(1:1) = ubound(InputData%InputMarkers) + LB(1:1) = lbound(InputData%InputMarkers, kind=B8Ki) + UB(1:1) = ubound(InputData%InputMarkers, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%InputMarkers(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6288,14 +6288,14 @@ subroutine AD14_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD14_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD14_PackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%InputMarkers)) if (allocated(InData%InputMarkers)) then - call RegPackBounds(Buf, 1, lbound(InData%InputMarkers), ubound(InData%InputMarkers)) - LB(1:1) = lbound(InData%InputMarkers) - UB(1:1) = ubound(InData%InputMarkers) + call RegPackBounds(Buf, 1, lbound(InData%InputMarkers, kind=B8Ki), ubound(InData%InputMarkers, kind=B8Ki)) + LB(1:1) = lbound(InData%InputMarkers, kind=B8Ki) + UB(1:1) = ubound(InData%InputMarkers, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%InputMarkers(i1)) end do @@ -6304,12 +6304,12 @@ subroutine AD14_PackInput(Buf, Indata) call AD14_PackAeroConfig(Buf, InData%TurbineComponents) call RegPack(Buf, allocated(InData%MulTabLoc)) if (allocated(InData%MulTabLoc)) then - call RegPackBounds(Buf, 2, lbound(InData%MulTabLoc), ubound(InData%MulTabLoc)) + call RegPackBounds(Buf, 2, lbound(InData%MulTabLoc, kind=B8Ki), ubound(InData%MulTabLoc, kind=B8Ki)) call RegPack(Buf, InData%MulTabLoc) end if call RegPack(Buf, allocated(InData%InflowVelocity)) if (allocated(InData%InflowVelocity)) then - call RegPackBounds(Buf, 2, lbound(InData%InflowVelocity), ubound(InData%InflowVelocity)) + call RegPackBounds(Buf, 2, lbound(InData%InflowVelocity, kind=B8Ki), ubound(InData%InflowVelocity, kind=B8Ki)) call RegPack(Buf, InData%InflowVelocity) end if call RegPack(Buf, InData%AvgInfVel) @@ -6320,8 +6320,8 @@ subroutine AD14_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD14_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6380,16 +6380,16 @@ subroutine AD14_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%OutputLoads)) then - LB(1:1) = lbound(SrcOutputData%OutputLoads) - UB(1:1) = ubound(SrcOutputData%OutputLoads) + LB(1:1) = lbound(SrcOutputData%OutputLoads, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%OutputLoads, kind=B8Ki) if (.not. allocated(DstOutputData%OutputLoads)) then allocate(DstOutputData%OutputLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6412,16 +6412,16 @@ subroutine AD14_DestroyOutput(OutputData, ErrStat, ErrMsg) type(AD14_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD14_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%OutputLoads)) then - LB(1:1) = lbound(OutputData%OutputLoads) - UB(1:1) = ubound(OutputData%OutputLoads) + LB(1:1) = lbound(OutputData%OutputLoads, kind=B8Ki) + UB(1:1) = ubound(OutputData%OutputLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%OutputLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6436,14 +6436,14 @@ subroutine AD14_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AD14_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD14_PackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%OutputLoads)) if (allocated(InData%OutputLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%OutputLoads), ubound(InData%OutputLoads)) - LB(1:1) = lbound(InData%OutputLoads) - UB(1:1) = ubound(InData%OutputLoads) + call RegPackBounds(Buf, 1, lbound(InData%OutputLoads, kind=B8Ki), ubound(InData%OutputLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%OutputLoads, kind=B8Ki) + UB(1:1) = ubound(InData%OutputLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%OutputLoads(i1)) end do @@ -6456,8 +6456,8 @@ subroutine AD14_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AD14_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD14_UnPackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6581,7 +6581,7 @@ SUBROUTINE AD14_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(u_out%InputMarkers) .AND. ALLOCATED(u1%InputMarkers)) THEN - DO i1 = LBOUND(u_out%InputMarkers,1),UBOUND(u_out%InputMarkers,1) + DO i1 = LBOUND(u_out%InputMarkers,1, kind=B8Ki),UBOUND(u_out%InputMarkers,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%InputMarkers(i1), u2%InputMarkers(i1), tin, u_out%InputMarkers(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -6589,16 +6589,16 @@ SUBROUTINE AD14_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg CALL MeshExtrapInterp1(u1%Twr_InputMarkers, u2%Twr_InputMarkers, tin, u_out%Twr_InputMarkers, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(u_out%TurbineComponents%Blade) .AND. ALLOCATED(u1%TurbineComponents%Blade)) THEN - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%Position = a1*u1%TurbineComponents%Blade(i11)%Position + a2*u2%TurbineComponents%Blade(i11)%Position END DO - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%Orientation = a1*u1%TurbineComponents%Blade(i11)%Orientation + a2*u2%TurbineComponents%Blade(i11)%Orientation END DO - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%TranslationVel = a1*u1%TurbineComponents%Blade(i11)%TranslationVel + a2*u2%TurbineComponents%Blade(i11)%TranslationVel END DO - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%RotationVel = a1*u1%TurbineComponents%Blade(i11)%RotationVel + a2*u2%TurbineComponents%Blade(i11)%RotationVel END DO END IF ! check if allocated @@ -6700,7 +6700,7 @@ SUBROUTINE AD14_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Er a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%InputMarkers) .AND. ALLOCATED(u1%InputMarkers)) THEN - DO i1 = LBOUND(u_out%InputMarkers,1),UBOUND(u_out%InputMarkers,1) + DO i1 = LBOUND(u_out%InputMarkers,1, kind=B8Ki),UBOUND(u_out%InputMarkers,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%InputMarkers(i1), u2%InputMarkers(i1), u3%InputMarkers(i1), tin, u_out%InputMarkers(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -6708,16 +6708,16 @@ SUBROUTINE AD14_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Er CALL MeshExtrapInterp2(u1%Twr_InputMarkers, u2%Twr_InputMarkers, u3%Twr_InputMarkers, tin, u_out%Twr_InputMarkers, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(u_out%TurbineComponents%Blade) .AND. ALLOCATED(u1%TurbineComponents%Blade)) THEN - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%Position = a1*u1%TurbineComponents%Blade(i11)%Position + a2*u2%TurbineComponents%Blade(i11)%Position + a3*u3%TurbineComponents%Blade(i11)%Position END DO - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%Orientation = a1*u1%TurbineComponents%Blade(i11)%Orientation + a2*u2%TurbineComponents%Blade(i11)%Orientation + a3*u3%TurbineComponents%Blade(i11)%Orientation END DO - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%TranslationVel = a1*u1%TurbineComponents%Blade(i11)%TranslationVel + a2*u2%TurbineComponents%Blade(i11)%TranslationVel + a3*u3%TurbineComponents%Blade(i11)%TranslationVel END DO - DO i11 = LBOUND(u_out%TurbineComponents%Blade,1),UBOUND(u_out%TurbineComponents%Blade,1) + DO i11 = LBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki),UBOUND(u_out%TurbineComponents%Blade,1, kind=B8Ki) u_out%TurbineComponents%Blade(i11)%RotationVel = a1*u1%TurbineComponents%Blade(i11)%RotationVel + a2*u2%TurbineComponents%Blade(i11)%RotationVel + a3*u3%TurbineComponents%Blade(i11)%RotationVel END DO END IF ! check if allocated @@ -6857,7 +6857,7 @@ SUBROUTINE AD14_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMs a2 = t_out/t(2) IF (ALLOCATED(y_out%OutputLoads) .AND. ALLOCATED(y1%OutputLoads)) THEN - DO i1 = LBOUND(y_out%OutputLoads,1),UBOUND(y_out%OutputLoads,1) + DO i1 = LBOUND(y_out%OutputLoads,1, kind=B8Ki),UBOUND(y_out%OutputLoads,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%OutputLoads(i1), y2%OutputLoads(i1), tin, y_out%OutputLoads(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -6922,7 +6922,7 @@ SUBROUTINE AD14_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, E a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%OutputLoads) .AND. ALLOCATED(y1%OutputLoads)) THEN - DO i1 = LBOUND(y_out%OutputLoads,1),UBOUND(y_out%OutputLoads,1) + DO i1 = LBOUND(y_out%OutputLoads,1, kind=B8Ki),UBOUND(y_out%OutputLoads,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%OutputLoads(i1), y2%OutputLoads(i1), y3%OutputLoads(i1), tin, y_out%OutputLoads(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO diff --git a/modules/aerodyn14/src/DWM_Types.f90 b/modules/aerodyn14/src/DWM_Types.f90 index 1e9b95f7ed..c9756e1f5b 100644 --- a/modules/aerodyn14/src/DWM_Types.f90 +++ b/modules/aerodyn14/src/DWM_Types.f90 @@ -380,14 +380,14 @@ subroutine DWM_Copyturbine_average_velocity_data(Srcturbine_average_velocity_dat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_Copyturbine_average_velocity_data' ErrStat = ErrID_None ErrMsg = '' if (allocated(Srcturbine_average_velocity_dataData%average_velocity_array_temp)) then - LB(1:1) = lbound(Srcturbine_average_velocity_dataData%average_velocity_array_temp) - UB(1:1) = ubound(Srcturbine_average_velocity_dataData%average_velocity_array_temp) + LB(1:1) = lbound(Srcturbine_average_velocity_dataData%average_velocity_array_temp, kind=B8Ki) + UB(1:1) = ubound(Srcturbine_average_velocity_dataData%average_velocity_array_temp, kind=B8Ki) if (.not. allocated(Dstturbine_average_velocity_dataData%average_velocity_array_temp)) then allocate(Dstturbine_average_velocity_dataData%average_velocity_array_temp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -398,8 +398,8 @@ subroutine DWM_Copyturbine_average_velocity_data(Srcturbine_average_velocity_dat Dstturbine_average_velocity_dataData%average_velocity_array_temp = Srcturbine_average_velocity_dataData%average_velocity_array_temp end if if (allocated(Srcturbine_average_velocity_dataData%average_velocity_array)) then - LB(1:1) = lbound(Srcturbine_average_velocity_dataData%average_velocity_array) - UB(1:1) = ubound(Srcturbine_average_velocity_dataData%average_velocity_array) + LB(1:1) = lbound(Srcturbine_average_velocity_dataData%average_velocity_array, kind=B8Ki) + UB(1:1) = ubound(Srcturbine_average_velocity_dataData%average_velocity_array, kind=B8Ki) if (.not. allocated(Dstturbine_average_velocity_dataData%average_velocity_array)) then allocate(Dstturbine_average_velocity_dataData%average_velocity_array(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -410,8 +410,8 @@ subroutine DWM_Copyturbine_average_velocity_data(Srcturbine_average_velocity_dat Dstturbine_average_velocity_dataData%average_velocity_array = Srcturbine_average_velocity_dataData%average_velocity_array end if if (allocated(Srcturbine_average_velocity_dataData%swept_area)) then - LB(1:1) = lbound(Srcturbine_average_velocity_dataData%swept_area) - UB(1:1) = ubound(Srcturbine_average_velocity_dataData%swept_area) + LB(1:1) = lbound(Srcturbine_average_velocity_dataData%swept_area, kind=B8Ki) + UB(1:1) = ubound(Srcturbine_average_velocity_dataData%swept_area, kind=B8Ki) if (.not. allocated(Dstturbine_average_velocity_dataData%swept_area)) then allocate(Dstturbine_average_velocity_dataData%swept_area(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -423,8 +423,8 @@ subroutine DWM_Copyturbine_average_velocity_data(Srcturbine_average_velocity_dat end if Dstturbine_average_velocity_dataData%time_step_velocity = Srcturbine_average_velocity_dataData%time_step_velocity if (allocated(Srcturbine_average_velocity_dataData%time_step_velocity_array)) then - LB(1:1) = lbound(Srcturbine_average_velocity_dataData%time_step_velocity_array) - UB(1:1) = ubound(Srcturbine_average_velocity_dataData%time_step_velocity_array) + LB(1:1) = lbound(Srcturbine_average_velocity_dataData%time_step_velocity_array, kind=B8Ki) + UB(1:1) = ubound(Srcturbine_average_velocity_dataData%time_step_velocity_array, kind=B8Ki) if (.not. allocated(Dstturbine_average_velocity_dataData%time_step_velocity_array)) then allocate(Dstturbine_average_velocity_dataData%time_step_velocity_array(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -466,23 +466,23 @@ subroutine DWM_Packturbine_average_velocity_data(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%average_velocity_array_temp)) if (allocated(InData%average_velocity_array_temp)) then - call RegPackBounds(Buf, 1, lbound(InData%average_velocity_array_temp), ubound(InData%average_velocity_array_temp)) + call RegPackBounds(Buf, 1, lbound(InData%average_velocity_array_temp, kind=B8Ki), ubound(InData%average_velocity_array_temp, kind=B8Ki)) call RegPack(Buf, InData%average_velocity_array_temp) end if call RegPack(Buf, allocated(InData%average_velocity_array)) if (allocated(InData%average_velocity_array)) then - call RegPackBounds(Buf, 1, lbound(InData%average_velocity_array), ubound(InData%average_velocity_array)) + call RegPackBounds(Buf, 1, lbound(InData%average_velocity_array, kind=B8Ki), ubound(InData%average_velocity_array, kind=B8Ki)) call RegPack(Buf, InData%average_velocity_array) end if call RegPack(Buf, allocated(InData%swept_area)) if (allocated(InData%swept_area)) then - call RegPackBounds(Buf, 1, lbound(InData%swept_area), ubound(InData%swept_area)) + call RegPackBounds(Buf, 1, lbound(InData%swept_area, kind=B8Ki), ubound(InData%swept_area, kind=B8Ki)) call RegPack(Buf, InData%swept_area) end if call RegPack(Buf, InData%time_step_velocity) call RegPack(Buf, allocated(InData%time_step_velocity_array)) if (allocated(InData%time_step_velocity_array)) then - call RegPackBounds(Buf, 1, lbound(InData%time_step_velocity_array), ubound(InData%time_step_velocity_array)) + call RegPackBounds(Buf, 1, lbound(InData%time_step_velocity_array, kind=B8Ki), ubound(InData%time_step_velocity_array, kind=B8Ki)) call RegPack(Buf, InData%time_step_velocity_array) end if call RegPack(Buf, InData%time_step_pass_velocity) @@ -494,7 +494,7 @@ subroutine DWM_UnPackturbine_average_velocity_data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(turbine_average_velocity_data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackturbine_average_velocity_data' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -568,7 +568,7 @@ subroutine DWM_CopyWake_Deficit_Data(SrcWake_Deficit_DataData, DstWake_Deficit_D integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_CopyWake_Deficit_Data' ErrStat = ErrID_None @@ -576,8 +576,8 @@ subroutine DWM_CopyWake_Deficit_Data(SrcWake_Deficit_DataData, DstWake_Deficit_D DstWake_Deficit_DataData%np_x = SrcWake_Deficit_DataData%np_x DstWake_Deficit_DataData%X_length = SrcWake_Deficit_DataData%X_length if (allocated(SrcWake_Deficit_DataData%Turb_Stress_DWM)) then - LB(1:2) = lbound(SrcWake_Deficit_DataData%Turb_Stress_DWM) - UB(1:2) = ubound(SrcWake_Deficit_DataData%Turb_Stress_DWM) + LB(1:2) = lbound(SrcWake_Deficit_DataData%Turb_Stress_DWM, kind=B8Ki) + UB(1:2) = ubound(SrcWake_Deficit_DataData%Turb_Stress_DWM, kind=B8Ki) if (.not. allocated(DstWake_Deficit_DataData%Turb_Stress_DWM)) then allocate(DstWake_Deficit_DataData%Turb_Stress_DWM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -613,7 +613,7 @@ subroutine DWM_PackWake_Deficit_Data(Buf, Indata) call RegPack(Buf, InData%X_length) call RegPack(Buf, allocated(InData%Turb_Stress_DWM)) if (allocated(InData%Turb_Stress_DWM)) then - call RegPackBounds(Buf, 2, lbound(InData%Turb_Stress_DWM), ubound(InData%Turb_Stress_DWM)) + call RegPackBounds(Buf, 2, lbound(InData%Turb_Stress_DWM, kind=B8Ki), ubound(InData%Turb_Stress_DWM, kind=B8Ki)) call RegPack(Buf, InData%Turb_Stress_DWM) end if call RegPack(Buf, InData%n_x_vector) @@ -626,7 +626,7 @@ subroutine DWM_UnPackWake_Deficit_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DWM_Wake_Deficit_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackWake_Deficit_Data' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -705,15 +705,15 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_Copyread_turbine_position_data' ErrStat = ErrID_None ErrMsg = '' Dstread_turbine_position_dataData%SimulationOrder_index = Srcread_turbine_position_dataData%SimulationOrder_index if (allocated(Srcread_turbine_position_dataData%Turbine_sort_order)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%Turbine_sort_order) - UB(1:1) = ubound(Srcread_turbine_position_dataData%Turbine_sort_order) + LB(1:1) = lbound(Srcread_turbine_position_dataData%Turbine_sort_order, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%Turbine_sort_order, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%Turbine_sort_order)) then allocate(Dstread_turbine_position_dataData%Turbine_sort_order(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -725,8 +725,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, end if Dstread_turbine_position_dataData%WT_index = Srcread_turbine_position_dataData%WT_index if (allocated(Srcread_turbine_position_dataData%TurbineInfluenceData)) then - LB(1:2) = lbound(Srcread_turbine_position_dataData%TurbineInfluenceData) - UB(1:2) = ubound(Srcread_turbine_position_dataData%TurbineInfluenceData) + LB(1:2) = lbound(Srcread_turbine_position_dataData%TurbineInfluenceData, kind=B8Ki) + UB(1:2) = ubound(Srcread_turbine_position_dataData%TurbineInfluenceData, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%TurbineInfluenceData)) then allocate(Dstread_turbine_position_dataData%TurbineInfluenceData(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -737,8 +737,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%TurbineInfluenceData = Srcread_turbine_position_dataData%TurbineInfluenceData end if if (allocated(Srcread_turbine_position_dataData%upwind_turbine_index)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_index) - UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_index) + LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_index, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_index, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%upwind_turbine_index)) then allocate(Dstread_turbine_position_dataData%upwind_turbine_index(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -749,8 +749,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%upwind_turbine_index = Srcread_turbine_position_dataData%upwind_turbine_index end if if (allocated(Srcread_turbine_position_dataData%downwind_turbine_index)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_index) - UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_index) + LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_index, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_index, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%downwind_turbine_index)) then allocate(Dstread_turbine_position_dataData%downwind_turbine_index(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -763,8 +763,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%upwindturbine_number = Srcread_turbine_position_dataData%upwindturbine_number Dstread_turbine_position_dataData%downwindturbine_number = Srcread_turbine_position_dataData%downwindturbine_number if (allocated(Srcread_turbine_position_dataData%turbine_windorigin_length)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%turbine_windorigin_length) - UB(1:1) = ubound(Srcread_turbine_position_dataData%turbine_windorigin_length) + LB(1:1) = lbound(Srcread_turbine_position_dataData%turbine_windorigin_length, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%turbine_windorigin_length, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%turbine_windorigin_length)) then allocate(Dstread_turbine_position_dataData%turbine_windorigin_length(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -775,8 +775,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%turbine_windorigin_length = Srcread_turbine_position_dataData%turbine_windorigin_length end if if (allocated(Srcread_turbine_position_dataData%upwind_turbine_projected_distance)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_projected_distance) - UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_projected_distance) + LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_projected_distance, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_projected_distance, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%upwind_turbine_projected_distance)) then allocate(Dstread_turbine_position_dataData%upwind_turbine_projected_distance(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -787,8 +787,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%upwind_turbine_projected_distance = Srcread_turbine_position_dataData%upwind_turbine_projected_distance end if if (allocated(Srcread_turbine_position_dataData%downwind_turbine_projected_distance)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_projected_distance) - UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_projected_distance) + LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_projected_distance, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_projected_distance, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%downwind_turbine_projected_distance)) then allocate(Dstread_turbine_position_dataData%downwind_turbine_projected_distance(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -799,8 +799,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%downwind_turbine_projected_distance = Srcread_turbine_position_dataData%downwind_turbine_projected_distance end if if (allocated(Srcread_turbine_position_dataData%turbine_angle)) then - LB(1:2) = lbound(Srcread_turbine_position_dataData%turbine_angle) - UB(1:2) = ubound(Srcread_turbine_position_dataData%turbine_angle) + LB(1:2) = lbound(Srcread_turbine_position_dataData%turbine_angle, kind=B8Ki) + UB(1:2) = ubound(Srcread_turbine_position_dataData%turbine_angle, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%turbine_angle)) then allocate(Dstread_turbine_position_dataData%turbine_angle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -811,8 +811,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%turbine_angle = Srcread_turbine_position_dataData%turbine_angle end if if (allocated(Srcread_turbine_position_dataData%upwind_align_angle)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_align_angle) - UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_align_angle) + LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_align_angle, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_align_angle, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%upwind_align_angle)) then allocate(Dstread_turbine_position_dataData%upwind_align_angle(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -823,8 +823,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%upwind_align_angle = Srcread_turbine_position_dataData%upwind_align_angle end if if (allocated(Srcread_turbine_position_dataData%downwind_align_angle)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_align_angle) - UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_align_angle) + LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_align_angle, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_align_angle, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%downwind_align_angle)) then allocate(Dstread_turbine_position_dataData%downwind_align_angle(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -835,8 +835,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%downwind_align_angle = Srcread_turbine_position_dataData%downwind_align_angle end if if (allocated(Srcread_turbine_position_dataData%upwind_turbine_Xcoor)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_Xcoor) - UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_Xcoor) + LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_Xcoor, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_Xcoor, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%upwind_turbine_Xcoor)) then allocate(Dstread_turbine_position_dataData%upwind_turbine_Xcoor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -847,8 +847,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%upwind_turbine_Xcoor = Srcread_turbine_position_dataData%upwind_turbine_Xcoor end if if (allocated(Srcread_turbine_position_dataData%upwind_turbine_Ycoor)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_Ycoor) - UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_Ycoor) + LB(1:1) = lbound(Srcread_turbine_position_dataData%upwind_turbine_Ycoor, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%upwind_turbine_Ycoor, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%upwind_turbine_Ycoor)) then allocate(Dstread_turbine_position_dataData%upwind_turbine_Ycoor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -859,8 +859,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%upwind_turbine_Ycoor = Srcread_turbine_position_dataData%upwind_turbine_Ycoor end if if (allocated(Srcread_turbine_position_dataData%wind_farm_Xcoor)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%wind_farm_Xcoor) - UB(1:1) = ubound(Srcread_turbine_position_dataData%wind_farm_Xcoor) + LB(1:1) = lbound(Srcread_turbine_position_dataData%wind_farm_Xcoor, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%wind_farm_Xcoor, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%wind_farm_Xcoor)) then allocate(Dstread_turbine_position_dataData%wind_farm_Xcoor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -871,8 +871,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%wind_farm_Xcoor = Srcread_turbine_position_dataData%wind_farm_Xcoor end if if (allocated(Srcread_turbine_position_dataData%wind_farm_Ycoor)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%wind_farm_Ycoor) - UB(1:1) = ubound(Srcread_turbine_position_dataData%wind_farm_Ycoor) + LB(1:1) = lbound(Srcread_turbine_position_dataData%wind_farm_Ycoor, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%wind_farm_Ycoor, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%wind_farm_Ycoor)) then allocate(Dstread_turbine_position_dataData%wind_farm_Ycoor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -883,8 +883,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%wind_farm_Ycoor = Srcread_turbine_position_dataData%wind_farm_Ycoor end if if (allocated(Srcread_turbine_position_dataData%downwind_turbine_Xcoor)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_Xcoor) - UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_Xcoor) + LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_Xcoor, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_Xcoor, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%downwind_turbine_Xcoor)) then allocate(Dstread_turbine_position_dataData%downwind_turbine_Xcoor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -895,8 +895,8 @@ subroutine DWM_Copyread_turbine_position_data(Srcread_turbine_position_dataData, Dstread_turbine_position_dataData%downwind_turbine_Xcoor = Srcread_turbine_position_dataData%downwind_turbine_Xcoor end if if (allocated(Srcread_turbine_position_dataData%downwind_turbine_Ycoor)) then - LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_Ycoor) - UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_Ycoor) + LB(1:1) = lbound(Srcread_turbine_position_dataData%downwind_turbine_Ycoor, kind=B8Ki) + UB(1:1) = ubound(Srcread_turbine_position_dataData%downwind_turbine_Ycoor, kind=B8Ki) if (.not. allocated(Dstread_turbine_position_dataData%downwind_turbine_Ycoor)) then allocate(Dstread_turbine_position_dataData%downwind_turbine_Ycoor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -973,85 +973,85 @@ subroutine DWM_Packread_turbine_position_data(Buf, Indata) call RegPack(Buf, InData%SimulationOrder_index) call RegPack(Buf, allocated(InData%Turbine_sort_order)) if (allocated(InData%Turbine_sort_order)) then - call RegPackBounds(Buf, 1, lbound(InData%Turbine_sort_order), ubound(InData%Turbine_sort_order)) + call RegPackBounds(Buf, 1, lbound(InData%Turbine_sort_order, kind=B8Ki), ubound(InData%Turbine_sort_order, kind=B8Ki)) call RegPack(Buf, InData%Turbine_sort_order) end if call RegPack(Buf, InData%WT_index) call RegPack(Buf, allocated(InData%TurbineInfluenceData)) if (allocated(InData%TurbineInfluenceData)) then - call RegPackBounds(Buf, 2, lbound(InData%TurbineInfluenceData), ubound(InData%TurbineInfluenceData)) + call RegPackBounds(Buf, 2, lbound(InData%TurbineInfluenceData, kind=B8Ki), ubound(InData%TurbineInfluenceData, kind=B8Ki)) call RegPack(Buf, InData%TurbineInfluenceData) end if call RegPack(Buf, allocated(InData%upwind_turbine_index)) if (allocated(InData%upwind_turbine_index)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_index), ubound(InData%upwind_turbine_index)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_index, kind=B8Ki), ubound(InData%upwind_turbine_index, kind=B8Ki)) call RegPack(Buf, InData%upwind_turbine_index) end if call RegPack(Buf, allocated(InData%downwind_turbine_index)) if (allocated(InData%downwind_turbine_index)) then - call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_index), ubound(InData%downwind_turbine_index)) + call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_index, kind=B8Ki), ubound(InData%downwind_turbine_index, kind=B8Ki)) call RegPack(Buf, InData%downwind_turbine_index) end if call RegPack(Buf, InData%upwindturbine_number) call RegPack(Buf, InData%downwindturbine_number) call RegPack(Buf, allocated(InData%turbine_windorigin_length)) if (allocated(InData%turbine_windorigin_length)) then - call RegPackBounds(Buf, 1, lbound(InData%turbine_windorigin_length), ubound(InData%turbine_windorigin_length)) + call RegPackBounds(Buf, 1, lbound(InData%turbine_windorigin_length, kind=B8Ki), ubound(InData%turbine_windorigin_length, kind=B8Ki)) call RegPack(Buf, InData%turbine_windorigin_length) end if call RegPack(Buf, allocated(InData%upwind_turbine_projected_distance)) if (allocated(InData%upwind_turbine_projected_distance)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_projected_distance), ubound(InData%upwind_turbine_projected_distance)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_projected_distance, kind=B8Ki), ubound(InData%upwind_turbine_projected_distance, kind=B8Ki)) call RegPack(Buf, InData%upwind_turbine_projected_distance) end if call RegPack(Buf, allocated(InData%downwind_turbine_projected_distance)) if (allocated(InData%downwind_turbine_projected_distance)) then - call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_projected_distance), ubound(InData%downwind_turbine_projected_distance)) + call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_projected_distance, kind=B8Ki), ubound(InData%downwind_turbine_projected_distance, kind=B8Ki)) call RegPack(Buf, InData%downwind_turbine_projected_distance) end if call RegPack(Buf, allocated(InData%turbine_angle)) if (allocated(InData%turbine_angle)) then - call RegPackBounds(Buf, 2, lbound(InData%turbine_angle), ubound(InData%turbine_angle)) + call RegPackBounds(Buf, 2, lbound(InData%turbine_angle, kind=B8Ki), ubound(InData%turbine_angle, kind=B8Ki)) call RegPack(Buf, InData%turbine_angle) end if call RegPack(Buf, allocated(InData%upwind_align_angle)) if (allocated(InData%upwind_align_angle)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_align_angle), ubound(InData%upwind_align_angle)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_align_angle, kind=B8Ki), ubound(InData%upwind_align_angle, kind=B8Ki)) call RegPack(Buf, InData%upwind_align_angle) end if call RegPack(Buf, allocated(InData%downwind_align_angle)) if (allocated(InData%downwind_align_angle)) then - call RegPackBounds(Buf, 1, lbound(InData%downwind_align_angle), ubound(InData%downwind_align_angle)) + call RegPackBounds(Buf, 1, lbound(InData%downwind_align_angle, kind=B8Ki), ubound(InData%downwind_align_angle, kind=B8Ki)) call RegPack(Buf, InData%downwind_align_angle) end if call RegPack(Buf, allocated(InData%upwind_turbine_Xcoor)) if (allocated(InData%upwind_turbine_Xcoor)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_Xcoor), ubound(InData%upwind_turbine_Xcoor)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_Xcoor, kind=B8Ki), ubound(InData%upwind_turbine_Xcoor, kind=B8Ki)) call RegPack(Buf, InData%upwind_turbine_Xcoor) end if call RegPack(Buf, allocated(InData%upwind_turbine_Ycoor)) if (allocated(InData%upwind_turbine_Ycoor)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_Ycoor), ubound(InData%upwind_turbine_Ycoor)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_turbine_Ycoor, kind=B8Ki), ubound(InData%upwind_turbine_Ycoor, kind=B8Ki)) call RegPack(Buf, InData%upwind_turbine_Ycoor) end if call RegPack(Buf, allocated(InData%wind_farm_Xcoor)) if (allocated(InData%wind_farm_Xcoor)) then - call RegPackBounds(Buf, 1, lbound(InData%wind_farm_Xcoor), ubound(InData%wind_farm_Xcoor)) + call RegPackBounds(Buf, 1, lbound(InData%wind_farm_Xcoor, kind=B8Ki), ubound(InData%wind_farm_Xcoor, kind=B8Ki)) call RegPack(Buf, InData%wind_farm_Xcoor) end if call RegPack(Buf, allocated(InData%wind_farm_Ycoor)) if (allocated(InData%wind_farm_Ycoor)) then - call RegPackBounds(Buf, 1, lbound(InData%wind_farm_Ycoor), ubound(InData%wind_farm_Ycoor)) + call RegPackBounds(Buf, 1, lbound(InData%wind_farm_Ycoor, kind=B8Ki), ubound(InData%wind_farm_Ycoor, kind=B8Ki)) call RegPack(Buf, InData%wind_farm_Ycoor) end if call RegPack(Buf, allocated(InData%downwind_turbine_Xcoor)) if (allocated(InData%downwind_turbine_Xcoor)) then - call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_Xcoor), ubound(InData%downwind_turbine_Xcoor)) + call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_Xcoor, kind=B8Ki), ubound(InData%downwind_turbine_Xcoor, kind=B8Ki)) call RegPack(Buf, InData%downwind_turbine_Xcoor) end if call RegPack(Buf, allocated(InData%downwind_turbine_Ycoor)) if (allocated(InData%downwind_turbine_Ycoor)) then - call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_Ycoor), ubound(InData%downwind_turbine_Ycoor)) + call RegPackBounds(Buf, 1, lbound(InData%downwind_turbine_Ycoor, kind=B8Ki), ubound(InData%downwind_turbine_Ycoor, kind=B8Ki)) call RegPack(Buf, InData%downwind_turbine_Ycoor) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1061,7 +1061,7 @@ subroutine DWM_UnPackread_turbine_position_data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(read_turbine_position_data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackread_turbine_position_data' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1305,14 +1305,14 @@ subroutine DWM_CopyWeiMethod(SrcWeiMethodData, DstWeiMethodData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_CopyWeiMethod' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcWeiMethodData%sweptarea)) then - LB(1:1) = lbound(SrcWeiMethodData%sweptarea) - UB(1:1) = ubound(SrcWeiMethodData%sweptarea) + LB(1:1) = lbound(SrcWeiMethodData%sweptarea, kind=B8Ki) + UB(1:1) = ubound(SrcWeiMethodData%sweptarea, kind=B8Ki) if (.not. allocated(DstWeiMethodData%sweptarea)) then allocate(DstWeiMethodData%sweptarea(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1344,7 +1344,7 @@ subroutine DWM_PackWeiMethod(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%sweptarea)) if (allocated(InData%sweptarea)) then - call RegPackBounds(Buf, 1, lbound(InData%sweptarea), ubound(InData%sweptarea)) + call RegPackBounds(Buf, 1, lbound(InData%sweptarea, kind=B8Ki), ubound(InData%sweptarea, kind=B8Ki)) call RegPack(Buf, InData%sweptarea) end if call RegPack(Buf, InData%weighting_denominator) @@ -1355,7 +1355,7 @@ subroutine DWM_UnPackWeiMethod(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WeiMethod), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackWeiMethod' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1383,14 +1383,14 @@ subroutine DWM_CopyTIDownstream(SrcTIDownstreamData, DstTIDownstreamData, CtrlCo integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_CopyTIDownstream' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcTIDownstreamData%TI_downstream_matrix)) then - LB(1:2) = lbound(SrcTIDownstreamData%TI_downstream_matrix) - UB(1:2) = ubound(SrcTIDownstreamData%TI_downstream_matrix) + LB(1:2) = lbound(SrcTIDownstreamData%TI_downstream_matrix, kind=B8Ki) + UB(1:2) = ubound(SrcTIDownstreamData%TI_downstream_matrix, kind=B8Ki) if (.not. allocated(DstTIDownstreamData%TI_downstream_matrix)) then allocate(DstTIDownstreamData%TI_downstream_matrix(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1450,7 +1450,7 @@ subroutine DWM_PackTIDownstream(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%TI_downstream_matrix)) if (allocated(InData%TI_downstream_matrix)) then - call RegPackBounds(Buf, 2, lbound(InData%TI_downstream_matrix), ubound(InData%TI_downstream_matrix)) + call RegPackBounds(Buf, 2, lbound(InData%TI_downstream_matrix, kind=B8Ki), ubound(InData%TI_downstream_matrix, kind=B8Ki)) call RegPack(Buf, InData%TI_downstream_matrix) end if call RegPack(Buf, InData%i) @@ -1489,7 +1489,7 @@ subroutine DWM_UnPackTIDownstream(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(TIDownstream), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackTIDownstream' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1636,14 +1636,14 @@ subroutine DWM_CopyShinozuka(SrcShinozukaData, DstShinozukaData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_CopyShinozuka' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcShinozukaData%f_syn)) then - LB(1:1) = lbound(SrcShinozukaData%f_syn) - UB(1:1) = ubound(SrcShinozukaData%f_syn) + LB(1:1) = lbound(SrcShinozukaData%f_syn, kind=B8Ki) + UB(1:1) = ubound(SrcShinozukaData%f_syn, kind=B8Ki) if (.not. allocated(DstShinozukaData%f_syn)) then allocate(DstShinozukaData%f_syn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1654,8 +1654,8 @@ subroutine DWM_CopyShinozuka(SrcShinozukaData, DstShinozukaData, CtrlCode, ErrSt DstShinozukaData%f_syn = SrcShinozukaData%f_syn end if if (allocated(SrcShinozukaData%t_syn)) then - LB(1:1) = lbound(SrcShinozukaData%t_syn) - UB(1:1) = ubound(SrcShinozukaData%t_syn) + LB(1:1) = lbound(SrcShinozukaData%t_syn, kind=B8Ki) + UB(1:1) = ubound(SrcShinozukaData%t_syn, kind=B8Ki) if (.not. allocated(DstShinozukaData%t_syn)) then allocate(DstShinozukaData%t_syn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1666,8 +1666,8 @@ subroutine DWM_CopyShinozuka(SrcShinozukaData, DstShinozukaData, CtrlCode, ErrSt DstShinozukaData%t_syn = SrcShinozukaData%t_syn end if if (allocated(SrcShinozukaData%phi)) then - LB(1:1) = lbound(SrcShinozukaData%phi) - UB(1:1) = ubound(SrcShinozukaData%phi) + LB(1:1) = lbound(SrcShinozukaData%phi, kind=B8Ki) + UB(1:1) = ubound(SrcShinozukaData%phi, kind=B8Ki) if (.not. allocated(DstShinozukaData%phi)) then allocate(DstShinozukaData%phi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1678,8 +1678,8 @@ subroutine DWM_CopyShinozuka(SrcShinozukaData, DstShinozukaData, CtrlCode, ErrSt DstShinozukaData%phi = SrcShinozukaData%phi end if if (allocated(SrcShinozukaData%p_k)) then - LB(1:1) = lbound(SrcShinozukaData%p_k) - UB(1:1) = ubound(SrcShinozukaData%p_k) + LB(1:1) = lbound(SrcShinozukaData%p_k, kind=B8Ki) + UB(1:1) = ubound(SrcShinozukaData%p_k, kind=B8Ki) if (.not. allocated(DstShinozukaData%p_k)) then allocate(DstShinozukaData%p_k(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1690,8 +1690,8 @@ subroutine DWM_CopyShinozuka(SrcShinozukaData, DstShinozukaData, CtrlCode, ErrSt DstShinozukaData%p_k = SrcShinozukaData%p_k end if if (allocated(SrcShinozukaData%a_k)) then - LB(1:1) = lbound(SrcShinozukaData%a_k) - UB(1:1) = ubound(SrcShinozukaData%a_k) + LB(1:1) = lbound(SrcShinozukaData%a_k, kind=B8Ki) + UB(1:1) = ubound(SrcShinozukaData%a_k, kind=B8Ki) if (.not. allocated(DstShinozukaData%a_k)) then allocate(DstShinozukaData%a_k(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1742,27 +1742,27 @@ subroutine DWM_PackShinozuka(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%f_syn)) if (allocated(InData%f_syn)) then - call RegPackBounds(Buf, 1, lbound(InData%f_syn), ubound(InData%f_syn)) + call RegPackBounds(Buf, 1, lbound(InData%f_syn, kind=B8Ki), ubound(InData%f_syn, kind=B8Ki)) call RegPack(Buf, InData%f_syn) end if call RegPack(Buf, allocated(InData%t_syn)) if (allocated(InData%t_syn)) then - call RegPackBounds(Buf, 1, lbound(InData%t_syn), ubound(InData%t_syn)) + call RegPackBounds(Buf, 1, lbound(InData%t_syn, kind=B8Ki), ubound(InData%t_syn, kind=B8Ki)) call RegPack(Buf, InData%t_syn) end if call RegPack(Buf, allocated(InData%phi)) if (allocated(InData%phi)) then - call RegPackBounds(Buf, 1, lbound(InData%phi), ubound(InData%phi)) + call RegPackBounds(Buf, 1, lbound(InData%phi, kind=B8Ki), ubound(InData%phi, kind=B8Ki)) call RegPack(Buf, InData%phi) end if call RegPack(Buf, allocated(InData%p_k)) if (allocated(InData%p_k)) then - call RegPackBounds(Buf, 1, lbound(InData%p_k), ubound(InData%p_k)) + call RegPackBounds(Buf, 1, lbound(InData%p_k, kind=B8Ki), ubound(InData%p_k, kind=B8Ki)) call RegPack(Buf, InData%p_k) end if call RegPack(Buf, allocated(InData%a_k)) if (allocated(InData%a_k)) then - call RegPackBounds(Buf, 1, lbound(InData%a_k), ubound(InData%a_k)) + call RegPackBounds(Buf, 1, lbound(InData%a_k, kind=B8Ki), ubound(InData%a_k, kind=B8Ki)) call RegPack(Buf, InData%a_k) end if call RegPack(Buf, InData%num_points) @@ -1780,7 +1780,7 @@ subroutine DWM_UnPackShinozuka(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Shinozuka), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackShinozuka' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1976,14 +1976,14 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_Copyread_upwind_result' ErrStat = ErrID_None ErrMsg = '' if (allocated(Srcread_upwind_resultData%upwind_U)) then - LB(1:2) = lbound(Srcread_upwind_resultData%upwind_U) - UB(1:2) = ubound(Srcread_upwind_resultData%upwind_U) + LB(1:2) = lbound(Srcread_upwind_resultData%upwind_U, kind=B8Ki) + UB(1:2) = ubound(Srcread_upwind_resultData%upwind_U, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%upwind_U)) then allocate(Dstread_upwind_resultData%upwind_U(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1994,8 +1994,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%upwind_U = Srcread_upwind_resultData%upwind_U end if if (allocated(Srcread_upwind_resultData%upwind_wakecenter)) then - LB(1:4) = lbound(Srcread_upwind_resultData%upwind_wakecenter) - UB(1:4) = ubound(Srcread_upwind_resultData%upwind_wakecenter) + LB(1:4) = lbound(Srcread_upwind_resultData%upwind_wakecenter, kind=B8Ki) + UB(1:4) = ubound(Srcread_upwind_resultData%upwind_wakecenter, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%upwind_wakecenter)) then allocate(Dstread_upwind_resultData%upwind_wakecenter(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2006,8 +2006,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%upwind_wakecenter = Srcread_upwind_resultData%upwind_wakecenter end if if (allocated(Srcread_upwind_resultData%upwind_meanU)) then - LB(1:1) = lbound(Srcread_upwind_resultData%upwind_meanU) - UB(1:1) = ubound(Srcread_upwind_resultData%upwind_meanU) + LB(1:1) = lbound(Srcread_upwind_resultData%upwind_meanU, kind=B8Ki) + UB(1:1) = ubound(Srcread_upwind_resultData%upwind_meanU, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%upwind_meanU)) then allocate(Dstread_upwind_resultData%upwind_meanU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2018,8 +2018,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%upwind_meanU = Srcread_upwind_resultData%upwind_meanU end if if (allocated(Srcread_upwind_resultData%upwind_TI)) then - LB(1:1) = lbound(Srcread_upwind_resultData%upwind_TI) - UB(1:1) = ubound(Srcread_upwind_resultData%upwind_TI) + LB(1:1) = lbound(Srcread_upwind_resultData%upwind_TI, kind=B8Ki) + UB(1:1) = ubound(Srcread_upwind_resultData%upwind_TI, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%upwind_TI)) then allocate(Dstread_upwind_resultData%upwind_TI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2030,8 +2030,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%upwind_TI = Srcread_upwind_resultData%upwind_TI end if if (allocated(Srcread_upwind_resultData%upwind_small_TI)) then - LB(1:1) = lbound(Srcread_upwind_resultData%upwind_small_TI) - UB(1:1) = ubound(Srcread_upwind_resultData%upwind_small_TI) + LB(1:1) = lbound(Srcread_upwind_resultData%upwind_small_TI, kind=B8Ki) + UB(1:1) = ubound(Srcread_upwind_resultData%upwind_small_TI, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%upwind_small_TI)) then allocate(Dstread_upwind_resultData%upwind_small_TI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2042,8 +2042,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%upwind_small_TI = Srcread_upwind_resultData%upwind_small_TI end if if (allocated(Srcread_upwind_resultData%upwind_smoothWake)) then - LB(1:2) = lbound(Srcread_upwind_resultData%upwind_smoothWake) - UB(1:2) = ubound(Srcread_upwind_resultData%upwind_smoothWake) + LB(1:2) = lbound(Srcread_upwind_resultData%upwind_smoothWake, kind=B8Ki) + UB(1:2) = ubound(Srcread_upwind_resultData%upwind_smoothWake, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%upwind_smoothWake)) then allocate(Dstread_upwind_resultData%upwind_smoothWake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2054,8 +2054,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%upwind_smoothWake = Srcread_upwind_resultData%upwind_smoothWake end if if (allocated(Srcread_upwind_resultData%velocity_aerodyn)) then - LB(1:1) = lbound(Srcread_upwind_resultData%velocity_aerodyn) - UB(1:1) = ubound(Srcread_upwind_resultData%velocity_aerodyn) + LB(1:1) = lbound(Srcread_upwind_resultData%velocity_aerodyn, kind=B8Ki) + UB(1:1) = ubound(Srcread_upwind_resultData%velocity_aerodyn, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%velocity_aerodyn)) then allocate(Dstread_upwind_resultData%velocity_aerodyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2066,8 +2066,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%velocity_aerodyn = Srcread_upwind_resultData%velocity_aerodyn end if if (allocated(Srcread_upwind_resultData%TI_downstream)) then - LB(1:1) = lbound(Srcread_upwind_resultData%TI_downstream) - UB(1:1) = ubound(Srcread_upwind_resultData%TI_downstream) + LB(1:1) = lbound(Srcread_upwind_resultData%TI_downstream, kind=B8Ki) + UB(1:1) = ubound(Srcread_upwind_resultData%TI_downstream, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%TI_downstream)) then allocate(Dstread_upwind_resultData%TI_downstream(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2078,8 +2078,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%TI_downstream = Srcread_upwind_resultData%TI_downstream end if if (allocated(Srcread_upwind_resultData%small_scale_TI_downstream)) then - LB(1:1) = lbound(Srcread_upwind_resultData%small_scale_TI_downstream) - UB(1:1) = ubound(Srcread_upwind_resultData%small_scale_TI_downstream) + LB(1:1) = lbound(Srcread_upwind_resultData%small_scale_TI_downstream, kind=B8Ki) + UB(1:1) = ubound(Srcread_upwind_resultData%small_scale_TI_downstream, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%small_scale_TI_downstream)) then allocate(Dstread_upwind_resultData%small_scale_TI_downstream(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2090,8 +2090,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%small_scale_TI_downstream = Srcread_upwind_resultData%small_scale_TI_downstream end if if (allocated(Srcread_upwind_resultData%smoothed_velocity_array)) then - LB(1:2) = lbound(Srcread_upwind_resultData%smoothed_velocity_array) - UB(1:2) = ubound(Srcread_upwind_resultData%smoothed_velocity_array) + LB(1:2) = lbound(Srcread_upwind_resultData%smoothed_velocity_array, kind=B8Ki) + UB(1:2) = ubound(Srcread_upwind_resultData%smoothed_velocity_array, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%smoothed_velocity_array)) then allocate(Dstread_upwind_resultData%smoothed_velocity_array(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2102,8 +2102,8 @@ subroutine DWM_Copyread_upwind_result(Srcread_upwind_resultData, Dstread_upwind_ Dstread_upwind_resultData%smoothed_velocity_array = Srcread_upwind_resultData%smoothed_velocity_array end if if (allocated(Srcread_upwind_resultData%vel_matrix)) then - LB(1:3) = lbound(Srcread_upwind_resultData%vel_matrix) - UB(1:3) = ubound(Srcread_upwind_resultData%vel_matrix) + LB(1:3) = lbound(Srcread_upwind_resultData%vel_matrix, kind=B8Ki) + UB(1:3) = ubound(Srcread_upwind_resultData%vel_matrix, kind=B8Ki) if (.not. allocated(Dstread_upwind_resultData%vel_matrix)) then allocate(Dstread_upwind_resultData%vel_matrix(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2164,57 +2164,57 @@ subroutine DWM_Packread_upwind_result(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%upwind_U)) if (allocated(InData%upwind_U)) then - call RegPackBounds(Buf, 2, lbound(InData%upwind_U), ubound(InData%upwind_U)) + call RegPackBounds(Buf, 2, lbound(InData%upwind_U, kind=B8Ki), ubound(InData%upwind_U, kind=B8Ki)) call RegPack(Buf, InData%upwind_U) end if call RegPack(Buf, allocated(InData%upwind_wakecenter)) if (allocated(InData%upwind_wakecenter)) then - call RegPackBounds(Buf, 4, lbound(InData%upwind_wakecenter), ubound(InData%upwind_wakecenter)) + call RegPackBounds(Buf, 4, lbound(InData%upwind_wakecenter, kind=B8Ki), ubound(InData%upwind_wakecenter, kind=B8Ki)) call RegPack(Buf, InData%upwind_wakecenter) end if call RegPack(Buf, allocated(InData%upwind_meanU)) if (allocated(InData%upwind_meanU)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_meanU), ubound(InData%upwind_meanU)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_meanU, kind=B8Ki), ubound(InData%upwind_meanU, kind=B8Ki)) call RegPack(Buf, InData%upwind_meanU) end if call RegPack(Buf, allocated(InData%upwind_TI)) if (allocated(InData%upwind_TI)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_TI), ubound(InData%upwind_TI)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_TI, kind=B8Ki), ubound(InData%upwind_TI, kind=B8Ki)) call RegPack(Buf, InData%upwind_TI) end if call RegPack(Buf, allocated(InData%upwind_small_TI)) if (allocated(InData%upwind_small_TI)) then - call RegPackBounds(Buf, 1, lbound(InData%upwind_small_TI), ubound(InData%upwind_small_TI)) + call RegPackBounds(Buf, 1, lbound(InData%upwind_small_TI, kind=B8Ki), ubound(InData%upwind_small_TI, kind=B8Ki)) call RegPack(Buf, InData%upwind_small_TI) end if call RegPack(Buf, allocated(InData%upwind_smoothWake)) if (allocated(InData%upwind_smoothWake)) then - call RegPackBounds(Buf, 2, lbound(InData%upwind_smoothWake), ubound(InData%upwind_smoothWake)) + call RegPackBounds(Buf, 2, lbound(InData%upwind_smoothWake, kind=B8Ki), ubound(InData%upwind_smoothWake, kind=B8Ki)) call RegPack(Buf, InData%upwind_smoothWake) end if call RegPack(Buf, allocated(InData%velocity_aerodyn)) if (allocated(InData%velocity_aerodyn)) then - call RegPackBounds(Buf, 1, lbound(InData%velocity_aerodyn), ubound(InData%velocity_aerodyn)) + call RegPackBounds(Buf, 1, lbound(InData%velocity_aerodyn, kind=B8Ki), ubound(InData%velocity_aerodyn, kind=B8Ki)) call RegPack(Buf, InData%velocity_aerodyn) end if call RegPack(Buf, allocated(InData%TI_downstream)) if (allocated(InData%TI_downstream)) then - call RegPackBounds(Buf, 1, lbound(InData%TI_downstream), ubound(InData%TI_downstream)) + call RegPackBounds(Buf, 1, lbound(InData%TI_downstream, kind=B8Ki), ubound(InData%TI_downstream, kind=B8Ki)) call RegPack(Buf, InData%TI_downstream) end if call RegPack(Buf, allocated(InData%small_scale_TI_downstream)) if (allocated(InData%small_scale_TI_downstream)) then - call RegPackBounds(Buf, 1, lbound(InData%small_scale_TI_downstream), ubound(InData%small_scale_TI_downstream)) + call RegPackBounds(Buf, 1, lbound(InData%small_scale_TI_downstream, kind=B8Ki), ubound(InData%small_scale_TI_downstream, kind=B8Ki)) call RegPack(Buf, InData%small_scale_TI_downstream) end if call RegPack(Buf, allocated(InData%smoothed_velocity_array)) if (allocated(InData%smoothed_velocity_array)) then - call RegPackBounds(Buf, 2, lbound(InData%smoothed_velocity_array), ubound(InData%smoothed_velocity_array)) + call RegPackBounds(Buf, 2, lbound(InData%smoothed_velocity_array, kind=B8Ki), ubound(InData%smoothed_velocity_array, kind=B8Ki)) call RegPack(Buf, InData%smoothed_velocity_array) end if call RegPack(Buf, allocated(InData%vel_matrix)) if (allocated(InData%vel_matrix)) then - call RegPackBounds(Buf, 3, lbound(InData%vel_matrix), ubound(InData%vel_matrix)) + call RegPackBounds(Buf, 3, lbound(InData%vel_matrix, kind=B8Ki), ubound(InData%vel_matrix, kind=B8Ki)) call RegPack(Buf, InData%vel_matrix) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2224,7 +2224,7 @@ subroutine DWM_UnPackread_upwind_result(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(read_upwind_result), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackread_upwind_result' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2390,14 +2390,14 @@ subroutine DWM_Copywake_meandered_center(Srcwake_meandered_centerData, Dstwake_m integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DWM_Copywake_meandered_center' ErrStat = ErrID_None ErrMsg = '' if (allocated(Srcwake_meandered_centerData%wake_width)) then - LB(1:1) = lbound(Srcwake_meandered_centerData%wake_width) - UB(1:1) = ubound(Srcwake_meandered_centerData%wake_width) + LB(1:1) = lbound(Srcwake_meandered_centerData%wake_width, kind=B8Ki) + UB(1:1) = ubound(Srcwake_meandered_centerData%wake_width, kind=B8Ki) if (.not. allocated(Dstwake_meandered_centerData%wake_width)) then allocate(Dstwake_meandered_centerData%wake_width(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2428,7 +2428,7 @@ subroutine DWM_Packwake_meandered_center(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%wake_width)) if (allocated(InData%wake_width)) then - call RegPackBounds(Buf, 1, lbound(InData%wake_width), ubound(InData%wake_width)) + call RegPackBounds(Buf, 1, lbound(InData%wake_width, kind=B8Ki), ubound(InData%wake_width, kind=B8Ki)) call RegPack(Buf, InData%wake_width) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2438,7 +2438,7 @@ subroutine DWM_UnPackwake_meandered_center(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(wake_meandered_center), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackwake_meandered_center' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2511,15 +2511,15 @@ subroutine DWM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DWM_CopyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcParamData%velocityU)) then - LB(1:1) = lbound(SrcParamData%velocityU) - UB(1:1) = ubound(SrcParamData%velocityU) + LB(1:1) = lbound(SrcParamData%velocityU, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%velocityU, kind=B8Ki) if (.not. allocated(DstParamData%velocityU)) then allocate(DstParamData%velocityU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2530,8 +2530,8 @@ subroutine DWM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%velocityU = SrcParamData%velocityU end if if (allocated(SrcParamData%smoothed_wake)) then - LB(1:1) = lbound(SrcParamData%smoothed_wake) - UB(1:1) = ubound(SrcParamData%smoothed_wake) + LB(1:1) = lbound(SrcParamData%smoothed_wake, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%smoothed_wake, kind=B8Ki) if (.not. allocated(DstParamData%smoothed_wake)) then allocate(DstParamData%smoothed_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2542,8 +2542,8 @@ subroutine DWM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%smoothed_wake = SrcParamData%smoothed_wake end if if (allocated(SrcParamData%WakePosition)) then - LB(1:3) = lbound(SrcParamData%WakePosition) - UB(1:3) = ubound(SrcParamData%WakePosition) + LB(1:3) = lbound(SrcParamData%WakePosition, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%WakePosition, kind=B8Ki) if (.not. allocated(DstParamData%WakePosition)) then allocate(DstParamData%WakePosition(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2573,8 +2573,8 @@ subroutine DWM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%air_density = SrcParamData%air_density DstParamData%RR = SrcParamData%RR if (allocated(SrcParamData%ElementRad)) then - LB(1:1) = lbound(SrcParamData%ElementRad) - UB(1:1) = ubound(SrcParamData%ElementRad) + LB(1:1) = lbound(SrcParamData%ElementRad, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ElementRad, kind=B8Ki) if (.not. allocated(DstParamData%ElementRad)) then allocate(DstParamData%ElementRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2628,17 +2628,17 @@ subroutine DWM_PackParam(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%velocityU)) if (allocated(InData%velocityU)) then - call RegPackBounds(Buf, 1, lbound(InData%velocityU), ubound(InData%velocityU)) + call RegPackBounds(Buf, 1, lbound(InData%velocityU, kind=B8Ki), ubound(InData%velocityU, kind=B8Ki)) call RegPack(Buf, InData%velocityU) end if call RegPack(Buf, allocated(InData%smoothed_wake)) if (allocated(InData%smoothed_wake)) then - call RegPackBounds(Buf, 1, lbound(InData%smoothed_wake), ubound(InData%smoothed_wake)) + call RegPackBounds(Buf, 1, lbound(InData%smoothed_wake, kind=B8Ki), ubound(InData%smoothed_wake, kind=B8Ki)) call RegPack(Buf, InData%smoothed_wake) end if call RegPack(Buf, allocated(InData%WakePosition)) if (allocated(InData%WakePosition)) then - call RegPackBounds(Buf, 3, lbound(InData%WakePosition), ubound(InData%WakePosition)) + call RegPackBounds(Buf, 3, lbound(InData%WakePosition, kind=B8Ki), ubound(InData%WakePosition, kind=B8Ki)) call RegPack(Buf, InData%WakePosition) end if call RegPack(Buf, InData%WakePosition_1) @@ -2662,7 +2662,7 @@ subroutine DWM_PackParam(Buf, Indata) call RegPack(Buf, InData%RR) call RegPack(Buf, allocated(InData%ElementRad)) if (allocated(InData%ElementRad)) then - call RegPackBounds(Buf, 1, lbound(InData%ElementRad), ubound(InData%ElementRad)) + call RegPackBounds(Buf, 1, lbound(InData%ElementRad, kind=B8Ki), ubound(InData%ElementRad, kind=B8Ki)) call RegPack(Buf, InData%ElementRad) end if call RegPack(Buf, InData%Bnum) @@ -2676,7 +2676,7 @@ subroutine DWM_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DWM_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackParam' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2834,7 +2834,7 @@ subroutine DWM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DWM_CopyMisc' @@ -2850,8 +2850,8 @@ subroutine DWM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_velocity = SrcMiscData%U_velocity DstMiscData%V_velocity = SrcMiscData%V_velocity if (allocated(SrcMiscData%Nforce)) then - LB(1:2) = lbound(SrcMiscData%Nforce) - UB(1:2) = ubound(SrcMiscData%Nforce) + LB(1:2) = lbound(SrcMiscData%Nforce, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%Nforce, kind=B8Ki) if (.not. allocated(DstMiscData%Nforce)) then allocate(DstMiscData%Nforce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2862,8 +2862,8 @@ subroutine DWM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Nforce = SrcMiscData%Nforce end if if (allocated(SrcMiscData%blade_dr)) then - LB(1:1) = lbound(SrcMiscData%blade_dr) - UB(1:1) = ubound(SrcMiscData%blade_dr) + LB(1:1) = lbound(SrcMiscData%blade_dr, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%blade_dr, kind=B8Ki) if (.not. allocated(DstMiscData%blade_dr)) then allocate(DstMiscData%blade_dr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2973,12 +2973,12 @@ subroutine DWM_PackMisc(Buf, Indata) call RegPack(Buf, InData%V_velocity) call RegPack(Buf, allocated(InData%Nforce)) if (allocated(InData%Nforce)) then - call RegPackBounds(Buf, 2, lbound(InData%Nforce), ubound(InData%Nforce)) + call RegPackBounds(Buf, 2, lbound(InData%Nforce, kind=B8Ki), ubound(InData%Nforce, kind=B8Ki)) call RegPack(Buf, InData%Nforce) end if call RegPack(Buf, allocated(InData%blade_dr)) if (allocated(InData%blade_dr)) then - call RegPackBounds(Buf, 1, lbound(InData%blade_dr), ubound(InData%blade_dr)) + call RegPackBounds(Buf, 1, lbound(InData%blade_dr, kind=B8Ki), ubound(InData%blade_dr, kind=B8Ki)) call RegPack(Buf, InData%blade_dr) end if call RegPack(Buf, InData%NacYaw) @@ -3005,7 +3005,7 @@ subroutine DWM_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DWM_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackMisc' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3133,15 +3133,15 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DWM_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%turbine_thrust_force)) then - LB(1:1) = lbound(SrcOutputData%turbine_thrust_force) - UB(1:1) = ubound(SrcOutputData%turbine_thrust_force) + LB(1:1) = lbound(SrcOutputData%turbine_thrust_force, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%turbine_thrust_force, kind=B8Ki) if (.not. allocated(DstOutputData%turbine_thrust_force)) then allocate(DstOutputData%turbine_thrust_force(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3152,8 +3152,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%turbine_thrust_force = SrcOutputData%turbine_thrust_force end if if (allocated(SrcOutputData%induction_factor)) then - LB(1:1) = lbound(SrcOutputData%induction_factor) - UB(1:1) = ubound(SrcOutputData%induction_factor) + LB(1:1) = lbound(SrcOutputData%induction_factor, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%induction_factor, kind=B8Ki) if (.not. allocated(DstOutputData%induction_factor)) then allocate(DstOutputData%induction_factor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3164,8 +3164,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%induction_factor = SrcOutputData%induction_factor end if if (allocated(SrcOutputData%r_initial)) then - LB(1:1) = lbound(SrcOutputData%r_initial) - UB(1:1) = ubound(SrcOutputData%r_initial) + LB(1:1) = lbound(SrcOutputData%r_initial, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%r_initial, kind=B8Ki) if (.not. allocated(DstOutputData%r_initial)) then allocate(DstOutputData%r_initial(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3176,8 +3176,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%r_initial = SrcOutputData%r_initial end if if (allocated(SrcOutputData%U_initial)) then - LB(1:1) = lbound(SrcOutputData%U_initial) - UB(1:1) = ubound(SrcOutputData%U_initial) + LB(1:1) = lbound(SrcOutputData%U_initial, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%U_initial, kind=B8Ki) if (.not. allocated(DstOutputData%U_initial)) then allocate(DstOutputData%U_initial(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3188,8 +3188,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%U_initial = SrcOutputData%U_initial end if if (allocated(SrcOutputData%Mean_FFWS_array)) then - LB(1:1) = lbound(SrcOutputData%Mean_FFWS_array) - UB(1:1) = ubound(SrcOutputData%Mean_FFWS_array) + LB(1:1) = lbound(SrcOutputData%Mean_FFWS_array, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Mean_FFWS_array, kind=B8Ki) if (.not. allocated(DstOutputData%Mean_FFWS_array)) then allocate(DstOutputData%Mean_FFWS_array(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3203,8 +3203,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%TI = SrcOutputData%TI DstOutputData%TI_downstream = SrcOutputData%TI_downstream if (allocated(SrcOutputData%wake_u)) then - LB(1:2) = lbound(SrcOutputData%wake_u) - UB(1:2) = ubound(SrcOutputData%wake_u) + LB(1:2) = lbound(SrcOutputData%wake_u, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%wake_u, kind=B8Ki) if (.not. allocated(DstOutputData%wake_u)) then allocate(DstOutputData%wake_u(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3215,8 +3215,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%wake_u = SrcOutputData%wake_u end if if (allocated(SrcOutputData%wake_position)) then - LB(1:3) = lbound(SrcOutputData%wake_position) - UB(1:3) = ubound(SrcOutputData%wake_position) + LB(1:3) = lbound(SrcOutputData%wake_position, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%wake_position, kind=B8Ki) if (.not. allocated(DstOutputData%wake_position)) then allocate(DstOutputData%wake_position(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3227,8 +3227,8 @@ subroutine DWM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%wake_position = SrcOutputData%wake_position end if if (allocated(SrcOutputData%smoothed_velocity_array)) then - LB(1:2) = lbound(SrcOutputData%smoothed_velocity_array) - UB(1:2) = ubound(SrcOutputData%smoothed_velocity_array) + LB(1:2) = lbound(SrcOutputData%smoothed_velocity_array, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%smoothed_velocity_array, kind=B8Ki) if (.not. allocated(DstOutputData%smoothed_velocity_array)) then allocate(DstOutputData%smoothed_velocity_array(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3292,27 +3292,27 @@ subroutine DWM_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%turbine_thrust_force)) if (allocated(InData%turbine_thrust_force)) then - call RegPackBounds(Buf, 1, lbound(InData%turbine_thrust_force), ubound(InData%turbine_thrust_force)) + call RegPackBounds(Buf, 1, lbound(InData%turbine_thrust_force, kind=B8Ki), ubound(InData%turbine_thrust_force, kind=B8Ki)) call RegPack(Buf, InData%turbine_thrust_force) end if call RegPack(Buf, allocated(InData%induction_factor)) if (allocated(InData%induction_factor)) then - call RegPackBounds(Buf, 1, lbound(InData%induction_factor), ubound(InData%induction_factor)) + call RegPackBounds(Buf, 1, lbound(InData%induction_factor, kind=B8Ki), ubound(InData%induction_factor, kind=B8Ki)) call RegPack(Buf, InData%induction_factor) end if call RegPack(Buf, allocated(InData%r_initial)) if (allocated(InData%r_initial)) then - call RegPackBounds(Buf, 1, lbound(InData%r_initial), ubound(InData%r_initial)) + call RegPackBounds(Buf, 1, lbound(InData%r_initial, kind=B8Ki), ubound(InData%r_initial, kind=B8Ki)) call RegPack(Buf, InData%r_initial) end if call RegPack(Buf, allocated(InData%U_initial)) if (allocated(InData%U_initial)) then - call RegPackBounds(Buf, 1, lbound(InData%U_initial), ubound(InData%U_initial)) + call RegPackBounds(Buf, 1, lbound(InData%U_initial, kind=B8Ki), ubound(InData%U_initial, kind=B8Ki)) call RegPack(Buf, InData%U_initial) end if call RegPack(Buf, allocated(InData%Mean_FFWS_array)) if (allocated(InData%Mean_FFWS_array)) then - call RegPackBounds(Buf, 1, lbound(InData%Mean_FFWS_array), ubound(InData%Mean_FFWS_array)) + call RegPackBounds(Buf, 1, lbound(InData%Mean_FFWS_array, kind=B8Ki), ubound(InData%Mean_FFWS_array, kind=B8Ki)) call RegPack(Buf, InData%Mean_FFWS_array) end if call RegPack(Buf, InData%Mean_FFWS) @@ -3320,17 +3320,17 @@ subroutine DWM_PackOutput(Buf, Indata) call RegPack(Buf, InData%TI_downstream) call RegPack(Buf, allocated(InData%wake_u)) if (allocated(InData%wake_u)) then - call RegPackBounds(Buf, 2, lbound(InData%wake_u), ubound(InData%wake_u)) + call RegPackBounds(Buf, 2, lbound(InData%wake_u, kind=B8Ki), ubound(InData%wake_u, kind=B8Ki)) call RegPack(Buf, InData%wake_u) end if call RegPack(Buf, allocated(InData%wake_position)) if (allocated(InData%wake_position)) then - call RegPackBounds(Buf, 3, lbound(InData%wake_position), ubound(InData%wake_position)) + call RegPackBounds(Buf, 3, lbound(InData%wake_position, kind=B8Ki), ubound(InData%wake_position, kind=B8Ki)) call RegPack(Buf, InData%wake_position) end if call RegPack(Buf, allocated(InData%smoothed_velocity_array)) if (allocated(InData%smoothed_velocity_array)) then - call RegPackBounds(Buf, 2, lbound(InData%smoothed_velocity_array), ubound(InData%smoothed_velocity_array)) + call RegPackBounds(Buf, 2, lbound(InData%smoothed_velocity_array, kind=B8Ki), ubound(InData%smoothed_velocity_array, kind=B8Ki)) call RegPack(Buf, InData%smoothed_velocity_array) end if call RegPack(Buf, InData%AtmUscale) @@ -3346,7 +3346,7 @@ subroutine DWM_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(DWM_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DWM_UnPackOutput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/awae/src/AWAE_Types.f90 b/modules/awae/src/AWAE_Types.f90 index d01c244767..3845a5e793 100644 --- a/modules/awae/src/AWAE_Types.f90 +++ b/modules/awae/src/AWAE_Types.f90 @@ -253,14 +253,14 @@ subroutine AWAE_CopyHighWindGrid(SrcHighWindGridData, DstHighWindGridData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AWAE_CopyHighWindGrid' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcHighWindGridData%data)) then - LB(1:5) = lbound(SrcHighWindGridData%data) - UB(1:5) = ubound(SrcHighWindGridData%data) + LB(1:5) = lbound(SrcHighWindGridData%data, kind=B8Ki) + UB(1:5) = ubound(SrcHighWindGridData%data, kind=B8Ki) if (.not. associated(DstHighWindGridData%data)) then allocate(DstHighWindGridData%data(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -293,7 +293,7 @@ subroutine AWAE_PackHighWindGrid(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, associated(InData%data)) if (associated(InData%data)) then - call RegPackBounds(Buf, 5, lbound(InData%data), ubound(InData%data)) + call RegPackBounds(Buf, 5, lbound(InData%data, kind=B8Ki), ubound(InData%data, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%data), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%data) @@ -306,10 +306,10 @@ subroutine AWAE_UnPackHighWindGrid(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_HighWindGrid), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackHighWindGrid' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%data)) deallocate(OutData%data) @@ -344,7 +344,7 @@ subroutine AWAE_CopyHighWindGridPtr(SrcHighWindGridPtrData, DstHighWindGridPtrDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AWAE_CopyHighWindGridPtr' ErrStat = ErrID_None @@ -370,7 +370,7 @@ subroutine AWAE_PackHighWindGridPtr(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, associated(InData%data)) if (associated(InData%data)) then - call RegPackBounds(Buf, 5, lbound(InData%data), ubound(InData%data)) + call RegPackBounds(Buf, 5, lbound(InData%data, kind=B8Ki), ubound(InData%data, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%data), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%data) @@ -383,10 +383,10 @@ subroutine AWAE_UnPackHighWindGridPtr(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_HighWindGridPtr), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackHighWindGridPtr' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%data)) deallocate(OutData%data) @@ -421,7 +421,7 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AWAE_CopyInputFileType' ErrStat = ErrID_None @@ -435,8 +435,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%WrDisWind = SrcInputFileTypeData%WrDisWind DstInputFileTypeData%NOutDisWindXY = SrcInputFileTypeData%NOutDisWindXY if (allocated(SrcInputFileTypeData%OutDisWindZ)) then - LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindZ) - UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindZ) + LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindZ, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindZ, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%OutDisWindZ)) then allocate(DstInputFileTypeData%OutDisWindZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -448,8 +448,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct end if DstInputFileTypeData%NOutDisWindYZ = SrcInputFileTypeData%NOutDisWindYZ if (allocated(SrcInputFileTypeData%OutDisWindX)) then - LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindX) - UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindX) + LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindX, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindX, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%OutDisWindX)) then allocate(DstInputFileTypeData%OutDisWindX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -461,8 +461,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct end if DstInputFileTypeData%NOutDisWindXZ = SrcInputFileTypeData%NOutDisWindXZ if (allocated(SrcInputFileTypeData%OutDisWindY)) then - LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindY) - UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindY) + LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindY, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindY, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%OutDisWindY)) then allocate(DstInputFileTypeData%OutDisWindY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -480,8 +480,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%InflowFile = SrcInputFileTypeData%InflowFile DstInputFileTypeData%dt_high = SrcInputFileTypeData%dt_high if (allocated(SrcInputFileTypeData%X0_high)) then - LB(1:1) = lbound(SrcInputFileTypeData%X0_high) - UB(1:1) = ubound(SrcInputFileTypeData%X0_high) + LB(1:1) = lbound(SrcInputFileTypeData%X0_high, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%X0_high, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%X0_high)) then allocate(DstInputFileTypeData%X0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -492,8 +492,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%X0_high = SrcInputFileTypeData%X0_high end if if (allocated(SrcInputFileTypeData%Y0_high)) then - LB(1:1) = lbound(SrcInputFileTypeData%Y0_high) - UB(1:1) = ubound(SrcInputFileTypeData%Y0_high) + LB(1:1) = lbound(SrcInputFileTypeData%Y0_high, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%Y0_high, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%Y0_high)) then allocate(DstInputFileTypeData%Y0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -504,8 +504,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%Y0_high = SrcInputFileTypeData%Y0_high end if if (allocated(SrcInputFileTypeData%Z0_high)) then - LB(1:1) = lbound(SrcInputFileTypeData%Z0_high) - UB(1:1) = ubound(SrcInputFileTypeData%Z0_high) + LB(1:1) = lbound(SrcInputFileTypeData%Z0_high, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%Z0_high, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%Z0_high)) then allocate(DstInputFileTypeData%Z0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -516,8 +516,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%Z0_high = SrcInputFileTypeData%Z0_high end if if (allocated(SrcInputFileTypeData%dX_high)) then - LB(1:1) = lbound(SrcInputFileTypeData%dX_high) - UB(1:1) = ubound(SrcInputFileTypeData%dX_high) + LB(1:1) = lbound(SrcInputFileTypeData%dX_high, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%dX_high, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%dX_high)) then allocate(DstInputFileTypeData%dX_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -528,8 +528,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%dX_high = SrcInputFileTypeData%dX_high end if if (allocated(SrcInputFileTypeData%dY_high)) then - LB(1:1) = lbound(SrcInputFileTypeData%dY_high) - UB(1:1) = ubound(SrcInputFileTypeData%dY_high) + LB(1:1) = lbound(SrcInputFileTypeData%dY_high, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%dY_high, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%dY_high)) then allocate(DstInputFileTypeData%dY_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -540,8 +540,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%dY_high = SrcInputFileTypeData%dY_high end if if (allocated(SrcInputFileTypeData%dZ_high)) then - LB(1:1) = lbound(SrcInputFileTypeData%dZ_high) - UB(1:1) = ubound(SrcInputFileTypeData%dZ_high) + LB(1:1) = lbound(SrcInputFileTypeData%dZ_high, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileTypeData%dZ_high, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%dZ_high)) then allocate(DstInputFileTypeData%dZ_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -564,8 +564,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct DstInputFileTypeData%Y0_low = SrcInputFileTypeData%Y0_low DstInputFileTypeData%Z0_low = SrcInputFileTypeData%Z0_low if (allocated(SrcInputFileTypeData%WT_Position)) then - LB(1:2) = lbound(SrcInputFileTypeData%WT_Position) - UB(1:2) = ubound(SrcInputFileTypeData%WT_Position) + LB(1:2) = lbound(SrcInputFileTypeData%WT_Position, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileTypeData%WT_Position, kind=B8Ki) if (.not. allocated(DstInputFileTypeData%WT_Position)) then allocate(DstInputFileTypeData%WT_Position(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -632,19 +632,19 @@ subroutine AWAE_PackInputFileType(Buf, Indata) call RegPack(Buf, InData%NOutDisWindXY) call RegPack(Buf, allocated(InData%OutDisWindZ)) if (allocated(InData%OutDisWindZ)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDisWindZ), ubound(InData%OutDisWindZ)) + call RegPackBounds(Buf, 1, lbound(InData%OutDisWindZ, kind=B8Ki), ubound(InData%OutDisWindZ, kind=B8Ki)) call RegPack(Buf, InData%OutDisWindZ) end if call RegPack(Buf, InData%NOutDisWindYZ) call RegPack(Buf, allocated(InData%OutDisWindX)) if (allocated(InData%OutDisWindX)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDisWindX), ubound(InData%OutDisWindX)) + call RegPackBounds(Buf, 1, lbound(InData%OutDisWindX, kind=B8Ki), ubound(InData%OutDisWindX, kind=B8Ki)) call RegPack(Buf, InData%OutDisWindX) end if call RegPack(Buf, InData%NOutDisWindXZ) call RegPack(Buf, allocated(InData%OutDisWindY)) if (allocated(InData%OutDisWindY)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDisWindY), ubound(InData%OutDisWindY)) + call RegPackBounds(Buf, 1, lbound(InData%OutDisWindY, kind=B8Ki), ubound(InData%OutDisWindY, kind=B8Ki)) call RegPack(Buf, InData%OutDisWindY) end if call RegPack(Buf, InData%WrDisDT) @@ -656,32 +656,32 @@ subroutine AWAE_PackInputFileType(Buf, Indata) call RegPack(Buf, InData%dt_high) call RegPack(Buf, allocated(InData%X0_high)) if (allocated(InData%X0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%X0_high), ubound(InData%X0_high)) + call RegPackBounds(Buf, 1, lbound(InData%X0_high, kind=B8Ki), ubound(InData%X0_high, kind=B8Ki)) call RegPack(Buf, InData%X0_high) end if call RegPack(Buf, allocated(InData%Y0_high)) if (allocated(InData%Y0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Y0_high), ubound(InData%Y0_high)) + call RegPackBounds(Buf, 1, lbound(InData%Y0_high, kind=B8Ki), ubound(InData%Y0_high, kind=B8Ki)) call RegPack(Buf, InData%Y0_high) end if call RegPack(Buf, allocated(InData%Z0_high)) if (allocated(InData%Z0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Z0_high), ubound(InData%Z0_high)) + call RegPackBounds(Buf, 1, lbound(InData%Z0_high, kind=B8Ki), ubound(InData%Z0_high, kind=B8Ki)) call RegPack(Buf, InData%Z0_high) end if call RegPack(Buf, allocated(InData%dX_high)) if (allocated(InData%dX_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dX_high), ubound(InData%dX_high)) + call RegPackBounds(Buf, 1, lbound(InData%dX_high, kind=B8Ki), ubound(InData%dX_high, kind=B8Ki)) call RegPack(Buf, InData%dX_high) end if call RegPack(Buf, allocated(InData%dY_high)) if (allocated(InData%dY_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dY_high), ubound(InData%dY_high)) + call RegPackBounds(Buf, 1, lbound(InData%dY_high, kind=B8Ki), ubound(InData%dY_high, kind=B8Ki)) call RegPack(Buf, InData%dY_high) end if call RegPack(Buf, allocated(InData%dZ_high)) if (allocated(InData%dZ_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dZ_high), ubound(InData%dZ_high)) + call RegPackBounds(Buf, 1, lbound(InData%dZ_high, kind=B8Ki), ubound(InData%dZ_high, kind=B8Ki)) call RegPack(Buf, InData%dZ_high) end if call RegPack(Buf, InData%nX_high) @@ -698,7 +698,7 @@ subroutine AWAE_PackInputFileType(Buf, Indata) call RegPack(Buf, InData%Z0_low) call RegPack(Buf, allocated(InData%WT_Position)) if (allocated(InData%WT_Position)) then - call RegPackBounds(Buf, 2, lbound(InData%WT_Position), ubound(InData%WT_Position)) + call RegPackBounds(Buf, 2, lbound(InData%WT_Position, kind=B8Ki), ubound(InData%WT_Position, kind=B8Ki)) call RegPack(Buf, InData%WT_Position) end if call RegPack(Buf, InData%Mod_Projection) @@ -709,7 +709,7 @@ subroutine AWAE_UnPackInputFileType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_InputFileType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInputFileType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -979,8 +979,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyInitOutput' @@ -990,8 +990,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%X0_high)) then - LB(1:1) = lbound(SrcInitOutputData%X0_high) - UB(1:1) = ubound(SrcInitOutputData%X0_high) + LB(1:1) = lbound(SrcInitOutputData%X0_high, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%X0_high, kind=B8Ki) if (.not. allocated(DstInitOutputData%X0_high)) then allocate(DstInitOutputData%X0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1002,8 +1002,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%X0_high = SrcInitOutputData%X0_high end if if (allocated(SrcInitOutputData%Y0_high)) then - LB(1:1) = lbound(SrcInitOutputData%Y0_high) - UB(1:1) = ubound(SrcInitOutputData%Y0_high) + LB(1:1) = lbound(SrcInitOutputData%Y0_high, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%Y0_high, kind=B8Ki) if (.not. allocated(DstInitOutputData%Y0_high)) then allocate(DstInitOutputData%Y0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1014,8 +1014,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%Y0_high = SrcInitOutputData%Y0_high end if if (allocated(SrcInitOutputData%Z0_high)) then - LB(1:1) = lbound(SrcInitOutputData%Z0_high) - UB(1:1) = ubound(SrcInitOutputData%Z0_high) + LB(1:1) = lbound(SrcInitOutputData%Z0_high, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%Z0_high, kind=B8Ki) if (.not. allocated(DstInitOutputData%Z0_high)) then allocate(DstInitOutputData%Z0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1026,8 +1026,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%Z0_high = SrcInitOutputData%Z0_high end if if (allocated(SrcInitOutputData%dX_high)) then - LB(1:1) = lbound(SrcInitOutputData%dX_high) - UB(1:1) = ubound(SrcInitOutputData%dX_high) + LB(1:1) = lbound(SrcInitOutputData%dX_high, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%dX_high, kind=B8Ki) if (.not. allocated(DstInitOutputData%dX_high)) then allocate(DstInitOutputData%dX_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1038,8 +1038,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%dX_high = SrcInitOutputData%dX_high end if if (allocated(SrcInitOutputData%dY_high)) then - LB(1:1) = lbound(SrcInitOutputData%dY_high) - UB(1:1) = ubound(SrcInitOutputData%dY_high) + LB(1:1) = lbound(SrcInitOutputData%dY_high, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%dY_high, kind=B8Ki) if (.not. allocated(DstInitOutputData%dY_high)) then allocate(DstInitOutputData%dY_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1050,8 +1050,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%dY_high = SrcInitOutputData%dY_high end if if (allocated(SrcInitOutputData%dZ_high)) then - LB(1:1) = lbound(SrcInitOutputData%dZ_high) - UB(1:1) = ubound(SrcInitOutputData%dZ_high) + LB(1:1) = lbound(SrcInitOutputData%dZ_high, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%dZ_high, kind=B8Ki) if (.not. allocated(DstInitOutputData%dZ_high)) then allocate(DstInitOutputData%dZ_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1074,8 +1074,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%Y0_low = SrcInitOutputData%Y0_low DstInitOutputData%Z0_low = SrcInitOutputData%Z0_low if (allocated(SrcInitOutputData%Vdist_High)) then - LB(1:1) = lbound(SrcInitOutputData%Vdist_High) - UB(1:1) = ubound(SrcInitOutputData%Vdist_High) + LB(1:1) = lbound(SrcInitOutputData%Vdist_High, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%Vdist_High, kind=B8Ki) if (.not. allocated(DstInitOutputData%Vdist_High)) then allocate(DstInitOutputData%Vdist_High(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1095,8 +1095,8 @@ subroutine AWAE_DestroyInitOutput(InitOutputData, ErrStat, ErrMsg) type(AWAE_InitOutputType), intent(inout) :: InitOutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyInitOutput' @@ -1123,8 +1123,8 @@ subroutine AWAE_DestroyInitOutput(InitOutputData, ErrStat, ErrMsg) deallocate(InitOutputData%dZ_high) end if if (allocated(InitOutputData%Vdist_High)) then - LB(1:1) = lbound(InitOutputData%Vdist_High) - UB(1:1) = ubound(InitOutputData%Vdist_High) + LB(1:1) = lbound(InitOutputData%Vdist_High, kind=B8Ki) + UB(1:1) = ubound(InitOutputData%Vdist_High, kind=B8Ki) do i1 = LB(1), UB(1) call AWAE_DestroyHighWindGridPtr(InitOutputData%Vdist_High(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1137,38 +1137,38 @@ subroutine AWAE_PackInitOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_InitOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackInitOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%X0_high)) if (allocated(InData%X0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%X0_high), ubound(InData%X0_high)) + call RegPackBounds(Buf, 1, lbound(InData%X0_high, kind=B8Ki), ubound(InData%X0_high, kind=B8Ki)) call RegPack(Buf, InData%X0_high) end if call RegPack(Buf, allocated(InData%Y0_high)) if (allocated(InData%Y0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Y0_high), ubound(InData%Y0_high)) + call RegPackBounds(Buf, 1, lbound(InData%Y0_high, kind=B8Ki), ubound(InData%Y0_high, kind=B8Ki)) call RegPack(Buf, InData%Y0_high) end if call RegPack(Buf, allocated(InData%Z0_high)) if (allocated(InData%Z0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Z0_high), ubound(InData%Z0_high)) + call RegPackBounds(Buf, 1, lbound(InData%Z0_high, kind=B8Ki), ubound(InData%Z0_high, kind=B8Ki)) call RegPack(Buf, InData%Z0_high) end if call RegPack(Buf, allocated(InData%dX_high)) if (allocated(InData%dX_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dX_high), ubound(InData%dX_high)) + call RegPackBounds(Buf, 1, lbound(InData%dX_high, kind=B8Ki), ubound(InData%dX_high, kind=B8Ki)) call RegPack(Buf, InData%dX_high) end if call RegPack(Buf, allocated(InData%dY_high)) if (allocated(InData%dY_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dY_high), ubound(InData%dY_high)) + call RegPackBounds(Buf, 1, lbound(InData%dY_high, kind=B8Ki), ubound(InData%dY_high, kind=B8Ki)) call RegPack(Buf, InData%dY_high) end if call RegPack(Buf, allocated(InData%dZ_high)) if (allocated(InData%dZ_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dZ_high), ubound(InData%dZ_high)) + call RegPackBounds(Buf, 1, lbound(InData%dZ_high, kind=B8Ki), ubound(InData%dZ_high, kind=B8Ki)) call RegPack(Buf, InData%dZ_high) end if call RegPack(Buf, InData%nX_high) @@ -1185,9 +1185,9 @@ subroutine AWAE_PackInitOutput(Buf, Indata) call RegPack(Buf, InData%Z0_low) call RegPack(Buf, allocated(InData%Vdist_High)) if (allocated(InData%Vdist_High)) then - call RegPackBounds(Buf, 1, lbound(InData%Vdist_High), ubound(InData%Vdist_High)) - LB(1:1) = lbound(InData%Vdist_High) - UB(1:1) = ubound(InData%Vdist_High) + call RegPackBounds(Buf, 1, lbound(InData%Vdist_High, kind=B8Ki), ubound(InData%Vdist_High, kind=B8Ki)) + LB(1:1) = lbound(InData%Vdist_High, kind=B8Ki) + UB(1:1) = ubound(InData%Vdist_High, kind=B8Ki) do i1 = LB(1), UB(1) call AWAE_PackHighWindGridPtr(Buf, InData%Vdist_High(i1)) end do @@ -1199,8 +1199,8 @@ subroutine AWAE_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInitOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1336,16 +1336,16 @@ subroutine AWAE_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%IfW)) then - LB(1:1) = lbound(SrcContStateData%IfW) - UB(1:1) = ubound(SrcContStateData%IfW) + LB(1:1) = lbound(SrcContStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%IfW, kind=B8Ki) if (.not. allocated(DstContStateData%IfW)) then allocate(DstContStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1365,16 +1365,16 @@ subroutine AWAE_DestroyContState(ContStateData, ErrStat, ErrMsg) type(AWAE_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%IfW)) then - LB(1:1) = lbound(ContStateData%IfW) - UB(1:1) = ubound(ContStateData%IfW) + LB(1:1) = lbound(ContStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(ContStateData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyContState(ContStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1387,14 +1387,14 @@ subroutine AWAE_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%IfW), ubound(InData%IfW)) - LB(1:1) = lbound(InData%IfW) - UB(1:1) = ubound(InData%IfW) + call RegPackBounds(Buf, 1, lbound(InData%IfW, kind=B8Ki), ubound(InData%IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%IfW, kind=B8Ki) + UB(1:1) = ubound(InData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackContState(Buf, InData%IfW(i1)) end do @@ -1406,8 +1406,8 @@ subroutine AWAE_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1434,16 +1434,16 @@ subroutine AWAE_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%IfW)) then - LB(1:1) = lbound(SrcDiscStateData%IfW) - UB(1:1) = ubound(SrcDiscStateData%IfW) + LB(1:1) = lbound(SrcDiscStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%IfW, kind=B8Ki) if (.not. allocated(DstDiscStateData%IfW)) then allocate(DstDiscStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1463,16 +1463,16 @@ subroutine AWAE_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(AWAE_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(DiscStateData%IfW)) then - LB(1:1) = lbound(DiscStateData%IfW) - UB(1:1) = ubound(DiscStateData%IfW) + LB(1:1) = lbound(DiscStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyDiscState(DiscStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1485,14 +1485,14 @@ subroutine AWAE_PackDiscState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%IfW), ubound(InData%IfW)) - LB(1:1) = lbound(InData%IfW) - UB(1:1) = ubound(InData%IfW) + call RegPackBounds(Buf, 1, lbound(InData%IfW, kind=B8Ki), ubound(InData%IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%IfW, kind=B8Ki) + UB(1:1) = ubound(InData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackDiscState(Buf, InData%IfW(i1)) end do @@ -1504,8 +1504,8 @@ subroutine AWAE_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1532,16 +1532,16 @@ subroutine AWAE_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcConstrStateData%IfW)) then - LB(1:1) = lbound(SrcConstrStateData%IfW) - UB(1:1) = ubound(SrcConstrStateData%IfW) + LB(1:1) = lbound(SrcConstrStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%IfW, kind=B8Ki) if (.not. allocated(DstConstrStateData%IfW)) then allocate(DstConstrStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1561,16 +1561,16 @@ subroutine AWAE_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(AWAE_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ConstrStateData%IfW)) then - LB(1:1) = lbound(ConstrStateData%IfW) - UB(1:1) = ubound(ConstrStateData%IfW) + LB(1:1) = lbound(ConstrStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyConstrState(ConstrStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1583,14 +1583,14 @@ subroutine AWAE_PackConstrState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%IfW), ubound(InData%IfW)) - LB(1:1) = lbound(InData%IfW) - UB(1:1) = ubound(InData%IfW) + call RegPackBounds(Buf, 1, lbound(InData%IfW, kind=B8Ki), ubound(InData%IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%IfW, kind=B8Ki) + UB(1:1) = ubound(InData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackConstrState(Buf, InData%IfW(i1)) end do @@ -1602,8 +1602,8 @@ subroutine AWAE_UnPackConstrState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1630,16 +1630,16 @@ subroutine AWAE_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%IfW)) then - LB(1:1) = lbound(SrcOtherStateData%IfW) - UB(1:1) = ubound(SrcOtherStateData%IfW) + LB(1:1) = lbound(SrcOtherStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%IfW, kind=B8Ki) if (.not. allocated(DstOtherStateData%IfW)) then allocate(DstOtherStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1659,16 +1659,16 @@ subroutine AWAE_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(AWAE_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%IfW)) then - LB(1:1) = lbound(OtherStateData%IfW) - UB(1:1) = ubound(OtherStateData%IfW) + LB(1:1) = lbound(OtherStateData%IfW, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyOtherState(OtherStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1681,14 +1681,14 @@ subroutine AWAE_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%IfW), ubound(InData%IfW)) - LB(1:1) = lbound(InData%IfW) - UB(1:1) = ubound(InData%IfW) + call RegPackBounds(Buf, 1, lbound(InData%IfW, kind=B8Ki), ubound(InData%IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%IfW, kind=B8Ki) + UB(1:1) = ubound(InData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackOtherState(Buf, InData%IfW(i1)) end do @@ -1700,8 +1700,8 @@ subroutine AWAE_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1728,16 +1728,16 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%Vamb_low)) then - LB(1:4) = lbound(SrcMiscData%Vamb_low) - UB(1:4) = ubound(SrcMiscData%Vamb_low) + LB(1:4) = lbound(SrcMiscData%Vamb_low, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%Vamb_low, kind=B8Ki) if (.not. allocated(DstMiscData%Vamb_low)) then allocate(DstMiscData%Vamb_low(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1748,8 +1748,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Vamb_low = SrcMiscData%Vamb_low end if if (allocated(SrcMiscData%Vamb_lowpol)) then - LB(1:2) = lbound(SrcMiscData%Vamb_lowpol) - UB(1:2) = ubound(SrcMiscData%Vamb_lowpol) + LB(1:2) = lbound(SrcMiscData%Vamb_lowpol, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%Vamb_lowpol, kind=B8Ki) if (.not. allocated(DstMiscData%Vamb_lowpol)) then allocate(DstMiscData%Vamb_lowpol(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1760,8 +1760,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Vamb_lowpol = SrcMiscData%Vamb_lowpol end if if (allocated(SrcMiscData%Vdist_low)) then - LB(1:4) = lbound(SrcMiscData%Vdist_low) - UB(1:4) = ubound(SrcMiscData%Vdist_low) + LB(1:4) = lbound(SrcMiscData%Vdist_low, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%Vdist_low, kind=B8Ki) if (.not. allocated(DstMiscData%Vdist_low)) then allocate(DstMiscData%Vdist_low(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1772,8 +1772,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Vdist_low = SrcMiscData%Vdist_low end if if (allocated(SrcMiscData%Vdist_low_full)) then - LB(1:4) = lbound(SrcMiscData%Vdist_low_full) - UB(1:4) = ubound(SrcMiscData%Vdist_low_full) + LB(1:4) = lbound(SrcMiscData%Vdist_low_full, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%Vdist_low_full, kind=B8Ki) if (.not. allocated(DstMiscData%Vdist_low_full)) then allocate(DstMiscData%Vdist_low_full(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1784,8 +1784,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Vdist_low_full = SrcMiscData%Vdist_low_full end if if (allocated(SrcMiscData%Vamb_High)) then - LB(1:1) = lbound(SrcMiscData%Vamb_High) - UB(1:1) = ubound(SrcMiscData%Vamb_High) + LB(1:1) = lbound(SrcMiscData%Vamb_High, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Vamb_High, kind=B8Ki) if (.not. allocated(DstMiscData%Vamb_High)) then allocate(DstMiscData%Vamb_High(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1800,8 +1800,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%parallelFlag)) then - LB(1:2) = lbound(SrcMiscData%parallelFlag) - UB(1:2) = ubound(SrcMiscData%parallelFlag) + LB(1:2) = lbound(SrcMiscData%parallelFlag, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%parallelFlag, kind=B8Ki) if (.not. allocated(DstMiscData%parallelFlag)) then allocate(DstMiscData%parallelFlag(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1812,8 +1812,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%parallelFlag = SrcMiscData%parallelFlag end if if (allocated(SrcMiscData%r_s)) then - LB(1:2) = lbound(SrcMiscData%r_s) - UB(1:2) = ubound(SrcMiscData%r_s) + LB(1:2) = lbound(SrcMiscData%r_s, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%r_s, kind=B8Ki) if (.not. allocated(DstMiscData%r_s)) then allocate(DstMiscData%r_s(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1824,8 +1824,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%r_s = SrcMiscData%r_s end if if (allocated(SrcMiscData%r_e)) then - LB(1:2) = lbound(SrcMiscData%r_e) - UB(1:2) = ubound(SrcMiscData%r_e) + LB(1:2) = lbound(SrcMiscData%r_e, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%r_e, kind=B8Ki) if (.not. allocated(DstMiscData%r_e)) then allocate(DstMiscData%r_e(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1836,8 +1836,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%r_e = SrcMiscData%r_e end if if (allocated(SrcMiscData%rhat_s)) then - LB(1:3) = lbound(SrcMiscData%rhat_s) - UB(1:3) = ubound(SrcMiscData%rhat_s) + LB(1:3) = lbound(SrcMiscData%rhat_s, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%rhat_s, kind=B8Ki) if (.not. allocated(DstMiscData%rhat_s)) then allocate(DstMiscData%rhat_s(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1848,8 +1848,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rhat_s = SrcMiscData%rhat_s end if if (allocated(SrcMiscData%rhat_e)) then - LB(1:3) = lbound(SrcMiscData%rhat_e) - UB(1:3) = ubound(SrcMiscData%rhat_e) + LB(1:3) = lbound(SrcMiscData%rhat_e, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%rhat_e, kind=B8Ki) if (.not. allocated(DstMiscData%rhat_e)) then allocate(DstMiscData%rhat_e(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1860,8 +1860,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rhat_e = SrcMiscData%rhat_e end if if (allocated(SrcMiscData%pvec_cs)) then - LB(1:3) = lbound(SrcMiscData%pvec_cs) - UB(1:3) = ubound(SrcMiscData%pvec_cs) + LB(1:3) = lbound(SrcMiscData%pvec_cs, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%pvec_cs, kind=B8Ki) if (.not. allocated(DstMiscData%pvec_cs)) then allocate(DstMiscData%pvec_cs(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1872,8 +1872,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%pvec_cs = SrcMiscData%pvec_cs end if if (allocated(SrcMiscData%pvec_ce)) then - LB(1:3) = lbound(SrcMiscData%pvec_ce) - UB(1:3) = ubound(SrcMiscData%pvec_ce) + LB(1:3) = lbound(SrcMiscData%pvec_ce, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%pvec_ce, kind=B8Ki) if (.not. allocated(DstMiscData%pvec_ce)) then allocate(DstMiscData%pvec_ce(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1884,8 +1884,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%pvec_ce = SrcMiscData%pvec_ce end if if (allocated(SrcMiscData%outVizXYPlane)) then - LB(1:4) = lbound(SrcMiscData%outVizXYPlane) - UB(1:4) = ubound(SrcMiscData%outVizXYPlane) + LB(1:4) = lbound(SrcMiscData%outVizXYPlane, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%outVizXYPlane, kind=B8Ki) if (.not. allocated(DstMiscData%outVizXYPlane)) then allocate(DstMiscData%outVizXYPlane(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1896,8 +1896,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%outVizXYPlane = SrcMiscData%outVizXYPlane end if if (allocated(SrcMiscData%outVizYZPlane)) then - LB(1:4) = lbound(SrcMiscData%outVizYZPlane) - UB(1:4) = ubound(SrcMiscData%outVizYZPlane) + LB(1:4) = lbound(SrcMiscData%outVizYZPlane, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%outVizYZPlane, kind=B8Ki) if (.not. allocated(DstMiscData%outVizYZPlane)) then allocate(DstMiscData%outVizYZPlane(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1908,8 +1908,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%outVizYZPlane = SrcMiscData%outVizYZPlane end if if (allocated(SrcMiscData%outVizXZPlane)) then - LB(1:4) = lbound(SrcMiscData%outVizXZPlane) - UB(1:4) = ubound(SrcMiscData%outVizXZPlane) + LB(1:4) = lbound(SrcMiscData%outVizXZPlane, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%outVizXZPlane, kind=B8Ki) if (.not. allocated(DstMiscData%outVizXZPlane)) then allocate(DstMiscData%outVizXZPlane(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1920,8 +1920,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%outVizXZPlane = SrcMiscData%outVizXZPlane end if if (allocated(SrcMiscData%IfW)) then - LB(1:1) = lbound(SrcMiscData%IfW) - UB(1:1) = ubound(SrcMiscData%IfW) + LB(1:1) = lbound(SrcMiscData%IfW, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%IfW, kind=B8Ki) if (.not. allocated(DstMiscData%IfW)) then allocate(DstMiscData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1953,8 +1953,8 @@ subroutine AWAE_DestroyMisc(MiscData, ErrStat, ErrMsg) type(AWAE_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyMisc' @@ -1973,8 +1973,8 @@ subroutine AWAE_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%Vdist_low_full) end if if (allocated(MiscData%Vamb_High)) then - LB(1:1) = lbound(MiscData%Vamb_High) - UB(1:1) = ubound(MiscData%Vamb_High) + LB(1:1) = lbound(MiscData%Vamb_High, kind=B8Ki) + UB(1:1) = ubound(MiscData%Vamb_High, kind=B8Ki) do i1 = LB(1), UB(1) call AWAE_DestroyHighWindGrid(MiscData%Vamb_High(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2012,8 +2012,8 @@ subroutine AWAE_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%outVizXZPlane) end if if (allocated(MiscData%IfW)) then - LB(1:1) = lbound(MiscData%IfW) - UB(1:1) = ubound(MiscData%IfW) + LB(1:1) = lbound(MiscData%IfW, kind=B8Ki) + UB(1:1) = ubound(MiscData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyMisc(MiscData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2034,93 +2034,93 @@ subroutine AWAE_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackMisc' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Vamb_low)) if (allocated(InData%Vamb_low)) then - call RegPackBounds(Buf, 4, lbound(InData%Vamb_low), ubound(InData%Vamb_low)) + call RegPackBounds(Buf, 4, lbound(InData%Vamb_low, kind=B8Ki), ubound(InData%Vamb_low, kind=B8Ki)) call RegPack(Buf, InData%Vamb_low) end if call RegPack(Buf, allocated(InData%Vamb_lowpol)) if (allocated(InData%Vamb_lowpol)) then - call RegPackBounds(Buf, 2, lbound(InData%Vamb_lowpol), ubound(InData%Vamb_lowpol)) + call RegPackBounds(Buf, 2, lbound(InData%Vamb_lowpol, kind=B8Ki), ubound(InData%Vamb_lowpol, kind=B8Ki)) call RegPack(Buf, InData%Vamb_lowpol) end if call RegPack(Buf, allocated(InData%Vdist_low)) if (allocated(InData%Vdist_low)) then - call RegPackBounds(Buf, 4, lbound(InData%Vdist_low), ubound(InData%Vdist_low)) + call RegPackBounds(Buf, 4, lbound(InData%Vdist_low, kind=B8Ki), ubound(InData%Vdist_low, kind=B8Ki)) call RegPack(Buf, InData%Vdist_low) end if call RegPack(Buf, allocated(InData%Vdist_low_full)) if (allocated(InData%Vdist_low_full)) then - call RegPackBounds(Buf, 4, lbound(InData%Vdist_low_full), ubound(InData%Vdist_low_full)) + call RegPackBounds(Buf, 4, lbound(InData%Vdist_low_full, kind=B8Ki), ubound(InData%Vdist_low_full, kind=B8Ki)) call RegPack(Buf, InData%Vdist_low_full) end if call RegPack(Buf, allocated(InData%Vamb_High)) if (allocated(InData%Vamb_High)) then - call RegPackBounds(Buf, 1, lbound(InData%Vamb_High), ubound(InData%Vamb_High)) - LB(1:1) = lbound(InData%Vamb_High) - UB(1:1) = ubound(InData%Vamb_High) + call RegPackBounds(Buf, 1, lbound(InData%Vamb_High, kind=B8Ki), ubound(InData%Vamb_High, kind=B8Ki)) + LB(1:1) = lbound(InData%Vamb_High, kind=B8Ki) + UB(1:1) = ubound(InData%Vamb_High, kind=B8Ki) do i1 = LB(1), UB(1) call AWAE_PackHighWindGrid(Buf, InData%Vamb_High(i1)) end do end if call RegPack(Buf, allocated(InData%parallelFlag)) if (allocated(InData%parallelFlag)) then - call RegPackBounds(Buf, 2, lbound(InData%parallelFlag), ubound(InData%parallelFlag)) + call RegPackBounds(Buf, 2, lbound(InData%parallelFlag, kind=B8Ki), ubound(InData%parallelFlag, kind=B8Ki)) call RegPack(Buf, InData%parallelFlag) end if call RegPack(Buf, allocated(InData%r_s)) if (allocated(InData%r_s)) then - call RegPackBounds(Buf, 2, lbound(InData%r_s), ubound(InData%r_s)) + call RegPackBounds(Buf, 2, lbound(InData%r_s, kind=B8Ki), ubound(InData%r_s, kind=B8Ki)) call RegPack(Buf, InData%r_s) end if call RegPack(Buf, allocated(InData%r_e)) if (allocated(InData%r_e)) then - call RegPackBounds(Buf, 2, lbound(InData%r_e), ubound(InData%r_e)) + call RegPackBounds(Buf, 2, lbound(InData%r_e, kind=B8Ki), ubound(InData%r_e, kind=B8Ki)) call RegPack(Buf, InData%r_e) end if call RegPack(Buf, allocated(InData%rhat_s)) if (allocated(InData%rhat_s)) then - call RegPackBounds(Buf, 3, lbound(InData%rhat_s), ubound(InData%rhat_s)) + call RegPackBounds(Buf, 3, lbound(InData%rhat_s, kind=B8Ki), ubound(InData%rhat_s, kind=B8Ki)) call RegPack(Buf, InData%rhat_s) end if call RegPack(Buf, allocated(InData%rhat_e)) if (allocated(InData%rhat_e)) then - call RegPackBounds(Buf, 3, lbound(InData%rhat_e), ubound(InData%rhat_e)) + call RegPackBounds(Buf, 3, lbound(InData%rhat_e, kind=B8Ki), ubound(InData%rhat_e, kind=B8Ki)) call RegPack(Buf, InData%rhat_e) end if call RegPack(Buf, allocated(InData%pvec_cs)) if (allocated(InData%pvec_cs)) then - call RegPackBounds(Buf, 3, lbound(InData%pvec_cs), ubound(InData%pvec_cs)) + call RegPackBounds(Buf, 3, lbound(InData%pvec_cs, kind=B8Ki), ubound(InData%pvec_cs, kind=B8Ki)) call RegPack(Buf, InData%pvec_cs) end if call RegPack(Buf, allocated(InData%pvec_ce)) if (allocated(InData%pvec_ce)) then - call RegPackBounds(Buf, 3, lbound(InData%pvec_ce), ubound(InData%pvec_ce)) + call RegPackBounds(Buf, 3, lbound(InData%pvec_ce, kind=B8Ki), ubound(InData%pvec_ce, kind=B8Ki)) call RegPack(Buf, InData%pvec_ce) end if call RegPack(Buf, allocated(InData%outVizXYPlane)) if (allocated(InData%outVizXYPlane)) then - call RegPackBounds(Buf, 4, lbound(InData%outVizXYPlane), ubound(InData%outVizXYPlane)) + call RegPackBounds(Buf, 4, lbound(InData%outVizXYPlane, kind=B8Ki), ubound(InData%outVizXYPlane, kind=B8Ki)) call RegPack(Buf, InData%outVizXYPlane) end if call RegPack(Buf, allocated(InData%outVizYZPlane)) if (allocated(InData%outVizYZPlane)) then - call RegPackBounds(Buf, 4, lbound(InData%outVizYZPlane), ubound(InData%outVizYZPlane)) + call RegPackBounds(Buf, 4, lbound(InData%outVizYZPlane, kind=B8Ki), ubound(InData%outVizYZPlane, kind=B8Ki)) call RegPack(Buf, InData%outVizYZPlane) end if call RegPack(Buf, allocated(InData%outVizXZPlane)) if (allocated(InData%outVizXZPlane)) then - call RegPackBounds(Buf, 4, lbound(InData%outVizXZPlane), ubound(InData%outVizXZPlane)) + call RegPackBounds(Buf, 4, lbound(InData%outVizXZPlane, kind=B8Ki), ubound(InData%outVizXZPlane, kind=B8Ki)) call RegPack(Buf, InData%outVizXZPlane) end if call RegPack(Buf, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%IfW), ubound(InData%IfW)) - LB(1:1) = lbound(InData%IfW) - UB(1:1) = ubound(InData%IfW) + call RegPackBounds(Buf, 1, lbound(InData%IfW, kind=B8Ki), ubound(InData%IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%IfW, kind=B8Ki) + UB(1:1) = ubound(InData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackMisc(Buf, InData%IfW(i1)) end do @@ -2136,8 +2136,8 @@ subroutine AWAE_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackMisc' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2379,8 +2379,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyParam' @@ -2391,8 +2391,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumRadii = SrcParamData%NumRadii DstParamData%NumPlanes = SrcParamData%NumPlanes if (allocated(SrcParamData%y)) then - LB(1:1) = lbound(SrcParamData%y) - UB(1:1) = ubound(SrcParamData%y) + LB(1:1) = lbound(SrcParamData%y, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%y, kind=B8Ki) if (.not. allocated(DstParamData%y)) then allocate(DstParamData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2403,8 +2403,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%y = SrcParamData%y end if if (allocated(SrcParamData%z)) then - LB(1:1) = lbound(SrcParamData%z) - UB(1:1) = ubound(SrcParamData%z) + LB(1:1) = lbound(SrcParamData%z, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%z, kind=B8Ki) if (.not. allocated(DstParamData%z)) then allocate(DstParamData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2429,8 +2429,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Y0_low = SrcParamData%Y0_low DstParamData%Z0_low = SrcParamData%Z0_low if (allocated(SrcParamData%X0_high)) then - LB(1:1) = lbound(SrcParamData%X0_high) - UB(1:1) = ubound(SrcParamData%X0_high) + LB(1:1) = lbound(SrcParamData%X0_high, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%X0_high, kind=B8Ki) if (.not. allocated(DstParamData%X0_high)) then allocate(DstParamData%X0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2441,8 +2441,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%X0_high = SrcParamData%X0_high end if if (allocated(SrcParamData%Y0_high)) then - LB(1:1) = lbound(SrcParamData%Y0_high) - UB(1:1) = ubound(SrcParamData%Y0_high) + LB(1:1) = lbound(SrcParamData%Y0_high, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Y0_high, kind=B8Ki) if (.not. allocated(DstParamData%Y0_high)) then allocate(DstParamData%Y0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2453,8 +2453,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Y0_high = SrcParamData%Y0_high end if if (allocated(SrcParamData%Z0_high)) then - LB(1:1) = lbound(SrcParamData%Z0_high) - UB(1:1) = ubound(SrcParamData%Z0_high) + LB(1:1) = lbound(SrcParamData%Z0_high, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Z0_high, kind=B8Ki) if (.not. allocated(DstParamData%Z0_high)) then allocate(DstParamData%Z0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2465,8 +2465,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Z0_high = SrcParamData%Z0_high end if if (allocated(SrcParamData%dX_high)) then - LB(1:1) = lbound(SrcParamData%dX_high) - UB(1:1) = ubound(SrcParamData%dX_high) + LB(1:1) = lbound(SrcParamData%dX_high, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dX_high, kind=B8Ki) if (.not. allocated(DstParamData%dX_high)) then allocate(DstParamData%dX_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2477,8 +2477,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%dX_high = SrcParamData%dX_high end if if (allocated(SrcParamData%dY_high)) then - LB(1:1) = lbound(SrcParamData%dY_high) - UB(1:1) = ubound(SrcParamData%dY_high) + LB(1:1) = lbound(SrcParamData%dY_high, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dY_high, kind=B8Ki) if (.not. allocated(DstParamData%dY_high)) then allocate(DstParamData%dY_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2489,8 +2489,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%dY_high = SrcParamData%dY_high end if if (allocated(SrcParamData%dZ_high)) then - LB(1:1) = lbound(SrcParamData%dZ_high) - UB(1:1) = ubound(SrcParamData%dZ_high) + LB(1:1) = lbound(SrcParamData%dZ_high, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dZ_high, kind=B8Ki) if (.not. allocated(DstParamData%dZ_high)) then allocate(DstParamData%dZ_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2504,8 +2504,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nY_high = SrcParamData%nY_high DstParamData%nZ_high = SrcParamData%nZ_high if (allocated(SrcParamData%Grid_low)) then - LB(1:2) = lbound(SrcParamData%Grid_low) - UB(1:2) = ubound(SrcParamData%Grid_low) + LB(1:2) = lbound(SrcParamData%Grid_low, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Grid_low, kind=B8Ki) if (.not. allocated(DstParamData%Grid_low)) then allocate(DstParamData%Grid_low(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2516,8 +2516,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Grid_low = SrcParamData%Grid_low end if if (allocated(SrcParamData%Grid_high)) then - LB(1:3) = lbound(SrcParamData%Grid_high) - UB(1:3) = ubound(SrcParamData%Grid_high) + LB(1:3) = lbound(SrcParamData%Grid_high, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%Grid_high, kind=B8Ki) if (.not. allocated(DstParamData%Grid_high)) then allocate(DstParamData%Grid_high(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2528,8 +2528,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Grid_high = SrcParamData%Grid_high end if if (allocated(SrcParamData%WT_Position)) then - LB(1:2) = lbound(SrcParamData%WT_Position) - UB(1:2) = ubound(SrcParamData%WT_Position) + LB(1:2) = lbound(SrcParamData%WT_Position, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%WT_Position, kind=B8Ki) if (.not. allocated(DstParamData%WT_Position)) then allocate(DstParamData%WT_Position(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2548,8 +2548,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%C_ScaleDiam = SrcParamData%C_ScaleDiam DstParamData%Mod_Projection = SrcParamData%Mod_Projection if (allocated(SrcParamData%IfW)) then - LB(1:1) = lbound(SrcParamData%IfW) - UB(1:1) = ubound(SrcParamData%IfW) + LB(1:1) = lbound(SrcParamData%IfW, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IfW, kind=B8Ki) if (.not. allocated(DstParamData%IfW)) then allocate(DstParamData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2567,8 +2567,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WrDisWind = SrcParamData%WrDisWind DstParamData%NOutDisWindXY = SrcParamData%NOutDisWindXY if (allocated(SrcParamData%OutDisWindZ)) then - LB(1:1) = lbound(SrcParamData%OutDisWindZ) - UB(1:1) = ubound(SrcParamData%OutDisWindZ) + LB(1:1) = lbound(SrcParamData%OutDisWindZ, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutDisWindZ, kind=B8Ki) if (.not. allocated(DstParamData%OutDisWindZ)) then allocate(DstParamData%OutDisWindZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2580,8 +2580,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NOutDisWindYZ = SrcParamData%NOutDisWindYZ if (allocated(SrcParamData%OutDisWindX)) then - LB(1:1) = lbound(SrcParamData%OutDisWindX) - UB(1:1) = ubound(SrcParamData%OutDisWindX) + LB(1:1) = lbound(SrcParamData%OutDisWindX, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutDisWindX, kind=B8Ki) if (.not. allocated(DstParamData%OutDisWindX)) then allocate(DstParamData%OutDisWindX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2593,8 +2593,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NOutDisWindXZ = SrcParamData%NOutDisWindXZ if (allocated(SrcParamData%OutDisWindY)) then - LB(1:1) = lbound(SrcParamData%OutDisWindY) - UB(1:1) = ubound(SrcParamData%OutDisWindY) + LB(1:1) = lbound(SrcParamData%OutDisWindY, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutDisWindY, kind=B8Ki) if (.not. allocated(DstParamData%OutDisWindY)) then allocate(DstParamData%OutDisWindY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2613,8 +2613,8 @@ subroutine AWAE_DestroyParam(ParamData, ErrStat, ErrMsg) type(AWAE_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyParam' @@ -2654,8 +2654,8 @@ subroutine AWAE_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WT_Position) end if if (allocated(ParamData%IfW)) then - LB(1:1) = lbound(ParamData%IfW) - UB(1:1) = ubound(ParamData%IfW) + LB(1:1) = lbound(ParamData%IfW, kind=B8Ki) + UB(1:1) = ubound(ParamData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyParam(ParamData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2677,8 +2677,8 @@ subroutine AWAE_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%WindFilePath) call RegPack(Buf, InData%NumTurbines) @@ -2686,12 +2686,12 @@ subroutine AWAE_PackParam(Buf, Indata) call RegPack(Buf, InData%NumPlanes) call RegPack(Buf, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPack(Buf, InData%y) end if call RegPack(Buf, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(Buf, 1, lbound(InData%z), ubound(InData%z)) + call RegPackBounds(Buf, 1, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) call RegPack(Buf, InData%z) end if call RegPack(Buf, InData%Mod_AmbWind) @@ -2710,32 +2710,32 @@ subroutine AWAE_PackParam(Buf, Indata) call RegPack(Buf, InData%Z0_low) call RegPack(Buf, allocated(InData%X0_high)) if (allocated(InData%X0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%X0_high), ubound(InData%X0_high)) + call RegPackBounds(Buf, 1, lbound(InData%X0_high, kind=B8Ki), ubound(InData%X0_high, kind=B8Ki)) call RegPack(Buf, InData%X0_high) end if call RegPack(Buf, allocated(InData%Y0_high)) if (allocated(InData%Y0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Y0_high), ubound(InData%Y0_high)) + call RegPackBounds(Buf, 1, lbound(InData%Y0_high, kind=B8Ki), ubound(InData%Y0_high, kind=B8Ki)) call RegPack(Buf, InData%Y0_high) end if call RegPack(Buf, allocated(InData%Z0_high)) if (allocated(InData%Z0_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Z0_high), ubound(InData%Z0_high)) + call RegPackBounds(Buf, 1, lbound(InData%Z0_high, kind=B8Ki), ubound(InData%Z0_high, kind=B8Ki)) call RegPack(Buf, InData%Z0_high) end if call RegPack(Buf, allocated(InData%dX_high)) if (allocated(InData%dX_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dX_high), ubound(InData%dX_high)) + call RegPackBounds(Buf, 1, lbound(InData%dX_high, kind=B8Ki), ubound(InData%dX_high, kind=B8Ki)) call RegPack(Buf, InData%dX_high) end if call RegPack(Buf, allocated(InData%dY_high)) if (allocated(InData%dY_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dY_high), ubound(InData%dY_high)) + call RegPackBounds(Buf, 1, lbound(InData%dY_high, kind=B8Ki), ubound(InData%dY_high, kind=B8Ki)) call RegPack(Buf, InData%dY_high) end if call RegPack(Buf, allocated(InData%dZ_high)) if (allocated(InData%dZ_high)) then - call RegPackBounds(Buf, 1, lbound(InData%dZ_high), ubound(InData%dZ_high)) + call RegPackBounds(Buf, 1, lbound(InData%dZ_high, kind=B8Ki), ubound(InData%dZ_high, kind=B8Ki)) call RegPack(Buf, InData%dZ_high) end if call RegPack(Buf, InData%nX_high) @@ -2743,17 +2743,17 @@ subroutine AWAE_PackParam(Buf, Indata) call RegPack(Buf, InData%nZ_high) call RegPack(Buf, allocated(InData%Grid_low)) if (allocated(InData%Grid_low)) then - call RegPackBounds(Buf, 2, lbound(InData%Grid_low), ubound(InData%Grid_low)) + call RegPackBounds(Buf, 2, lbound(InData%Grid_low, kind=B8Ki), ubound(InData%Grid_low, kind=B8Ki)) call RegPack(Buf, InData%Grid_low) end if call RegPack(Buf, allocated(InData%Grid_high)) if (allocated(InData%Grid_high)) then - call RegPackBounds(Buf, 3, lbound(InData%Grid_high), ubound(InData%Grid_high)) + call RegPackBounds(Buf, 3, lbound(InData%Grid_high, kind=B8Ki), ubound(InData%Grid_high, kind=B8Ki)) call RegPack(Buf, InData%Grid_high) end if call RegPack(Buf, allocated(InData%WT_Position)) if (allocated(InData%WT_Position)) then - call RegPackBounds(Buf, 2, lbound(InData%WT_Position), ubound(InData%WT_Position)) + call RegPackBounds(Buf, 2, lbound(InData%WT_Position, kind=B8Ki), ubound(InData%WT_Position, kind=B8Ki)) call RegPack(Buf, InData%WT_Position) end if call RegPack(Buf, InData%n_high_low) @@ -2766,9 +2766,9 @@ subroutine AWAE_PackParam(Buf, Indata) call RegPack(Buf, InData%Mod_Projection) call RegPack(Buf, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%IfW), ubound(InData%IfW)) - LB(1:1) = lbound(InData%IfW) - UB(1:1) = ubound(InData%IfW) + call RegPackBounds(Buf, 1, lbound(InData%IfW, kind=B8Ki), ubound(InData%IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%IfW, kind=B8Ki) + UB(1:1) = ubound(InData%IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackParam(Buf, InData%IfW(i1)) end do @@ -2778,19 +2778,19 @@ subroutine AWAE_PackParam(Buf, Indata) call RegPack(Buf, InData%NOutDisWindXY) call RegPack(Buf, allocated(InData%OutDisWindZ)) if (allocated(InData%OutDisWindZ)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDisWindZ), ubound(InData%OutDisWindZ)) + call RegPackBounds(Buf, 1, lbound(InData%OutDisWindZ, kind=B8Ki), ubound(InData%OutDisWindZ, kind=B8Ki)) call RegPack(Buf, InData%OutDisWindZ) end if call RegPack(Buf, InData%NOutDisWindYZ) call RegPack(Buf, allocated(InData%OutDisWindX)) if (allocated(InData%OutDisWindX)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDisWindX), ubound(InData%OutDisWindX)) + call RegPackBounds(Buf, 1, lbound(InData%OutDisWindX, kind=B8Ki), ubound(InData%OutDisWindX, kind=B8Ki)) call RegPack(Buf, InData%OutDisWindX) end if call RegPack(Buf, InData%NOutDisWindXZ) call RegPack(Buf, allocated(InData%OutDisWindY)) if (allocated(InData%OutDisWindY)) then - call RegPackBounds(Buf, 1, lbound(InData%OutDisWindY), ubound(InData%OutDisWindY)) + call RegPackBounds(Buf, 1, lbound(InData%OutDisWindY, kind=B8Ki), ubound(InData%OutDisWindY, kind=B8Ki)) call RegPack(Buf, InData%OutDisWindY) end if call RegPack(Buf, InData%OutFileRoot) @@ -2803,8 +2803,8 @@ subroutine AWAE_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3101,16 +3101,16 @@ subroutine AWAE_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%Vdist_High)) then - LB(1:1) = lbound(SrcOutputData%Vdist_High) - UB(1:1) = ubound(SrcOutputData%Vdist_High) + LB(1:1) = lbound(SrcOutputData%Vdist_High, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Vdist_High, kind=B8Ki) if (.not. allocated(DstOutputData%Vdist_High)) then allocate(DstOutputData%Vdist_High(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3125,8 +3125,8 @@ subroutine AWAE_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%V_plane)) then - LB(1:3) = lbound(SrcOutputData%V_plane) - UB(1:3) = ubound(SrcOutputData%V_plane) + LB(1:3) = lbound(SrcOutputData%V_plane, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%V_plane, kind=B8Ki) if (.not. allocated(DstOutputData%V_plane)) then allocate(DstOutputData%V_plane(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3137,8 +3137,8 @@ subroutine AWAE_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%V_plane = SrcOutputData%V_plane end if if (allocated(SrcOutputData%TI_amb)) then - LB(1:1) = lbound(SrcOutputData%TI_amb) - UB(1:1) = ubound(SrcOutputData%TI_amb) + LB(1:1) = lbound(SrcOutputData%TI_amb, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%TI_amb, kind=B8Ki) if (.not. allocated(DstOutputData%TI_amb)) then allocate(DstOutputData%TI_amb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3149,8 +3149,8 @@ subroutine AWAE_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%TI_amb = SrcOutputData%TI_amb end if if (allocated(SrcOutputData%Vx_wind_disk)) then - LB(1:1) = lbound(SrcOutputData%Vx_wind_disk) - UB(1:1) = ubound(SrcOutputData%Vx_wind_disk) + LB(1:1) = lbound(SrcOutputData%Vx_wind_disk, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Vx_wind_disk, kind=B8Ki) if (.not. allocated(DstOutputData%Vx_wind_disk)) then allocate(DstOutputData%Vx_wind_disk(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3166,16 +3166,16 @@ subroutine AWAE_DestroyOutput(OutputData, ErrStat, ErrMsg) type(AWAE_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%Vdist_High)) then - LB(1:1) = lbound(OutputData%Vdist_High) - UB(1:1) = ubound(OutputData%Vdist_High) + LB(1:1) = lbound(OutputData%Vdist_High, kind=B8Ki) + UB(1:1) = ubound(OutputData%Vdist_High, kind=B8Ki) do i1 = LB(1), UB(1) call AWAE_DestroyHighWindGrid(OutputData%Vdist_High(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3197,31 +3197,31 @@ subroutine AWAE_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AWAE_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackOutput' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Vdist_High)) if (allocated(InData%Vdist_High)) then - call RegPackBounds(Buf, 1, lbound(InData%Vdist_High), ubound(InData%Vdist_High)) - LB(1:1) = lbound(InData%Vdist_High) - UB(1:1) = ubound(InData%Vdist_High) + call RegPackBounds(Buf, 1, lbound(InData%Vdist_High, kind=B8Ki), ubound(InData%Vdist_High, kind=B8Ki)) + LB(1:1) = lbound(InData%Vdist_High, kind=B8Ki) + UB(1:1) = ubound(InData%Vdist_High, kind=B8Ki) do i1 = LB(1), UB(1) call AWAE_PackHighWindGrid(Buf, InData%Vdist_High(i1)) end do end if call RegPack(Buf, allocated(InData%V_plane)) if (allocated(InData%V_plane)) then - call RegPackBounds(Buf, 3, lbound(InData%V_plane), ubound(InData%V_plane)) + call RegPackBounds(Buf, 3, lbound(InData%V_plane, kind=B8Ki), ubound(InData%V_plane, kind=B8Ki)) call RegPack(Buf, InData%V_plane) end if call RegPack(Buf, allocated(InData%TI_amb)) if (allocated(InData%TI_amb)) then - call RegPackBounds(Buf, 1, lbound(InData%TI_amb), ubound(InData%TI_amb)) + call RegPackBounds(Buf, 1, lbound(InData%TI_amb, kind=B8Ki), ubound(InData%TI_amb, kind=B8Ki)) call RegPack(Buf, InData%TI_amb) end if call RegPack(Buf, allocated(InData%Vx_wind_disk)) if (allocated(InData%Vx_wind_disk)) then - call RegPackBounds(Buf, 1, lbound(InData%Vx_wind_disk), ubound(InData%Vx_wind_disk)) + call RegPackBounds(Buf, 1, lbound(InData%Vx_wind_disk, kind=B8Ki), ubound(InData%Vx_wind_disk, kind=B8Ki)) call RegPack(Buf, InData%Vx_wind_disk) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3231,8 +3231,8 @@ subroutine AWAE_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackOutput' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3301,14 +3301,14 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AWAE_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%xhat_plane)) then - LB(1:3) = lbound(SrcInputData%xhat_plane) - UB(1:3) = ubound(SrcInputData%xhat_plane) + LB(1:3) = lbound(SrcInputData%xhat_plane, kind=B8Ki) + UB(1:3) = ubound(SrcInputData%xhat_plane, kind=B8Ki) if (.not. allocated(DstInputData%xhat_plane)) then allocate(DstInputData%xhat_plane(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3319,8 +3319,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%xhat_plane = SrcInputData%xhat_plane end if if (allocated(SrcInputData%p_plane)) then - LB(1:3) = lbound(SrcInputData%p_plane) - UB(1:3) = ubound(SrcInputData%p_plane) + LB(1:3) = lbound(SrcInputData%p_plane, kind=B8Ki) + UB(1:3) = ubound(SrcInputData%p_plane, kind=B8Ki) if (.not. allocated(DstInputData%p_plane)) then allocate(DstInputData%p_plane(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3331,8 +3331,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%p_plane = SrcInputData%p_plane end if if (allocated(SrcInputData%Vx_wake)) then - LB(1:4) = lbound(SrcInputData%Vx_wake) - UB(1:4) = ubound(SrcInputData%Vx_wake) + LB(1:4) = lbound(SrcInputData%Vx_wake, kind=B8Ki) + UB(1:4) = ubound(SrcInputData%Vx_wake, kind=B8Ki) if (.not. allocated(DstInputData%Vx_wake)) then allocate(DstInputData%Vx_wake(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3343,8 +3343,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vx_wake = SrcInputData%Vx_wake end if if (allocated(SrcInputData%Vy_wake)) then - LB(1:4) = lbound(SrcInputData%Vy_wake) - UB(1:4) = ubound(SrcInputData%Vy_wake) + LB(1:4) = lbound(SrcInputData%Vy_wake, kind=B8Ki) + UB(1:4) = ubound(SrcInputData%Vy_wake, kind=B8Ki) if (.not. allocated(DstInputData%Vy_wake)) then allocate(DstInputData%Vy_wake(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3355,8 +3355,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vy_wake = SrcInputData%Vy_wake end if if (allocated(SrcInputData%Vz_wake)) then - LB(1:4) = lbound(SrcInputData%Vz_wake) - UB(1:4) = ubound(SrcInputData%Vz_wake) + LB(1:4) = lbound(SrcInputData%Vz_wake, kind=B8Ki) + UB(1:4) = ubound(SrcInputData%Vz_wake, kind=B8Ki) if (.not. allocated(DstInputData%Vz_wake)) then allocate(DstInputData%Vz_wake(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3367,8 +3367,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Vz_wake = SrcInputData%Vz_wake end if if (allocated(SrcInputData%D_wake)) then - LB(1:2) = lbound(SrcInputData%D_wake) - UB(1:2) = ubound(SrcInputData%D_wake) + LB(1:2) = lbound(SrcInputData%D_wake, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%D_wake, kind=B8Ki) if (.not. allocated(DstInputData%D_wake)) then allocate(DstInputData%D_wake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3379,8 +3379,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%D_wake = SrcInputData%D_wake end if if (allocated(SrcInputData%WAT_k_mt)) then - LB(1:3) = lbound(SrcInputData%WAT_k_mt) - UB(1:3) = ubound(SrcInputData%WAT_k_mt) + LB(1:3) = lbound(SrcInputData%WAT_k_mt, kind=B8Ki) + UB(1:3) = ubound(SrcInputData%WAT_k_mt, kind=B8Ki) if (.not. allocated(DstInputData%WAT_k_mt)) then allocate(DstInputData%WAT_k_mt(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3429,37 +3429,37 @@ subroutine AWAE_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%xhat_plane)) if (allocated(InData%xhat_plane)) then - call RegPackBounds(Buf, 3, lbound(InData%xhat_plane), ubound(InData%xhat_plane)) + call RegPackBounds(Buf, 3, lbound(InData%xhat_plane, kind=B8Ki), ubound(InData%xhat_plane, kind=B8Ki)) call RegPack(Buf, InData%xhat_plane) end if call RegPack(Buf, allocated(InData%p_plane)) if (allocated(InData%p_plane)) then - call RegPackBounds(Buf, 3, lbound(InData%p_plane), ubound(InData%p_plane)) + call RegPackBounds(Buf, 3, lbound(InData%p_plane, kind=B8Ki), ubound(InData%p_plane, kind=B8Ki)) call RegPack(Buf, InData%p_plane) end if call RegPack(Buf, allocated(InData%Vx_wake)) if (allocated(InData%Vx_wake)) then - call RegPackBounds(Buf, 4, lbound(InData%Vx_wake), ubound(InData%Vx_wake)) + call RegPackBounds(Buf, 4, lbound(InData%Vx_wake, kind=B8Ki), ubound(InData%Vx_wake, kind=B8Ki)) call RegPack(Buf, InData%Vx_wake) end if call RegPack(Buf, allocated(InData%Vy_wake)) if (allocated(InData%Vy_wake)) then - call RegPackBounds(Buf, 4, lbound(InData%Vy_wake), ubound(InData%Vy_wake)) + call RegPackBounds(Buf, 4, lbound(InData%Vy_wake, kind=B8Ki), ubound(InData%Vy_wake, kind=B8Ki)) call RegPack(Buf, InData%Vy_wake) end if call RegPack(Buf, allocated(InData%Vz_wake)) if (allocated(InData%Vz_wake)) then - call RegPackBounds(Buf, 4, lbound(InData%Vz_wake), ubound(InData%Vz_wake)) + call RegPackBounds(Buf, 4, lbound(InData%Vz_wake, kind=B8Ki), ubound(InData%Vz_wake, kind=B8Ki)) call RegPack(Buf, InData%Vz_wake) end if call RegPack(Buf, allocated(InData%D_wake)) if (allocated(InData%D_wake)) then - call RegPackBounds(Buf, 2, lbound(InData%D_wake), ubound(InData%D_wake)) + call RegPackBounds(Buf, 2, lbound(InData%D_wake, kind=B8Ki), ubound(InData%D_wake, kind=B8Ki)) call RegPack(Buf, InData%D_wake) end if call RegPack(Buf, allocated(InData%WAT_k_mt)) if (allocated(InData%WAT_k_mt)) then - call RegPackBounds(Buf, 3, lbound(InData%WAT_k_mt), ubound(InData%WAT_k_mt)) + call RegPackBounds(Buf, 3, lbound(InData%WAT_k_mt, kind=B8Ki), ubound(InData%WAT_k_mt, kind=B8Ki)) call RegPack(Buf, InData%WAT_k_mt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3469,7 +3469,7 @@ subroutine AWAE_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AWAE_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInput' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/beamdyn/src/BeamDyn_Types.f90 b/modules/beamdyn/src/BeamDyn_Types.f90 index c4fcd0772f..6e3e5b9acf 100644 --- a/modules/beamdyn/src/BeamDyn_Types.f90 +++ b/modules/beamdyn/src/BeamDyn_Types.f90 @@ -430,15 +430,15 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -449,8 +449,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -464,8 +464,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%kp_coordinate)) then - LB(1:2) = lbound(SrcInitOutputData%kp_coordinate) - UB(1:2) = ubound(SrcInitOutputData%kp_coordinate) + LB(1:2) = lbound(SrcInitOutputData%kp_coordinate, kind=B8Ki) + UB(1:2) = ubound(SrcInitOutputData%kp_coordinate, kind=B8Ki) if (.not. allocated(DstInitOutputData%kp_coordinate)) then allocate(DstInitOutputData%kp_coordinate(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -477,8 +477,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err end if DstInitOutputData%kp_total = SrcInitOutputData%kp_total if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -489,8 +489,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -501,8 +501,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -513,8 +513,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -525,8 +525,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_x)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -537,8 +537,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_x = SrcInitOutputData%RotFrame_x end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -549,8 +549,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -561,8 +561,8 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%IsLoad_u = SrcInitOutputData%IsLoad_u end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -627,59 +627,59 @@ subroutine BD_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%kp_coordinate)) if (allocated(InData%kp_coordinate)) then - call RegPackBounds(Buf, 2, lbound(InData%kp_coordinate), ubound(InData%kp_coordinate)) + call RegPackBounds(Buf, 2, lbound(InData%kp_coordinate, kind=B8Ki), ubound(InData%kp_coordinate, kind=B8Ki)) call RegPack(Buf, InData%kp_coordinate) end if call RegPack(Buf, InData%kp_total) call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -689,7 +689,7 @@ subroutine BD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackInitOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -858,7 +858,7 @@ subroutine BD_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BD_CopyBladeInputData' ErrStat = ErrID_None @@ -866,8 +866,8 @@ subroutine BD_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%station_total = SrcBladeInputDataData%station_total DstBladeInputDataData%format_index = SrcBladeInputDataData%format_index if (allocated(SrcBladeInputDataData%station_eta)) then - LB(1:1) = lbound(SrcBladeInputDataData%station_eta) - UB(1:1) = ubound(SrcBladeInputDataData%station_eta) + LB(1:1) = lbound(SrcBladeInputDataData%station_eta, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%station_eta, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%station_eta)) then allocate(DstBladeInputDataData%station_eta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -878,8 +878,8 @@ subroutine BD_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%station_eta = SrcBladeInputDataData%station_eta end if if (allocated(SrcBladeInputDataData%stiff0)) then - LB(1:3) = lbound(SrcBladeInputDataData%stiff0) - UB(1:3) = ubound(SrcBladeInputDataData%stiff0) + LB(1:3) = lbound(SrcBladeInputDataData%stiff0, kind=B8Ki) + UB(1:3) = ubound(SrcBladeInputDataData%stiff0, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%stiff0)) then allocate(DstBladeInputDataData%stiff0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -890,8 +890,8 @@ subroutine BD_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%stiff0 = SrcBladeInputDataData%stiff0 end if if (allocated(SrcBladeInputDataData%mass0)) then - LB(1:3) = lbound(SrcBladeInputDataData%mass0) - UB(1:3) = ubound(SrcBladeInputDataData%mass0) + LB(1:3) = lbound(SrcBladeInputDataData%mass0, kind=B8Ki) + UB(1:3) = ubound(SrcBladeInputDataData%mass0, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%mass0)) then allocate(DstBladeInputDataData%mass0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -932,17 +932,17 @@ subroutine BD_PackBladeInputData(Buf, Indata) call RegPack(Buf, InData%format_index) call RegPack(Buf, allocated(InData%station_eta)) if (allocated(InData%station_eta)) then - call RegPackBounds(Buf, 1, lbound(InData%station_eta), ubound(InData%station_eta)) + call RegPackBounds(Buf, 1, lbound(InData%station_eta, kind=B8Ki), ubound(InData%station_eta, kind=B8Ki)) call RegPack(Buf, InData%station_eta) end if call RegPack(Buf, allocated(InData%stiff0)) if (allocated(InData%stiff0)) then - call RegPackBounds(Buf, 3, lbound(InData%stiff0), ubound(InData%stiff0)) + call RegPackBounds(Buf, 3, lbound(InData%stiff0, kind=B8Ki), ubound(InData%stiff0, kind=B8Ki)) call RegPack(Buf, InData%stiff0) end if call RegPack(Buf, allocated(InData%mass0)) if (allocated(InData%mass0)) then - call RegPackBounds(Buf, 3, lbound(InData%mass0), ubound(InData%mass0)) + call RegPackBounds(Buf, 3, lbound(InData%mass0, kind=B8Ki), ubound(InData%mass0, kind=B8Ki)) call RegPack(Buf, InData%mass0) end if call RegPack(Buf, InData%beta) @@ -954,7 +954,7 @@ subroutine BD_UnPackBladeInputData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BladeInputData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackBladeInputData' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1016,7 +1016,7 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyInputFile' @@ -1025,8 +1025,8 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%member_total = SrcInputFileData%member_total DstInputFileData%kp_total = SrcInputFileData%kp_total if (allocated(SrcInputFileData%kp_member)) then - LB(1:1) = lbound(SrcInputFileData%kp_member) - UB(1:1) = ubound(SrcInputFileData%kp_member) + LB(1:1) = lbound(SrcInputFileData%kp_member, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%kp_member, kind=B8Ki) if (.not. allocated(DstInputFileData%kp_member)) then allocate(DstInputFileData%kp_member(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1054,8 +1054,8 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%tngt_stf_pert = SrcInputFileData%tngt_stf_pert DstInputFileData%tngt_stf_difftol = SrcInputFileData%tngt_stf_difftol if (allocated(SrcInputFileData%kp_coordinate)) then - LB(1:2) = lbound(SrcInputFileData%kp_coordinate) - UB(1:2) = ubound(SrcInputFileData%kp_coordinate) + LB(1:2) = lbound(SrcInputFileData%kp_coordinate, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileData%kp_coordinate, kind=B8Ki) if (.not. allocated(DstInputFileData%kp_coordinate)) then allocate(DstInputFileData%kp_coordinate(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1077,8 +1077,8 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%OutNd = SrcInputFileData%OutNd DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1092,8 +1092,8 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%OutFmt = SrcInputFileData%OutFmt DstInputFileData%BldNd_NumOuts = SrcInputFileData%BldNd_NumOuts if (allocated(SrcInputFileData%BldNd_OutList)) then - LB(1:1) = lbound(SrcInputFileData%BldNd_OutList) - UB(1:1) = ubound(SrcInputFileData%BldNd_OutList) + LB(1:1) = lbound(SrcInputFileData%BldNd_OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BldNd_OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%BldNd_OutList)) then allocate(DstInputFileData%BldNd_OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1104,8 +1104,8 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%BldNd_OutList = SrcInputFileData%BldNd_OutList end if if (allocated(SrcInputFileData%BldNd_BlOutNd)) then - LB(1:1) = lbound(SrcInputFileData%BldNd_BlOutNd) - UB(1:1) = ubound(SrcInputFileData%BldNd_BlOutNd) + LB(1:1) = lbound(SrcInputFileData%BldNd_BlOutNd, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BldNd_BlOutNd, kind=B8Ki) if (.not. allocated(DstInputFileData%BldNd_BlOutNd)) then allocate(DstInputFileData%BldNd_BlOutNd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1155,7 +1155,7 @@ subroutine BD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%kp_total) call RegPack(Buf, allocated(InData%kp_member)) if (allocated(InData%kp_member)) then - call RegPackBounds(Buf, 1, lbound(InData%kp_member), ubound(InData%kp_member)) + call RegPackBounds(Buf, 1, lbound(InData%kp_member, kind=B8Ki), ubound(InData%kp_member, kind=B8Ki)) call RegPack(Buf, InData%kp_member) end if call RegPack(Buf, InData%order_elem) @@ -1175,7 +1175,7 @@ subroutine BD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%tngt_stf_difftol) call RegPack(Buf, allocated(InData%kp_coordinate)) if (allocated(InData%kp_coordinate)) then - call RegPackBounds(Buf, 2, lbound(InData%kp_coordinate), ubound(InData%kp_coordinate)) + call RegPackBounds(Buf, 2, lbound(InData%kp_coordinate, kind=B8Ki), ubound(InData%kp_coordinate, kind=B8Ki)) call RegPack(Buf, InData%kp_coordinate) end if call RegPack(Buf, InData%pitchJ) @@ -1191,7 +1191,7 @@ subroutine BD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%SumPrint) @@ -1199,12 +1199,12 @@ subroutine BD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%BldNd_NumOuts) call RegPack(Buf, allocated(InData%BldNd_OutList)) if (allocated(InData%BldNd_OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutList), ubound(InData%BldNd_OutList)) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutList, kind=B8Ki), ubound(InData%BldNd_OutList, kind=B8Ki)) call RegPack(Buf, InData%BldNd_OutList) end if call RegPack(Buf, allocated(InData%BldNd_BlOutNd)) if (allocated(InData%BldNd_BlOutNd)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_BlOutNd), ubound(InData%BldNd_BlOutNd)) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_BlOutNd, kind=B8Ki), ubound(InData%BldNd_BlOutNd, kind=B8Ki)) call RegPack(Buf, InData%BldNd_BlOutNd) end if call RegPack(Buf, InData%BldNd_BlOutNd_Str) @@ -1215,7 +1215,7 @@ subroutine BD_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackInputFile' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1360,14 +1360,14 @@ subroutine BD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BD_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%q)) then - LB(1:2) = lbound(SrcContStateData%q) - UB(1:2) = ubound(SrcContStateData%q) + LB(1:2) = lbound(SrcContStateData%q, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%q, kind=B8Ki) if (.not. allocated(DstContStateData%q)) then allocate(DstContStateData%q(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1378,8 +1378,8 @@ subroutine BD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta DstContStateData%q = SrcContStateData%q end if if (allocated(SrcContStateData%dqdt)) then - LB(1:2) = lbound(SrcContStateData%dqdt) - UB(1:2) = ubound(SrcContStateData%dqdt) + LB(1:2) = lbound(SrcContStateData%dqdt, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%dqdt, kind=B8Ki) if (.not. allocated(DstContStateData%dqdt)) then allocate(DstContStateData%dqdt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1413,12 +1413,12 @@ subroutine BD_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%q)) if (allocated(InData%q)) then - call RegPackBounds(Buf, 2, lbound(InData%q), ubound(InData%q)) + call RegPackBounds(Buf, 2, lbound(InData%q, kind=B8Ki), ubound(InData%q, kind=B8Ki)) call RegPack(Buf, InData%q) end if call RegPack(Buf, allocated(InData%dqdt)) if (allocated(InData%dqdt)) then - call RegPackBounds(Buf, 2, lbound(InData%dqdt), ubound(InData%dqdt)) + call RegPackBounds(Buf, 2, lbound(InData%dqdt, kind=B8Ki), ubound(InData%dqdt, kind=B8Ki)) call RegPack(Buf, InData%dqdt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1428,7 +1428,7 @@ subroutine BD_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackContState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1550,14 +1550,14 @@ subroutine BD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BD_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%acc)) then - LB(1:2) = lbound(SrcOtherStateData%acc) - UB(1:2) = ubound(SrcOtherStateData%acc) + LB(1:2) = lbound(SrcOtherStateData%acc, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%acc, kind=B8Ki) if (.not. allocated(DstOtherStateData%acc)) then allocate(DstOtherStateData%acc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1568,8 +1568,8 @@ subroutine BD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err DstOtherStateData%acc = SrcOtherStateData%acc end if if (allocated(SrcOtherStateData%xcc)) then - LB(1:2) = lbound(SrcOtherStateData%xcc) - UB(1:2) = ubound(SrcOtherStateData%xcc) + LB(1:2) = lbound(SrcOtherStateData%xcc, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%xcc, kind=B8Ki) if (.not. allocated(DstOtherStateData%xcc)) then allocate(DstOtherStateData%xcc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1608,12 +1608,12 @@ subroutine BD_PackOtherState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%acc)) if (allocated(InData%acc)) then - call RegPackBounds(Buf, 2, lbound(InData%acc), ubound(InData%acc)) + call RegPackBounds(Buf, 2, lbound(InData%acc, kind=B8Ki), ubound(InData%acc, kind=B8Ki)) call RegPack(Buf, InData%acc) end if call RegPack(Buf, allocated(InData%xcc)) if (allocated(InData%xcc)) then - call RegPackBounds(Buf, 2, lbound(InData%xcc), ubound(InData%xcc)) + call RegPackBounds(Buf, 2, lbound(InData%xcc, kind=B8Ki), ubound(InData%xcc, kind=B8Ki)) call RegPack(Buf, InData%xcc) end if call RegPack(Buf, InData%InitAcc) @@ -1628,7 +1628,7 @@ subroutine BD_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackOtherState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1678,14 +1678,14 @@ subroutine BD_CopyqpParam(SrcqpParamData, DstqpParamData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BD_CopyqpParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcqpParamData%mmm)) then - LB(1:2) = lbound(SrcqpParamData%mmm) - UB(1:2) = ubound(SrcqpParamData%mmm) + LB(1:2) = lbound(SrcqpParamData%mmm, kind=B8Ki) + UB(1:2) = ubound(SrcqpParamData%mmm, kind=B8Ki) if (.not. allocated(DstqpParamData%mmm)) then allocate(DstqpParamData%mmm(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1696,8 +1696,8 @@ subroutine BD_CopyqpParam(SrcqpParamData, DstqpParamData, CtrlCode, ErrStat, Err DstqpParamData%mmm = SrcqpParamData%mmm end if if (allocated(SrcqpParamData%mEta)) then - LB(1:3) = lbound(SrcqpParamData%mEta) - UB(1:3) = ubound(SrcqpParamData%mEta) + LB(1:3) = lbound(SrcqpParamData%mEta, kind=B8Ki) + UB(1:3) = ubound(SrcqpParamData%mEta, kind=B8Ki) if (.not. allocated(DstqpParamData%mEta)) then allocate(DstqpParamData%mEta(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1731,12 +1731,12 @@ subroutine BD_PackqpParam(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%mmm)) if (allocated(InData%mmm)) then - call RegPackBounds(Buf, 2, lbound(InData%mmm), ubound(InData%mmm)) + call RegPackBounds(Buf, 2, lbound(InData%mmm, kind=B8Ki), ubound(InData%mmm, kind=B8Ki)) call RegPack(Buf, InData%mmm) end if call RegPack(Buf, allocated(InData%mEta)) if (allocated(InData%mEta)) then - call RegPackBounds(Buf, 3, lbound(InData%mEta), ubound(InData%mEta)) + call RegPackBounds(Buf, 3, lbound(InData%mEta, kind=B8Ki), ubound(InData%mEta, kind=B8Ki)) call RegPack(Buf, InData%mEta) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1746,7 +1746,7 @@ subroutine BD_UnPackqpParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(qpParam), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackqpParam' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1786,8 +1786,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyParam' @@ -1797,8 +1797,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%coef = SrcParamData%coef DstParamData%rhoinf = SrcParamData%rhoinf if (allocated(SrcParamData%uuN0)) then - LB(1:3) = lbound(SrcParamData%uuN0) - UB(1:3) = ubound(SrcParamData%uuN0) + LB(1:3) = lbound(SrcParamData%uuN0, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%uuN0, kind=B8Ki) if (.not. allocated(DstParamData%uuN0)) then allocate(DstParamData%uuN0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1809,8 +1809,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uuN0 = SrcParamData%uuN0 end if if (allocated(SrcParamData%twN0)) then - LB(1:2) = lbound(SrcParamData%twN0) - UB(1:2) = ubound(SrcParamData%twN0) + LB(1:2) = lbound(SrcParamData%twN0, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%twN0, kind=B8Ki) if (.not. allocated(DstParamData%twN0)) then allocate(DstParamData%twN0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1821,8 +1821,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%twN0 = SrcParamData%twN0 end if if (allocated(SrcParamData%Stif0_QP)) then - LB(1:3) = lbound(SrcParamData%Stif0_QP) - UB(1:3) = ubound(SrcParamData%Stif0_QP) + LB(1:3) = lbound(SrcParamData%Stif0_QP, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%Stif0_QP, kind=B8Ki) if (.not. allocated(DstParamData%Stif0_QP)) then allocate(DstParamData%Stif0_QP(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1833,8 +1833,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Stif0_QP = SrcParamData%Stif0_QP end if if (allocated(SrcParamData%Mass0_QP)) then - LB(1:3) = lbound(SrcParamData%Mass0_QP) - UB(1:3) = ubound(SrcParamData%Mass0_QP) + LB(1:3) = lbound(SrcParamData%Mass0_QP, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%Mass0_QP, kind=B8Ki) if (.not. allocated(DstParamData%Mass0_QP)) then allocate(DstParamData%Mass0_QP(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1846,8 +1846,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%gravity = SrcParamData%gravity if (allocated(SrcParamData%segment_eta)) then - LB(1:1) = lbound(SrcParamData%segment_eta) - UB(1:1) = ubound(SrcParamData%segment_eta) + LB(1:1) = lbound(SrcParamData%segment_eta, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%segment_eta, kind=B8Ki) if (.not. allocated(DstParamData%segment_eta)) then allocate(DstParamData%segment_eta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1858,8 +1858,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%segment_eta = SrcParamData%segment_eta end if if (allocated(SrcParamData%member_eta)) then - LB(1:1) = lbound(SrcParamData%member_eta) - UB(1:1) = ubound(SrcParamData%member_eta) + LB(1:1) = lbound(SrcParamData%member_eta, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%member_eta, kind=B8Ki) if (.not. allocated(DstParamData%member_eta)) then allocate(DstParamData%member_eta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1876,8 +1876,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%beta = SrcParamData%beta DstParamData%tol = SrcParamData%tol if (allocated(SrcParamData%QPtN)) then - LB(1:1) = lbound(SrcParamData%QPtN) - UB(1:1) = ubound(SrcParamData%QPtN) + LB(1:1) = lbound(SrcParamData%QPtN, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%QPtN, kind=B8Ki) if (.not. allocated(DstParamData%QPtN)) then allocate(DstParamData%QPtN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1888,8 +1888,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtN = SrcParamData%QPtN end if if (allocated(SrcParamData%QPtWeight)) then - LB(1:1) = lbound(SrcParamData%QPtWeight) - UB(1:1) = ubound(SrcParamData%QPtWeight) + LB(1:1) = lbound(SrcParamData%QPtWeight, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%QPtWeight, kind=B8Ki) if (.not. allocated(DstParamData%QPtWeight)) then allocate(DstParamData%QPtWeight(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1900,8 +1900,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtWeight = SrcParamData%QPtWeight end if if (allocated(SrcParamData%Shp)) then - LB(1:2) = lbound(SrcParamData%Shp) - UB(1:2) = ubound(SrcParamData%Shp) + LB(1:2) = lbound(SrcParamData%Shp, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Shp, kind=B8Ki) if (.not. allocated(DstParamData%Shp)) then allocate(DstParamData%Shp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1912,8 +1912,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Shp = SrcParamData%Shp end if if (allocated(SrcParamData%ShpDer)) then - LB(1:2) = lbound(SrcParamData%ShpDer) - UB(1:2) = ubound(SrcParamData%ShpDer) + LB(1:2) = lbound(SrcParamData%ShpDer, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%ShpDer, kind=B8Ki) if (.not. allocated(DstParamData%ShpDer)) then allocate(DstParamData%ShpDer(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1924,8 +1924,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ShpDer = SrcParamData%ShpDer end if if (allocated(SrcParamData%Jacobian)) then - LB(1:2) = lbound(SrcParamData%Jacobian) - UB(1:2) = ubound(SrcParamData%Jacobian) + LB(1:2) = lbound(SrcParamData%Jacobian, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jacobian, kind=B8Ki) if (.not. allocated(DstParamData%Jacobian)) then allocate(DstParamData%Jacobian(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1936,8 +1936,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jacobian = SrcParamData%Jacobian end if if (allocated(SrcParamData%uu0)) then - LB(1:3) = lbound(SrcParamData%uu0) - UB(1:3) = ubound(SrcParamData%uu0) + LB(1:3) = lbound(SrcParamData%uu0, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%uu0, kind=B8Ki) if (.not. allocated(DstParamData%uu0)) then allocate(DstParamData%uu0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1948,8 +1948,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uu0 = SrcParamData%uu0 end if if (allocated(SrcParamData%E10)) then - LB(1:3) = lbound(SrcParamData%E10) - UB(1:3) = ubound(SrcParamData%E10) + LB(1:3) = lbound(SrcParamData%E10, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%E10, kind=B8Ki) if (.not. allocated(DstParamData%E10)) then allocate(DstParamData%E10(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1961,8 +1961,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%nodes_per_elem = SrcParamData%nodes_per_elem if (allocated(SrcParamData%node_elem_idx)) then - LB(1:2) = lbound(SrcParamData%node_elem_idx) - UB(1:2) = ubound(SrcParamData%node_elem_idx) + LB(1:2) = lbound(SrcParamData%node_elem_idx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%node_elem_idx, kind=B8Ki) if (.not. allocated(DstParamData%node_elem_idx)) then allocate(DstParamData%node_elem_idx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1989,8 +1989,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%OutInputs = SrcParamData%OutInputs DstParamData%NumOuts = SrcParamData%NumOuts if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2007,8 +2007,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NNodeOuts = SrcParamData%NNodeOuts DstParamData%OutNd = SrcParamData%OutNd if (allocated(SrcParamData%NdIndx)) then - LB(1:1) = lbound(SrcParamData%NdIndx) - UB(1:1) = ubound(SrcParamData%NdIndx) + LB(1:1) = lbound(SrcParamData%NdIndx, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NdIndx, kind=B8Ki) if (.not. allocated(DstParamData%NdIndx)) then allocate(DstParamData%NdIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2019,8 +2019,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NdIndx = SrcParamData%NdIndx end if if (allocated(SrcParamData%NdIndxInverse)) then - LB(1:1) = lbound(SrcParamData%NdIndxInverse) - UB(1:1) = ubound(SrcParamData%NdIndxInverse) + LB(1:1) = lbound(SrcParamData%NdIndxInverse, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NdIndxInverse, kind=B8Ki) if (.not. allocated(DstParamData%NdIndxInverse)) then allocate(DstParamData%NdIndxInverse(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2031,8 +2031,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NdIndxInverse = SrcParamData%NdIndxInverse end if if (allocated(SrcParamData%OutNd2NdElem)) then - LB(1:2) = lbound(SrcParamData%OutNd2NdElem) - UB(1:2) = ubound(SrcParamData%OutNd2NdElem) + LB(1:2) = lbound(SrcParamData%OutNd2NdElem, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%OutNd2NdElem, kind=B8Ki) if (.not. allocated(DstParamData%OutNd2NdElem)) then allocate(DstParamData%OutNd2NdElem(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2060,8 +2060,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldNd_NumOuts = SrcParamData%BldNd_NumOuts DstParamData%BldNd_TotNumOuts = SrcParamData%BldNd_TotNumOuts if (allocated(SrcParamData%BldNd_OutParam)) then - LB(1:1) = lbound(SrcParamData%BldNd_OutParam) - UB(1:1) = ubound(SrcParamData%BldNd_OutParam) + LB(1:1) = lbound(SrcParamData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BldNd_OutParam, kind=B8Ki) if (.not. allocated(DstParamData%BldNd_OutParam)) then allocate(DstParamData%BldNd_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2076,8 +2076,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%BldNd_BlOutNd)) then - LB(1:1) = lbound(SrcParamData%BldNd_BlOutNd) - UB(1:1) = ubound(SrcParamData%BldNd_BlOutNd) + LB(1:1) = lbound(SrcParamData%BldNd_BlOutNd, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BldNd_BlOutNd, kind=B8Ki) if (.not. allocated(DstParamData%BldNd_BlOutNd)) then allocate(DstParamData%BldNd_BlOutNd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2088,8 +2088,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldNd_BlOutNd = SrcParamData%BldNd_BlOutNd end if if (allocated(SrcParamData%QPtw_Shp_Shp_Jac)) then - LB(1:4) = lbound(SrcParamData%QPtw_Shp_Shp_Jac) - UB(1:4) = ubound(SrcParamData%QPtw_Shp_Shp_Jac) + LB(1:4) = lbound(SrcParamData%QPtw_Shp_Shp_Jac, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%QPtw_Shp_Shp_Jac, kind=B8Ki) if (.not. allocated(DstParamData%QPtw_Shp_Shp_Jac)) then allocate(DstParamData%QPtw_Shp_Shp_Jac(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2100,8 +2100,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtw_Shp_Shp_Jac = SrcParamData%QPtw_Shp_Shp_Jac end if if (allocated(SrcParamData%QPtw_Shp_ShpDer)) then - LB(1:3) = lbound(SrcParamData%QPtw_Shp_ShpDer) - UB(1:3) = ubound(SrcParamData%QPtw_Shp_ShpDer) + LB(1:3) = lbound(SrcParamData%QPtw_Shp_ShpDer, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%QPtw_Shp_ShpDer, kind=B8Ki) if (.not. allocated(DstParamData%QPtw_Shp_ShpDer)) then allocate(DstParamData%QPtw_Shp_ShpDer(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2112,8 +2112,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtw_Shp_ShpDer = SrcParamData%QPtw_Shp_ShpDer end if if (allocated(SrcParamData%QPtw_ShpDer_ShpDer_Jac)) then - LB(1:4) = lbound(SrcParamData%QPtw_ShpDer_ShpDer_Jac) - UB(1:4) = ubound(SrcParamData%QPtw_ShpDer_ShpDer_Jac) + LB(1:4) = lbound(SrcParamData%QPtw_ShpDer_ShpDer_Jac, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%QPtw_ShpDer_ShpDer_Jac, kind=B8Ki) if (.not. allocated(DstParamData%QPtw_ShpDer_ShpDer_Jac)) then allocate(DstParamData%QPtw_ShpDer_ShpDer_Jac(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2124,8 +2124,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtw_ShpDer_ShpDer_Jac = SrcParamData%QPtw_ShpDer_ShpDer_Jac end if if (allocated(SrcParamData%QPtw_Shp_Jac)) then - LB(1:3) = lbound(SrcParamData%QPtw_Shp_Jac) - UB(1:3) = ubound(SrcParamData%QPtw_Shp_Jac) + LB(1:3) = lbound(SrcParamData%QPtw_Shp_Jac, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%QPtw_Shp_Jac, kind=B8Ki) if (.not. allocated(DstParamData%QPtw_Shp_Jac)) then allocate(DstParamData%QPtw_Shp_Jac(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2136,8 +2136,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtw_Shp_Jac = SrcParamData%QPtw_Shp_Jac end if if (allocated(SrcParamData%QPtw_ShpDer)) then - LB(1:2) = lbound(SrcParamData%QPtw_ShpDer) - UB(1:2) = ubound(SrcParamData%QPtw_ShpDer) + LB(1:2) = lbound(SrcParamData%QPtw_ShpDer, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%QPtw_ShpDer, kind=B8Ki) if (.not. allocated(DstParamData%QPtw_ShpDer)) then allocate(DstParamData%QPtw_ShpDer(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2148,8 +2148,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%QPtw_ShpDer = SrcParamData%QPtw_ShpDer end if if (allocated(SrcParamData%FEweight)) then - LB(1:2) = lbound(SrcParamData%FEweight) - UB(1:2) = ubound(SrcParamData%FEweight) + LB(1:2) = lbound(SrcParamData%FEweight, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%FEweight, kind=B8Ki) if (.not. allocated(DstParamData%FEweight)) then allocate(DstParamData%FEweight(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2160,8 +2160,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%FEweight = SrcParamData%FEweight end if if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx) - UB(1:2) = ubound(SrcParamData%Jac_u_indx) + LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_u_indx)) then allocate(DstParamData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2172,8 +2172,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_u_indx = SrcParamData%Jac_u_indx end if if (allocated(SrcParamData%du)) then - LB(1:1) = lbound(SrcParamData%du) - UB(1:1) = ubound(SrcParamData%du) + LB(1:1) = lbound(SrcParamData%du, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2195,8 +2195,8 @@ subroutine BD_DestroyParam(ParamData, ErrStat, ErrMsg) type(BD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_DestroyParam' @@ -2245,8 +2245,8 @@ subroutine BD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%node_elem_idx) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2265,8 +2265,8 @@ subroutine BD_DestroyParam(ParamData, ErrStat, ErrMsg) call BD_DestroyqpParam(ParamData%qp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ParamData%BldNd_OutParam)) then - LB(1:1) = lbound(ParamData%BldNd_OutParam) - UB(1:1) = ubound(ParamData%BldNd_OutParam) + LB(1:1) = lbound(ParamData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%BldNd_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%BldNd_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2306,41 +2306,41 @@ subroutine BD_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(BD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'BD_PackParam' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%dt) call RegPack(Buf, InData%coef) call RegPack(Buf, InData%rhoinf) call RegPack(Buf, allocated(InData%uuN0)) if (allocated(InData%uuN0)) then - call RegPackBounds(Buf, 3, lbound(InData%uuN0), ubound(InData%uuN0)) + call RegPackBounds(Buf, 3, lbound(InData%uuN0, kind=B8Ki), ubound(InData%uuN0, kind=B8Ki)) call RegPack(Buf, InData%uuN0) end if call RegPack(Buf, allocated(InData%twN0)) if (allocated(InData%twN0)) then - call RegPackBounds(Buf, 2, lbound(InData%twN0), ubound(InData%twN0)) + call RegPackBounds(Buf, 2, lbound(InData%twN0, kind=B8Ki), ubound(InData%twN0, kind=B8Ki)) call RegPack(Buf, InData%twN0) end if call RegPack(Buf, allocated(InData%Stif0_QP)) if (allocated(InData%Stif0_QP)) then - call RegPackBounds(Buf, 3, lbound(InData%Stif0_QP), ubound(InData%Stif0_QP)) + call RegPackBounds(Buf, 3, lbound(InData%Stif0_QP, kind=B8Ki), ubound(InData%Stif0_QP, kind=B8Ki)) call RegPack(Buf, InData%Stif0_QP) end if call RegPack(Buf, allocated(InData%Mass0_QP)) if (allocated(InData%Mass0_QP)) then - call RegPackBounds(Buf, 3, lbound(InData%Mass0_QP), ubound(InData%Mass0_QP)) + call RegPackBounds(Buf, 3, lbound(InData%Mass0_QP, kind=B8Ki), ubound(InData%Mass0_QP, kind=B8Ki)) call RegPack(Buf, InData%Mass0_QP) end if call RegPack(Buf, InData%gravity) call RegPack(Buf, allocated(InData%segment_eta)) if (allocated(InData%segment_eta)) then - call RegPackBounds(Buf, 1, lbound(InData%segment_eta), ubound(InData%segment_eta)) + call RegPackBounds(Buf, 1, lbound(InData%segment_eta, kind=B8Ki), ubound(InData%segment_eta, kind=B8Ki)) call RegPack(Buf, InData%segment_eta) end if call RegPack(Buf, allocated(InData%member_eta)) if (allocated(InData%member_eta)) then - call RegPackBounds(Buf, 1, lbound(InData%member_eta), ubound(InData%member_eta)) + call RegPackBounds(Buf, 1, lbound(InData%member_eta, kind=B8Ki), ubound(InData%member_eta, kind=B8Ki)) call RegPack(Buf, InData%member_eta) end if call RegPack(Buf, InData%blade_length) @@ -2351,43 +2351,43 @@ subroutine BD_PackParam(Buf, Indata) call RegPack(Buf, InData%tol) call RegPack(Buf, allocated(InData%QPtN)) if (allocated(InData%QPtN)) then - call RegPackBounds(Buf, 1, lbound(InData%QPtN), ubound(InData%QPtN)) + call RegPackBounds(Buf, 1, lbound(InData%QPtN, kind=B8Ki), ubound(InData%QPtN, kind=B8Ki)) call RegPack(Buf, InData%QPtN) end if call RegPack(Buf, allocated(InData%QPtWeight)) if (allocated(InData%QPtWeight)) then - call RegPackBounds(Buf, 1, lbound(InData%QPtWeight), ubound(InData%QPtWeight)) + call RegPackBounds(Buf, 1, lbound(InData%QPtWeight, kind=B8Ki), ubound(InData%QPtWeight, kind=B8Ki)) call RegPack(Buf, InData%QPtWeight) end if call RegPack(Buf, allocated(InData%Shp)) if (allocated(InData%Shp)) then - call RegPackBounds(Buf, 2, lbound(InData%Shp), ubound(InData%Shp)) + call RegPackBounds(Buf, 2, lbound(InData%Shp, kind=B8Ki), ubound(InData%Shp, kind=B8Ki)) call RegPack(Buf, InData%Shp) end if call RegPack(Buf, allocated(InData%ShpDer)) if (allocated(InData%ShpDer)) then - call RegPackBounds(Buf, 2, lbound(InData%ShpDer), ubound(InData%ShpDer)) + call RegPackBounds(Buf, 2, lbound(InData%ShpDer, kind=B8Ki), ubound(InData%ShpDer, kind=B8Ki)) call RegPack(Buf, InData%ShpDer) end if call RegPack(Buf, allocated(InData%Jacobian)) if (allocated(InData%Jacobian)) then - call RegPackBounds(Buf, 2, lbound(InData%Jacobian), ubound(InData%Jacobian)) + call RegPackBounds(Buf, 2, lbound(InData%Jacobian, kind=B8Ki), ubound(InData%Jacobian, kind=B8Ki)) call RegPack(Buf, InData%Jacobian) end if call RegPack(Buf, allocated(InData%uu0)) if (allocated(InData%uu0)) then - call RegPackBounds(Buf, 3, lbound(InData%uu0), ubound(InData%uu0)) + call RegPackBounds(Buf, 3, lbound(InData%uu0, kind=B8Ki), ubound(InData%uu0, kind=B8Ki)) call RegPack(Buf, InData%uu0) end if call RegPack(Buf, allocated(InData%E10)) if (allocated(InData%E10)) then - call RegPackBounds(Buf, 3, lbound(InData%E10), ubound(InData%E10)) + call RegPackBounds(Buf, 3, lbound(InData%E10, kind=B8Ki), ubound(InData%E10, kind=B8Ki)) call RegPack(Buf, InData%E10) end if call RegPack(Buf, InData%nodes_per_elem) call RegPack(Buf, allocated(InData%node_elem_idx)) if (allocated(InData%node_elem_idx)) then - call RegPackBounds(Buf, 2, lbound(InData%node_elem_idx), ubound(InData%node_elem_idx)) + call RegPackBounds(Buf, 2, lbound(InData%node_elem_idx, kind=B8Ki), ubound(InData%node_elem_idx, kind=B8Ki)) call RegPack(Buf, InData%node_elem_idx) end if call RegPack(Buf, InData%refine) @@ -2408,9 +2408,9 @@ subroutine BD_PackParam(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -2419,17 +2419,17 @@ subroutine BD_PackParam(Buf, Indata) call RegPack(Buf, InData%OutNd) call RegPack(Buf, allocated(InData%NdIndx)) if (allocated(InData%NdIndx)) then - call RegPackBounds(Buf, 1, lbound(InData%NdIndx), ubound(InData%NdIndx)) + call RegPackBounds(Buf, 1, lbound(InData%NdIndx, kind=B8Ki), ubound(InData%NdIndx, kind=B8Ki)) call RegPack(Buf, InData%NdIndx) end if call RegPack(Buf, allocated(InData%NdIndxInverse)) if (allocated(InData%NdIndxInverse)) then - call RegPackBounds(Buf, 1, lbound(InData%NdIndxInverse), ubound(InData%NdIndxInverse)) + call RegPackBounds(Buf, 1, lbound(InData%NdIndxInverse, kind=B8Ki), ubound(InData%NdIndxInverse, kind=B8Ki)) call RegPack(Buf, InData%NdIndxInverse) end if call RegPack(Buf, allocated(InData%OutNd2NdElem)) if (allocated(InData%OutNd2NdElem)) then - call RegPackBounds(Buf, 2, lbound(InData%OutNd2NdElem), ubound(InData%OutNd2NdElem)) + call RegPackBounds(Buf, 2, lbound(InData%OutNd2NdElem, kind=B8Ki), ubound(InData%OutNd2NdElem, kind=B8Ki)) call RegPack(Buf, InData%OutNd2NdElem) end if call RegPack(Buf, InData%OutFmt) @@ -2449,56 +2449,56 @@ subroutine BD_PackParam(Buf, Indata) call RegPack(Buf, InData%BldNd_TotNumOuts) call RegPack(Buf, allocated(InData%BldNd_OutParam)) if (allocated(InData%BldNd_OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutParam), ubound(InData%BldNd_OutParam)) - LB(1:1) = lbound(InData%BldNd_OutParam) - UB(1:1) = ubound(InData%BldNd_OutParam) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutParam, kind=B8Ki), ubound(InData%BldNd_OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%BldNd_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%BldNd_OutParam(i1)) end do end if call RegPack(Buf, allocated(InData%BldNd_BlOutNd)) if (allocated(InData%BldNd_BlOutNd)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_BlOutNd), ubound(InData%BldNd_BlOutNd)) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_BlOutNd, kind=B8Ki), ubound(InData%BldNd_BlOutNd, kind=B8Ki)) call RegPack(Buf, InData%BldNd_BlOutNd) end if call RegPack(Buf, allocated(InData%QPtw_Shp_Shp_Jac)) if (allocated(InData%QPtw_Shp_Shp_Jac)) then - call RegPackBounds(Buf, 4, lbound(InData%QPtw_Shp_Shp_Jac), ubound(InData%QPtw_Shp_Shp_Jac)) + call RegPackBounds(Buf, 4, lbound(InData%QPtw_Shp_Shp_Jac, kind=B8Ki), ubound(InData%QPtw_Shp_Shp_Jac, kind=B8Ki)) call RegPack(Buf, InData%QPtw_Shp_Shp_Jac) end if call RegPack(Buf, allocated(InData%QPtw_Shp_ShpDer)) if (allocated(InData%QPtw_Shp_ShpDer)) then - call RegPackBounds(Buf, 3, lbound(InData%QPtw_Shp_ShpDer), ubound(InData%QPtw_Shp_ShpDer)) + call RegPackBounds(Buf, 3, lbound(InData%QPtw_Shp_ShpDer, kind=B8Ki), ubound(InData%QPtw_Shp_ShpDer, kind=B8Ki)) call RegPack(Buf, InData%QPtw_Shp_ShpDer) end if call RegPack(Buf, allocated(InData%QPtw_ShpDer_ShpDer_Jac)) if (allocated(InData%QPtw_ShpDer_ShpDer_Jac)) then - call RegPackBounds(Buf, 4, lbound(InData%QPtw_ShpDer_ShpDer_Jac), ubound(InData%QPtw_ShpDer_ShpDer_Jac)) + call RegPackBounds(Buf, 4, lbound(InData%QPtw_ShpDer_ShpDer_Jac, kind=B8Ki), ubound(InData%QPtw_ShpDer_ShpDer_Jac, kind=B8Ki)) call RegPack(Buf, InData%QPtw_ShpDer_ShpDer_Jac) end if call RegPack(Buf, allocated(InData%QPtw_Shp_Jac)) if (allocated(InData%QPtw_Shp_Jac)) then - call RegPackBounds(Buf, 3, lbound(InData%QPtw_Shp_Jac), ubound(InData%QPtw_Shp_Jac)) + call RegPackBounds(Buf, 3, lbound(InData%QPtw_Shp_Jac, kind=B8Ki), ubound(InData%QPtw_Shp_Jac, kind=B8Ki)) call RegPack(Buf, InData%QPtw_Shp_Jac) end if call RegPack(Buf, allocated(InData%QPtw_ShpDer)) if (allocated(InData%QPtw_ShpDer)) then - call RegPackBounds(Buf, 2, lbound(InData%QPtw_ShpDer), ubound(InData%QPtw_ShpDer)) + call RegPackBounds(Buf, 2, lbound(InData%QPtw_ShpDer, kind=B8Ki), ubound(InData%QPtw_ShpDer, kind=B8Ki)) call RegPack(Buf, InData%QPtw_ShpDer) end if call RegPack(Buf, allocated(InData%FEweight)) if (allocated(InData%FEweight)) then - call RegPackBounds(Buf, 2, lbound(InData%FEweight), ubound(InData%FEweight)) + call RegPackBounds(Buf, 2, lbound(InData%FEweight, kind=B8Ki), ubound(InData%FEweight, kind=B8Ki)) call RegPack(Buf, InData%FEweight) end if call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, InData%dx) @@ -2514,8 +2514,8 @@ subroutine BD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackParam' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3087,7 +3087,7 @@ subroutine BD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyOutput' @@ -3102,8 +3102,8 @@ subroutine BD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%RootMxr = SrcOutputData%RootMxr DstOutputData%RootMyr = SrcOutputData%RootMyr if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3144,7 +3144,7 @@ subroutine BD_PackOutput(Buf, Indata) call RegPack(Buf, InData%RootMyr) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3154,7 +3154,7 @@ subroutine BD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3186,14 +3186,14 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BD_CopyEqMotionQP' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcEqMotionQPData%uuu)) then - LB(1:3) = lbound(SrcEqMotionQPData%uuu) - UB(1:3) = ubound(SrcEqMotionQPData%uuu) + LB(1:3) = lbound(SrcEqMotionQPData%uuu, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%uuu, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%uuu)) then allocate(DstEqMotionQPData%uuu(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3204,8 +3204,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%uuu = SrcEqMotionQPData%uuu end if if (allocated(SrcEqMotionQPData%uup)) then - LB(1:3) = lbound(SrcEqMotionQPData%uup) - UB(1:3) = ubound(SrcEqMotionQPData%uup) + LB(1:3) = lbound(SrcEqMotionQPData%uup, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%uup, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%uup)) then allocate(DstEqMotionQPData%uup(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3216,8 +3216,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%uup = SrcEqMotionQPData%uup end if if (allocated(SrcEqMotionQPData%vvv)) then - LB(1:3) = lbound(SrcEqMotionQPData%vvv) - UB(1:3) = ubound(SrcEqMotionQPData%vvv) + LB(1:3) = lbound(SrcEqMotionQPData%vvv, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%vvv, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%vvv)) then allocate(DstEqMotionQPData%vvv(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3228,8 +3228,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%vvv = SrcEqMotionQPData%vvv end if if (allocated(SrcEqMotionQPData%vvp)) then - LB(1:3) = lbound(SrcEqMotionQPData%vvp) - UB(1:3) = ubound(SrcEqMotionQPData%vvp) + LB(1:3) = lbound(SrcEqMotionQPData%vvp, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%vvp, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%vvp)) then allocate(DstEqMotionQPData%vvp(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3240,8 +3240,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%vvp = SrcEqMotionQPData%vvp end if if (allocated(SrcEqMotionQPData%aaa)) then - LB(1:3) = lbound(SrcEqMotionQPData%aaa) - UB(1:3) = ubound(SrcEqMotionQPData%aaa) + LB(1:3) = lbound(SrcEqMotionQPData%aaa, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%aaa, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%aaa)) then allocate(DstEqMotionQPData%aaa(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3252,8 +3252,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%aaa = SrcEqMotionQPData%aaa end if if (allocated(SrcEqMotionQPData%RR0)) then - LB(1:4) = lbound(SrcEqMotionQPData%RR0) - UB(1:4) = ubound(SrcEqMotionQPData%RR0) + LB(1:4) = lbound(SrcEqMotionQPData%RR0, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%RR0, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%RR0)) then allocate(DstEqMotionQPData%RR0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3264,8 +3264,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%RR0 = SrcEqMotionQPData%RR0 end if if (allocated(SrcEqMotionQPData%kappa)) then - LB(1:3) = lbound(SrcEqMotionQPData%kappa) - UB(1:3) = ubound(SrcEqMotionQPData%kappa) + LB(1:3) = lbound(SrcEqMotionQPData%kappa, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%kappa, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%kappa)) then allocate(DstEqMotionQPData%kappa(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3276,8 +3276,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%kappa = SrcEqMotionQPData%kappa end if if (allocated(SrcEqMotionQPData%E1)) then - LB(1:3) = lbound(SrcEqMotionQPData%E1) - UB(1:3) = ubound(SrcEqMotionQPData%E1) + LB(1:3) = lbound(SrcEqMotionQPData%E1, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%E1, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%E1)) then allocate(DstEqMotionQPData%E1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3288,8 +3288,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%E1 = SrcEqMotionQPData%E1 end if if (allocated(SrcEqMotionQPData%Stif)) then - LB(1:4) = lbound(SrcEqMotionQPData%Stif) - UB(1:4) = ubound(SrcEqMotionQPData%Stif) + LB(1:4) = lbound(SrcEqMotionQPData%Stif, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Stif, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Stif)) then allocate(DstEqMotionQPData%Stif(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3300,8 +3300,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Stif = SrcEqMotionQPData%Stif end if if (allocated(SrcEqMotionQPData%Fb)) then - LB(1:3) = lbound(SrcEqMotionQPData%Fb) - UB(1:3) = ubound(SrcEqMotionQPData%Fb) + LB(1:3) = lbound(SrcEqMotionQPData%Fb, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%Fb, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Fb)) then allocate(DstEqMotionQPData%Fb(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3312,8 +3312,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Fb = SrcEqMotionQPData%Fb end if if (allocated(SrcEqMotionQPData%Fc)) then - LB(1:3) = lbound(SrcEqMotionQPData%Fc) - UB(1:3) = ubound(SrcEqMotionQPData%Fc) + LB(1:3) = lbound(SrcEqMotionQPData%Fc, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%Fc, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Fc)) then allocate(DstEqMotionQPData%Fc(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3324,8 +3324,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Fc = SrcEqMotionQPData%Fc end if if (allocated(SrcEqMotionQPData%Fd)) then - LB(1:3) = lbound(SrcEqMotionQPData%Fd) - UB(1:3) = ubound(SrcEqMotionQPData%Fd) + LB(1:3) = lbound(SrcEqMotionQPData%Fd, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%Fd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Fd)) then allocate(DstEqMotionQPData%Fd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3336,8 +3336,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Fd = SrcEqMotionQPData%Fd end if if (allocated(SrcEqMotionQPData%Fg)) then - LB(1:3) = lbound(SrcEqMotionQPData%Fg) - UB(1:3) = ubound(SrcEqMotionQPData%Fg) + LB(1:3) = lbound(SrcEqMotionQPData%Fg, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%Fg, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Fg)) then allocate(DstEqMotionQPData%Fg(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3348,8 +3348,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Fg = SrcEqMotionQPData%Fg end if if (allocated(SrcEqMotionQPData%Fi)) then - LB(1:3) = lbound(SrcEqMotionQPData%Fi) - UB(1:3) = ubound(SrcEqMotionQPData%Fi) + LB(1:3) = lbound(SrcEqMotionQPData%Fi, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%Fi, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Fi)) then allocate(DstEqMotionQPData%Fi(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3360,8 +3360,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Fi = SrcEqMotionQPData%Fi end if if (allocated(SrcEqMotionQPData%Ftemp)) then - LB(1:3) = lbound(SrcEqMotionQPData%Ftemp) - UB(1:3) = ubound(SrcEqMotionQPData%Ftemp) + LB(1:3) = lbound(SrcEqMotionQPData%Ftemp, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%Ftemp, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Ftemp)) then allocate(DstEqMotionQPData%Ftemp(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3372,8 +3372,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Ftemp = SrcEqMotionQPData%Ftemp end if if (allocated(SrcEqMotionQPData%RR0mEta)) then - LB(1:3) = lbound(SrcEqMotionQPData%RR0mEta) - UB(1:3) = ubound(SrcEqMotionQPData%RR0mEta) + LB(1:3) = lbound(SrcEqMotionQPData%RR0mEta, kind=B8Ki) + UB(1:3) = ubound(SrcEqMotionQPData%RR0mEta, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%RR0mEta)) then allocate(DstEqMotionQPData%RR0mEta(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3384,8 +3384,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%RR0mEta = SrcEqMotionQPData%RR0mEta end if if (allocated(SrcEqMotionQPData%rho)) then - LB(1:4) = lbound(SrcEqMotionQPData%rho) - UB(1:4) = ubound(SrcEqMotionQPData%rho) + LB(1:4) = lbound(SrcEqMotionQPData%rho, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%rho, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%rho)) then allocate(DstEqMotionQPData%rho(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3396,8 +3396,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%rho = SrcEqMotionQPData%rho end if if (allocated(SrcEqMotionQPData%betaC)) then - LB(1:4) = lbound(SrcEqMotionQPData%betaC) - UB(1:4) = ubound(SrcEqMotionQPData%betaC) + LB(1:4) = lbound(SrcEqMotionQPData%betaC, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%betaC, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%betaC)) then allocate(DstEqMotionQPData%betaC(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3408,8 +3408,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%betaC = SrcEqMotionQPData%betaC end if if (allocated(SrcEqMotionQPData%Gi)) then - LB(1:4) = lbound(SrcEqMotionQPData%Gi) - UB(1:4) = ubound(SrcEqMotionQPData%Gi) + LB(1:4) = lbound(SrcEqMotionQPData%Gi, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Gi, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Gi)) then allocate(DstEqMotionQPData%Gi(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3420,8 +3420,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Gi = SrcEqMotionQPData%Gi end if if (allocated(SrcEqMotionQPData%Ki)) then - LB(1:4) = lbound(SrcEqMotionQPData%Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Ki, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Ki, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Ki)) then allocate(DstEqMotionQPData%Ki(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3432,8 +3432,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Ki = SrcEqMotionQPData%Ki end if if (allocated(SrcEqMotionQPData%Mi)) then - LB(1:4) = lbound(SrcEqMotionQPData%Mi) - UB(1:4) = ubound(SrcEqMotionQPData%Mi) + LB(1:4) = lbound(SrcEqMotionQPData%Mi, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Mi, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Mi)) then allocate(DstEqMotionQPData%Mi(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3444,8 +3444,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Mi = SrcEqMotionQPData%Mi end if if (allocated(SrcEqMotionQPData%Oe)) then - LB(1:4) = lbound(SrcEqMotionQPData%Oe) - UB(1:4) = ubound(SrcEqMotionQPData%Oe) + LB(1:4) = lbound(SrcEqMotionQPData%Oe, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Oe, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Oe)) then allocate(DstEqMotionQPData%Oe(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3456,8 +3456,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Oe = SrcEqMotionQPData%Oe end if if (allocated(SrcEqMotionQPData%Pe)) then - LB(1:4) = lbound(SrcEqMotionQPData%Pe) - UB(1:4) = ubound(SrcEqMotionQPData%Pe) + LB(1:4) = lbound(SrcEqMotionQPData%Pe, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Pe, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Pe)) then allocate(DstEqMotionQPData%Pe(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3468,8 +3468,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Pe = SrcEqMotionQPData%Pe end if if (allocated(SrcEqMotionQPData%Qe)) then - LB(1:4) = lbound(SrcEqMotionQPData%Qe) - UB(1:4) = ubound(SrcEqMotionQPData%Qe) + LB(1:4) = lbound(SrcEqMotionQPData%Qe, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Qe, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Qe)) then allocate(DstEqMotionQPData%Qe(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3480,8 +3480,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Qe = SrcEqMotionQPData%Qe end if if (allocated(SrcEqMotionQPData%Gd)) then - LB(1:4) = lbound(SrcEqMotionQPData%Gd) - UB(1:4) = ubound(SrcEqMotionQPData%Gd) + LB(1:4) = lbound(SrcEqMotionQPData%Gd, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Gd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Gd)) then allocate(DstEqMotionQPData%Gd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3492,8 +3492,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Gd = SrcEqMotionQPData%Gd end if if (allocated(SrcEqMotionQPData%Od)) then - LB(1:4) = lbound(SrcEqMotionQPData%Od) - UB(1:4) = ubound(SrcEqMotionQPData%Od) + LB(1:4) = lbound(SrcEqMotionQPData%Od, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Od, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Od)) then allocate(DstEqMotionQPData%Od(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3504,8 +3504,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Od = SrcEqMotionQPData%Od end if if (allocated(SrcEqMotionQPData%Pd)) then - LB(1:4) = lbound(SrcEqMotionQPData%Pd) - UB(1:4) = ubound(SrcEqMotionQPData%Pd) + LB(1:4) = lbound(SrcEqMotionQPData%Pd, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Pd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Pd)) then allocate(DstEqMotionQPData%Pd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3516,8 +3516,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Pd = SrcEqMotionQPData%Pd end if if (allocated(SrcEqMotionQPData%Qd)) then - LB(1:4) = lbound(SrcEqMotionQPData%Qd) - UB(1:4) = ubound(SrcEqMotionQPData%Qd) + LB(1:4) = lbound(SrcEqMotionQPData%Qd, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Qd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Qd)) then allocate(DstEqMotionQPData%Qd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3528,8 +3528,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Qd = SrcEqMotionQPData%Qd end if if (allocated(SrcEqMotionQPData%Sd)) then - LB(1:4) = lbound(SrcEqMotionQPData%Sd) - UB(1:4) = ubound(SrcEqMotionQPData%Sd) + LB(1:4) = lbound(SrcEqMotionQPData%Sd, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Sd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Sd)) then allocate(DstEqMotionQPData%Sd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3540,8 +3540,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Sd = SrcEqMotionQPData%Sd end if if (allocated(SrcEqMotionQPData%Xd)) then - LB(1:4) = lbound(SrcEqMotionQPData%Xd) - UB(1:4) = ubound(SrcEqMotionQPData%Xd) + LB(1:4) = lbound(SrcEqMotionQPData%Xd, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Xd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Xd)) then allocate(DstEqMotionQPData%Xd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3552,8 +3552,8 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err DstEqMotionQPData%Xd = SrcEqMotionQPData%Xd end if if (allocated(SrcEqMotionQPData%Yd)) then - LB(1:4) = lbound(SrcEqMotionQPData%Yd) - UB(1:4) = ubound(SrcEqMotionQPData%Yd) + LB(1:4) = lbound(SrcEqMotionQPData%Yd, kind=B8Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Yd, kind=B8Ki) if (.not. allocated(DstEqMotionQPData%Yd)) then allocate(DstEqMotionQPData%Yd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3674,157 +3674,157 @@ subroutine BD_PackEqMotionQP(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%uuu)) if (allocated(InData%uuu)) then - call RegPackBounds(Buf, 3, lbound(InData%uuu), ubound(InData%uuu)) + call RegPackBounds(Buf, 3, lbound(InData%uuu, kind=B8Ki), ubound(InData%uuu, kind=B8Ki)) call RegPack(Buf, InData%uuu) end if call RegPack(Buf, allocated(InData%uup)) if (allocated(InData%uup)) then - call RegPackBounds(Buf, 3, lbound(InData%uup), ubound(InData%uup)) + call RegPackBounds(Buf, 3, lbound(InData%uup, kind=B8Ki), ubound(InData%uup, kind=B8Ki)) call RegPack(Buf, InData%uup) end if call RegPack(Buf, allocated(InData%vvv)) if (allocated(InData%vvv)) then - call RegPackBounds(Buf, 3, lbound(InData%vvv), ubound(InData%vvv)) + call RegPackBounds(Buf, 3, lbound(InData%vvv, kind=B8Ki), ubound(InData%vvv, kind=B8Ki)) call RegPack(Buf, InData%vvv) end if call RegPack(Buf, allocated(InData%vvp)) if (allocated(InData%vvp)) then - call RegPackBounds(Buf, 3, lbound(InData%vvp), ubound(InData%vvp)) + call RegPackBounds(Buf, 3, lbound(InData%vvp, kind=B8Ki), ubound(InData%vvp, kind=B8Ki)) call RegPack(Buf, InData%vvp) end if call RegPack(Buf, allocated(InData%aaa)) if (allocated(InData%aaa)) then - call RegPackBounds(Buf, 3, lbound(InData%aaa), ubound(InData%aaa)) + call RegPackBounds(Buf, 3, lbound(InData%aaa, kind=B8Ki), ubound(InData%aaa, kind=B8Ki)) call RegPack(Buf, InData%aaa) end if call RegPack(Buf, allocated(InData%RR0)) if (allocated(InData%RR0)) then - call RegPackBounds(Buf, 4, lbound(InData%RR0), ubound(InData%RR0)) + call RegPackBounds(Buf, 4, lbound(InData%RR0, kind=B8Ki), ubound(InData%RR0, kind=B8Ki)) call RegPack(Buf, InData%RR0) end if call RegPack(Buf, allocated(InData%kappa)) if (allocated(InData%kappa)) then - call RegPackBounds(Buf, 3, lbound(InData%kappa), ubound(InData%kappa)) + call RegPackBounds(Buf, 3, lbound(InData%kappa, kind=B8Ki), ubound(InData%kappa, kind=B8Ki)) call RegPack(Buf, InData%kappa) end if call RegPack(Buf, allocated(InData%E1)) if (allocated(InData%E1)) then - call RegPackBounds(Buf, 3, lbound(InData%E1), ubound(InData%E1)) + call RegPackBounds(Buf, 3, lbound(InData%E1, kind=B8Ki), ubound(InData%E1, kind=B8Ki)) call RegPack(Buf, InData%E1) end if call RegPack(Buf, allocated(InData%Stif)) if (allocated(InData%Stif)) then - call RegPackBounds(Buf, 4, lbound(InData%Stif), ubound(InData%Stif)) + call RegPackBounds(Buf, 4, lbound(InData%Stif, kind=B8Ki), ubound(InData%Stif, kind=B8Ki)) call RegPack(Buf, InData%Stif) end if call RegPack(Buf, allocated(InData%Fb)) if (allocated(InData%Fb)) then - call RegPackBounds(Buf, 3, lbound(InData%Fb), ubound(InData%Fb)) + call RegPackBounds(Buf, 3, lbound(InData%Fb, kind=B8Ki), ubound(InData%Fb, kind=B8Ki)) call RegPack(Buf, InData%Fb) end if call RegPack(Buf, allocated(InData%Fc)) if (allocated(InData%Fc)) then - call RegPackBounds(Buf, 3, lbound(InData%Fc), ubound(InData%Fc)) + call RegPackBounds(Buf, 3, lbound(InData%Fc, kind=B8Ki), ubound(InData%Fc, kind=B8Ki)) call RegPack(Buf, InData%Fc) end if call RegPack(Buf, allocated(InData%Fd)) if (allocated(InData%Fd)) then - call RegPackBounds(Buf, 3, lbound(InData%Fd), ubound(InData%Fd)) + call RegPackBounds(Buf, 3, lbound(InData%Fd, kind=B8Ki), ubound(InData%Fd, kind=B8Ki)) call RegPack(Buf, InData%Fd) end if call RegPack(Buf, allocated(InData%Fg)) if (allocated(InData%Fg)) then - call RegPackBounds(Buf, 3, lbound(InData%Fg), ubound(InData%Fg)) + call RegPackBounds(Buf, 3, lbound(InData%Fg, kind=B8Ki), ubound(InData%Fg, kind=B8Ki)) call RegPack(Buf, InData%Fg) end if call RegPack(Buf, allocated(InData%Fi)) if (allocated(InData%Fi)) then - call RegPackBounds(Buf, 3, lbound(InData%Fi), ubound(InData%Fi)) + call RegPackBounds(Buf, 3, lbound(InData%Fi, kind=B8Ki), ubound(InData%Fi, kind=B8Ki)) call RegPack(Buf, InData%Fi) end if call RegPack(Buf, allocated(InData%Ftemp)) if (allocated(InData%Ftemp)) then - call RegPackBounds(Buf, 3, lbound(InData%Ftemp), ubound(InData%Ftemp)) + call RegPackBounds(Buf, 3, lbound(InData%Ftemp, kind=B8Ki), ubound(InData%Ftemp, kind=B8Ki)) call RegPack(Buf, InData%Ftemp) end if call RegPack(Buf, allocated(InData%RR0mEta)) if (allocated(InData%RR0mEta)) then - call RegPackBounds(Buf, 3, lbound(InData%RR0mEta), ubound(InData%RR0mEta)) + call RegPackBounds(Buf, 3, lbound(InData%RR0mEta, kind=B8Ki), ubound(InData%RR0mEta, kind=B8Ki)) call RegPack(Buf, InData%RR0mEta) end if call RegPack(Buf, allocated(InData%rho)) if (allocated(InData%rho)) then - call RegPackBounds(Buf, 4, lbound(InData%rho), ubound(InData%rho)) + call RegPackBounds(Buf, 4, lbound(InData%rho, kind=B8Ki), ubound(InData%rho, kind=B8Ki)) call RegPack(Buf, InData%rho) end if call RegPack(Buf, allocated(InData%betaC)) if (allocated(InData%betaC)) then - call RegPackBounds(Buf, 4, lbound(InData%betaC), ubound(InData%betaC)) + call RegPackBounds(Buf, 4, lbound(InData%betaC, kind=B8Ki), ubound(InData%betaC, kind=B8Ki)) call RegPack(Buf, InData%betaC) end if call RegPack(Buf, allocated(InData%Gi)) if (allocated(InData%Gi)) then - call RegPackBounds(Buf, 4, lbound(InData%Gi), ubound(InData%Gi)) + call RegPackBounds(Buf, 4, lbound(InData%Gi, kind=B8Ki), ubound(InData%Gi, kind=B8Ki)) call RegPack(Buf, InData%Gi) end if call RegPack(Buf, allocated(InData%Ki)) if (allocated(InData%Ki)) then - call RegPackBounds(Buf, 4, lbound(InData%Ki), ubound(InData%Ki)) + call RegPackBounds(Buf, 4, lbound(InData%Ki, kind=B8Ki), ubound(InData%Ki, kind=B8Ki)) call RegPack(Buf, InData%Ki) end if call RegPack(Buf, allocated(InData%Mi)) if (allocated(InData%Mi)) then - call RegPackBounds(Buf, 4, lbound(InData%Mi), ubound(InData%Mi)) + call RegPackBounds(Buf, 4, lbound(InData%Mi, kind=B8Ki), ubound(InData%Mi, kind=B8Ki)) call RegPack(Buf, InData%Mi) end if call RegPack(Buf, allocated(InData%Oe)) if (allocated(InData%Oe)) then - call RegPackBounds(Buf, 4, lbound(InData%Oe), ubound(InData%Oe)) + call RegPackBounds(Buf, 4, lbound(InData%Oe, kind=B8Ki), ubound(InData%Oe, kind=B8Ki)) call RegPack(Buf, InData%Oe) end if call RegPack(Buf, allocated(InData%Pe)) if (allocated(InData%Pe)) then - call RegPackBounds(Buf, 4, lbound(InData%Pe), ubound(InData%Pe)) + call RegPackBounds(Buf, 4, lbound(InData%Pe, kind=B8Ki), ubound(InData%Pe, kind=B8Ki)) call RegPack(Buf, InData%Pe) end if call RegPack(Buf, allocated(InData%Qe)) if (allocated(InData%Qe)) then - call RegPackBounds(Buf, 4, lbound(InData%Qe), ubound(InData%Qe)) + call RegPackBounds(Buf, 4, lbound(InData%Qe, kind=B8Ki), ubound(InData%Qe, kind=B8Ki)) call RegPack(Buf, InData%Qe) end if call RegPack(Buf, allocated(InData%Gd)) if (allocated(InData%Gd)) then - call RegPackBounds(Buf, 4, lbound(InData%Gd), ubound(InData%Gd)) + call RegPackBounds(Buf, 4, lbound(InData%Gd, kind=B8Ki), ubound(InData%Gd, kind=B8Ki)) call RegPack(Buf, InData%Gd) end if call RegPack(Buf, allocated(InData%Od)) if (allocated(InData%Od)) then - call RegPackBounds(Buf, 4, lbound(InData%Od), ubound(InData%Od)) + call RegPackBounds(Buf, 4, lbound(InData%Od, kind=B8Ki), ubound(InData%Od, kind=B8Ki)) call RegPack(Buf, InData%Od) end if call RegPack(Buf, allocated(InData%Pd)) if (allocated(InData%Pd)) then - call RegPackBounds(Buf, 4, lbound(InData%Pd), ubound(InData%Pd)) + call RegPackBounds(Buf, 4, lbound(InData%Pd, kind=B8Ki), ubound(InData%Pd, kind=B8Ki)) call RegPack(Buf, InData%Pd) end if call RegPack(Buf, allocated(InData%Qd)) if (allocated(InData%Qd)) then - call RegPackBounds(Buf, 4, lbound(InData%Qd), ubound(InData%Qd)) + call RegPackBounds(Buf, 4, lbound(InData%Qd, kind=B8Ki), ubound(InData%Qd, kind=B8Ki)) call RegPack(Buf, InData%Qd) end if call RegPack(Buf, allocated(InData%Sd)) if (allocated(InData%Sd)) then - call RegPackBounds(Buf, 4, lbound(InData%Sd), ubound(InData%Sd)) + call RegPackBounds(Buf, 4, lbound(InData%Sd, kind=B8Ki), ubound(InData%Sd, kind=B8Ki)) call RegPack(Buf, InData%Sd) end if call RegPack(Buf, allocated(InData%Xd)) if (allocated(InData%Xd)) then - call RegPackBounds(Buf, 4, lbound(InData%Xd), ubound(InData%Xd)) + call RegPackBounds(Buf, 4, lbound(InData%Xd, kind=B8Ki), ubound(InData%Xd, kind=B8Ki)) call RegPack(Buf, InData%Xd) end if call RegPack(Buf, allocated(InData%Yd)) if (allocated(InData%Yd)) then - call RegPackBounds(Buf, 4, lbound(InData%Yd), ubound(InData%Yd)) + call RegPackBounds(Buf, 4, lbound(InData%Yd, kind=B8Ki), ubound(InData%Yd, kind=B8Ki)) call RegPack(Buf, InData%Yd) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3834,7 +3834,7 @@ subroutine BD_UnPackEqMotionQP(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(EqMotionQP), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackEqMotionQP' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4280,7 +4280,7 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyMisc' @@ -4303,8 +4303,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%lin_A)) then - LB(1:2) = lbound(SrcMiscData%lin_A) - UB(1:2) = ubound(SrcMiscData%lin_A) + LB(1:2) = lbound(SrcMiscData%lin_A, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%lin_A, kind=B8Ki) if (.not. allocated(DstMiscData%lin_A)) then allocate(DstMiscData%lin_A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4315,8 +4315,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%lin_A = SrcMiscData%lin_A end if if (allocated(SrcMiscData%lin_C)) then - LB(1:2) = lbound(SrcMiscData%lin_C) - UB(1:2) = ubound(SrcMiscData%lin_C) + LB(1:2) = lbound(SrcMiscData%lin_C, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%lin_C, kind=B8Ki) if (.not. allocated(DstMiscData%lin_C)) then allocate(DstMiscData%lin_C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4327,8 +4327,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%lin_C = SrcMiscData%lin_C end if if (allocated(SrcMiscData%Nrrr)) then - LB(1:3) = lbound(SrcMiscData%Nrrr) - UB(1:3) = ubound(SrcMiscData%Nrrr) + LB(1:3) = lbound(SrcMiscData%Nrrr, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%Nrrr, kind=B8Ki) if (.not. allocated(DstMiscData%Nrrr)) then allocate(DstMiscData%Nrrr(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4339,8 +4339,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Nrrr = SrcMiscData%Nrrr end if if (allocated(SrcMiscData%elf)) then - LB(1:2) = lbound(SrcMiscData%elf) - UB(1:2) = ubound(SrcMiscData%elf) + LB(1:2) = lbound(SrcMiscData%elf, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%elf, kind=B8Ki) if (.not. allocated(DstMiscData%elf)) then allocate(DstMiscData%elf(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4351,8 +4351,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%elf = SrcMiscData%elf end if if (allocated(SrcMiscData%EFint)) then - LB(1:3) = lbound(SrcMiscData%EFint) - UB(1:3) = ubound(SrcMiscData%EFint) + LB(1:3) = lbound(SrcMiscData%EFint, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%EFint, kind=B8Ki) if (.not. allocated(DstMiscData%EFint)) then allocate(DstMiscData%EFint(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4363,8 +4363,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%EFint = SrcMiscData%EFint end if if (allocated(SrcMiscData%elk)) then - LB(1:4) = lbound(SrcMiscData%elk) - UB(1:4) = ubound(SrcMiscData%elk) + LB(1:4) = lbound(SrcMiscData%elk, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%elk, kind=B8Ki) if (.not. allocated(DstMiscData%elk)) then allocate(DstMiscData%elk(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4375,8 +4375,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%elk = SrcMiscData%elk end if if (allocated(SrcMiscData%elg)) then - LB(1:4) = lbound(SrcMiscData%elg) - UB(1:4) = ubound(SrcMiscData%elg) + LB(1:4) = lbound(SrcMiscData%elg, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%elg, kind=B8Ki) if (.not. allocated(DstMiscData%elg)) then allocate(DstMiscData%elg(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4387,8 +4387,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%elg = SrcMiscData%elg end if if (allocated(SrcMiscData%elm)) then - LB(1:4) = lbound(SrcMiscData%elm) - UB(1:4) = ubound(SrcMiscData%elm) + LB(1:4) = lbound(SrcMiscData%elm, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%elm, kind=B8Ki) if (.not. allocated(DstMiscData%elm)) then allocate(DstMiscData%elm(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4399,8 +4399,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%elm = SrcMiscData%elm end if if (allocated(SrcMiscData%DistrLoad_QP)) then - LB(1:3) = lbound(SrcMiscData%DistrLoad_QP) - UB(1:3) = ubound(SrcMiscData%DistrLoad_QP) + LB(1:3) = lbound(SrcMiscData%DistrLoad_QP, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%DistrLoad_QP, kind=B8Ki) if (.not. allocated(DstMiscData%DistrLoad_QP)) then allocate(DstMiscData%DistrLoad_QP(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4411,8 +4411,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DistrLoad_QP = SrcMiscData%DistrLoad_QP end if if (allocated(SrcMiscData%PointLoadLcl)) then - LB(1:2) = lbound(SrcMiscData%PointLoadLcl) - UB(1:2) = ubound(SrcMiscData%PointLoadLcl) + LB(1:2) = lbound(SrcMiscData%PointLoadLcl, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%PointLoadLcl, kind=B8Ki) if (.not. allocated(DstMiscData%PointLoadLcl)) then allocate(DstMiscData%PointLoadLcl(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4423,8 +4423,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%PointLoadLcl = SrcMiscData%PointLoadLcl end if if (allocated(SrcMiscData%StifK)) then - LB(1:4) = lbound(SrcMiscData%StifK) - UB(1:4) = ubound(SrcMiscData%StifK) + LB(1:4) = lbound(SrcMiscData%StifK, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%StifK, kind=B8Ki) if (.not. allocated(DstMiscData%StifK)) then allocate(DstMiscData%StifK(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4435,8 +4435,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%StifK = SrcMiscData%StifK end if if (allocated(SrcMiscData%MassM)) then - LB(1:4) = lbound(SrcMiscData%MassM) - UB(1:4) = ubound(SrcMiscData%MassM) + LB(1:4) = lbound(SrcMiscData%MassM, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%MassM, kind=B8Ki) if (.not. allocated(DstMiscData%MassM)) then allocate(DstMiscData%MassM(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4447,8 +4447,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%MassM = SrcMiscData%MassM end if if (allocated(SrcMiscData%DampG)) then - LB(1:4) = lbound(SrcMiscData%DampG) - UB(1:4) = ubound(SrcMiscData%DampG) + LB(1:4) = lbound(SrcMiscData%DampG, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%DampG, kind=B8Ki) if (.not. allocated(DstMiscData%DampG)) then allocate(DstMiscData%DampG(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4459,8 +4459,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DampG = SrcMiscData%DampG end if if (allocated(SrcMiscData%StifK_fd)) then - LB(1:4) = lbound(SrcMiscData%StifK_fd) - UB(1:4) = ubound(SrcMiscData%StifK_fd) + LB(1:4) = lbound(SrcMiscData%StifK_fd, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%StifK_fd, kind=B8Ki) if (.not. allocated(DstMiscData%StifK_fd)) then allocate(DstMiscData%StifK_fd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4471,8 +4471,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%StifK_fd = SrcMiscData%StifK_fd end if if (allocated(SrcMiscData%MassM_fd)) then - LB(1:4) = lbound(SrcMiscData%MassM_fd) - UB(1:4) = ubound(SrcMiscData%MassM_fd) + LB(1:4) = lbound(SrcMiscData%MassM_fd, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%MassM_fd, kind=B8Ki) if (.not. allocated(DstMiscData%MassM_fd)) then allocate(DstMiscData%MassM_fd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4483,8 +4483,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%MassM_fd = SrcMiscData%MassM_fd end if if (allocated(SrcMiscData%DampG_fd)) then - LB(1:4) = lbound(SrcMiscData%DampG_fd) - UB(1:4) = ubound(SrcMiscData%DampG_fd) + LB(1:4) = lbound(SrcMiscData%DampG_fd, kind=B8Ki) + UB(1:4) = ubound(SrcMiscData%DampG_fd, kind=B8Ki) if (.not. allocated(DstMiscData%DampG_fd)) then allocate(DstMiscData%DampG_fd(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4495,8 +4495,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DampG_fd = SrcMiscData%DampG_fd end if if (allocated(SrcMiscData%RHS)) then - LB(1:2) = lbound(SrcMiscData%RHS) - UB(1:2) = ubound(SrcMiscData%RHS) + LB(1:2) = lbound(SrcMiscData%RHS, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%RHS, kind=B8Ki) if (.not. allocated(DstMiscData%RHS)) then allocate(DstMiscData%RHS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4507,8 +4507,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%RHS = SrcMiscData%RHS end if if (allocated(SrcMiscData%RHS_p)) then - LB(1:2) = lbound(SrcMiscData%RHS_p) - UB(1:2) = ubound(SrcMiscData%RHS_p) + LB(1:2) = lbound(SrcMiscData%RHS_p, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%RHS_p, kind=B8Ki) if (.not. allocated(DstMiscData%RHS_p)) then allocate(DstMiscData%RHS_p(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4519,8 +4519,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%RHS_p = SrcMiscData%RHS_p end if if (allocated(SrcMiscData%RHS_m)) then - LB(1:2) = lbound(SrcMiscData%RHS_m) - UB(1:2) = ubound(SrcMiscData%RHS_m) + LB(1:2) = lbound(SrcMiscData%RHS_m, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%RHS_m, kind=B8Ki) if (.not. allocated(DstMiscData%RHS_m)) then allocate(DstMiscData%RHS_m(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4531,8 +4531,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%RHS_m = SrcMiscData%RHS_m end if if (allocated(SrcMiscData%BldInternalForceFE)) then - LB(1:2) = lbound(SrcMiscData%BldInternalForceFE) - UB(1:2) = ubound(SrcMiscData%BldInternalForceFE) + LB(1:2) = lbound(SrcMiscData%BldInternalForceFE, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%BldInternalForceFE, kind=B8Ki) if (.not. allocated(DstMiscData%BldInternalForceFE)) then allocate(DstMiscData%BldInternalForceFE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4543,8 +4543,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BldInternalForceFE = SrcMiscData%BldInternalForceFE end if if (allocated(SrcMiscData%BldInternalForceQP)) then - LB(1:2) = lbound(SrcMiscData%BldInternalForceQP) - UB(1:2) = ubound(SrcMiscData%BldInternalForceQP) + LB(1:2) = lbound(SrcMiscData%BldInternalForceQP, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%BldInternalForceQP, kind=B8Ki) if (.not. allocated(DstMiscData%BldInternalForceQP)) then allocate(DstMiscData%BldInternalForceQP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4555,8 +4555,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BldInternalForceQP = SrcMiscData%BldInternalForceQP end if if (allocated(SrcMiscData%FirstNodeReactionLclForceMoment)) then - LB(1:1) = lbound(SrcMiscData%FirstNodeReactionLclForceMoment) - UB(1:1) = ubound(SrcMiscData%FirstNodeReactionLclForceMoment) + LB(1:1) = lbound(SrcMiscData%FirstNodeReactionLclForceMoment, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FirstNodeReactionLclForceMoment, kind=B8Ki) if (.not. allocated(DstMiscData%FirstNodeReactionLclForceMoment)) then allocate(DstMiscData%FirstNodeReactionLclForceMoment(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4567,8 +4567,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FirstNodeReactionLclForceMoment = SrcMiscData%FirstNodeReactionLclForceMoment end if if (allocated(SrcMiscData%Solution)) then - LB(1:2) = lbound(SrcMiscData%Solution) - UB(1:2) = ubound(SrcMiscData%Solution) + LB(1:2) = lbound(SrcMiscData%Solution, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%Solution, kind=B8Ki) if (.not. allocated(DstMiscData%Solution)) then allocate(DstMiscData%Solution(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4579,8 +4579,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Solution = SrcMiscData%Solution end if if (allocated(SrcMiscData%LP_StifK)) then - LB(1:2) = lbound(SrcMiscData%LP_StifK) - UB(1:2) = ubound(SrcMiscData%LP_StifK) + LB(1:2) = lbound(SrcMiscData%LP_StifK, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%LP_StifK, kind=B8Ki) if (.not. allocated(DstMiscData%LP_StifK)) then allocate(DstMiscData%LP_StifK(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4591,8 +4591,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LP_StifK = SrcMiscData%LP_StifK end if if (allocated(SrcMiscData%LP_MassM)) then - LB(1:2) = lbound(SrcMiscData%LP_MassM) - UB(1:2) = ubound(SrcMiscData%LP_MassM) + LB(1:2) = lbound(SrcMiscData%LP_MassM, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%LP_MassM, kind=B8Ki) if (.not. allocated(DstMiscData%LP_MassM)) then allocate(DstMiscData%LP_MassM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4603,8 +4603,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LP_MassM = SrcMiscData%LP_MassM end if if (allocated(SrcMiscData%LP_MassM_LU)) then - LB(1:2) = lbound(SrcMiscData%LP_MassM_LU) - UB(1:2) = ubound(SrcMiscData%LP_MassM_LU) + LB(1:2) = lbound(SrcMiscData%LP_MassM_LU, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%LP_MassM_LU, kind=B8Ki) if (.not. allocated(DstMiscData%LP_MassM_LU)) then allocate(DstMiscData%LP_MassM_LU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4615,8 +4615,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LP_MassM_LU = SrcMiscData%LP_MassM_LU end if if (allocated(SrcMiscData%LP_RHS)) then - LB(1:1) = lbound(SrcMiscData%LP_RHS) - UB(1:1) = ubound(SrcMiscData%LP_RHS) + LB(1:1) = lbound(SrcMiscData%LP_RHS, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LP_RHS, kind=B8Ki) if (.not. allocated(DstMiscData%LP_RHS)) then allocate(DstMiscData%LP_RHS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4627,8 +4627,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LP_RHS = SrcMiscData%LP_RHS end if if (allocated(SrcMiscData%LP_StifK_LU)) then - LB(1:2) = lbound(SrcMiscData%LP_StifK_LU) - UB(1:2) = ubound(SrcMiscData%LP_StifK_LU) + LB(1:2) = lbound(SrcMiscData%LP_StifK_LU, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%LP_StifK_LU, kind=B8Ki) if (.not. allocated(DstMiscData%LP_StifK_LU)) then allocate(DstMiscData%LP_StifK_LU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4639,8 +4639,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LP_StifK_LU = SrcMiscData%LP_StifK_LU end if if (allocated(SrcMiscData%LP_RHS_LU)) then - LB(1:1) = lbound(SrcMiscData%LP_RHS_LU) - UB(1:1) = ubound(SrcMiscData%LP_RHS_LU) + LB(1:1) = lbound(SrcMiscData%LP_RHS_LU, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LP_RHS_LU, kind=B8Ki) if (.not. allocated(DstMiscData%LP_RHS_LU)) then allocate(DstMiscData%LP_RHS_LU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4651,8 +4651,8 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LP_RHS_LU = SrcMiscData%LP_RHS_LU end if if (allocated(SrcMiscData%LP_indx)) then - LB(1:1) = lbound(SrcMiscData%LP_indx) - UB(1:1) = ubound(SrcMiscData%LP_indx) + LB(1:1) = lbound(SrcMiscData%LP_indx, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LP_indx, kind=B8Ki) if (.not. allocated(DstMiscData%LP_indx)) then allocate(DstMiscData%LP_indx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4798,152 +4798,152 @@ subroutine BD_PackMisc(Buf, Indata) call BD_PackEqMotionQP(Buf, InData%qp) call RegPack(Buf, allocated(InData%lin_A)) if (allocated(InData%lin_A)) then - call RegPackBounds(Buf, 2, lbound(InData%lin_A), ubound(InData%lin_A)) + call RegPackBounds(Buf, 2, lbound(InData%lin_A, kind=B8Ki), ubound(InData%lin_A, kind=B8Ki)) call RegPack(Buf, InData%lin_A) end if call RegPack(Buf, allocated(InData%lin_C)) if (allocated(InData%lin_C)) then - call RegPackBounds(Buf, 2, lbound(InData%lin_C), ubound(InData%lin_C)) + call RegPackBounds(Buf, 2, lbound(InData%lin_C, kind=B8Ki), ubound(InData%lin_C, kind=B8Ki)) call RegPack(Buf, InData%lin_C) end if call RegPack(Buf, allocated(InData%Nrrr)) if (allocated(InData%Nrrr)) then - call RegPackBounds(Buf, 3, lbound(InData%Nrrr), ubound(InData%Nrrr)) + call RegPackBounds(Buf, 3, lbound(InData%Nrrr, kind=B8Ki), ubound(InData%Nrrr, kind=B8Ki)) call RegPack(Buf, InData%Nrrr) end if call RegPack(Buf, allocated(InData%elf)) if (allocated(InData%elf)) then - call RegPackBounds(Buf, 2, lbound(InData%elf), ubound(InData%elf)) + call RegPackBounds(Buf, 2, lbound(InData%elf, kind=B8Ki), ubound(InData%elf, kind=B8Ki)) call RegPack(Buf, InData%elf) end if call RegPack(Buf, allocated(InData%EFint)) if (allocated(InData%EFint)) then - call RegPackBounds(Buf, 3, lbound(InData%EFint), ubound(InData%EFint)) + call RegPackBounds(Buf, 3, lbound(InData%EFint, kind=B8Ki), ubound(InData%EFint, kind=B8Ki)) call RegPack(Buf, InData%EFint) end if call RegPack(Buf, allocated(InData%elk)) if (allocated(InData%elk)) then - call RegPackBounds(Buf, 4, lbound(InData%elk), ubound(InData%elk)) + call RegPackBounds(Buf, 4, lbound(InData%elk, kind=B8Ki), ubound(InData%elk, kind=B8Ki)) call RegPack(Buf, InData%elk) end if call RegPack(Buf, allocated(InData%elg)) if (allocated(InData%elg)) then - call RegPackBounds(Buf, 4, lbound(InData%elg), ubound(InData%elg)) + call RegPackBounds(Buf, 4, lbound(InData%elg, kind=B8Ki), ubound(InData%elg, kind=B8Ki)) call RegPack(Buf, InData%elg) end if call RegPack(Buf, allocated(InData%elm)) if (allocated(InData%elm)) then - call RegPackBounds(Buf, 4, lbound(InData%elm), ubound(InData%elm)) + call RegPackBounds(Buf, 4, lbound(InData%elm, kind=B8Ki), ubound(InData%elm, kind=B8Ki)) call RegPack(Buf, InData%elm) end if call RegPack(Buf, allocated(InData%DistrLoad_QP)) if (allocated(InData%DistrLoad_QP)) then - call RegPackBounds(Buf, 3, lbound(InData%DistrLoad_QP), ubound(InData%DistrLoad_QP)) + call RegPackBounds(Buf, 3, lbound(InData%DistrLoad_QP, kind=B8Ki), ubound(InData%DistrLoad_QP, kind=B8Ki)) call RegPack(Buf, InData%DistrLoad_QP) end if call RegPack(Buf, allocated(InData%PointLoadLcl)) if (allocated(InData%PointLoadLcl)) then - call RegPackBounds(Buf, 2, lbound(InData%PointLoadLcl), ubound(InData%PointLoadLcl)) + call RegPackBounds(Buf, 2, lbound(InData%PointLoadLcl, kind=B8Ki), ubound(InData%PointLoadLcl, kind=B8Ki)) call RegPack(Buf, InData%PointLoadLcl) end if call RegPack(Buf, allocated(InData%StifK)) if (allocated(InData%StifK)) then - call RegPackBounds(Buf, 4, lbound(InData%StifK), ubound(InData%StifK)) + call RegPackBounds(Buf, 4, lbound(InData%StifK, kind=B8Ki), ubound(InData%StifK, kind=B8Ki)) call RegPack(Buf, InData%StifK) end if call RegPack(Buf, allocated(InData%MassM)) if (allocated(InData%MassM)) then - call RegPackBounds(Buf, 4, lbound(InData%MassM), ubound(InData%MassM)) + call RegPackBounds(Buf, 4, lbound(InData%MassM, kind=B8Ki), ubound(InData%MassM, kind=B8Ki)) call RegPack(Buf, InData%MassM) end if call RegPack(Buf, allocated(InData%DampG)) if (allocated(InData%DampG)) then - call RegPackBounds(Buf, 4, lbound(InData%DampG), ubound(InData%DampG)) + call RegPackBounds(Buf, 4, lbound(InData%DampG, kind=B8Ki), ubound(InData%DampG, kind=B8Ki)) call RegPack(Buf, InData%DampG) end if call RegPack(Buf, allocated(InData%StifK_fd)) if (allocated(InData%StifK_fd)) then - call RegPackBounds(Buf, 4, lbound(InData%StifK_fd), ubound(InData%StifK_fd)) + call RegPackBounds(Buf, 4, lbound(InData%StifK_fd, kind=B8Ki), ubound(InData%StifK_fd, kind=B8Ki)) call RegPack(Buf, InData%StifK_fd) end if call RegPack(Buf, allocated(InData%MassM_fd)) if (allocated(InData%MassM_fd)) then - call RegPackBounds(Buf, 4, lbound(InData%MassM_fd), ubound(InData%MassM_fd)) + call RegPackBounds(Buf, 4, lbound(InData%MassM_fd, kind=B8Ki), ubound(InData%MassM_fd, kind=B8Ki)) call RegPack(Buf, InData%MassM_fd) end if call RegPack(Buf, allocated(InData%DampG_fd)) if (allocated(InData%DampG_fd)) then - call RegPackBounds(Buf, 4, lbound(InData%DampG_fd), ubound(InData%DampG_fd)) + call RegPackBounds(Buf, 4, lbound(InData%DampG_fd, kind=B8Ki), ubound(InData%DampG_fd, kind=B8Ki)) call RegPack(Buf, InData%DampG_fd) end if call RegPack(Buf, allocated(InData%RHS)) if (allocated(InData%RHS)) then - call RegPackBounds(Buf, 2, lbound(InData%RHS), ubound(InData%RHS)) + call RegPackBounds(Buf, 2, lbound(InData%RHS, kind=B8Ki), ubound(InData%RHS, kind=B8Ki)) call RegPack(Buf, InData%RHS) end if call RegPack(Buf, allocated(InData%RHS_p)) if (allocated(InData%RHS_p)) then - call RegPackBounds(Buf, 2, lbound(InData%RHS_p), ubound(InData%RHS_p)) + call RegPackBounds(Buf, 2, lbound(InData%RHS_p, kind=B8Ki), ubound(InData%RHS_p, kind=B8Ki)) call RegPack(Buf, InData%RHS_p) end if call RegPack(Buf, allocated(InData%RHS_m)) if (allocated(InData%RHS_m)) then - call RegPackBounds(Buf, 2, lbound(InData%RHS_m), ubound(InData%RHS_m)) + call RegPackBounds(Buf, 2, lbound(InData%RHS_m, kind=B8Ki), ubound(InData%RHS_m, kind=B8Ki)) call RegPack(Buf, InData%RHS_m) end if call RegPack(Buf, allocated(InData%BldInternalForceFE)) if (allocated(InData%BldInternalForceFE)) then - call RegPackBounds(Buf, 2, lbound(InData%BldInternalForceFE), ubound(InData%BldInternalForceFE)) + call RegPackBounds(Buf, 2, lbound(InData%BldInternalForceFE, kind=B8Ki), ubound(InData%BldInternalForceFE, kind=B8Ki)) call RegPack(Buf, InData%BldInternalForceFE) end if call RegPack(Buf, allocated(InData%BldInternalForceQP)) if (allocated(InData%BldInternalForceQP)) then - call RegPackBounds(Buf, 2, lbound(InData%BldInternalForceQP), ubound(InData%BldInternalForceQP)) + call RegPackBounds(Buf, 2, lbound(InData%BldInternalForceQP, kind=B8Ki), ubound(InData%BldInternalForceQP, kind=B8Ki)) call RegPack(Buf, InData%BldInternalForceQP) end if call RegPack(Buf, allocated(InData%FirstNodeReactionLclForceMoment)) if (allocated(InData%FirstNodeReactionLclForceMoment)) then - call RegPackBounds(Buf, 1, lbound(InData%FirstNodeReactionLclForceMoment), ubound(InData%FirstNodeReactionLclForceMoment)) + call RegPackBounds(Buf, 1, lbound(InData%FirstNodeReactionLclForceMoment, kind=B8Ki), ubound(InData%FirstNodeReactionLclForceMoment, kind=B8Ki)) call RegPack(Buf, InData%FirstNodeReactionLclForceMoment) end if call RegPack(Buf, allocated(InData%Solution)) if (allocated(InData%Solution)) then - call RegPackBounds(Buf, 2, lbound(InData%Solution), ubound(InData%Solution)) + call RegPackBounds(Buf, 2, lbound(InData%Solution, kind=B8Ki), ubound(InData%Solution, kind=B8Ki)) call RegPack(Buf, InData%Solution) end if call RegPack(Buf, allocated(InData%LP_StifK)) if (allocated(InData%LP_StifK)) then - call RegPackBounds(Buf, 2, lbound(InData%LP_StifK), ubound(InData%LP_StifK)) + call RegPackBounds(Buf, 2, lbound(InData%LP_StifK, kind=B8Ki), ubound(InData%LP_StifK, kind=B8Ki)) call RegPack(Buf, InData%LP_StifK) end if call RegPack(Buf, allocated(InData%LP_MassM)) if (allocated(InData%LP_MassM)) then - call RegPackBounds(Buf, 2, lbound(InData%LP_MassM), ubound(InData%LP_MassM)) + call RegPackBounds(Buf, 2, lbound(InData%LP_MassM, kind=B8Ki), ubound(InData%LP_MassM, kind=B8Ki)) call RegPack(Buf, InData%LP_MassM) end if call RegPack(Buf, allocated(InData%LP_MassM_LU)) if (allocated(InData%LP_MassM_LU)) then - call RegPackBounds(Buf, 2, lbound(InData%LP_MassM_LU), ubound(InData%LP_MassM_LU)) + call RegPackBounds(Buf, 2, lbound(InData%LP_MassM_LU, kind=B8Ki), ubound(InData%LP_MassM_LU, kind=B8Ki)) call RegPack(Buf, InData%LP_MassM_LU) end if call RegPack(Buf, allocated(InData%LP_RHS)) if (allocated(InData%LP_RHS)) then - call RegPackBounds(Buf, 1, lbound(InData%LP_RHS), ubound(InData%LP_RHS)) + call RegPackBounds(Buf, 1, lbound(InData%LP_RHS, kind=B8Ki), ubound(InData%LP_RHS, kind=B8Ki)) call RegPack(Buf, InData%LP_RHS) end if call RegPack(Buf, allocated(InData%LP_StifK_LU)) if (allocated(InData%LP_StifK_LU)) then - call RegPackBounds(Buf, 2, lbound(InData%LP_StifK_LU), ubound(InData%LP_StifK_LU)) + call RegPackBounds(Buf, 2, lbound(InData%LP_StifK_LU, kind=B8Ki), ubound(InData%LP_StifK_LU, kind=B8Ki)) call RegPack(Buf, InData%LP_StifK_LU) end if call RegPack(Buf, allocated(InData%LP_RHS_LU)) if (allocated(InData%LP_RHS_LU)) then - call RegPackBounds(Buf, 1, lbound(InData%LP_RHS_LU), ubound(InData%LP_RHS_LU)) + call RegPackBounds(Buf, 1, lbound(InData%LP_RHS_LU, kind=B8Ki), ubound(InData%LP_RHS_LU, kind=B8Ki)) call RegPack(Buf, InData%LP_RHS_LU) end if call RegPack(Buf, allocated(InData%LP_indx)) if (allocated(InData%LP_indx)) then - call RegPackBounds(Buf, 1, lbound(InData%LP_indx), ubound(InData%LP_indx)) + call RegPackBounds(Buf, 1, lbound(InData%LP_indx, kind=B8Ki), ubound(InData%LP_indx, kind=B8Ki)) call RegPack(Buf, InData%LP_indx) end if call BD_PackInput(Buf, InData%u) @@ -4955,7 +4955,7 @@ subroutine BD_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackMisc' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/elastodyn/src/ElastoDyn_Types.f90 b/modules/elastodyn/src/ElastoDyn_Types.f90 index 4e52b6773b..563fd371c6 100644 --- a/modules/elastodyn/src/ElastoDyn_Types.f90 +++ b/modules/elastodyn/src/ElastoDyn_Types.f90 @@ -905,15 +905,15 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -924,8 +924,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -940,8 +940,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err if (ErrStat >= AbortErrLev) return DstInitOutputData%NumBl = SrcInitOutputData%NumBl if (allocated(SrcInitOutputData%BlPitch)) then - LB(1:1) = lbound(SrcInitOutputData%BlPitch) - UB(1:1) = ubound(SrcInitOutputData%BlPitch) + LB(1:1) = lbound(SrcInitOutputData%BlPitch, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%BlPitch, kind=B8Ki) if (.not. allocated(DstInitOutputData%BlPitch)) then allocate(DstInitOutputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -956,8 +956,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%TowerBaseHeight = SrcInitOutputData%TowerBaseHeight DstInitOutputData%HubHt = SrcInitOutputData%HubHt if (allocated(SrcInitOutputData%BldRNodes)) then - LB(1:1) = lbound(SrcInitOutputData%BldRNodes) - UB(1:1) = ubound(SrcInitOutputData%BldRNodes) + LB(1:1) = lbound(SrcInitOutputData%BldRNodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%BldRNodes, kind=B8Ki) if (.not. allocated(DstInitOutputData%BldRNodes)) then allocate(DstInitOutputData%BldRNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -968,8 +968,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%BldRNodes = SrcInitOutputData%BldRNodes end if if (allocated(SrcInitOutputData%TwrHNodes)) then - LB(1:1) = lbound(SrcInitOutputData%TwrHNodes) - UB(1:1) = ubound(SrcInitOutputData%TwrHNodes) + LB(1:1) = lbound(SrcInitOutputData%TwrHNodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%TwrHNodes, kind=B8Ki) if (.not. allocated(DstInitOutputData%TwrHNodes)) then allocate(DstInitOutputData%TwrHNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -988,8 +988,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotSpeed = SrcInitOutputData%RotSpeed DstInitOutputData%isFixed_GenDOF = SrcInitOutputData%isFixed_GenDOF if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1000,8 +1000,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1012,8 +1012,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1024,8 +1024,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1036,8 +1036,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_x)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1048,8 +1048,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_x = SrcInitOutputData%RotFrame_x end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1060,8 +1060,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%DerivOrder_x = SrcInitOutputData%DerivOrder_x end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1072,8 +1072,8 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1145,19 +1145,19 @@ subroutine ED_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, InData%NumBl) call RegPack(Buf, allocated(InData%BlPitch)) if (allocated(InData%BlPitch)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitch), ubound(InData%BlPitch)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitch, kind=B8Ki), ubound(InData%BlPitch, kind=B8Ki)) call RegPack(Buf, InData%BlPitch) end if call RegPack(Buf, InData%BladeLength) @@ -1166,12 +1166,12 @@ subroutine ED_PackInitOutput(Buf, Indata) call RegPack(Buf, InData%HubHt) call RegPack(Buf, allocated(InData%BldRNodes)) if (allocated(InData%BldRNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%BldRNodes), ubound(InData%BldRNodes)) + call RegPackBounds(Buf, 1, lbound(InData%BldRNodes, kind=B8Ki), ubound(InData%BldRNodes, kind=B8Ki)) call RegPack(Buf, InData%BldRNodes) end if call RegPack(Buf, allocated(InData%TwrHNodes)) if (allocated(InData%TwrHNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%TwrHNodes), ubound(InData%TwrHNodes)) + call RegPackBounds(Buf, 1, lbound(InData%TwrHNodes, kind=B8Ki), ubound(InData%TwrHNodes, kind=B8Ki)) call RegPack(Buf, InData%TwrHNodes) end if call RegPack(Buf, InData%PlatformPos) @@ -1184,42 +1184,42 @@ subroutine ED_PackInitOutput(Buf, Indata) call RegPack(Buf, InData%isFixed_GenDOF) call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, InData%GearBox_index) @@ -1230,7 +1230,7 @@ subroutine ED_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackInitOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1453,15 +1453,15 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyBladeInputData' ErrStat = ErrID_None ErrMsg = '' DstBladeInputDataData%NBlInpSt = SrcBladeInputDataData%NBlInpSt if (allocated(SrcBladeInputDataData%BlFract)) then - LB(1:1) = lbound(SrcBladeInputDataData%BlFract) - UB(1:1) = ubound(SrcBladeInputDataData%BlFract) + LB(1:1) = lbound(SrcBladeInputDataData%BlFract, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%BlFract, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%BlFract)) then allocate(DstBladeInputDataData%BlFract(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1472,8 +1472,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BlFract = SrcBladeInputDataData%BlFract end if if (allocated(SrcBladeInputDataData%PitchAx)) then - LB(1:1) = lbound(SrcBladeInputDataData%PitchAx) - UB(1:1) = ubound(SrcBladeInputDataData%PitchAx) + LB(1:1) = lbound(SrcBladeInputDataData%PitchAx, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%PitchAx, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%PitchAx)) then allocate(DstBladeInputDataData%PitchAx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1484,8 +1484,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%PitchAx = SrcBladeInputDataData%PitchAx end if if (allocated(SrcBladeInputDataData%StrcTwst)) then - LB(1:1) = lbound(SrcBladeInputDataData%StrcTwst) - UB(1:1) = ubound(SrcBladeInputDataData%StrcTwst) + LB(1:1) = lbound(SrcBladeInputDataData%StrcTwst, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%StrcTwst, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%StrcTwst)) then allocate(DstBladeInputDataData%StrcTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1496,8 +1496,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%StrcTwst = SrcBladeInputDataData%StrcTwst end if if (allocated(SrcBladeInputDataData%BMassDen)) then - LB(1:1) = lbound(SrcBladeInputDataData%BMassDen) - UB(1:1) = ubound(SrcBladeInputDataData%BMassDen) + LB(1:1) = lbound(SrcBladeInputDataData%BMassDen, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%BMassDen, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%BMassDen)) then allocate(DstBladeInputDataData%BMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1508,8 +1508,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BMassDen = SrcBladeInputDataData%BMassDen end if if (allocated(SrcBladeInputDataData%FlpStff)) then - LB(1:1) = lbound(SrcBladeInputDataData%FlpStff) - UB(1:1) = ubound(SrcBladeInputDataData%FlpStff) + LB(1:1) = lbound(SrcBladeInputDataData%FlpStff, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%FlpStff, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%FlpStff)) then allocate(DstBladeInputDataData%FlpStff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1520,8 +1520,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%FlpStff = SrcBladeInputDataData%FlpStff end if if (allocated(SrcBladeInputDataData%EdgStff)) then - LB(1:1) = lbound(SrcBladeInputDataData%EdgStff) - UB(1:1) = ubound(SrcBladeInputDataData%EdgStff) + LB(1:1) = lbound(SrcBladeInputDataData%EdgStff, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%EdgStff, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%EdgStff)) then allocate(DstBladeInputDataData%EdgStff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1535,8 +1535,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BldEdDmp = SrcBladeInputDataData%BldEdDmp DstBladeInputDataData%FlStTunr = SrcBladeInputDataData%FlStTunr if (allocated(SrcBladeInputDataData%BldFl1Sh)) then - LB(1:1) = lbound(SrcBladeInputDataData%BldFl1Sh) - UB(1:1) = ubound(SrcBladeInputDataData%BldFl1Sh) + LB(1:1) = lbound(SrcBladeInputDataData%BldFl1Sh, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%BldFl1Sh, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%BldFl1Sh)) then allocate(DstBladeInputDataData%BldFl1Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1547,8 +1547,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BldFl1Sh = SrcBladeInputDataData%BldFl1Sh end if if (allocated(SrcBladeInputDataData%BldFl2Sh)) then - LB(1:1) = lbound(SrcBladeInputDataData%BldFl2Sh) - UB(1:1) = ubound(SrcBladeInputDataData%BldFl2Sh) + LB(1:1) = lbound(SrcBladeInputDataData%BldFl2Sh, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%BldFl2Sh, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%BldFl2Sh)) then allocate(DstBladeInputDataData%BldFl2Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1559,8 +1559,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BldFl2Sh = SrcBladeInputDataData%BldFl2Sh end if if (allocated(SrcBladeInputDataData%BldEdgSh)) then - LB(1:1) = lbound(SrcBladeInputDataData%BldEdgSh) - UB(1:1) = ubound(SrcBladeInputDataData%BldEdgSh) + LB(1:1) = lbound(SrcBladeInputDataData%BldEdgSh, kind=B8Ki) + UB(1:1) = ubound(SrcBladeInputDataData%BldEdgSh, kind=B8Ki) if (.not. allocated(DstBladeInputDataData%BldEdgSh)) then allocate(DstBladeInputDataData%BldEdgSh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1616,32 +1616,32 @@ subroutine ED_PackBladeInputData(Buf, Indata) call RegPack(Buf, InData%NBlInpSt) call RegPack(Buf, allocated(InData%BlFract)) if (allocated(InData%BlFract)) then - call RegPackBounds(Buf, 1, lbound(InData%BlFract), ubound(InData%BlFract)) + call RegPackBounds(Buf, 1, lbound(InData%BlFract, kind=B8Ki), ubound(InData%BlFract, kind=B8Ki)) call RegPack(Buf, InData%BlFract) end if call RegPack(Buf, allocated(InData%PitchAx)) if (allocated(InData%PitchAx)) then - call RegPackBounds(Buf, 1, lbound(InData%PitchAx), ubound(InData%PitchAx)) + call RegPackBounds(Buf, 1, lbound(InData%PitchAx, kind=B8Ki), ubound(InData%PitchAx, kind=B8Ki)) call RegPack(Buf, InData%PitchAx) end if call RegPack(Buf, allocated(InData%StrcTwst)) if (allocated(InData%StrcTwst)) then - call RegPackBounds(Buf, 1, lbound(InData%StrcTwst), ubound(InData%StrcTwst)) + call RegPackBounds(Buf, 1, lbound(InData%StrcTwst, kind=B8Ki), ubound(InData%StrcTwst, kind=B8Ki)) call RegPack(Buf, InData%StrcTwst) end if call RegPack(Buf, allocated(InData%BMassDen)) if (allocated(InData%BMassDen)) then - call RegPackBounds(Buf, 1, lbound(InData%BMassDen), ubound(InData%BMassDen)) + call RegPackBounds(Buf, 1, lbound(InData%BMassDen, kind=B8Ki), ubound(InData%BMassDen, kind=B8Ki)) call RegPack(Buf, InData%BMassDen) end if call RegPack(Buf, allocated(InData%FlpStff)) if (allocated(InData%FlpStff)) then - call RegPackBounds(Buf, 1, lbound(InData%FlpStff), ubound(InData%FlpStff)) + call RegPackBounds(Buf, 1, lbound(InData%FlpStff, kind=B8Ki), ubound(InData%FlpStff, kind=B8Ki)) call RegPack(Buf, InData%FlpStff) end if call RegPack(Buf, allocated(InData%EdgStff)) if (allocated(InData%EdgStff)) then - call RegPackBounds(Buf, 1, lbound(InData%EdgStff), ubound(InData%EdgStff)) + call RegPackBounds(Buf, 1, lbound(InData%EdgStff, kind=B8Ki), ubound(InData%EdgStff, kind=B8Ki)) call RegPack(Buf, InData%EdgStff) end if call RegPack(Buf, InData%BldFlDmp) @@ -1649,17 +1649,17 @@ subroutine ED_PackBladeInputData(Buf, Indata) call RegPack(Buf, InData%FlStTunr) call RegPack(Buf, allocated(InData%BldFl1Sh)) if (allocated(InData%BldFl1Sh)) then - call RegPackBounds(Buf, 1, lbound(InData%BldFl1Sh), ubound(InData%BldFl1Sh)) + call RegPackBounds(Buf, 1, lbound(InData%BldFl1Sh, kind=B8Ki), ubound(InData%BldFl1Sh, kind=B8Ki)) call RegPack(Buf, InData%BldFl1Sh) end if call RegPack(Buf, allocated(InData%BldFl2Sh)) if (allocated(InData%BldFl2Sh)) then - call RegPackBounds(Buf, 1, lbound(InData%BldFl2Sh), ubound(InData%BldFl2Sh)) + call RegPackBounds(Buf, 1, lbound(InData%BldFl2Sh, kind=B8Ki), ubound(InData%BldFl2Sh, kind=B8Ki)) call RegPack(Buf, InData%BldFl2Sh) end if call RegPack(Buf, allocated(InData%BldEdgSh)) if (allocated(InData%BldEdgSh)) then - call RegPackBounds(Buf, 1, lbound(InData%BldEdgSh), ubound(InData%BldEdgSh)) + call RegPackBounds(Buf, 1, lbound(InData%BldEdgSh, kind=B8Ki), ubound(InData%BldEdgSh, kind=B8Ki)) call RegPack(Buf, InData%BldEdgSh) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1669,7 +1669,7 @@ subroutine ED_UnPackBladeInputData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BladeInputData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackBladeInputData' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1815,15 +1815,15 @@ subroutine ED_CopyBladeMeshInputData(SrcBladeMeshInputDataData, DstBladeMeshInpu integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyBladeMeshInputData' ErrStat = ErrID_None ErrMsg = '' DstBladeMeshInputDataData%BldNodes = SrcBladeMeshInputDataData%BldNodes if (allocated(SrcBladeMeshInputDataData%RNodes)) then - LB(1:1) = lbound(SrcBladeMeshInputDataData%RNodes) - UB(1:1) = ubound(SrcBladeMeshInputDataData%RNodes) + LB(1:1) = lbound(SrcBladeMeshInputDataData%RNodes, kind=B8Ki) + UB(1:1) = ubound(SrcBladeMeshInputDataData%RNodes, kind=B8Ki) if (.not. allocated(DstBladeMeshInputDataData%RNodes)) then allocate(DstBladeMeshInputDataData%RNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1834,8 +1834,8 @@ subroutine ED_CopyBladeMeshInputData(SrcBladeMeshInputDataData, DstBladeMeshInpu DstBladeMeshInputDataData%RNodes = SrcBladeMeshInputDataData%RNodes end if if (allocated(SrcBladeMeshInputDataData%AeroTwst)) then - LB(1:1) = lbound(SrcBladeMeshInputDataData%AeroTwst) - UB(1:1) = ubound(SrcBladeMeshInputDataData%AeroTwst) + LB(1:1) = lbound(SrcBladeMeshInputDataData%AeroTwst, kind=B8Ki) + UB(1:1) = ubound(SrcBladeMeshInputDataData%AeroTwst, kind=B8Ki) if (.not. allocated(DstBladeMeshInputDataData%AeroTwst)) then allocate(DstBladeMeshInputDataData%AeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1846,8 +1846,8 @@ subroutine ED_CopyBladeMeshInputData(SrcBladeMeshInputDataData, DstBladeMeshInpu DstBladeMeshInputDataData%AeroTwst = SrcBladeMeshInputDataData%AeroTwst end if if (allocated(SrcBladeMeshInputDataData%Chord)) then - LB(1:1) = lbound(SrcBladeMeshInputDataData%Chord) - UB(1:1) = ubound(SrcBladeMeshInputDataData%Chord) + LB(1:1) = lbound(SrcBladeMeshInputDataData%Chord, kind=B8Ki) + UB(1:1) = ubound(SrcBladeMeshInputDataData%Chord, kind=B8Ki) if (.not. allocated(DstBladeMeshInputDataData%Chord)) then allocate(DstBladeMeshInputDataData%Chord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1885,17 +1885,17 @@ subroutine ED_PackBladeMeshInputData(Buf, Indata) call RegPack(Buf, InData%BldNodes) call RegPack(Buf, allocated(InData%RNodes)) if (allocated(InData%RNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%RNodes), ubound(InData%RNodes)) + call RegPackBounds(Buf, 1, lbound(InData%RNodes, kind=B8Ki), ubound(InData%RNodes, kind=B8Ki)) call RegPack(Buf, InData%RNodes) end if call RegPack(Buf, allocated(InData%AeroTwst)) if (allocated(InData%AeroTwst)) then - call RegPackBounds(Buf, 1, lbound(InData%AeroTwst), ubound(InData%AeroTwst)) + call RegPackBounds(Buf, 1, lbound(InData%AeroTwst, kind=B8Ki), ubound(InData%AeroTwst, kind=B8Ki)) call RegPack(Buf, InData%AeroTwst) end if call RegPack(Buf, allocated(InData%Chord)) if (allocated(InData%Chord)) then - call RegPackBounds(Buf, 1, lbound(InData%Chord), ubound(InData%Chord)) + call RegPackBounds(Buf, 1, lbound(InData%Chord, kind=B8Ki), ubound(InData%Chord, kind=B8Ki)) call RegPack(Buf, InData%Chord) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1905,7 +1905,7 @@ subroutine ED_UnPackBladeMeshInputData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_BladeMeshInputData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackBladeMeshInputData' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1961,8 +1961,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyInputFile' @@ -1989,8 +1989,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%OoPDefl = SrcInputFileData%OoPDefl DstInputFileData%IPDefl = SrcInputFileData%IPDefl if (allocated(SrcInputFileData%BlPitch)) then - LB(1:1) = lbound(SrcInputFileData%BlPitch) - UB(1:1) = ubound(SrcInputFileData%BlPitch) + LB(1:1) = lbound(SrcInputFileData%BlPitch, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BlPitch, kind=B8Ki) if (.not. allocated(DstInputFileData%BlPitch)) then allocate(DstInputFileData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2016,8 +2016,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TipRad = SrcInputFileData%TipRad DstInputFileData%HubRad = SrcInputFileData%HubRad if (allocated(SrcInputFileData%PreCone)) then - LB(1:1) = lbound(SrcInputFileData%PreCone) - UB(1:1) = ubound(SrcInputFileData%PreCone) + LB(1:1) = lbound(SrcInputFileData%PreCone, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PreCone, kind=B8Ki) if (.not. allocated(DstInputFileData%PreCone)) then allocate(DstInputFileData%PreCone(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2048,8 +2048,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%PtfmCMzt = SrcInputFileData%PtfmCMzt DstInputFileData%PtfmRefzt = SrcInputFileData%PtfmRefzt if (allocated(SrcInputFileData%TipMass)) then - LB(1:1) = lbound(SrcInputFileData%TipMass) - UB(1:1) = ubound(SrcInputFileData%TipMass) + LB(1:1) = lbound(SrcInputFileData%TipMass, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TipMass, kind=B8Ki) if (.not. allocated(DstInputFileData%TipMass)) then allocate(DstInputFileData%TipMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2071,8 +2071,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%PtfmYIner = SrcInputFileData%PtfmYIner DstInputFileData%BldNodes = SrcInputFileData%BldNodes if (allocated(SrcInputFileData%InpBlMesh)) then - LB(1:1) = lbound(SrcInputFileData%InpBlMesh) - UB(1:1) = ubound(SrcInputFileData%InpBlMesh) + LB(1:1) = lbound(SrcInputFileData%InpBlMesh, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%InpBlMesh, kind=B8Ki) if (.not. allocated(DstInputFileData%InpBlMesh)) then allocate(DstInputFileData%InpBlMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2087,8 +2087,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta end do end if if (allocated(SrcInputFileData%InpBl)) then - LB(1:1) = lbound(SrcInputFileData%InpBl) - UB(1:1) = ubound(SrcInputFileData%InpBl) + LB(1:1) = lbound(SrcInputFileData%InpBl, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%InpBl, kind=B8Ki) if (.not. allocated(DstInputFileData%InpBl)) then allocate(DstInputFileData%InpBl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2128,8 +2128,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%BldGagNd = SrcInputFileData%BldGagNd DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2145,8 +2145,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%FAStTunr = SrcInputFileData%FAStTunr DstInputFileData%SSStTunr = SrcInputFileData%SSStTunr if (allocated(SrcInputFileData%HtFract)) then - LB(1:1) = lbound(SrcInputFileData%HtFract) - UB(1:1) = ubound(SrcInputFileData%HtFract) + LB(1:1) = lbound(SrcInputFileData%HtFract, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%HtFract, kind=B8Ki) if (.not. allocated(DstInputFileData%HtFract)) then allocate(DstInputFileData%HtFract(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2157,8 +2157,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%HtFract = SrcInputFileData%HtFract end if if (allocated(SrcInputFileData%TMassDen)) then - LB(1:1) = lbound(SrcInputFileData%TMassDen) - UB(1:1) = ubound(SrcInputFileData%TMassDen) + LB(1:1) = lbound(SrcInputFileData%TMassDen, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TMassDen, kind=B8Ki) if (.not. allocated(DstInputFileData%TMassDen)) then allocate(DstInputFileData%TMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2169,8 +2169,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TMassDen = SrcInputFileData%TMassDen end if if (allocated(SrcInputFileData%TwFAStif)) then - LB(1:1) = lbound(SrcInputFileData%TwFAStif) - UB(1:1) = ubound(SrcInputFileData%TwFAStif) + LB(1:1) = lbound(SrcInputFileData%TwFAStif, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TwFAStif, kind=B8Ki) if (.not. allocated(DstInputFileData%TwFAStif)) then allocate(DstInputFileData%TwFAStif(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2181,8 +2181,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TwFAStif = SrcInputFileData%TwFAStif end if if (allocated(SrcInputFileData%TwSSStif)) then - LB(1:1) = lbound(SrcInputFileData%TwSSStif) - UB(1:1) = ubound(SrcInputFileData%TwSSStif) + LB(1:1) = lbound(SrcInputFileData%TwSSStif, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TwSSStif, kind=B8Ki) if (.not. allocated(DstInputFileData%TwSSStif)) then allocate(DstInputFileData%TwSSStif(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2193,8 +2193,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TwSSStif = SrcInputFileData%TwSSStif end if if (allocated(SrcInputFileData%TwFAM1Sh)) then - LB(1:1) = lbound(SrcInputFileData%TwFAM1Sh) - UB(1:1) = ubound(SrcInputFileData%TwFAM1Sh) + LB(1:1) = lbound(SrcInputFileData%TwFAM1Sh, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TwFAM1Sh, kind=B8Ki) if (.not. allocated(DstInputFileData%TwFAM1Sh)) then allocate(DstInputFileData%TwFAM1Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2205,8 +2205,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TwFAM1Sh = SrcInputFileData%TwFAM1Sh end if if (allocated(SrcInputFileData%TwFAM2Sh)) then - LB(1:1) = lbound(SrcInputFileData%TwFAM2Sh) - UB(1:1) = ubound(SrcInputFileData%TwFAM2Sh) + LB(1:1) = lbound(SrcInputFileData%TwFAM2Sh, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TwFAM2Sh, kind=B8Ki) if (.not. allocated(DstInputFileData%TwFAM2Sh)) then allocate(DstInputFileData%TwFAM2Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2217,8 +2217,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TwFAM2Sh = SrcInputFileData%TwFAM2Sh end if if (allocated(SrcInputFileData%TwSSM1Sh)) then - LB(1:1) = lbound(SrcInputFileData%TwSSM1Sh) - UB(1:1) = ubound(SrcInputFileData%TwSSM1Sh) + LB(1:1) = lbound(SrcInputFileData%TwSSM1Sh, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TwSSM1Sh, kind=B8Ki) if (.not. allocated(DstInputFileData%TwSSM1Sh)) then allocate(DstInputFileData%TwSSM1Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2229,8 +2229,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%TwSSM1Sh = SrcInputFileData%TwSSM1Sh end if if (allocated(SrcInputFileData%TwSSM2Sh)) then - LB(1:1) = lbound(SrcInputFileData%TwSSM2Sh) - UB(1:1) = ubound(SrcInputFileData%TwSSM2Sh) + LB(1:1) = lbound(SrcInputFileData%TwSSM2Sh, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TwSSM2Sh, kind=B8Ki) if (.not. allocated(DstInputFileData%TwSSM2Sh)) then allocate(DstInputFileData%TwSSM2Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2285,8 +2285,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%method = SrcInputFileData%method DstInputFileData%BldNd_NumOuts = SrcInputFileData%BldNd_NumOuts if (allocated(SrcInputFileData%BldNd_OutList)) then - LB(1:1) = lbound(SrcInputFileData%BldNd_OutList) - UB(1:1) = ubound(SrcInputFileData%BldNd_OutList) + LB(1:1) = lbound(SrcInputFileData%BldNd_OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BldNd_OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%BldNd_OutList)) then allocate(DstInputFileData%BldNd_OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2304,8 +2304,8 @@ subroutine ED_DestroyInputFile(InputFileData, ErrStat, ErrMsg) type(ED_InputFile), intent(inout) :: InputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyInputFile' @@ -2321,8 +2321,8 @@ subroutine ED_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%TipMass) end if if (allocated(InputFileData%InpBlMesh)) then - LB(1:1) = lbound(InputFileData%InpBlMesh) - UB(1:1) = ubound(InputFileData%InpBlMesh) + LB(1:1) = lbound(InputFileData%InpBlMesh, kind=B8Ki) + UB(1:1) = ubound(InputFileData%InpBlMesh, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyBladeMeshInputData(InputFileData%InpBlMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2330,8 +2330,8 @@ subroutine ED_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%InpBlMesh) end if if (allocated(InputFileData%InpBl)) then - LB(1:1) = lbound(InputFileData%InpBl) - UB(1:1) = ubound(InputFileData%InpBl) + LB(1:1) = lbound(InputFileData%InpBl, kind=B8Ki) + UB(1:1) = ubound(InputFileData%InpBl, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyBladeInputData(InputFileData%InpBl(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2374,8 +2374,8 @@ subroutine ED_PackInputFile(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ED_InputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackInputFile' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) call RegPack(Buf, InData%FlapDOF1) @@ -2399,7 +2399,7 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%IPDefl) call RegPack(Buf, allocated(InData%BlPitch)) if (allocated(InData%BlPitch)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitch), ubound(InData%BlPitch)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitch, kind=B8Ki), ubound(InData%BlPitch, kind=B8Ki)) call RegPack(Buf, InData%BlPitch) end if call RegPack(Buf, InData%TeetDefl) @@ -2419,7 +2419,7 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%HubRad) call RegPack(Buf, allocated(InData%PreCone)) if (allocated(InData%PreCone)) then - call RegPackBounds(Buf, 1, lbound(InData%PreCone), ubound(InData%PreCone)) + call RegPackBounds(Buf, 1, lbound(InData%PreCone, kind=B8Ki), ubound(InData%PreCone, kind=B8Ki)) call RegPack(Buf, InData%PreCone) end if call RegPack(Buf, InData%HubCM) @@ -2444,7 +2444,7 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%PtfmRefzt) call RegPack(Buf, allocated(InData%TipMass)) if (allocated(InData%TipMass)) then - call RegPackBounds(Buf, 1, lbound(InData%TipMass), ubound(InData%TipMass)) + call RegPackBounds(Buf, 1, lbound(InData%TipMass, kind=B8Ki), ubound(InData%TipMass, kind=B8Ki)) call RegPack(Buf, InData%TipMass) end if call RegPack(Buf, InData%HubMass) @@ -2460,18 +2460,18 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%BldNodes) call RegPack(Buf, allocated(InData%InpBlMesh)) if (allocated(InData%InpBlMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%InpBlMesh), ubound(InData%InpBlMesh)) - LB(1:1) = lbound(InData%InpBlMesh) - UB(1:1) = ubound(InData%InpBlMesh) + call RegPackBounds(Buf, 1, lbound(InData%InpBlMesh, kind=B8Ki), ubound(InData%InpBlMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%InpBlMesh, kind=B8Ki) + UB(1:1) = ubound(InData%InpBlMesh, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackBladeMeshInputData(Buf, InData%InpBlMesh(i1)) end do end if call RegPack(Buf, allocated(InData%InpBl)) if (allocated(InData%InpBl)) then - call RegPackBounds(Buf, 1, lbound(InData%InpBl), ubound(InData%InpBl)) - LB(1:1) = lbound(InData%InpBl) - UB(1:1) = ubound(InData%InpBl) + call RegPackBounds(Buf, 1, lbound(InData%InpBl, kind=B8Ki), ubound(InData%InpBl, kind=B8Ki)) + LB(1:1) = lbound(InData%InpBl, kind=B8Ki) + UB(1:1) = ubound(InData%InpBl, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackBladeInputData(Buf, InData%InpBl(i1)) end do @@ -2503,7 +2503,7 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%NTwInpSt) @@ -2513,42 +2513,42 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%SSStTunr) call RegPack(Buf, allocated(InData%HtFract)) if (allocated(InData%HtFract)) then - call RegPackBounds(Buf, 1, lbound(InData%HtFract), ubound(InData%HtFract)) + call RegPackBounds(Buf, 1, lbound(InData%HtFract, kind=B8Ki), ubound(InData%HtFract, kind=B8Ki)) call RegPack(Buf, InData%HtFract) end if call RegPack(Buf, allocated(InData%TMassDen)) if (allocated(InData%TMassDen)) then - call RegPackBounds(Buf, 1, lbound(InData%TMassDen), ubound(InData%TMassDen)) + call RegPackBounds(Buf, 1, lbound(InData%TMassDen, kind=B8Ki), ubound(InData%TMassDen, kind=B8Ki)) call RegPack(Buf, InData%TMassDen) end if call RegPack(Buf, allocated(InData%TwFAStif)) if (allocated(InData%TwFAStif)) then - call RegPackBounds(Buf, 1, lbound(InData%TwFAStif), ubound(InData%TwFAStif)) + call RegPackBounds(Buf, 1, lbound(InData%TwFAStif, kind=B8Ki), ubound(InData%TwFAStif, kind=B8Ki)) call RegPack(Buf, InData%TwFAStif) end if call RegPack(Buf, allocated(InData%TwSSStif)) if (allocated(InData%TwSSStif)) then - call RegPackBounds(Buf, 1, lbound(InData%TwSSStif), ubound(InData%TwSSStif)) + call RegPackBounds(Buf, 1, lbound(InData%TwSSStif, kind=B8Ki), ubound(InData%TwSSStif, kind=B8Ki)) call RegPack(Buf, InData%TwSSStif) end if call RegPack(Buf, allocated(InData%TwFAM1Sh)) if (allocated(InData%TwFAM1Sh)) then - call RegPackBounds(Buf, 1, lbound(InData%TwFAM1Sh), ubound(InData%TwFAM1Sh)) + call RegPackBounds(Buf, 1, lbound(InData%TwFAM1Sh, kind=B8Ki), ubound(InData%TwFAM1Sh, kind=B8Ki)) call RegPack(Buf, InData%TwFAM1Sh) end if call RegPack(Buf, allocated(InData%TwFAM2Sh)) if (allocated(InData%TwFAM2Sh)) then - call RegPackBounds(Buf, 1, lbound(InData%TwFAM2Sh), ubound(InData%TwFAM2Sh)) + call RegPackBounds(Buf, 1, lbound(InData%TwFAM2Sh, kind=B8Ki), ubound(InData%TwFAM2Sh, kind=B8Ki)) call RegPack(Buf, InData%TwFAM2Sh) end if call RegPack(Buf, allocated(InData%TwSSM1Sh)) if (allocated(InData%TwSSM1Sh)) then - call RegPackBounds(Buf, 1, lbound(InData%TwSSM1Sh), ubound(InData%TwSSM1Sh)) + call RegPackBounds(Buf, 1, lbound(InData%TwSSM1Sh, kind=B8Ki), ubound(InData%TwSSM1Sh, kind=B8Ki)) call RegPack(Buf, InData%TwSSM1Sh) end if call RegPack(Buf, allocated(InData%TwSSM2Sh)) if (allocated(InData%TwSSM2Sh)) then - call RegPackBounds(Buf, 1, lbound(InData%TwSSM2Sh), ubound(InData%TwSSM2Sh)) + call RegPackBounds(Buf, 1, lbound(InData%TwSSM2Sh, kind=B8Ki), ubound(InData%TwSSM2Sh, kind=B8Ki)) call RegPack(Buf, InData%TwSSM2Sh) end if call RegPack(Buf, InData%RFrlDOF) @@ -2597,7 +2597,7 @@ subroutine ED_PackInputFile(Buf, Indata) call RegPack(Buf, InData%BldNd_NumOuts) call RegPack(Buf, allocated(InData%BldNd_OutList)) if (allocated(InData%BldNd_OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutList), ubound(InData%BldNd_OutList)) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutList, kind=B8Ki), ubound(InData%BldNd_OutList, kind=B8Ki)) call RegPack(Buf, InData%BldNd_OutList) end if call RegPack(Buf, InData%BldNd_BlOutNd_Str) @@ -2609,8 +2609,8 @@ subroutine ED_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackInputFile' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3118,7 +3118,7 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyCoordSys' ErrStat = ErrID_None @@ -3145,8 +3145,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%g2 = SrcCoordSysData%g2 DstCoordSysData%g3 = SrcCoordSysData%g3 if (allocated(SrcCoordSysData%i1)) then - LB(1:2) = lbound(SrcCoordSysData%i1) - UB(1:2) = ubound(SrcCoordSysData%i1) + LB(1:2) = lbound(SrcCoordSysData%i1, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%i1, kind=B8Ki) if (.not. allocated(DstCoordSysData%i1)) then allocate(DstCoordSysData%i1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3157,8 +3157,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%i1 = SrcCoordSysData%i1 end if if (allocated(SrcCoordSysData%i2)) then - LB(1:2) = lbound(SrcCoordSysData%i2) - UB(1:2) = ubound(SrcCoordSysData%i2) + LB(1:2) = lbound(SrcCoordSysData%i2, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%i2, kind=B8Ki) if (.not. allocated(DstCoordSysData%i2)) then allocate(DstCoordSysData%i2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3169,8 +3169,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%i2 = SrcCoordSysData%i2 end if if (allocated(SrcCoordSysData%i3)) then - LB(1:2) = lbound(SrcCoordSysData%i3) - UB(1:2) = ubound(SrcCoordSysData%i3) + LB(1:2) = lbound(SrcCoordSysData%i3, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%i3, kind=B8Ki) if (.not. allocated(DstCoordSysData%i3)) then allocate(DstCoordSysData%i3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3181,8 +3181,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%i3 = SrcCoordSysData%i3 end if if (allocated(SrcCoordSysData%j1)) then - LB(1:2) = lbound(SrcCoordSysData%j1) - UB(1:2) = ubound(SrcCoordSysData%j1) + LB(1:2) = lbound(SrcCoordSysData%j1, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%j1, kind=B8Ki) if (.not. allocated(DstCoordSysData%j1)) then allocate(DstCoordSysData%j1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3193,8 +3193,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%j1 = SrcCoordSysData%j1 end if if (allocated(SrcCoordSysData%j2)) then - LB(1:2) = lbound(SrcCoordSysData%j2) - UB(1:2) = ubound(SrcCoordSysData%j2) + LB(1:2) = lbound(SrcCoordSysData%j2, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%j2, kind=B8Ki) if (.not. allocated(DstCoordSysData%j2)) then allocate(DstCoordSysData%j2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3205,8 +3205,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%j2 = SrcCoordSysData%j2 end if if (allocated(SrcCoordSysData%j3)) then - LB(1:2) = lbound(SrcCoordSysData%j3) - UB(1:2) = ubound(SrcCoordSysData%j3) + LB(1:2) = lbound(SrcCoordSysData%j3, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%j3, kind=B8Ki) if (.not. allocated(DstCoordSysData%j3)) then allocate(DstCoordSysData%j3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3217,8 +3217,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%j3 = SrcCoordSysData%j3 end if if (allocated(SrcCoordSysData%m1)) then - LB(1:3) = lbound(SrcCoordSysData%m1) - UB(1:3) = ubound(SrcCoordSysData%m1) + LB(1:3) = lbound(SrcCoordSysData%m1, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%m1, kind=B8Ki) if (.not. allocated(DstCoordSysData%m1)) then allocate(DstCoordSysData%m1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3229,8 +3229,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%m1 = SrcCoordSysData%m1 end if if (allocated(SrcCoordSysData%m2)) then - LB(1:3) = lbound(SrcCoordSysData%m2) - UB(1:3) = ubound(SrcCoordSysData%m2) + LB(1:3) = lbound(SrcCoordSysData%m2, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%m2, kind=B8Ki) if (.not. allocated(DstCoordSysData%m2)) then allocate(DstCoordSysData%m2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3241,8 +3241,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%m2 = SrcCoordSysData%m2 end if if (allocated(SrcCoordSysData%m3)) then - LB(1:3) = lbound(SrcCoordSysData%m3) - UB(1:3) = ubound(SrcCoordSysData%m3) + LB(1:3) = lbound(SrcCoordSysData%m3, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%m3, kind=B8Ki) if (.not. allocated(DstCoordSysData%m3)) then allocate(DstCoordSysData%m3(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3253,8 +3253,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%m3 = SrcCoordSysData%m3 end if if (allocated(SrcCoordSysData%n1)) then - LB(1:3) = lbound(SrcCoordSysData%n1) - UB(1:3) = ubound(SrcCoordSysData%n1) + LB(1:3) = lbound(SrcCoordSysData%n1, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%n1, kind=B8Ki) if (.not. allocated(DstCoordSysData%n1)) then allocate(DstCoordSysData%n1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3265,8 +3265,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%n1 = SrcCoordSysData%n1 end if if (allocated(SrcCoordSysData%n2)) then - LB(1:3) = lbound(SrcCoordSysData%n2) - UB(1:3) = ubound(SrcCoordSysData%n2) + LB(1:3) = lbound(SrcCoordSysData%n2, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%n2, kind=B8Ki) if (.not. allocated(DstCoordSysData%n2)) then allocate(DstCoordSysData%n2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3277,8 +3277,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%n2 = SrcCoordSysData%n2 end if if (allocated(SrcCoordSysData%n3)) then - LB(1:3) = lbound(SrcCoordSysData%n3) - UB(1:3) = ubound(SrcCoordSysData%n3) + LB(1:3) = lbound(SrcCoordSysData%n3, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%n3, kind=B8Ki) if (.not. allocated(DstCoordSysData%n3)) then allocate(DstCoordSysData%n3(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3293,8 +3293,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%rf3 = SrcCoordSysData%rf3 DstCoordSysData%rfa = SrcCoordSysData%rfa if (allocated(SrcCoordSysData%t1)) then - LB(1:2) = lbound(SrcCoordSysData%t1) - UB(1:2) = ubound(SrcCoordSysData%t1) + LB(1:2) = lbound(SrcCoordSysData%t1, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%t1, kind=B8Ki) if (.not. allocated(DstCoordSysData%t1)) then allocate(DstCoordSysData%t1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3305,8 +3305,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%t1 = SrcCoordSysData%t1 end if if (allocated(SrcCoordSysData%t2)) then - LB(1:2) = lbound(SrcCoordSysData%t2) - UB(1:2) = ubound(SrcCoordSysData%t2) + LB(1:2) = lbound(SrcCoordSysData%t2, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%t2, kind=B8Ki) if (.not. allocated(DstCoordSysData%t2)) then allocate(DstCoordSysData%t2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3317,8 +3317,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%t2 = SrcCoordSysData%t2 end if if (allocated(SrcCoordSysData%t3)) then - LB(1:2) = lbound(SrcCoordSysData%t3) - UB(1:2) = ubound(SrcCoordSysData%t3) + LB(1:2) = lbound(SrcCoordSysData%t3, kind=B8Ki) + UB(1:2) = ubound(SrcCoordSysData%t3, kind=B8Ki) if (.not. allocated(DstCoordSysData%t3)) then allocate(DstCoordSysData%t3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3329,8 +3329,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%t3 = SrcCoordSysData%t3 end if if (allocated(SrcCoordSysData%te1)) then - LB(1:3) = lbound(SrcCoordSysData%te1) - UB(1:3) = ubound(SrcCoordSysData%te1) + LB(1:3) = lbound(SrcCoordSysData%te1, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%te1, kind=B8Ki) if (.not. allocated(DstCoordSysData%te1)) then allocate(DstCoordSysData%te1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3341,8 +3341,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%te1 = SrcCoordSysData%te1 end if if (allocated(SrcCoordSysData%te2)) then - LB(1:3) = lbound(SrcCoordSysData%te2) - UB(1:3) = ubound(SrcCoordSysData%te2) + LB(1:3) = lbound(SrcCoordSysData%te2, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%te2, kind=B8Ki) if (.not. allocated(DstCoordSysData%te2)) then allocate(DstCoordSysData%te2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3353,8 +3353,8 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, DstCoordSysData%te2 = SrcCoordSysData%te2 end if if (allocated(SrcCoordSysData%te3)) then - LB(1:3) = lbound(SrcCoordSysData%te3) - UB(1:3) = ubound(SrcCoordSysData%te3) + LB(1:3) = lbound(SrcCoordSysData%te3, kind=B8Ki) + UB(1:3) = ubound(SrcCoordSysData%te3, kind=B8Ki) if (.not. allocated(DstCoordSysData%te3)) then allocate(DstCoordSysData%te3(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3464,62 +3464,62 @@ subroutine ED_PackCoordSys(Buf, Indata) call RegPack(Buf, InData%g3) call RegPack(Buf, allocated(InData%i1)) if (allocated(InData%i1)) then - call RegPackBounds(Buf, 2, lbound(InData%i1), ubound(InData%i1)) + call RegPackBounds(Buf, 2, lbound(InData%i1, kind=B8Ki), ubound(InData%i1, kind=B8Ki)) call RegPack(Buf, InData%i1) end if call RegPack(Buf, allocated(InData%i2)) if (allocated(InData%i2)) then - call RegPackBounds(Buf, 2, lbound(InData%i2), ubound(InData%i2)) + call RegPackBounds(Buf, 2, lbound(InData%i2, kind=B8Ki), ubound(InData%i2, kind=B8Ki)) call RegPack(Buf, InData%i2) end if call RegPack(Buf, allocated(InData%i3)) if (allocated(InData%i3)) then - call RegPackBounds(Buf, 2, lbound(InData%i3), ubound(InData%i3)) + call RegPackBounds(Buf, 2, lbound(InData%i3, kind=B8Ki), ubound(InData%i3, kind=B8Ki)) call RegPack(Buf, InData%i3) end if call RegPack(Buf, allocated(InData%j1)) if (allocated(InData%j1)) then - call RegPackBounds(Buf, 2, lbound(InData%j1), ubound(InData%j1)) + call RegPackBounds(Buf, 2, lbound(InData%j1, kind=B8Ki), ubound(InData%j1, kind=B8Ki)) call RegPack(Buf, InData%j1) end if call RegPack(Buf, allocated(InData%j2)) if (allocated(InData%j2)) then - call RegPackBounds(Buf, 2, lbound(InData%j2), ubound(InData%j2)) + call RegPackBounds(Buf, 2, lbound(InData%j2, kind=B8Ki), ubound(InData%j2, kind=B8Ki)) call RegPack(Buf, InData%j2) end if call RegPack(Buf, allocated(InData%j3)) if (allocated(InData%j3)) then - call RegPackBounds(Buf, 2, lbound(InData%j3), ubound(InData%j3)) + call RegPackBounds(Buf, 2, lbound(InData%j3, kind=B8Ki), ubound(InData%j3, kind=B8Ki)) call RegPack(Buf, InData%j3) end if call RegPack(Buf, allocated(InData%m1)) if (allocated(InData%m1)) then - call RegPackBounds(Buf, 3, lbound(InData%m1), ubound(InData%m1)) + call RegPackBounds(Buf, 3, lbound(InData%m1, kind=B8Ki), ubound(InData%m1, kind=B8Ki)) call RegPack(Buf, InData%m1) end if call RegPack(Buf, allocated(InData%m2)) if (allocated(InData%m2)) then - call RegPackBounds(Buf, 3, lbound(InData%m2), ubound(InData%m2)) + call RegPackBounds(Buf, 3, lbound(InData%m2, kind=B8Ki), ubound(InData%m2, kind=B8Ki)) call RegPack(Buf, InData%m2) end if call RegPack(Buf, allocated(InData%m3)) if (allocated(InData%m3)) then - call RegPackBounds(Buf, 3, lbound(InData%m3), ubound(InData%m3)) + call RegPackBounds(Buf, 3, lbound(InData%m3, kind=B8Ki), ubound(InData%m3, kind=B8Ki)) call RegPack(Buf, InData%m3) end if call RegPack(Buf, allocated(InData%n1)) if (allocated(InData%n1)) then - call RegPackBounds(Buf, 3, lbound(InData%n1), ubound(InData%n1)) + call RegPackBounds(Buf, 3, lbound(InData%n1, kind=B8Ki), ubound(InData%n1, kind=B8Ki)) call RegPack(Buf, InData%n1) end if call RegPack(Buf, allocated(InData%n2)) if (allocated(InData%n2)) then - call RegPackBounds(Buf, 3, lbound(InData%n2), ubound(InData%n2)) + call RegPackBounds(Buf, 3, lbound(InData%n2, kind=B8Ki), ubound(InData%n2, kind=B8Ki)) call RegPack(Buf, InData%n2) end if call RegPack(Buf, allocated(InData%n3)) if (allocated(InData%n3)) then - call RegPackBounds(Buf, 3, lbound(InData%n3), ubound(InData%n3)) + call RegPackBounds(Buf, 3, lbound(InData%n3, kind=B8Ki), ubound(InData%n3, kind=B8Ki)) call RegPack(Buf, InData%n3) end if call RegPack(Buf, InData%rf1) @@ -3528,32 +3528,32 @@ subroutine ED_PackCoordSys(Buf, Indata) call RegPack(Buf, InData%rfa) call RegPack(Buf, allocated(InData%t1)) if (allocated(InData%t1)) then - call RegPackBounds(Buf, 2, lbound(InData%t1), ubound(InData%t1)) + call RegPackBounds(Buf, 2, lbound(InData%t1, kind=B8Ki), ubound(InData%t1, kind=B8Ki)) call RegPack(Buf, InData%t1) end if call RegPack(Buf, allocated(InData%t2)) if (allocated(InData%t2)) then - call RegPackBounds(Buf, 2, lbound(InData%t2), ubound(InData%t2)) + call RegPackBounds(Buf, 2, lbound(InData%t2, kind=B8Ki), ubound(InData%t2, kind=B8Ki)) call RegPack(Buf, InData%t2) end if call RegPack(Buf, allocated(InData%t3)) if (allocated(InData%t3)) then - call RegPackBounds(Buf, 2, lbound(InData%t3), ubound(InData%t3)) + call RegPackBounds(Buf, 2, lbound(InData%t3, kind=B8Ki), ubound(InData%t3, kind=B8Ki)) call RegPack(Buf, InData%t3) end if call RegPack(Buf, allocated(InData%te1)) if (allocated(InData%te1)) then - call RegPackBounds(Buf, 3, lbound(InData%te1), ubound(InData%te1)) + call RegPackBounds(Buf, 3, lbound(InData%te1, kind=B8Ki), ubound(InData%te1, kind=B8Ki)) call RegPack(Buf, InData%te1) end if call RegPack(Buf, allocated(InData%te2)) if (allocated(InData%te2)) then - call RegPackBounds(Buf, 3, lbound(InData%te2), ubound(InData%te2)) + call RegPackBounds(Buf, 3, lbound(InData%te2, kind=B8Ki), ubound(InData%te2, kind=B8Ki)) call RegPack(Buf, InData%te2) end if call RegPack(Buf, allocated(InData%te3)) if (allocated(InData%te3)) then - call RegPackBounds(Buf, 3, lbound(InData%te3), ubound(InData%te3)) + call RegPackBounds(Buf, 3, lbound(InData%te3, kind=B8Ki), ubound(InData%te3, kind=B8Ki)) call RegPack(Buf, InData%te3) end if call RegPack(Buf, InData%tf1) @@ -3570,7 +3570,7 @@ subroutine ED_UnPackCoordSys(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_CoordSys), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackCoordSys' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3898,7 +3898,7 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyActiveDOFs' ErrStat = ErrID_None @@ -3910,8 +3910,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%NPTE = SrcActiveDOFsData%NPTE DstActiveDOFsData%NPTTE = SrcActiveDOFsData%NPTTE if (allocated(SrcActiveDOFsData%NPSBE)) then - LB(1:1) = lbound(SrcActiveDOFsData%NPSBE) - UB(1:1) = ubound(SrcActiveDOFsData%NPSBE) + LB(1:1) = lbound(SrcActiveDOFsData%NPSBE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%NPSBE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%NPSBE)) then allocate(DstActiveDOFsData%NPSBE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3922,8 +3922,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%NPSBE = SrcActiveDOFsData%NPSBE end if if (allocated(SrcActiveDOFsData%NPSE)) then - LB(1:1) = lbound(SrcActiveDOFsData%NPSE) - UB(1:1) = ubound(SrcActiveDOFsData%NPSE) + LB(1:1) = lbound(SrcActiveDOFsData%NPSE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%NPSE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%NPSE)) then allocate(DstActiveDOFsData%NPSE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3936,8 +3936,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%NPUE = SrcActiveDOFsData%NPUE DstActiveDOFsData%NPYE = SrcActiveDOFsData%NPYE if (allocated(SrcActiveDOFsData%PCE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PCE) - UB(1:1) = ubound(SrcActiveDOFsData%PCE) + LB(1:1) = lbound(SrcActiveDOFsData%PCE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PCE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PCE)) then allocate(DstActiveDOFsData%PCE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3948,8 +3948,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PCE = SrcActiveDOFsData%PCE end if if (allocated(SrcActiveDOFsData%PDE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PDE) - UB(1:1) = ubound(SrcActiveDOFsData%PDE) + LB(1:1) = lbound(SrcActiveDOFsData%PDE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PDE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PDE)) then allocate(DstActiveDOFsData%PDE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3960,8 +3960,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PDE = SrcActiveDOFsData%PDE end if if (allocated(SrcActiveDOFsData%PIE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PIE) - UB(1:1) = ubound(SrcActiveDOFsData%PIE) + LB(1:1) = lbound(SrcActiveDOFsData%PIE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PIE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PIE)) then allocate(DstActiveDOFsData%PIE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3972,8 +3972,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PIE = SrcActiveDOFsData%PIE end if if (allocated(SrcActiveDOFsData%PTE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PTE) - UB(1:1) = ubound(SrcActiveDOFsData%PTE) + LB(1:1) = lbound(SrcActiveDOFsData%PTE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PTE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PTE)) then allocate(DstActiveDOFsData%PTE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3984,8 +3984,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PTE = SrcActiveDOFsData%PTE end if if (allocated(SrcActiveDOFsData%PTTE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PTTE) - UB(1:1) = ubound(SrcActiveDOFsData%PTTE) + LB(1:1) = lbound(SrcActiveDOFsData%PTTE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PTTE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PTTE)) then allocate(DstActiveDOFsData%PTTE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3996,8 +3996,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PTTE = SrcActiveDOFsData%PTTE end if if (allocated(SrcActiveDOFsData%PS)) then - LB(1:1) = lbound(SrcActiveDOFsData%PS) - UB(1:1) = ubound(SrcActiveDOFsData%PS) + LB(1:1) = lbound(SrcActiveDOFsData%PS, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PS, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PS)) then allocate(DstActiveDOFsData%PS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4008,8 +4008,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PS = SrcActiveDOFsData%PS end if if (allocated(SrcActiveDOFsData%PSBE)) then - LB(1:2) = lbound(SrcActiveDOFsData%PSBE) - UB(1:2) = ubound(SrcActiveDOFsData%PSBE) + LB(1:2) = lbound(SrcActiveDOFsData%PSBE, kind=B8Ki) + UB(1:2) = ubound(SrcActiveDOFsData%PSBE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PSBE)) then allocate(DstActiveDOFsData%PSBE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4020,8 +4020,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PSBE = SrcActiveDOFsData%PSBE end if if (allocated(SrcActiveDOFsData%PSE)) then - LB(1:2) = lbound(SrcActiveDOFsData%PSE) - UB(1:2) = ubound(SrcActiveDOFsData%PSE) + LB(1:2) = lbound(SrcActiveDOFsData%PSE, kind=B8Ki) + UB(1:2) = ubound(SrcActiveDOFsData%PSE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PSE)) then allocate(DstActiveDOFsData%PSE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4032,8 +4032,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PSE = SrcActiveDOFsData%PSE end if if (allocated(SrcActiveDOFsData%PUE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PUE) - UB(1:1) = ubound(SrcActiveDOFsData%PUE) + LB(1:1) = lbound(SrcActiveDOFsData%PUE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PUE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PUE)) then allocate(DstActiveDOFsData%PUE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4044,8 +4044,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PUE = SrcActiveDOFsData%PUE end if if (allocated(SrcActiveDOFsData%PYE)) then - LB(1:1) = lbound(SrcActiveDOFsData%PYE) - UB(1:1) = ubound(SrcActiveDOFsData%PYE) + LB(1:1) = lbound(SrcActiveDOFsData%PYE, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%PYE, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%PYE)) then allocate(DstActiveDOFsData%PYE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4056,8 +4056,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%PYE = SrcActiveDOFsData%PYE end if if (allocated(SrcActiveDOFsData%SrtPS)) then - LB(1:1) = lbound(SrcActiveDOFsData%SrtPS) - UB(1:1) = ubound(SrcActiveDOFsData%SrtPS) + LB(1:1) = lbound(SrcActiveDOFsData%SrtPS, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%SrtPS, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%SrtPS)) then allocate(DstActiveDOFsData%SrtPS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4068,8 +4068,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%SrtPS = SrcActiveDOFsData%SrtPS end if if (allocated(SrcActiveDOFsData%SrtPSNAUG)) then - LB(1:1) = lbound(SrcActiveDOFsData%SrtPSNAUG) - UB(1:1) = ubound(SrcActiveDOFsData%SrtPSNAUG) + LB(1:1) = lbound(SrcActiveDOFsData%SrtPSNAUG, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%SrtPSNAUG, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%SrtPSNAUG)) then allocate(DstActiveDOFsData%SrtPSNAUG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4080,8 +4080,8 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err DstActiveDOFsData%SrtPSNAUG = SrcActiveDOFsData%SrtPSNAUG end if if (allocated(SrcActiveDOFsData%Diag)) then - LB(1:1) = lbound(SrcActiveDOFsData%Diag) - UB(1:1) = ubound(SrcActiveDOFsData%Diag) + LB(1:1) = lbound(SrcActiveDOFsData%Diag, kind=B8Ki) + UB(1:1) = ubound(SrcActiveDOFsData%Diag, kind=B8Ki) if (.not. allocated(DstActiveDOFsData%Diag)) then allocate(DstActiveDOFsData%Diag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4160,79 +4160,79 @@ subroutine ED_PackActiveDOFs(Buf, Indata) call RegPack(Buf, InData%NPTTE) call RegPack(Buf, allocated(InData%NPSBE)) if (allocated(InData%NPSBE)) then - call RegPackBounds(Buf, 1, lbound(InData%NPSBE), ubound(InData%NPSBE)) + call RegPackBounds(Buf, 1, lbound(InData%NPSBE, kind=B8Ki), ubound(InData%NPSBE, kind=B8Ki)) call RegPack(Buf, InData%NPSBE) end if call RegPack(Buf, allocated(InData%NPSE)) if (allocated(InData%NPSE)) then - call RegPackBounds(Buf, 1, lbound(InData%NPSE), ubound(InData%NPSE)) + call RegPackBounds(Buf, 1, lbound(InData%NPSE, kind=B8Ki), ubound(InData%NPSE, kind=B8Ki)) call RegPack(Buf, InData%NPSE) end if call RegPack(Buf, InData%NPUE) call RegPack(Buf, InData%NPYE) call RegPack(Buf, allocated(InData%PCE)) if (allocated(InData%PCE)) then - call RegPackBounds(Buf, 1, lbound(InData%PCE), ubound(InData%PCE)) + call RegPackBounds(Buf, 1, lbound(InData%PCE, kind=B8Ki), ubound(InData%PCE, kind=B8Ki)) call RegPack(Buf, InData%PCE) end if call RegPack(Buf, allocated(InData%PDE)) if (allocated(InData%PDE)) then - call RegPackBounds(Buf, 1, lbound(InData%PDE), ubound(InData%PDE)) + call RegPackBounds(Buf, 1, lbound(InData%PDE, kind=B8Ki), ubound(InData%PDE, kind=B8Ki)) call RegPack(Buf, InData%PDE) end if call RegPack(Buf, allocated(InData%PIE)) if (allocated(InData%PIE)) then - call RegPackBounds(Buf, 1, lbound(InData%PIE), ubound(InData%PIE)) + call RegPackBounds(Buf, 1, lbound(InData%PIE, kind=B8Ki), ubound(InData%PIE, kind=B8Ki)) call RegPack(Buf, InData%PIE) end if call RegPack(Buf, allocated(InData%PTE)) if (allocated(InData%PTE)) then - call RegPackBounds(Buf, 1, lbound(InData%PTE), ubound(InData%PTE)) + call RegPackBounds(Buf, 1, lbound(InData%PTE, kind=B8Ki), ubound(InData%PTE, kind=B8Ki)) call RegPack(Buf, InData%PTE) end if call RegPack(Buf, allocated(InData%PTTE)) if (allocated(InData%PTTE)) then - call RegPackBounds(Buf, 1, lbound(InData%PTTE), ubound(InData%PTTE)) + call RegPackBounds(Buf, 1, lbound(InData%PTTE, kind=B8Ki), ubound(InData%PTTE, kind=B8Ki)) call RegPack(Buf, InData%PTTE) end if call RegPack(Buf, allocated(InData%PS)) if (allocated(InData%PS)) then - call RegPackBounds(Buf, 1, lbound(InData%PS), ubound(InData%PS)) + call RegPackBounds(Buf, 1, lbound(InData%PS, kind=B8Ki), ubound(InData%PS, kind=B8Ki)) call RegPack(Buf, InData%PS) end if call RegPack(Buf, allocated(InData%PSBE)) if (allocated(InData%PSBE)) then - call RegPackBounds(Buf, 2, lbound(InData%PSBE), ubound(InData%PSBE)) + call RegPackBounds(Buf, 2, lbound(InData%PSBE, kind=B8Ki), ubound(InData%PSBE, kind=B8Ki)) call RegPack(Buf, InData%PSBE) end if call RegPack(Buf, allocated(InData%PSE)) if (allocated(InData%PSE)) then - call RegPackBounds(Buf, 2, lbound(InData%PSE), ubound(InData%PSE)) + call RegPackBounds(Buf, 2, lbound(InData%PSE, kind=B8Ki), ubound(InData%PSE, kind=B8Ki)) call RegPack(Buf, InData%PSE) end if call RegPack(Buf, allocated(InData%PUE)) if (allocated(InData%PUE)) then - call RegPackBounds(Buf, 1, lbound(InData%PUE), ubound(InData%PUE)) + call RegPackBounds(Buf, 1, lbound(InData%PUE, kind=B8Ki), ubound(InData%PUE, kind=B8Ki)) call RegPack(Buf, InData%PUE) end if call RegPack(Buf, allocated(InData%PYE)) if (allocated(InData%PYE)) then - call RegPackBounds(Buf, 1, lbound(InData%PYE), ubound(InData%PYE)) + call RegPackBounds(Buf, 1, lbound(InData%PYE, kind=B8Ki), ubound(InData%PYE, kind=B8Ki)) call RegPack(Buf, InData%PYE) end if call RegPack(Buf, allocated(InData%SrtPS)) if (allocated(InData%SrtPS)) then - call RegPackBounds(Buf, 1, lbound(InData%SrtPS), ubound(InData%SrtPS)) + call RegPackBounds(Buf, 1, lbound(InData%SrtPS, kind=B8Ki), ubound(InData%SrtPS, kind=B8Ki)) call RegPack(Buf, InData%SrtPS) end if call RegPack(Buf, allocated(InData%SrtPSNAUG)) if (allocated(InData%SrtPSNAUG)) then - call RegPackBounds(Buf, 1, lbound(InData%SrtPSNAUG), ubound(InData%SrtPSNAUG)) + call RegPackBounds(Buf, 1, lbound(InData%SrtPSNAUG, kind=B8Ki), ubound(InData%SrtPSNAUG, kind=B8Ki)) call RegPack(Buf, InData%SrtPSNAUG) end if call RegPack(Buf, allocated(InData%Diag)) if (allocated(InData%Diag)) then - call RegPackBounds(Buf, 1, lbound(InData%Diag), ubound(InData%Diag)) + call RegPackBounds(Buf, 1, lbound(InData%Diag, kind=B8Ki), ubound(InData%Diag, kind=B8Ki)) call RegPack(Buf, InData%Diag) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4242,7 +4242,7 @@ subroutine ED_UnPackActiveDOFs(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_ActiveDOFs), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackActiveDOFs' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4480,15 +4480,15 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyRtHndSide' ErrStat = ErrID_None ErrMsg = '' DstRtHndSideData%rO = SrcRtHndSideData%rO if (allocated(SrcRtHndSideData%rQS)) then - LB(1:3) = lbound(SrcRtHndSideData%rQS) - UB(1:3) = ubound(SrcRtHndSideData%rQS) + LB(1:3) = lbound(SrcRtHndSideData%rQS, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%rQS, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rQS)) then allocate(DstRtHndSideData%rQS(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4499,8 +4499,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%rQS = SrcRtHndSideData%rQS end if if (allocated(SrcRtHndSideData%rS)) then - LB(1:3) = lbound(SrcRtHndSideData%rS) - UB(1:3) = ubound(SrcRtHndSideData%rS) + LB(1:3) = lbound(SrcRtHndSideData%rS, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%rS, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rS)) then allocate(DstRtHndSideData%rS(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4511,8 +4511,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%rS = SrcRtHndSideData%rS end if if (allocated(SrcRtHndSideData%rS0S)) then - LB(1:3) = lbound(SrcRtHndSideData%rS0S) - UB(1:3) = ubound(SrcRtHndSideData%rS0S) + LB(1:3) = lbound(SrcRtHndSideData%rS0S, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%rS0S, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rS0S)) then allocate(DstRtHndSideData%rS0S(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4523,8 +4523,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%rS0S = SrcRtHndSideData%rS0S end if if (allocated(SrcRtHndSideData%rT)) then - LB(1:2) = lbound(SrcRtHndSideData%rT) - UB(1:2) = ubound(SrcRtHndSideData%rT) + LB(1:2) = lbound(SrcRtHndSideData%rT, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%rT, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rT)) then allocate(DstRtHndSideData%rT(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4536,8 +4536,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%rT0O = SrcRtHndSideData%rT0O if (allocated(SrcRtHndSideData%rT0T)) then - LB(1:2) = lbound(SrcRtHndSideData%rT0T) - UB(1:2) = ubound(SrcRtHndSideData%rT0T) + LB(1:2) = lbound(SrcRtHndSideData%rT0T, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%rT0T, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rT0T)) then allocate(DstRtHndSideData%rT0T(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4550,8 +4550,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%rZ = SrcRtHndSideData%rZ DstRtHndSideData%rZO = SrcRtHndSideData%rZO if (allocated(SrcRtHndSideData%rZT)) then - LB(1:2) = lbound(SrcRtHndSideData%rZT) - UB(1:2) = ubound(SrcRtHndSideData%rZT) + LB(1:2) = lbound(SrcRtHndSideData%rZT, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%rZT, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rZT)) then allocate(DstRtHndSideData%rZT(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4572,8 +4572,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%rOW = SrcRtHndSideData%rOW DstRtHndSideData%rPC = SrcRtHndSideData%rPC if (allocated(SrcRtHndSideData%rPS0)) then - LB(1:2) = lbound(SrcRtHndSideData%rPS0) - UB(1:2) = ubound(SrcRtHndSideData%rPS0) + LB(1:2) = lbound(SrcRtHndSideData%rPS0, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%rPS0, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rPS0)) then allocate(DstRtHndSideData%rPS0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4591,8 +4591,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%rWJ = SrcRtHndSideData%rWJ DstRtHndSideData%rZT0 = SrcRtHndSideData%rZT0 if (allocated(SrcRtHndSideData%AngPosEF)) then - LB(1:2) = lbound(SrcRtHndSideData%AngPosEF) - UB(1:2) = ubound(SrcRtHndSideData%AngPosEF) + LB(1:2) = lbound(SrcRtHndSideData%AngPosEF, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%AngPosEF, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngPosEF)) then allocate(DstRtHndSideData%AngPosEF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4603,8 +4603,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngPosEF = SrcRtHndSideData%AngPosEF end if if (allocated(SrcRtHndSideData%AngPosXF)) then - LB(1:2) = lbound(SrcRtHndSideData%AngPosXF) - UB(1:2) = ubound(SrcRtHndSideData%AngPosXF) + LB(1:2) = lbound(SrcRtHndSideData%AngPosXF, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%AngPosXF, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngPosXF)) then allocate(DstRtHndSideData%AngPosXF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4615,8 +4615,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngPosXF = SrcRtHndSideData%AngPosXF end if if (allocated(SrcRtHndSideData%AngPosHM)) then - LB(1:3) = lbound(SrcRtHndSideData%AngPosHM) - UB(1:3) = ubound(SrcRtHndSideData%AngPosHM) + LB(1:3) = lbound(SrcRtHndSideData%AngPosHM, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%AngPosHM, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngPosHM)) then allocate(DstRtHndSideData%AngPosHM(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4629,8 +4629,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngPosXB = SrcRtHndSideData%AngPosXB DstRtHndSideData%AngPosEX = SrcRtHndSideData%AngPosEX if (allocated(SrcRtHndSideData%PAngVelEA)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEA) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEA) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEA, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEA, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEA)) then allocate(DstRtHndSideData%PAngVelEA(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4641,8 +4641,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEA = SrcRtHndSideData%PAngVelEA end if if (allocated(SrcRtHndSideData%PAngVelEF)) then - LB(1:4) = lbound(SrcRtHndSideData%PAngVelEF) - UB(1:4) = ubound(SrcRtHndSideData%PAngVelEF) + LB(1:4) = lbound(SrcRtHndSideData%PAngVelEF, kind=B8Ki) + UB(1:4) = ubound(SrcRtHndSideData%PAngVelEF, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEF)) then allocate(DstRtHndSideData%PAngVelEF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4653,8 +4653,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEF = SrcRtHndSideData%PAngVelEF end if if (allocated(SrcRtHndSideData%PAngVelEG)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEG) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEG) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEG, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEG, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEG)) then allocate(DstRtHndSideData%PAngVelEG(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4665,8 +4665,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEG = SrcRtHndSideData%PAngVelEG end if if (allocated(SrcRtHndSideData%PAngVelEH)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEH) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEH) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEH, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEH, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEH)) then allocate(DstRtHndSideData%PAngVelEH(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4677,8 +4677,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEH = SrcRtHndSideData%PAngVelEH end if if (allocated(SrcRtHndSideData%PAngVelEL)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEL) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEL) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEL, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEL, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEL)) then allocate(DstRtHndSideData%PAngVelEL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4689,8 +4689,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEL = SrcRtHndSideData%PAngVelEL end if if (allocated(SrcRtHndSideData%PAngVelEM)) then - LB(1:5) = lbound(SrcRtHndSideData%PAngVelEM) - UB(1:5) = ubound(SrcRtHndSideData%PAngVelEM) + LB(1:5) = lbound(SrcRtHndSideData%PAngVelEM, kind=B8Ki) + UB(1:5) = ubound(SrcRtHndSideData%PAngVelEM, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEM)) then allocate(DstRtHndSideData%PAngVelEM(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4701,8 +4701,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEM = SrcRtHndSideData%PAngVelEM end if if (allocated(SrcRtHndSideData%AngVelEM)) then - LB(1:3) = lbound(SrcRtHndSideData%AngVelEM) - UB(1:3) = ubound(SrcRtHndSideData%AngVelEM) + LB(1:3) = lbound(SrcRtHndSideData%AngVelEM, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%AngVelEM, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngVelEM)) then allocate(DstRtHndSideData%AngVelEM(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4713,8 +4713,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngVelEM = SrcRtHndSideData%AngVelEM end if if (allocated(SrcRtHndSideData%PAngVelEN)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEN) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEN) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEN, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEN, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEN)) then allocate(DstRtHndSideData%PAngVelEN(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4726,8 +4726,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%AngVelEA = SrcRtHndSideData%AngVelEA if (allocated(SrcRtHndSideData%PAngVelEB)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEB) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEB) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEB, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEB, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEB)) then allocate(DstRtHndSideData%PAngVelEB(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4738,8 +4738,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelEB = SrcRtHndSideData%PAngVelEB end if if (allocated(SrcRtHndSideData%PAngVelER)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelER) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelER) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelER, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelER, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelER)) then allocate(DstRtHndSideData%PAngVelER(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4750,8 +4750,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PAngVelER = SrcRtHndSideData%PAngVelER end if if (allocated(SrcRtHndSideData%PAngVelEX)) then - LB(1:3) = lbound(SrcRtHndSideData%PAngVelEX) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEX) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEX, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEX, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PAngVelEX)) then allocate(DstRtHndSideData%PAngVelEX(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4773,8 +4773,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngAccERt = SrcRtHndSideData%AngAccERt DstRtHndSideData%AngAccEXt = SrcRtHndSideData%AngAccEXt if (allocated(SrcRtHndSideData%AngAccEFt)) then - LB(1:2) = lbound(SrcRtHndSideData%AngAccEFt) - UB(1:2) = ubound(SrcRtHndSideData%AngAccEFt) + LB(1:2) = lbound(SrcRtHndSideData%AngAccEFt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%AngAccEFt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngAccEFt)) then allocate(DstRtHndSideData%AngAccEFt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4785,8 +4785,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngAccEFt = SrcRtHndSideData%AngAccEFt end if if (allocated(SrcRtHndSideData%AngVelEF)) then - LB(1:2) = lbound(SrcRtHndSideData%AngVelEF) - UB(1:2) = ubound(SrcRtHndSideData%AngVelEF) + LB(1:2) = lbound(SrcRtHndSideData%AngVelEF, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%AngVelEF, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngVelEF)) then allocate(DstRtHndSideData%AngVelEF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4797,8 +4797,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngVelEF = SrcRtHndSideData%AngVelEF end if if (allocated(SrcRtHndSideData%AngVelHM)) then - LB(1:3) = lbound(SrcRtHndSideData%AngVelHM) - UB(1:3) = ubound(SrcRtHndSideData%AngVelHM) + LB(1:3) = lbound(SrcRtHndSideData%AngVelHM, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%AngVelHM, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngVelHM)) then allocate(DstRtHndSideData%AngVelHM(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4812,8 +4812,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%AngAccEGt = SrcRtHndSideData%AngAccEGt DstRtHndSideData%AngAccEHt = SrcRtHndSideData%AngAccEHt if (allocated(SrcRtHndSideData%AngAccEKt)) then - LB(1:3) = lbound(SrcRtHndSideData%AngAccEKt) - UB(1:3) = ubound(SrcRtHndSideData%AngAccEKt) + LB(1:3) = lbound(SrcRtHndSideData%AngAccEKt, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%AngAccEKt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%AngAccEKt)) then allocate(DstRtHndSideData%AngAccEKt(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4831,8 +4831,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%LinAccEUt = SrcRtHndSideData%LinAccEUt DstRtHndSideData%LinAccEYt = SrcRtHndSideData%LinAccEYt if (allocated(SrcRtHndSideData%LinVelES)) then - LB(1:3) = lbound(SrcRtHndSideData%LinVelES) - UB(1:3) = ubound(SrcRtHndSideData%LinVelES) + LB(1:3) = lbound(SrcRtHndSideData%LinVelES, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%LinVelES, kind=B8Ki) if (.not. allocated(DstRtHndSideData%LinVelES)) then allocate(DstRtHndSideData%LinVelES(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4844,8 +4844,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%LinVelEQ = SrcRtHndSideData%LinVelEQ if (allocated(SrcRtHndSideData%LinVelET)) then - LB(1:2) = lbound(SrcRtHndSideData%LinVelET) - UB(1:2) = ubound(SrcRtHndSideData%LinVelET) + LB(1:2) = lbound(SrcRtHndSideData%LinVelET, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%LinVelET, kind=B8Ki) if (.not. allocated(DstRtHndSideData%LinVelET)) then allocate(DstRtHndSideData%LinVelET(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4856,8 +4856,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%LinVelET = SrcRtHndSideData%LinVelET end if if (allocated(SrcRtHndSideData%LinVelESm2)) then - LB(1:1) = lbound(SrcRtHndSideData%LinVelESm2) - UB(1:1) = ubound(SrcRtHndSideData%LinVelESm2) + LB(1:1) = lbound(SrcRtHndSideData%LinVelESm2, kind=B8Ki) + UB(1:1) = ubound(SrcRtHndSideData%LinVelESm2, kind=B8Ki) if (.not. allocated(DstRtHndSideData%LinVelESm2)) then allocate(DstRtHndSideData%LinVelESm2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4868,8 +4868,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%LinVelESm2 = SrcRtHndSideData%LinVelESm2 end if if (allocated(SrcRtHndSideData%PLinVelEIMU)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEIMU) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEIMU) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEIMU, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEIMU, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEIMU)) then allocate(DstRtHndSideData%PLinVelEIMU(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4880,8 +4880,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEIMU = SrcRtHndSideData%PLinVelEIMU end if if (allocated(SrcRtHndSideData%PLinVelEO)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEO) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEO) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEO, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEO, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEO)) then allocate(DstRtHndSideData%PLinVelEO(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4892,8 +4892,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEO = SrcRtHndSideData%PLinVelEO end if if (allocated(SrcRtHndSideData%PLinVelES)) then - LB(1:5) = lbound(SrcRtHndSideData%PLinVelES) - UB(1:5) = ubound(SrcRtHndSideData%PLinVelES) + LB(1:5) = lbound(SrcRtHndSideData%PLinVelES, kind=B8Ki) + UB(1:5) = ubound(SrcRtHndSideData%PLinVelES, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelES)) then allocate(DstRtHndSideData%PLinVelES(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4904,8 +4904,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelES = SrcRtHndSideData%PLinVelES end if if (allocated(SrcRtHndSideData%PLinVelET)) then - LB(1:4) = lbound(SrcRtHndSideData%PLinVelET) - UB(1:4) = ubound(SrcRtHndSideData%PLinVelET) + LB(1:4) = lbound(SrcRtHndSideData%PLinVelET, kind=B8Ki) + UB(1:4) = ubound(SrcRtHndSideData%PLinVelET, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelET)) then allocate(DstRtHndSideData%PLinVelET(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4916,8 +4916,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelET = SrcRtHndSideData%PLinVelET end if if (allocated(SrcRtHndSideData%PLinVelEZ)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEZ) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEZ) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEZ, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEZ, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEZ)) then allocate(DstRtHndSideData%PLinVelEZ(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4928,8 +4928,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEZ = SrcRtHndSideData%PLinVelEZ end if if (allocated(SrcRtHndSideData%PLinVelEC)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEC) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEC) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEC, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEC, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEC)) then allocate(DstRtHndSideData%PLinVelEC(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4940,8 +4940,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEC = SrcRtHndSideData%PLinVelEC end if if (allocated(SrcRtHndSideData%PLinVelED)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelED) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelED) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelED, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelED, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelED)) then allocate(DstRtHndSideData%PLinVelED(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4952,8 +4952,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelED = SrcRtHndSideData%PLinVelED end if if (allocated(SrcRtHndSideData%PLinVelEI)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEI) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEI) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEI, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEI, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEI)) then allocate(DstRtHndSideData%PLinVelEI(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4964,8 +4964,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEI = SrcRtHndSideData%PLinVelEI end if if (allocated(SrcRtHndSideData%PLinVelEJ)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEJ) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEJ) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEJ, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEJ, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEJ)) then allocate(DstRtHndSideData%PLinVelEJ(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4976,8 +4976,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEJ = SrcRtHndSideData%PLinVelEJ end if if (allocated(SrcRtHndSideData%PLinVelEP)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEP) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEP) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEP, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEP, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEP)) then allocate(DstRtHndSideData%PLinVelEP(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4988,8 +4988,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEP = SrcRtHndSideData%PLinVelEP end if if (allocated(SrcRtHndSideData%PLinVelEQ)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEQ) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEQ) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEQ, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEQ, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEQ)) then allocate(DstRtHndSideData%PLinVelEQ(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5000,8 +5000,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEQ = SrcRtHndSideData%PLinVelEQ end if if (allocated(SrcRtHndSideData%PLinVelEU)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEU) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEU) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEU, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEU, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEU)) then allocate(DstRtHndSideData%PLinVelEU(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5012,8 +5012,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEU = SrcRtHndSideData%PLinVelEU end if if (allocated(SrcRtHndSideData%PLinVelEV)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEV) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEV) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEV, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEV, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEV)) then allocate(DstRtHndSideData%PLinVelEV(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5024,8 +5024,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEV = SrcRtHndSideData%PLinVelEV end if if (allocated(SrcRtHndSideData%PLinVelEW)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEW) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEW) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEW, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEW, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEW)) then allocate(DstRtHndSideData%PLinVelEW(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5036,8 +5036,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PLinVelEW = SrcRtHndSideData%PLinVelEW end if if (allocated(SrcRtHndSideData%PLinVelEY)) then - LB(1:3) = lbound(SrcRtHndSideData%PLinVelEY) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEY) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEY, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEY, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PLinVelEY)) then allocate(DstRtHndSideData%PLinVelEY(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5050,8 +5050,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%LinAccEIMUt = SrcRtHndSideData%LinAccEIMUt DstRtHndSideData%LinAccEOt = SrcRtHndSideData%LinAccEOt if (allocated(SrcRtHndSideData%LinAccESt)) then - LB(1:3) = lbound(SrcRtHndSideData%LinAccESt) - UB(1:3) = ubound(SrcRtHndSideData%LinAccESt) + LB(1:3) = lbound(SrcRtHndSideData%LinAccESt, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%LinAccESt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%LinAccESt)) then allocate(DstRtHndSideData%LinAccESt(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5062,8 +5062,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%LinAccESt = SrcRtHndSideData%LinAccESt end if if (allocated(SrcRtHndSideData%LinAccETt)) then - LB(1:2) = lbound(SrcRtHndSideData%LinAccETt) - UB(1:2) = ubound(SrcRtHndSideData%LinAccETt) + LB(1:2) = lbound(SrcRtHndSideData%LinAccETt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%LinAccETt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%LinAccETt)) then allocate(DstRtHndSideData%LinAccETt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5081,8 +5081,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%FrcONcRtt = SrcRtHndSideData%FrcONcRtt DstRtHndSideData%FrcPRott = SrcRtHndSideData%FrcPRott if (allocated(SrcRtHndSideData%FrcS0Bt)) then - LB(1:2) = lbound(SrcRtHndSideData%FrcS0Bt) - UB(1:2) = ubound(SrcRtHndSideData%FrcS0Bt) + LB(1:2) = lbound(SrcRtHndSideData%FrcS0Bt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%FrcS0Bt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%FrcS0Bt)) then allocate(DstRtHndSideData%FrcS0Bt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5094,8 +5094,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%FrcT0Trbt = SrcRtHndSideData%FrcT0Trbt if (allocated(SrcRtHndSideData%FSAero)) then - LB(1:3) = lbound(SrcRtHndSideData%FSAero) - UB(1:3) = ubound(SrcRtHndSideData%FSAero) + LB(1:3) = lbound(SrcRtHndSideData%FSAero, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%FSAero, kind=B8Ki) if (.not. allocated(DstRtHndSideData%FSAero)) then allocate(DstRtHndSideData%FSAero(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5106,8 +5106,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%FSAero = SrcRtHndSideData%FSAero end if if (allocated(SrcRtHndSideData%FSTipDrag)) then - LB(1:2) = lbound(SrcRtHndSideData%FSTipDrag) - UB(1:2) = ubound(SrcRtHndSideData%FSTipDrag) + LB(1:2) = lbound(SrcRtHndSideData%FSTipDrag, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%FSTipDrag, kind=B8Ki) if (.not. allocated(DstRtHndSideData%FSTipDrag)) then allocate(DstRtHndSideData%FSTipDrag(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5118,8 +5118,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%FSTipDrag = SrcRtHndSideData%FSTipDrag end if if (allocated(SrcRtHndSideData%FTHydrot)) then - LB(1:2) = lbound(SrcRtHndSideData%FTHydrot) - UB(1:2) = ubound(SrcRtHndSideData%FTHydrot) + LB(1:2) = lbound(SrcRtHndSideData%FTHydrot, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%FTHydrot, kind=B8Ki) if (.not. allocated(DstRtHndSideData%FTHydrot)) then allocate(DstRtHndSideData%FTHydrot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5131,8 +5131,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%FZHydrot = SrcRtHndSideData%FZHydrot if (allocated(SrcRtHndSideData%MFHydrot)) then - LB(1:2) = lbound(SrcRtHndSideData%MFHydrot) - UB(1:2) = ubound(SrcRtHndSideData%MFHydrot) + LB(1:2) = lbound(SrcRtHndSideData%MFHydrot, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%MFHydrot, kind=B8Ki) if (.not. allocated(DstRtHndSideData%MFHydrot)) then allocate(DstRtHndSideData%MFHydrot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5144,8 +5144,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%MomBNcRtt = SrcRtHndSideData%MomBNcRtt if (allocated(SrcRtHndSideData%MomH0Bt)) then - LB(1:2) = lbound(SrcRtHndSideData%MomH0Bt) - UB(1:2) = ubound(SrcRtHndSideData%MomH0Bt) + LB(1:2) = lbound(SrcRtHndSideData%MomH0Bt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%MomH0Bt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%MomH0Bt)) then allocate(DstRtHndSideData%MomH0Bt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5160,8 +5160,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%MomNTailt = SrcRtHndSideData%MomNTailt DstRtHndSideData%MomX0Trbt = SrcRtHndSideData%MomX0Trbt if (allocated(SrcRtHndSideData%MMAero)) then - LB(1:3) = lbound(SrcRtHndSideData%MMAero) - UB(1:3) = ubound(SrcRtHndSideData%MMAero) + LB(1:3) = lbound(SrcRtHndSideData%MMAero, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%MMAero, kind=B8Ki) if (.not. allocated(DstRtHndSideData%MMAero)) then allocate(DstRtHndSideData%MMAero(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5173,8 +5173,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%MXHydrot = SrcRtHndSideData%MXHydrot if (allocated(SrcRtHndSideData%PFrcONcRt)) then - LB(1:2) = lbound(SrcRtHndSideData%PFrcONcRt) - UB(1:2) = ubound(SrcRtHndSideData%PFrcONcRt) + LB(1:2) = lbound(SrcRtHndSideData%PFrcONcRt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PFrcONcRt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcONcRt)) then allocate(DstRtHndSideData%PFrcONcRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5185,8 +5185,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcONcRt = SrcRtHndSideData%PFrcONcRt end if if (allocated(SrcRtHndSideData%PFrcPRot)) then - LB(1:2) = lbound(SrcRtHndSideData%PFrcPRot) - UB(1:2) = ubound(SrcRtHndSideData%PFrcPRot) + LB(1:2) = lbound(SrcRtHndSideData%PFrcPRot, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PFrcPRot, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcPRot)) then allocate(DstRtHndSideData%PFrcPRot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5197,8 +5197,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcPRot = SrcRtHndSideData%PFrcPRot end if if (allocated(SrcRtHndSideData%PFrcS0B)) then - LB(1:3) = lbound(SrcRtHndSideData%PFrcS0B) - UB(1:3) = ubound(SrcRtHndSideData%PFrcS0B) + LB(1:3) = lbound(SrcRtHndSideData%PFrcS0B, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PFrcS0B, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcS0B)) then allocate(DstRtHndSideData%PFrcS0B(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5209,8 +5209,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcS0B = SrcRtHndSideData%PFrcS0B end if if (allocated(SrcRtHndSideData%PFrcT0Trb)) then - LB(1:2) = lbound(SrcRtHndSideData%PFrcT0Trb) - UB(1:2) = ubound(SrcRtHndSideData%PFrcT0Trb) + LB(1:2) = lbound(SrcRtHndSideData%PFrcT0Trb, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PFrcT0Trb, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcT0Trb)) then allocate(DstRtHndSideData%PFrcT0Trb(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5221,8 +5221,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcT0Trb = SrcRtHndSideData%PFrcT0Trb end if if (allocated(SrcRtHndSideData%PFTHydro)) then - LB(1:3) = lbound(SrcRtHndSideData%PFTHydro) - UB(1:3) = ubound(SrcRtHndSideData%PFTHydro) + LB(1:3) = lbound(SrcRtHndSideData%PFTHydro, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PFTHydro, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFTHydro)) then allocate(DstRtHndSideData%PFTHydro(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5234,8 +5234,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta end if DstRtHndSideData%PFZHydro = SrcRtHndSideData%PFZHydro if (allocated(SrcRtHndSideData%PMFHydro)) then - LB(1:3) = lbound(SrcRtHndSideData%PMFHydro) - UB(1:3) = ubound(SrcRtHndSideData%PMFHydro) + LB(1:3) = lbound(SrcRtHndSideData%PMFHydro, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PMFHydro, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMFHydro)) then allocate(DstRtHndSideData%PMFHydro(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5246,8 +5246,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PMFHydro = SrcRtHndSideData%PMFHydro end if if (allocated(SrcRtHndSideData%PMomBNcRt)) then - LB(1:2) = lbound(SrcRtHndSideData%PMomBNcRt) - UB(1:2) = ubound(SrcRtHndSideData%PMomBNcRt) + LB(1:2) = lbound(SrcRtHndSideData%PMomBNcRt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PMomBNcRt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomBNcRt)) then allocate(DstRtHndSideData%PMomBNcRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5258,8 +5258,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PMomBNcRt = SrcRtHndSideData%PMomBNcRt end if if (allocated(SrcRtHndSideData%PMomH0B)) then - LB(1:3) = lbound(SrcRtHndSideData%PMomH0B) - UB(1:3) = ubound(SrcRtHndSideData%PMomH0B) + LB(1:3) = lbound(SrcRtHndSideData%PMomH0B, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%PMomH0B, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomH0B)) then allocate(DstRtHndSideData%PMomH0B(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5270,8 +5270,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PMomH0B = SrcRtHndSideData%PMomH0B end if if (allocated(SrcRtHndSideData%PMomLPRot)) then - LB(1:2) = lbound(SrcRtHndSideData%PMomLPRot) - UB(1:2) = ubound(SrcRtHndSideData%PMomLPRot) + LB(1:2) = lbound(SrcRtHndSideData%PMomLPRot, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PMomLPRot, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomLPRot)) then allocate(DstRtHndSideData%PMomLPRot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5282,8 +5282,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PMomLPRot = SrcRtHndSideData%PMomLPRot end if if (allocated(SrcRtHndSideData%PMomNGnRt)) then - LB(1:2) = lbound(SrcRtHndSideData%PMomNGnRt) - UB(1:2) = ubound(SrcRtHndSideData%PMomNGnRt) + LB(1:2) = lbound(SrcRtHndSideData%PMomNGnRt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PMomNGnRt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomNGnRt)) then allocate(DstRtHndSideData%PMomNGnRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5294,8 +5294,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PMomNGnRt = SrcRtHndSideData%PMomNGnRt end if if (allocated(SrcRtHndSideData%PMomNTail)) then - LB(1:2) = lbound(SrcRtHndSideData%PMomNTail) - UB(1:2) = ubound(SrcRtHndSideData%PMomNTail) + LB(1:2) = lbound(SrcRtHndSideData%PMomNTail, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PMomNTail, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomNTail)) then allocate(DstRtHndSideData%PMomNTail(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5306,8 +5306,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PMomNTail = SrcRtHndSideData%PMomNTail end if if (allocated(SrcRtHndSideData%PMomX0Trb)) then - LB(1:2) = lbound(SrcRtHndSideData%PMomX0Trb) - UB(1:2) = ubound(SrcRtHndSideData%PMomX0Trb) + LB(1:2) = lbound(SrcRtHndSideData%PMomX0Trb, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PMomX0Trb, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomX0Trb)) then allocate(DstRtHndSideData%PMomX0Trb(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5324,8 +5324,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%FrcZAllt = SrcRtHndSideData%FrcZAllt DstRtHndSideData%MomXAllt = SrcRtHndSideData%MomXAllt if (allocated(SrcRtHndSideData%PFrcVGnRt)) then - LB(1:2) = lbound(SrcRtHndSideData%PFrcVGnRt) - UB(1:2) = ubound(SrcRtHndSideData%PFrcVGnRt) + LB(1:2) = lbound(SrcRtHndSideData%PFrcVGnRt, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PFrcVGnRt, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcVGnRt)) then allocate(DstRtHndSideData%PFrcVGnRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5336,8 +5336,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcVGnRt = SrcRtHndSideData%PFrcVGnRt end if if (allocated(SrcRtHndSideData%PFrcWTail)) then - LB(1:2) = lbound(SrcRtHndSideData%PFrcWTail) - UB(1:2) = ubound(SrcRtHndSideData%PFrcWTail) + LB(1:2) = lbound(SrcRtHndSideData%PFrcWTail, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PFrcWTail, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcWTail)) then allocate(DstRtHndSideData%PFrcWTail(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5348,8 +5348,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcWTail = SrcRtHndSideData%PFrcWTail end if if (allocated(SrcRtHndSideData%PFrcZAll)) then - LB(1:2) = lbound(SrcRtHndSideData%PFrcZAll) - UB(1:2) = ubound(SrcRtHndSideData%PFrcZAll) + LB(1:2) = lbound(SrcRtHndSideData%PFrcZAll, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PFrcZAll, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PFrcZAll)) then allocate(DstRtHndSideData%PFrcZAll(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5360,8 +5360,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%PFrcZAll = SrcRtHndSideData%PFrcZAll end if if (allocated(SrcRtHndSideData%PMomXAll)) then - LB(1:2) = lbound(SrcRtHndSideData%PMomXAll) - UB(1:2) = ubound(SrcRtHndSideData%PMomXAll) + LB(1:2) = lbound(SrcRtHndSideData%PMomXAll, kind=B8Ki) + UB(1:2) = ubound(SrcRtHndSideData%PMomXAll, kind=B8Ki) if (.not. allocated(DstRtHndSideData%PMomXAll)) then allocate(DstRtHndSideData%PMomXAll(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5376,8 +5376,8 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta DstRtHndSideData%RFrlMom = SrcRtHndSideData%RFrlMom DstRtHndSideData%GBoxEffFac = SrcRtHndSideData%GBoxEffFac if (allocated(SrcRtHndSideData%rSAerCen)) then - LB(1:3) = lbound(SrcRtHndSideData%rSAerCen) - UB(1:3) = ubound(SrcRtHndSideData%rSAerCen) + LB(1:3) = lbound(SrcRtHndSideData%rSAerCen, kind=B8Ki) + UB(1:3) = ubound(SrcRtHndSideData%rSAerCen, kind=B8Ki) if (.not. allocated(DstRtHndSideData%rSAerCen)) then allocate(DstRtHndSideData%rSAerCen(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5613,35 +5613,35 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%rO) call RegPack(Buf, allocated(InData%rQS)) if (allocated(InData%rQS)) then - call RegPackBounds(Buf, 3, lbound(InData%rQS), ubound(InData%rQS)) + call RegPackBounds(Buf, 3, lbound(InData%rQS, kind=B8Ki), ubound(InData%rQS, kind=B8Ki)) call RegPack(Buf, InData%rQS) end if call RegPack(Buf, allocated(InData%rS)) if (allocated(InData%rS)) then - call RegPackBounds(Buf, 3, lbound(InData%rS), ubound(InData%rS)) + call RegPackBounds(Buf, 3, lbound(InData%rS, kind=B8Ki), ubound(InData%rS, kind=B8Ki)) call RegPack(Buf, InData%rS) end if call RegPack(Buf, allocated(InData%rS0S)) if (allocated(InData%rS0S)) then - call RegPackBounds(Buf, 3, lbound(InData%rS0S), ubound(InData%rS0S)) + call RegPackBounds(Buf, 3, lbound(InData%rS0S, kind=B8Ki), ubound(InData%rS0S, kind=B8Ki)) call RegPack(Buf, InData%rS0S) end if call RegPack(Buf, allocated(InData%rT)) if (allocated(InData%rT)) then - call RegPackBounds(Buf, 2, lbound(InData%rT), ubound(InData%rT)) + call RegPackBounds(Buf, 2, lbound(InData%rT, kind=B8Ki), ubound(InData%rT, kind=B8Ki)) call RegPack(Buf, InData%rT) end if call RegPack(Buf, InData%rT0O) call RegPack(Buf, allocated(InData%rT0T)) if (allocated(InData%rT0T)) then - call RegPackBounds(Buf, 2, lbound(InData%rT0T), ubound(InData%rT0T)) + call RegPackBounds(Buf, 2, lbound(InData%rT0T, kind=B8Ki), ubound(InData%rT0T, kind=B8Ki)) call RegPack(Buf, InData%rT0T) end if call RegPack(Buf, InData%rZ) call RegPack(Buf, InData%rZO) call RegPack(Buf, allocated(InData%rZT)) if (allocated(InData%rZT)) then - call RegPackBounds(Buf, 2, lbound(InData%rZT), ubound(InData%rZT)) + call RegPackBounds(Buf, 2, lbound(InData%rZT, kind=B8Ki), ubound(InData%rZT, kind=B8Ki)) call RegPack(Buf, InData%rZT) end if call RegPack(Buf, InData%rPQ) @@ -5656,7 +5656,7 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%rPC) call RegPack(Buf, allocated(InData%rPS0)) if (allocated(InData%rPS0)) then - call RegPackBounds(Buf, 2, lbound(InData%rPS0), ubound(InData%rPS0)) + call RegPackBounds(Buf, 2, lbound(InData%rPS0, kind=B8Ki), ubound(InData%rPS0, kind=B8Ki)) call RegPack(Buf, InData%rPS0) end if call RegPack(Buf, InData%rQ) @@ -5668,75 +5668,75 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%rZT0) call RegPack(Buf, allocated(InData%AngPosEF)) if (allocated(InData%AngPosEF)) then - call RegPackBounds(Buf, 2, lbound(InData%AngPosEF), ubound(InData%AngPosEF)) + call RegPackBounds(Buf, 2, lbound(InData%AngPosEF, kind=B8Ki), ubound(InData%AngPosEF, kind=B8Ki)) call RegPack(Buf, InData%AngPosEF) end if call RegPack(Buf, allocated(InData%AngPosXF)) if (allocated(InData%AngPosXF)) then - call RegPackBounds(Buf, 2, lbound(InData%AngPosXF), ubound(InData%AngPosXF)) + call RegPackBounds(Buf, 2, lbound(InData%AngPosXF, kind=B8Ki), ubound(InData%AngPosXF, kind=B8Ki)) call RegPack(Buf, InData%AngPosXF) end if call RegPack(Buf, allocated(InData%AngPosHM)) if (allocated(InData%AngPosHM)) then - call RegPackBounds(Buf, 3, lbound(InData%AngPosHM), ubound(InData%AngPosHM)) + call RegPackBounds(Buf, 3, lbound(InData%AngPosHM, kind=B8Ki), ubound(InData%AngPosHM, kind=B8Ki)) call RegPack(Buf, InData%AngPosHM) end if call RegPack(Buf, InData%AngPosXB) call RegPack(Buf, InData%AngPosEX) call RegPack(Buf, allocated(InData%PAngVelEA)) if (allocated(InData%PAngVelEA)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEA), ubound(InData%PAngVelEA)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEA, kind=B8Ki), ubound(InData%PAngVelEA, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEA) end if call RegPack(Buf, allocated(InData%PAngVelEF)) if (allocated(InData%PAngVelEF)) then - call RegPackBounds(Buf, 4, lbound(InData%PAngVelEF), ubound(InData%PAngVelEF)) + call RegPackBounds(Buf, 4, lbound(InData%PAngVelEF, kind=B8Ki), ubound(InData%PAngVelEF, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEF) end if call RegPack(Buf, allocated(InData%PAngVelEG)) if (allocated(InData%PAngVelEG)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEG), ubound(InData%PAngVelEG)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEG, kind=B8Ki), ubound(InData%PAngVelEG, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEG) end if call RegPack(Buf, allocated(InData%PAngVelEH)) if (allocated(InData%PAngVelEH)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEH), ubound(InData%PAngVelEH)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEH, kind=B8Ki), ubound(InData%PAngVelEH, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEH) end if call RegPack(Buf, allocated(InData%PAngVelEL)) if (allocated(InData%PAngVelEL)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEL), ubound(InData%PAngVelEL)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEL, kind=B8Ki), ubound(InData%PAngVelEL, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEL) end if call RegPack(Buf, allocated(InData%PAngVelEM)) if (allocated(InData%PAngVelEM)) then - call RegPackBounds(Buf, 5, lbound(InData%PAngVelEM), ubound(InData%PAngVelEM)) + call RegPackBounds(Buf, 5, lbound(InData%PAngVelEM, kind=B8Ki), ubound(InData%PAngVelEM, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEM) end if call RegPack(Buf, allocated(InData%AngVelEM)) if (allocated(InData%AngVelEM)) then - call RegPackBounds(Buf, 3, lbound(InData%AngVelEM), ubound(InData%AngVelEM)) + call RegPackBounds(Buf, 3, lbound(InData%AngVelEM, kind=B8Ki), ubound(InData%AngVelEM, kind=B8Ki)) call RegPack(Buf, InData%AngVelEM) end if call RegPack(Buf, allocated(InData%PAngVelEN)) if (allocated(InData%PAngVelEN)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEN), ubound(InData%PAngVelEN)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEN, kind=B8Ki), ubound(InData%PAngVelEN, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEN) end if call RegPack(Buf, InData%AngVelEA) call RegPack(Buf, allocated(InData%PAngVelEB)) if (allocated(InData%PAngVelEB)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEB), ubound(InData%PAngVelEB)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEB, kind=B8Ki), ubound(InData%PAngVelEB, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEB) end if call RegPack(Buf, allocated(InData%PAngVelER)) if (allocated(InData%PAngVelER)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelER), ubound(InData%PAngVelER)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelER, kind=B8Ki), ubound(InData%PAngVelER, kind=B8Ki)) call RegPack(Buf, InData%PAngVelER) end if call RegPack(Buf, allocated(InData%PAngVelEX)) if (allocated(InData%PAngVelEX)) then - call RegPackBounds(Buf, 3, lbound(InData%PAngVelEX), ubound(InData%PAngVelEX)) + call RegPackBounds(Buf, 3, lbound(InData%PAngVelEX, kind=B8Ki), ubound(InData%PAngVelEX, kind=B8Ki)) call RegPack(Buf, InData%PAngVelEX) end if call RegPack(Buf, InData%AngVelEG) @@ -5752,17 +5752,17 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%AngAccEXt) call RegPack(Buf, allocated(InData%AngAccEFt)) if (allocated(InData%AngAccEFt)) then - call RegPackBounds(Buf, 2, lbound(InData%AngAccEFt), ubound(InData%AngAccEFt)) + call RegPackBounds(Buf, 2, lbound(InData%AngAccEFt, kind=B8Ki), ubound(InData%AngAccEFt, kind=B8Ki)) call RegPack(Buf, InData%AngAccEFt) end if call RegPack(Buf, allocated(InData%AngVelEF)) if (allocated(InData%AngVelEF)) then - call RegPackBounds(Buf, 2, lbound(InData%AngVelEF), ubound(InData%AngVelEF)) + call RegPackBounds(Buf, 2, lbound(InData%AngVelEF, kind=B8Ki), ubound(InData%AngVelEF, kind=B8Ki)) call RegPack(Buf, InData%AngVelEF) end if call RegPack(Buf, allocated(InData%AngVelHM)) if (allocated(InData%AngVelHM)) then - call RegPackBounds(Buf, 3, lbound(InData%AngVelHM), ubound(InData%AngVelHM)) + call RegPackBounds(Buf, 3, lbound(InData%AngVelHM, kind=B8Ki), ubound(InData%AngVelHM, kind=B8Ki)) call RegPack(Buf, InData%AngVelHM) end if call RegPack(Buf, InData%AngAccEAt) @@ -5770,7 +5770,7 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%AngAccEHt) call RegPack(Buf, allocated(InData%AngAccEKt)) if (allocated(InData%AngAccEKt)) then - call RegPackBounds(Buf, 3, lbound(InData%AngAccEKt), ubound(InData%AngAccEKt)) + call RegPackBounds(Buf, 3, lbound(InData%AngAccEKt, kind=B8Ki), ubound(InData%AngAccEKt, kind=B8Ki)) call RegPack(Buf, InData%AngAccEKt) end if call RegPack(Buf, InData%AngAccENt) @@ -5782,105 +5782,105 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%LinAccEYt) call RegPack(Buf, allocated(InData%LinVelES)) if (allocated(InData%LinVelES)) then - call RegPackBounds(Buf, 3, lbound(InData%LinVelES), ubound(InData%LinVelES)) + call RegPackBounds(Buf, 3, lbound(InData%LinVelES, kind=B8Ki), ubound(InData%LinVelES, kind=B8Ki)) call RegPack(Buf, InData%LinVelES) end if call RegPack(Buf, InData%LinVelEQ) call RegPack(Buf, allocated(InData%LinVelET)) if (allocated(InData%LinVelET)) then - call RegPackBounds(Buf, 2, lbound(InData%LinVelET), ubound(InData%LinVelET)) + call RegPackBounds(Buf, 2, lbound(InData%LinVelET, kind=B8Ki), ubound(InData%LinVelET, kind=B8Ki)) call RegPack(Buf, InData%LinVelET) end if call RegPack(Buf, allocated(InData%LinVelESm2)) if (allocated(InData%LinVelESm2)) then - call RegPackBounds(Buf, 1, lbound(InData%LinVelESm2), ubound(InData%LinVelESm2)) + call RegPackBounds(Buf, 1, lbound(InData%LinVelESm2, kind=B8Ki), ubound(InData%LinVelESm2, kind=B8Ki)) call RegPack(Buf, InData%LinVelESm2) end if call RegPack(Buf, allocated(InData%PLinVelEIMU)) if (allocated(InData%PLinVelEIMU)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEIMU), ubound(InData%PLinVelEIMU)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEIMU, kind=B8Ki), ubound(InData%PLinVelEIMU, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEIMU) end if call RegPack(Buf, allocated(InData%PLinVelEO)) if (allocated(InData%PLinVelEO)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEO), ubound(InData%PLinVelEO)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEO, kind=B8Ki), ubound(InData%PLinVelEO, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEO) end if call RegPack(Buf, allocated(InData%PLinVelES)) if (allocated(InData%PLinVelES)) then - call RegPackBounds(Buf, 5, lbound(InData%PLinVelES), ubound(InData%PLinVelES)) + call RegPackBounds(Buf, 5, lbound(InData%PLinVelES, kind=B8Ki), ubound(InData%PLinVelES, kind=B8Ki)) call RegPack(Buf, InData%PLinVelES) end if call RegPack(Buf, allocated(InData%PLinVelET)) if (allocated(InData%PLinVelET)) then - call RegPackBounds(Buf, 4, lbound(InData%PLinVelET), ubound(InData%PLinVelET)) + call RegPackBounds(Buf, 4, lbound(InData%PLinVelET, kind=B8Ki), ubound(InData%PLinVelET, kind=B8Ki)) call RegPack(Buf, InData%PLinVelET) end if call RegPack(Buf, allocated(InData%PLinVelEZ)) if (allocated(InData%PLinVelEZ)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEZ), ubound(InData%PLinVelEZ)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEZ, kind=B8Ki), ubound(InData%PLinVelEZ, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEZ) end if call RegPack(Buf, allocated(InData%PLinVelEC)) if (allocated(InData%PLinVelEC)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEC), ubound(InData%PLinVelEC)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEC, kind=B8Ki), ubound(InData%PLinVelEC, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEC) end if call RegPack(Buf, allocated(InData%PLinVelED)) if (allocated(InData%PLinVelED)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelED), ubound(InData%PLinVelED)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelED, kind=B8Ki), ubound(InData%PLinVelED, kind=B8Ki)) call RegPack(Buf, InData%PLinVelED) end if call RegPack(Buf, allocated(InData%PLinVelEI)) if (allocated(InData%PLinVelEI)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEI), ubound(InData%PLinVelEI)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEI, kind=B8Ki), ubound(InData%PLinVelEI, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEI) end if call RegPack(Buf, allocated(InData%PLinVelEJ)) if (allocated(InData%PLinVelEJ)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEJ), ubound(InData%PLinVelEJ)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEJ, kind=B8Ki), ubound(InData%PLinVelEJ, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEJ) end if call RegPack(Buf, allocated(InData%PLinVelEP)) if (allocated(InData%PLinVelEP)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEP), ubound(InData%PLinVelEP)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEP, kind=B8Ki), ubound(InData%PLinVelEP, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEP) end if call RegPack(Buf, allocated(InData%PLinVelEQ)) if (allocated(InData%PLinVelEQ)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEQ), ubound(InData%PLinVelEQ)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEQ, kind=B8Ki), ubound(InData%PLinVelEQ, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEQ) end if call RegPack(Buf, allocated(InData%PLinVelEU)) if (allocated(InData%PLinVelEU)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEU), ubound(InData%PLinVelEU)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEU, kind=B8Ki), ubound(InData%PLinVelEU, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEU) end if call RegPack(Buf, allocated(InData%PLinVelEV)) if (allocated(InData%PLinVelEV)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEV), ubound(InData%PLinVelEV)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEV, kind=B8Ki), ubound(InData%PLinVelEV, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEV) end if call RegPack(Buf, allocated(InData%PLinVelEW)) if (allocated(InData%PLinVelEW)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEW), ubound(InData%PLinVelEW)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEW, kind=B8Ki), ubound(InData%PLinVelEW, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEW) end if call RegPack(Buf, allocated(InData%PLinVelEY)) if (allocated(InData%PLinVelEY)) then - call RegPackBounds(Buf, 3, lbound(InData%PLinVelEY), ubound(InData%PLinVelEY)) + call RegPackBounds(Buf, 3, lbound(InData%PLinVelEY, kind=B8Ki), ubound(InData%PLinVelEY, kind=B8Ki)) call RegPack(Buf, InData%PLinVelEY) end if call RegPack(Buf, InData%LinAccEIMUt) call RegPack(Buf, InData%LinAccEOt) call RegPack(Buf, allocated(InData%LinAccESt)) if (allocated(InData%LinAccESt)) then - call RegPackBounds(Buf, 3, lbound(InData%LinAccESt), ubound(InData%LinAccESt)) + call RegPackBounds(Buf, 3, lbound(InData%LinAccESt, kind=B8Ki), ubound(InData%LinAccESt, kind=B8Ki)) call RegPack(Buf, InData%LinAccESt) end if call RegPack(Buf, allocated(InData%LinAccETt)) if (allocated(InData%LinAccETt)) then - call RegPackBounds(Buf, 2, lbound(InData%LinAccETt), ubound(InData%LinAccETt)) + call RegPackBounds(Buf, 2, lbound(InData%LinAccETt, kind=B8Ki), ubound(InData%LinAccETt, kind=B8Ki)) call RegPack(Buf, InData%LinAccETt) end if call RegPack(Buf, InData%LinAccEZt) @@ -5892,35 +5892,35 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%FrcPRott) call RegPack(Buf, allocated(InData%FrcS0Bt)) if (allocated(InData%FrcS0Bt)) then - call RegPackBounds(Buf, 2, lbound(InData%FrcS0Bt), ubound(InData%FrcS0Bt)) + call RegPackBounds(Buf, 2, lbound(InData%FrcS0Bt, kind=B8Ki), ubound(InData%FrcS0Bt, kind=B8Ki)) call RegPack(Buf, InData%FrcS0Bt) end if call RegPack(Buf, InData%FrcT0Trbt) call RegPack(Buf, allocated(InData%FSAero)) if (allocated(InData%FSAero)) then - call RegPackBounds(Buf, 3, lbound(InData%FSAero), ubound(InData%FSAero)) + call RegPackBounds(Buf, 3, lbound(InData%FSAero, kind=B8Ki), ubound(InData%FSAero, kind=B8Ki)) call RegPack(Buf, InData%FSAero) end if call RegPack(Buf, allocated(InData%FSTipDrag)) if (allocated(InData%FSTipDrag)) then - call RegPackBounds(Buf, 2, lbound(InData%FSTipDrag), ubound(InData%FSTipDrag)) + call RegPackBounds(Buf, 2, lbound(InData%FSTipDrag, kind=B8Ki), ubound(InData%FSTipDrag, kind=B8Ki)) call RegPack(Buf, InData%FSTipDrag) end if call RegPack(Buf, allocated(InData%FTHydrot)) if (allocated(InData%FTHydrot)) then - call RegPackBounds(Buf, 2, lbound(InData%FTHydrot), ubound(InData%FTHydrot)) + call RegPackBounds(Buf, 2, lbound(InData%FTHydrot, kind=B8Ki), ubound(InData%FTHydrot, kind=B8Ki)) call RegPack(Buf, InData%FTHydrot) end if call RegPack(Buf, InData%FZHydrot) call RegPack(Buf, allocated(InData%MFHydrot)) if (allocated(InData%MFHydrot)) then - call RegPackBounds(Buf, 2, lbound(InData%MFHydrot), ubound(InData%MFHydrot)) + call RegPackBounds(Buf, 2, lbound(InData%MFHydrot, kind=B8Ki), ubound(InData%MFHydrot, kind=B8Ki)) call RegPack(Buf, InData%MFHydrot) end if call RegPack(Buf, InData%MomBNcRtt) call RegPack(Buf, allocated(InData%MomH0Bt)) if (allocated(InData%MomH0Bt)) then - call RegPackBounds(Buf, 2, lbound(InData%MomH0Bt), ubound(InData%MomH0Bt)) + call RegPackBounds(Buf, 2, lbound(InData%MomH0Bt, kind=B8Ki), ubound(InData%MomH0Bt, kind=B8Ki)) call RegPack(Buf, InData%MomH0Bt) end if call RegPack(Buf, InData%MomLPRott) @@ -5929,69 +5929,69 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%MomX0Trbt) call RegPack(Buf, allocated(InData%MMAero)) if (allocated(InData%MMAero)) then - call RegPackBounds(Buf, 3, lbound(InData%MMAero), ubound(InData%MMAero)) + call RegPackBounds(Buf, 3, lbound(InData%MMAero, kind=B8Ki), ubound(InData%MMAero, kind=B8Ki)) call RegPack(Buf, InData%MMAero) end if call RegPack(Buf, InData%MXHydrot) call RegPack(Buf, allocated(InData%PFrcONcRt)) if (allocated(InData%PFrcONcRt)) then - call RegPackBounds(Buf, 2, lbound(InData%PFrcONcRt), ubound(InData%PFrcONcRt)) + call RegPackBounds(Buf, 2, lbound(InData%PFrcONcRt, kind=B8Ki), ubound(InData%PFrcONcRt, kind=B8Ki)) call RegPack(Buf, InData%PFrcONcRt) end if call RegPack(Buf, allocated(InData%PFrcPRot)) if (allocated(InData%PFrcPRot)) then - call RegPackBounds(Buf, 2, lbound(InData%PFrcPRot), ubound(InData%PFrcPRot)) + call RegPackBounds(Buf, 2, lbound(InData%PFrcPRot, kind=B8Ki), ubound(InData%PFrcPRot, kind=B8Ki)) call RegPack(Buf, InData%PFrcPRot) end if call RegPack(Buf, allocated(InData%PFrcS0B)) if (allocated(InData%PFrcS0B)) then - call RegPackBounds(Buf, 3, lbound(InData%PFrcS0B), ubound(InData%PFrcS0B)) + call RegPackBounds(Buf, 3, lbound(InData%PFrcS0B, kind=B8Ki), ubound(InData%PFrcS0B, kind=B8Ki)) call RegPack(Buf, InData%PFrcS0B) end if call RegPack(Buf, allocated(InData%PFrcT0Trb)) if (allocated(InData%PFrcT0Trb)) then - call RegPackBounds(Buf, 2, lbound(InData%PFrcT0Trb), ubound(InData%PFrcT0Trb)) + call RegPackBounds(Buf, 2, lbound(InData%PFrcT0Trb, kind=B8Ki), ubound(InData%PFrcT0Trb, kind=B8Ki)) call RegPack(Buf, InData%PFrcT0Trb) end if call RegPack(Buf, allocated(InData%PFTHydro)) if (allocated(InData%PFTHydro)) then - call RegPackBounds(Buf, 3, lbound(InData%PFTHydro), ubound(InData%PFTHydro)) + call RegPackBounds(Buf, 3, lbound(InData%PFTHydro, kind=B8Ki), ubound(InData%PFTHydro, kind=B8Ki)) call RegPack(Buf, InData%PFTHydro) end if call RegPack(Buf, InData%PFZHydro) call RegPack(Buf, allocated(InData%PMFHydro)) if (allocated(InData%PMFHydro)) then - call RegPackBounds(Buf, 3, lbound(InData%PMFHydro), ubound(InData%PMFHydro)) + call RegPackBounds(Buf, 3, lbound(InData%PMFHydro, kind=B8Ki), ubound(InData%PMFHydro, kind=B8Ki)) call RegPack(Buf, InData%PMFHydro) end if call RegPack(Buf, allocated(InData%PMomBNcRt)) if (allocated(InData%PMomBNcRt)) then - call RegPackBounds(Buf, 2, lbound(InData%PMomBNcRt), ubound(InData%PMomBNcRt)) + call RegPackBounds(Buf, 2, lbound(InData%PMomBNcRt, kind=B8Ki), ubound(InData%PMomBNcRt, kind=B8Ki)) call RegPack(Buf, InData%PMomBNcRt) end if call RegPack(Buf, allocated(InData%PMomH0B)) if (allocated(InData%PMomH0B)) then - call RegPackBounds(Buf, 3, lbound(InData%PMomH0B), ubound(InData%PMomH0B)) + call RegPackBounds(Buf, 3, lbound(InData%PMomH0B, kind=B8Ki), ubound(InData%PMomH0B, kind=B8Ki)) call RegPack(Buf, InData%PMomH0B) end if call RegPack(Buf, allocated(InData%PMomLPRot)) if (allocated(InData%PMomLPRot)) then - call RegPackBounds(Buf, 2, lbound(InData%PMomLPRot), ubound(InData%PMomLPRot)) + call RegPackBounds(Buf, 2, lbound(InData%PMomLPRot, kind=B8Ki), ubound(InData%PMomLPRot, kind=B8Ki)) call RegPack(Buf, InData%PMomLPRot) end if call RegPack(Buf, allocated(InData%PMomNGnRt)) if (allocated(InData%PMomNGnRt)) then - call RegPackBounds(Buf, 2, lbound(InData%PMomNGnRt), ubound(InData%PMomNGnRt)) + call RegPackBounds(Buf, 2, lbound(InData%PMomNGnRt, kind=B8Ki), ubound(InData%PMomNGnRt, kind=B8Ki)) call RegPack(Buf, InData%PMomNGnRt) end if call RegPack(Buf, allocated(InData%PMomNTail)) if (allocated(InData%PMomNTail)) then - call RegPackBounds(Buf, 2, lbound(InData%PMomNTail), ubound(InData%PMomNTail)) + call RegPackBounds(Buf, 2, lbound(InData%PMomNTail, kind=B8Ki), ubound(InData%PMomNTail, kind=B8Ki)) call RegPack(Buf, InData%PMomNTail) end if call RegPack(Buf, allocated(InData%PMomX0Trb)) if (allocated(InData%PMomX0Trb)) then - call RegPackBounds(Buf, 2, lbound(InData%PMomX0Trb), ubound(InData%PMomX0Trb)) + call RegPackBounds(Buf, 2, lbound(InData%PMomX0Trb, kind=B8Ki), ubound(InData%PMomX0Trb, kind=B8Ki)) call RegPack(Buf, InData%PMomX0Trb) end if call RegPack(Buf, InData%PMXHydro) @@ -6002,22 +6002,22 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%MomXAllt) call RegPack(Buf, allocated(InData%PFrcVGnRt)) if (allocated(InData%PFrcVGnRt)) then - call RegPackBounds(Buf, 2, lbound(InData%PFrcVGnRt), ubound(InData%PFrcVGnRt)) + call RegPackBounds(Buf, 2, lbound(InData%PFrcVGnRt, kind=B8Ki), ubound(InData%PFrcVGnRt, kind=B8Ki)) call RegPack(Buf, InData%PFrcVGnRt) end if call RegPack(Buf, allocated(InData%PFrcWTail)) if (allocated(InData%PFrcWTail)) then - call RegPackBounds(Buf, 2, lbound(InData%PFrcWTail), ubound(InData%PFrcWTail)) + call RegPackBounds(Buf, 2, lbound(InData%PFrcWTail, kind=B8Ki), ubound(InData%PFrcWTail, kind=B8Ki)) call RegPack(Buf, InData%PFrcWTail) end if call RegPack(Buf, allocated(InData%PFrcZAll)) if (allocated(InData%PFrcZAll)) then - call RegPackBounds(Buf, 2, lbound(InData%PFrcZAll), ubound(InData%PFrcZAll)) + call RegPackBounds(Buf, 2, lbound(InData%PFrcZAll, kind=B8Ki), ubound(InData%PFrcZAll, kind=B8Ki)) call RegPack(Buf, InData%PFrcZAll) end if call RegPack(Buf, allocated(InData%PMomXAll)) if (allocated(InData%PMomXAll)) then - call RegPackBounds(Buf, 2, lbound(InData%PMomXAll), ubound(InData%PMomXAll)) + call RegPackBounds(Buf, 2, lbound(InData%PMomXAll, kind=B8Ki), ubound(InData%PMomXAll, kind=B8Ki)) call RegPack(Buf, InData%PMomXAll) end if call RegPack(Buf, InData%TeetMom) @@ -6026,7 +6026,7 @@ subroutine ED_PackRtHndSide(Buf, Indata) call RegPack(Buf, InData%GBoxEffFac) call RegPack(Buf, allocated(InData%rSAerCen)) if (allocated(InData%rSAerCen)) then - call RegPackBounds(Buf, 3, lbound(InData%rSAerCen), ubound(InData%rSAerCen)) + call RegPackBounds(Buf, 3, lbound(InData%rSAerCen, kind=B8Ki), ubound(InData%rSAerCen, kind=B8Ki)) call RegPack(Buf, InData%rSAerCen) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6036,7 +6036,7 @@ subroutine ED_UnPackRtHndSide(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_RtHndSide), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackRtHndSide' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7162,14 +7162,14 @@ subroutine ED_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%QT)) then - LB(1:1) = lbound(SrcContStateData%QT) - UB(1:1) = ubound(SrcContStateData%QT) + LB(1:1) = lbound(SrcContStateData%QT, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%QT, kind=B8Ki) if (.not. allocated(DstContStateData%QT)) then allocate(DstContStateData%QT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7180,8 +7180,8 @@ subroutine ED_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta DstContStateData%QT = SrcContStateData%QT end if if (allocated(SrcContStateData%QDT)) then - LB(1:1) = lbound(SrcContStateData%QDT) - UB(1:1) = ubound(SrcContStateData%QDT) + LB(1:1) = lbound(SrcContStateData%QDT, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%QDT, kind=B8Ki) if (.not. allocated(DstContStateData%QDT)) then allocate(DstContStateData%QDT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7215,12 +7215,12 @@ subroutine ED_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%QT)) if (allocated(InData%QT)) then - call RegPackBounds(Buf, 1, lbound(InData%QT), ubound(InData%QT)) + call RegPackBounds(Buf, 1, lbound(InData%QT, kind=B8Ki), ubound(InData%QT, kind=B8Ki)) call RegPack(Buf, InData%QT) end if call RegPack(Buf, allocated(InData%QDT)) if (allocated(InData%QDT)) then - call RegPackBounds(Buf, 1, lbound(InData%QDT), ubound(InData%QDT)) + call RegPackBounds(Buf, 1, lbound(InData%QDT, kind=B8Ki), ubound(InData%QDT, kind=B8Ki)) call RegPack(Buf, InData%QDT) end if if (RegCheckErr(Buf, RoutineName)) return @@ -7230,7 +7230,7 @@ subroutine ED_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackContState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7348,24 +7348,24 @@ subroutine ED_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' DstOtherStateData%n = SrcOtherStateData%n - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call ED_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do if (allocated(SrcOtherStateData%IC)) then - LB(1:1) = lbound(SrcOtherStateData%IC) - UB(1:1) = ubound(SrcOtherStateData%IC) + LB(1:1) = lbound(SrcOtherStateData%IC, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%IC, kind=B8Ki) if (.not. allocated(DstOtherStateData%IC)) then allocate(DstOtherStateData%IC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7385,15 +7385,15 @@ subroutine ED_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(ED_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7407,18 +7407,18 @@ subroutine ED_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ED_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%n) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackContState(Buf, InData%xdot(i1)) end do call RegPack(Buf, allocated(InData%IC)) if (allocated(InData%IC)) then - call RegPackBounds(Buf, 1, lbound(InData%IC), ubound(InData%IC)) + call RegPackBounds(Buf, 1, lbound(InData%IC, kind=B8Ki), ubound(InData%IC, kind=B8Ki)) call RegPack(Buf, InData%IC) end if call RegPack(Buf, InData%HSSBrTrq) @@ -7432,15 +7432,15 @@ subroutine ED_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%n) if (RegCheckErr(Buf, RoutineName)) return - LB(1:1) = lbound(OutData%xdot) - UB(1:1) = ubound(OutData%xdot) + LB(1:1) = lbound(OutData%xdot, kind=B8Ki) + UB(1:1) = ubound(OutData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call ED_UnpackContState(Buf, OutData%xdot(i1)) ! xdot end do @@ -7474,7 +7474,7 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyMisc' @@ -7487,8 +7487,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7499,8 +7499,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AllOuts = SrcMiscData%AllOuts end if if (allocated(SrcMiscData%AugMat)) then - LB(1:2) = lbound(SrcMiscData%AugMat) - UB(1:2) = ubound(SrcMiscData%AugMat) + LB(1:2) = lbound(SrcMiscData%AugMat, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%AugMat, kind=B8Ki) if (.not. allocated(DstMiscData%AugMat)) then allocate(DstMiscData%AugMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7511,8 +7511,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AugMat = SrcMiscData%AugMat end if if (allocated(SrcMiscData%AugMat_factor)) then - LB(1:2) = lbound(SrcMiscData%AugMat_factor) - UB(1:2) = ubound(SrcMiscData%AugMat_factor) + LB(1:2) = lbound(SrcMiscData%AugMat_factor, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%AugMat_factor, kind=B8Ki) if (.not. allocated(DstMiscData%AugMat_factor)) then allocate(DstMiscData%AugMat_factor(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7523,8 +7523,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AugMat_factor = SrcMiscData%AugMat_factor end if if (allocated(SrcMiscData%SolnVec)) then - LB(1:1) = lbound(SrcMiscData%SolnVec) - UB(1:1) = ubound(SrcMiscData%SolnVec) + LB(1:1) = lbound(SrcMiscData%SolnVec, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SolnVec, kind=B8Ki) if (.not. allocated(DstMiscData%SolnVec)) then allocate(DstMiscData%SolnVec(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7535,8 +7535,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SolnVec = SrcMiscData%SolnVec end if if (allocated(SrcMiscData%AugMat_pivot)) then - LB(1:1) = lbound(SrcMiscData%AugMat_pivot) - UB(1:1) = ubound(SrcMiscData%AugMat_pivot) + LB(1:1) = lbound(SrcMiscData%AugMat_pivot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AugMat_pivot, kind=B8Ki) if (.not. allocated(DstMiscData%AugMat_pivot)) then allocate(DstMiscData%AugMat_pivot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7547,8 +7547,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%AugMat_pivot = SrcMiscData%AugMat_pivot end if if (allocated(SrcMiscData%OgnlGeAzRo)) then - LB(1:1) = lbound(SrcMiscData%OgnlGeAzRo) - UB(1:1) = ubound(SrcMiscData%OgnlGeAzRo) + LB(1:1) = lbound(SrcMiscData%OgnlGeAzRo, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%OgnlGeAzRo, kind=B8Ki) if (.not. allocated(DstMiscData%OgnlGeAzRo)) then allocate(DstMiscData%OgnlGeAzRo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7559,8 +7559,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%OgnlGeAzRo = SrcMiscData%OgnlGeAzRo end if if (allocated(SrcMiscData%QD2T)) then - LB(1:1) = lbound(SrcMiscData%QD2T) - UB(1:1) = ubound(SrcMiscData%QD2T) + LB(1:1) = lbound(SrcMiscData%QD2T, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%QD2T, kind=B8Ki) if (.not. allocated(DstMiscData%QD2T)) then allocate(DstMiscData%QD2T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7618,37 +7618,37 @@ subroutine ED_PackMisc(Buf, Indata) call ED_PackRtHndSide(Buf, InData%RtHS) call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, allocated(InData%AugMat)) if (allocated(InData%AugMat)) then - call RegPackBounds(Buf, 2, lbound(InData%AugMat), ubound(InData%AugMat)) + call RegPackBounds(Buf, 2, lbound(InData%AugMat, kind=B8Ki), ubound(InData%AugMat, kind=B8Ki)) call RegPack(Buf, InData%AugMat) end if call RegPack(Buf, allocated(InData%AugMat_factor)) if (allocated(InData%AugMat_factor)) then - call RegPackBounds(Buf, 2, lbound(InData%AugMat_factor), ubound(InData%AugMat_factor)) + call RegPackBounds(Buf, 2, lbound(InData%AugMat_factor, kind=B8Ki), ubound(InData%AugMat_factor, kind=B8Ki)) call RegPack(Buf, InData%AugMat_factor) end if call RegPack(Buf, allocated(InData%SolnVec)) if (allocated(InData%SolnVec)) then - call RegPackBounds(Buf, 1, lbound(InData%SolnVec), ubound(InData%SolnVec)) + call RegPackBounds(Buf, 1, lbound(InData%SolnVec, kind=B8Ki), ubound(InData%SolnVec, kind=B8Ki)) call RegPack(Buf, InData%SolnVec) end if call RegPack(Buf, allocated(InData%AugMat_pivot)) if (allocated(InData%AugMat_pivot)) then - call RegPackBounds(Buf, 1, lbound(InData%AugMat_pivot), ubound(InData%AugMat_pivot)) + call RegPackBounds(Buf, 1, lbound(InData%AugMat_pivot, kind=B8Ki), ubound(InData%AugMat_pivot, kind=B8Ki)) call RegPack(Buf, InData%AugMat_pivot) end if call RegPack(Buf, allocated(InData%OgnlGeAzRo)) if (allocated(InData%OgnlGeAzRo)) then - call RegPackBounds(Buf, 1, lbound(InData%OgnlGeAzRo), ubound(InData%OgnlGeAzRo)) + call RegPackBounds(Buf, 1, lbound(InData%OgnlGeAzRo, kind=B8Ki), ubound(InData%OgnlGeAzRo, kind=B8Ki)) call RegPack(Buf, InData%OgnlGeAzRo) end if call RegPack(Buf, allocated(InData%QD2T)) if (allocated(InData%QD2T)) then - call RegPackBounds(Buf, 1, lbound(InData%QD2T), ubound(InData%QD2T)) + call RegPackBounds(Buf, 1, lbound(InData%QD2T, kind=B8Ki), ubound(InData%QD2T, kind=B8Ki)) call RegPack(Buf, InData%QD2T) end if call RegPack(Buf, InData%IgnoreMod) @@ -7659,7 +7659,7 @@ subroutine ED_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackMisc' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7773,8 +7773,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4, i5 - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: i1, i2, i3, i4, i5 + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyParam' @@ -7789,8 +7789,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NAug = SrcParamData%NAug DstParamData%NPH = SrcParamData%NPH if (allocated(SrcParamData%PH)) then - LB(1:1) = lbound(SrcParamData%PH) - UB(1:1) = ubound(SrcParamData%PH) + LB(1:1) = lbound(SrcParamData%PH, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%PH, kind=B8Ki) if (.not. allocated(DstParamData%PH)) then allocate(DstParamData%PH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7802,8 +7802,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NPM = SrcParamData%NPM if (allocated(SrcParamData%PM)) then - LB(1:2) = lbound(SrcParamData%PM) - UB(1:2) = ubound(SrcParamData%PM) + LB(1:2) = lbound(SrcParamData%PM, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PM, kind=B8Ki) if (.not. allocated(DstParamData%PM)) then allocate(DstParamData%PM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7814,8 +7814,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PM = SrcParamData%PM end if if (allocated(SrcParamData%DOF_Flag)) then - LB(1:1) = lbound(SrcParamData%DOF_Flag) - UB(1:1) = ubound(SrcParamData%DOF_Flag) + LB(1:1) = lbound(SrcParamData%DOF_Flag, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DOF_Flag, kind=B8Ki) if (.not. allocated(DstParamData%DOF_Flag)) then allocate(DstParamData%DOF_Flag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7826,8 +7826,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DOF_Flag = SrcParamData%DOF_Flag end if if (allocated(SrcParamData%DOF_Desc)) then - LB(1:1) = lbound(SrcParamData%DOF_Desc) - UB(1:1) = ubound(SrcParamData%DOF_Desc) + LB(1:1) = lbound(SrcParamData%DOF_Desc, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DOF_Desc, kind=B8Ki) if (.not. allocated(DstParamData%DOF_Desc)) then allocate(DstParamData%DOF_Desc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7845,8 +7845,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NBlGages = SrcParamData%NBlGages DstParamData%NTwGages = SrcParamData%NTwGages if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7865,8 +7865,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AzimB1Up = SrcParamData%AzimB1Up DstParamData%CosDel3 = SrcParamData%CosDel3 if (allocated(SrcParamData%CosPreC)) then - LB(1:1) = lbound(SrcParamData%CosPreC) - UB(1:1) = ubound(SrcParamData%CosPreC) + LB(1:1) = lbound(SrcParamData%CosPreC, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%CosPreC, kind=B8Ki) if (.not. allocated(DstParamData%CosPreC)) then allocate(DstParamData%CosPreC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7920,8 +7920,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rZYzt = SrcParamData%rZYzt DstParamData%SinDel3 = SrcParamData%SinDel3 if (allocated(SrcParamData%SinPreC)) then - LB(1:1) = lbound(SrcParamData%SinPreC) - UB(1:1) = ubound(SrcParamData%SinPreC) + LB(1:1) = lbound(SrcParamData%SinPreC, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%SinPreC, kind=B8Ki) if (.not. allocated(DstParamData%SinPreC)) then allocate(DstParamData%SinPreC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7948,8 +7948,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%UndSling = SrcParamData%UndSling DstParamData%NumBl = SrcParamData%NumBl if (allocated(SrcParamData%AxRedTFA)) then - LB(1:3) = lbound(SrcParamData%AxRedTFA) - UB(1:3) = ubound(SrcParamData%AxRedTFA) + LB(1:3) = lbound(SrcParamData%AxRedTFA, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AxRedTFA, kind=B8Ki) if (.not. allocated(DstParamData%AxRedTFA)) then allocate(DstParamData%AxRedTFA(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7960,8 +7960,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AxRedTFA = SrcParamData%AxRedTFA end if if (allocated(SrcParamData%AxRedTSS)) then - LB(1:3) = lbound(SrcParamData%AxRedTSS) - UB(1:3) = ubound(SrcParamData%AxRedTSS) + LB(1:3) = lbound(SrcParamData%AxRedTSS, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AxRedTSS, kind=B8Ki) if (.not. allocated(DstParamData%AxRedTSS)) then allocate(DstParamData%AxRedTSS(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7974,8 +7974,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CTFA = SrcParamData%CTFA DstParamData%CTSS = SrcParamData%CTSS if (allocated(SrcParamData%DHNodes)) then - LB(1:1) = lbound(SrcParamData%DHNodes) - UB(1:1) = ubound(SrcParamData%DHNodes) + LB(1:1) = lbound(SrcParamData%DHNodes, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DHNodes, kind=B8Ki) if (.not. allocated(DstParamData%DHNodes)) then allocate(DstParamData%DHNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7986,8 +7986,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DHNodes = SrcParamData%DHNodes end if if (allocated(SrcParamData%HNodes)) then - LB(1:1) = lbound(SrcParamData%HNodes) - UB(1:1) = ubound(SrcParamData%HNodes) + LB(1:1) = lbound(SrcParamData%HNodes, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%HNodes, kind=B8Ki) if (.not. allocated(DstParamData%HNodes)) then allocate(DstParamData%HNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7998,8 +7998,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%HNodes = SrcParamData%HNodes end if if (allocated(SrcParamData%HNodesNorm)) then - LB(1:1) = lbound(SrcParamData%HNodesNorm) - UB(1:1) = ubound(SrcParamData%HNodesNorm) + LB(1:1) = lbound(SrcParamData%HNodesNorm, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%HNodesNorm, kind=B8Ki) if (.not. allocated(DstParamData%HNodesNorm)) then allocate(DstParamData%HNodesNorm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8012,8 +8012,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KTFA = SrcParamData%KTFA DstParamData%KTSS = SrcParamData%KTSS if (allocated(SrcParamData%MassT)) then - LB(1:1) = lbound(SrcParamData%MassT) - UB(1:1) = ubound(SrcParamData%MassT) + LB(1:1) = lbound(SrcParamData%MassT, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%MassT, kind=B8Ki) if (.not. allocated(DstParamData%MassT)) then allocate(DstParamData%MassT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8024,8 +8024,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MassT = SrcParamData%MassT end if if (allocated(SrcParamData%StiffTSS)) then - LB(1:1) = lbound(SrcParamData%StiffTSS) - UB(1:1) = ubound(SrcParamData%StiffTSS) + LB(1:1) = lbound(SrcParamData%StiffTSS, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%StiffTSS, kind=B8Ki) if (.not. allocated(DstParamData%StiffTSS)) then allocate(DstParamData%StiffTSS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8036,8 +8036,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%StiffTSS = SrcParamData%StiffTSS end if if (allocated(SrcParamData%TwrFASF)) then - LB(1:3) = lbound(SrcParamData%TwrFASF) - UB(1:3) = ubound(SrcParamData%TwrFASF) + LB(1:3) = lbound(SrcParamData%TwrFASF, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%TwrFASF, kind=B8Ki) if (.not. allocated(DstParamData%TwrFASF)) then allocate(DstParamData%TwrFASF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8049,8 +8049,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%TwrFlexL = SrcParamData%TwrFlexL if (allocated(SrcParamData%TwrSSSF)) then - LB(1:3) = lbound(SrcParamData%TwrSSSF) - UB(1:3) = ubound(SrcParamData%TwrSSSF) + LB(1:3) = lbound(SrcParamData%TwrSSSF, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%TwrSSSF, kind=B8Ki) if (.not. allocated(DstParamData%TwrSSSF)) then allocate(DstParamData%TwrSSSF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8064,8 +8064,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TwrNodes = SrcParamData%TwrNodes DstParamData%MHK = SrcParamData%MHK if (allocated(SrcParamData%StiffTFA)) then - LB(1:1) = lbound(SrcParamData%StiffTFA) - UB(1:1) = ubound(SrcParamData%StiffTFA) + LB(1:1) = lbound(SrcParamData%StiffTFA, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%StiffTFA, kind=B8Ki) if (.not. allocated(DstParamData%StiffTFA)) then allocate(DstParamData%StiffTFA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8077,8 +8077,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%AtfaIner = SrcParamData%AtfaIner if (allocated(SrcParamData%BldCG)) then - LB(1:1) = lbound(SrcParamData%BldCG) - UB(1:1) = ubound(SrcParamData%BldCG) + LB(1:1) = lbound(SrcParamData%BldCG, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BldCG, kind=B8Ki) if (.not. allocated(DstParamData%BldCG)) then allocate(DstParamData%BldCG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8089,8 +8089,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldCG = SrcParamData%BldCG end if if (allocated(SrcParamData%BldMass)) then - LB(1:1) = lbound(SrcParamData%BldMass) - UB(1:1) = ubound(SrcParamData%BldMass) + LB(1:1) = lbound(SrcParamData%BldMass, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BldMass, kind=B8Ki) if (.not. allocated(DstParamData%BldMass)) then allocate(DstParamData%BldMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8102,8 +8102,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%BoomMass = SrcParamData%BoomMass if (allocated(SrcParamData%FirstMom)) then - LB(1:1) = lbound(SrcParamData%FirstMom) - UB(1:1) = ubound(SrcParamData%FirstMom) + LB(1:1) = lbound(SrcParamData%FirstMom, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FirstMom, kind=B8Ki) if (.not. allocated(DstParamData%FirstMom)) then allocate(DstParamData%FirstMom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8128,8 +8128,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%RotMass = SrcParamData%RotMass DstParamData%RrfaIner = SrcParamData%RrfaIner if (allocated(SrcParamData%SecondMom)) then - LB(1:1) = lbound(SrcParamData%SecondMom) - UB(1:1) = ubound(SrcParamData%SecondMom) + LB(1:1) = lbound(SrcParamData%SecondMom, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%SecondMom, kind=B8Ki) if (.not. allocated(DstParamData%SecondMom)) then allocate(DstParamData%SecondMom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8142,8 +8142,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TFinMass = SrcParamData%TFinMass DstParamData%TFrlIner = SrcParamData%TFrlIner if (allocated(SrcParamData%TipMass)) then - LB(1:1) = lbound(SrcParamData%TipMass) - UB(1:1) = ubound(SrcParamData%TipMass) + LB(1:1) = lbound(SrcParamData%TipMass, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%TipMass, kind=B8Ki) if (.not. allocated(DstParamData%TipMass)) then allocate(DstParamData%TipMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8159,8 +8159,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%YawBrMass = SrcParamData%YawBrMass DstParamData%Gravity = SrcParamData%Gravity if (allocated(SrcParamData%PitchAxis)) then - LB(1:2) = lbound(SrcParamData%PitchAxis) - UB(1:2) = ubound(SrcParamData%PitchAxis) + LB(1:2) = lbound(SrcParamData%PitchAxis, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PitchAxis, kind=B8Ki) if (.not. allocated(DstParamData%PitchAxis)) then allocate(DstParamData%PitchAxis(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8171,8 +8171,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PitchAxis = SrcParamData%PitchAxis end if if (allocated(SrcParamData%AeroTwst)) then - LB(1:1) = lbound(SrcParamData%AeroTwst) - UB(1:1) = ubound(SrcParamData%AeroTwst) + LB(1:1) = lbound(SrcParamData%AeroTwst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%AeroTwst, kind=B8Ki) if (.not. allocated(DstParamData%AeroTwst)) then allocate(DstParamData%AeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8183,8 +8183,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AeroTwst = SrcParamData%AeroTwst end if if (allocated(SrcParamData%AxRedBld)) then - LB(1:4) = lbound(SrcParamData%AxRedBld) - UB(1:4) = ubound(SrcParamData%AxRedBld) + LB(1:4) = lbound(SrcParamData%AxRedBld, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%AxRedBld, kind=B8Ki) if (.not. allocated(DstParamData%AxRedBld)) then allocate(DstParamData%AxRedBld(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8195,8 +8195,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AxRedBld = SrcParamData%AxRedBld end if if (allocated(SrcParamData%BldEDamp)) then - LB(1:2) = lbound(SrcParamData%BldEDamp) - UB(1:2) = ubound(SrcParamData%BldEDamp) + LB(1:2) = lbound(SrcParamData%BldEDamp, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BldEDamp, kind=B8Ki) if (.not. allocated(DstParamData%BldEDamp)) then allocate(DstParamData%BldEDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8207,8 +8207,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldEDamp = SrcParamData%BldEDamp end if if (allocated(SrcParamData%BldFDamp)) then - LB(1:2) = lbound(SrcParamData%BldFDamp) - UB(1:2) = ubound(SrcParamData%BldFDamp) + LB(1:2) = lbound(SrcParamData%BldFDamp, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BldFDamp, kind=B8Ki) if (.not. allocated(DstParamData%BldFDamp)) then allocate(DstParamData%BldFDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8220,8 +8220,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%BldFlexL = SrcParamData%BldFlexL if (allocated(SrcParamData%CAeroTwst)) then - LB(1:1) = lbound(SrcParamData%CAeroTwst) - UB(1:1) = ubound(SrcParamData%CAeroTwst) + LB(1:1) = lbound(SrcParamData%CAeroTwst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%CAeroTwst, kind=B8Ki) if (.not. allocated(DstParamData%CAeroTwst)) then allocate(DstParamData%CAeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8232,8 +8232,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CAeroTwst = SrcParamData%CAeroTwst end if if (allocated(SrcParamData%CBE)) then - LB(1:3) = lbound(SrcParamData%CBE) - UB(1:3) = ubound(SrcParamData%CBE) + LB(1:3) = lbound(SrcParamData%CBE, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%CBE, kind=B8Ki) if (.not. allocated(DstParamData%CBE)) then allocate(DstParamData%CBE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8244,8 +8244,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CBE = SrcParamData%CBE end if if (allocated(SrcParamData%CBF)) then - LB(1:3) = lbound(SrcParamData%CBF) - UB(1:3) = ubound(SrcParamData%CBF) + LB(1:3) = lbound(SrcParamData%CBF, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%CBF, kind=B8Ki) if (.not. allocated(DstParamData%CBF)) then allocate(DstParamData%CBF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8256,8 +8256,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CBF = SrcParamData%CBF end if if (allocated(SrcParamData%Chord)) then - LB(1:1) = lbound(SrcParamData%Chord) - UB(1:1) = ubound(SrcParamData%Chord) + LB(1:1) = lbound(SrcParamData%Chord, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Chord, kind=B8Ki) if (.not. allocated(DstParamData%Chord)) then allocate(DstParamData%Chord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8268,8 +8268,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Chord = SrcParamData%Chord end if if (allocated(SrcParamData%CThetaS)) then - LB(1:2) = lbound(SrcParamData%CThetaS) - UB(1:2) = ubound(SrcParamData%CThetaS) + LB(1:2) = lbound(SrcParamData%CThetaS, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%CThetaS, kind=B8Ki) if (.not. allocated(DstParamData%CThetaS)) then allocate(DstParamData%CThetaS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8280,8 +8280,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CThetaS = SrcParamData%CThetaS end if if (allocated(SrcParamData%DRNodes)) then - LB(1:1) = lbound(SrcParamData%DRNodes) - UB(1:1) = ubound(SrcParamData%DRNodes) + LB(1:1) = lbound(SrcParamData%DRNodes, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DRNodes, kind=B8Ki) if (.not. allocated(DstParamData%DRNodes)) then allocate(DstParamData%DRNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8292,8 +8292,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DRNodes = SrcParamData%DRNodes end if if (allocated(SrcParamData%FStTunr)) then - LB(1:2) = lbound(SrcParamData%FStTunr) - UB(1:2) = ubound(SrcParamData%FStTunr) + LB(1:2) = lbound(SrcParamData%FStTunr, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%FStTunr, kind=B8Ki) if (.not. allocated(DstParamData%FStTunr)) then allocate(DstParamData%FStTunr(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8304,8 +8304,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%FStTunr = SrcParamData%FStTunr end if if (allocated(SrcParamData%KBE)) then - LB(1:3) = lbound(SrcParamData%KBE) - UB(1:3) = ubound(SrcParamData%KBE) + LB(1:3) = lbound(SrcParamData%KBE, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%KBE, kind=B8Ki) if (.not. allocated(DstParamData%KBE)) then allocate(DstParamData%KBE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8316,8 +8316,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KBE = SrcParamData%KBE end if if (allocated(SrcParamData%KBF)) then - LB(1:3) = lbound(SrcParamData%KBF) - UB(1:3) = ubound(SrcParamData%KBF) + LB(1:3) = lbound(SrcParamData%KBF, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%KBF, kind=B8Ki) if (.not. allocated(DstParamData%KBF)) then allocate(DstParamData%KBF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8328,8 +8328,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KBF = SrcParamData%KBF end if if (allocated(SrcParamData%MassB)) then - LB(1:2) = lbound(SrcParamData%MassB) - UB(1:2) = ubound(SrcParamData%MassB) + LB(1:2) = lbound(SrcParamData%MassB, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%MassB, kind=B8Ki) if (.not. allocated(DstParamData%MassB)) then allocate(DstParamData%MassB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8340,8 +8340,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MassB = SrcParamData%MassB end if if (allocated(SrcParamData%RNodes)) then - LB(1:1) = lbound(SrcParamData%RNodes) - UB(1:1) = ubound(SrcParamData%RNodes) + LB(1:1) = lbound(SrcParamData%RNodes, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%RNodes, kind=B8Ki) if (.not. allocated(DstParamData%RNodes)) then allocate(DstParamData%RNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8352,8 +8352,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%RNodes = SrcParamData%RNodes end if if (allocated(SrcParamData%RNodesNorm)) then - LB(1:1) = lbound(SrcParamData%RNodesNorm) - UB(1:1) = ubound(SrcParamData%RNodesNorm) + LB(1:1) = lbound(SrcParamData%RNodesNorm, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%RNodesNorm, kind=B8Ki) if (.not. allocated(DstParamData%RNodesNorm)) then allocate(DstParamData%RNodesNorm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8364,8 +8364,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%RNodesNorm = SrcParamData%RNodesNorm end if if (allocated(SrcParamData%rSAerCenn1)) then - LB(1:2) = lbound(SrcParamData%rSAerCenn1) - UB(1:2) = ubound(SrcParamData%rSAerCenn1) + LB(1:2) = lbound(SrcParamData%rSAerCenn1, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%rSAerCenn1, kind=B8Ki) if (.not. allocated(DstParamData%rSAerCenn1)) then allocate(DstParamData%rSAerCenn1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8376,8 +8376,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rSAerCenn1 = SrcParamData%rSAerCenn1 end if if (allocated(SrcParamData%rSAerCenn2)) then - LB(1:2) = lbound(SrcParamData%rSAerCenn2) - UB(1:2) = ubound(SrcParamData%rSAerCenn2) + LB(1:2) = lbound(SrcParamData%rSAerCenn2, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%rSAerCenn2, kind=B8Ki) if (.not. allocated(DstParamData%rSAerCenn2)) then allocate(DstParamData%rSAerCenn2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8388,8 +8388,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rSAerCenn2 = SrcParamData%rSAerCenn2 end if if (allocated(SrcParamData%SAeroTwst)) then - LB(1:1) = lbound(SrcParamData%SAeroTwst) - UB(1:1) = ubound(SrcParamData%SAeroTwst) + LB(1:1) = lbound(SrcParamData%SAeroTwst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%SAeroTwst, kind=B8Ki) if (.not. allocated(DstParamData%SAeroTwst)) then allocate(DstParamData%SAeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8400,8 +8400,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%SAeroTwst = SrcParamData%SAeroTwst end if if (allocated(SrcParamData%StiffBE)) then - LB(1:2) = lbound(SrcParamData%StiffBE) - UB(1:2) = ubound(SrcParamData%StiffBE) + LB(1:2) = lbound(SrcParamData%StiffBE, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%StiffBE, kind=B8Ki) if (.not. allocated(DstParamData%StiffBE)) then allocate(DstParamData%StiffBE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8412,8 +8412,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%StiffBE = SrcParamData%StiffBE end if if (allocated(SrcParamData%StiffBF)) then - LB(1:2) = lbound(SrcParamData%StiffBF) - UB(1:2) = ubound(SrcParamData%StiffBF) + LB(1:2) = lbound(SrcParamData%StiffBF, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%StiffBF, kind=B8Ki) if (.not. allocated(DstParamData%StiffBF)) then allocate(DstParamData%StiffBF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8424,8 +8424,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%StiffBF = SrcParamData%StiffBF end if if (allocated(SrcParamData%SThetaS)) then - LB(1:2) = lbound(SrcParamData%SThetaS) - UB(1:2) = ubound(SrcParamData%SThetaS) + LB(1:2) = lbound(SrcParamData%SThetaS, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%SThetaS, kind=B8Ki) if (.not. allocated(DstParamData%SThetaS)) then allocate(DstParamData%SThetaS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8436,8 +8436,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%SThetaS = SrcParamData%SThetaS end if if (allocated(SrcParamData%ThetaS)) then - LB(1:2) = lbound(SrcParamData%ThetaS) - UB(1:2) = ubound(SrcParamData%ThetaS) + LB(1:2) = lbound(SrcParamData%ThetaS, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%ThetaS, kind=B8Ki) if (.not. allocated(DstParamData%ThetaS)) then allocate(DstParamData%ThetaS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8448,8 +8448,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ThetaS = SrcParamData%ThetaS end if if (allocated(SrcParamData%TwistedSF)) then - LB(1:5) = lbound(SrcParamData%TwistedSF) - UB(1:5) = ubound(SrcParamData%TwistedSF) + LB(1:5) = lbound(SrcParamData%TwistedSF, kind=B8Ki) + UB(1:5) = ubound(SrcParamData%TwistedSF, kind=B8Ki) if (.not. allocated(DstParamData%TwistedSF)) then allocate(DstParamData%TwistedSF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8460,8 +8460,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TwistedSF = SrcParamData%TwistedSF end if if (allocated(SrcParamData%BldFl1Sh)) then - LB(1:2) = lbound(SrcParamData%BldFl1Sh) - UB(1:2) = ubound(SrcParamData%BldFl1Sh) + LB(1:2) = lbound(SrcParamData%BldFl1Sh, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BldFl1Sh, kind=B8Ki) if (.not. allocated(DstParamData%BldFl1Sh)) then allocate(DstParamData%BldFl1Sh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8472,8 +8472,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldFl1Sh = SrcParamData%BldFl1Sh end if if (allocated(SrcParamData%BldFl2Sh)) then - LB(1:2) = lbound(SrcParamData%BldFl2Sh) - UB(1:2) = ubound(SrcParamData%BldFl2Sh) + LB(1:2) = lbound(SrcParamData%BldFl2Sh, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BldFl2Sh, kind=B8Ki) if (.not. allocated(DstParamData%BldFl2Sh)) then allocate(DstParamData%BldFl2Sh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8484,8 +8484,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldFl2Sh = SrcParamData%BldFl2Sh end if if (allocated(SrcParamData%BldEdgSh)) then - LB(1:2) = lbound(SrcParamData%BldEdgSh) - UB(1:2) = ubound(SrcParamData%BldEdgSh) + LB(1:2) = lbound(SrcParamData%BldEdgSh, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BldEdgSh, kind=B8Ki) if (.not. allocated(DstParamData%BldEdgSh)) then allocate(DstParamData%BldEdgSh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8496,8 +8496,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldEdgSh = SrcParamData%BldEdgSh end if if (allocated(SrcParamData%FreqBE)) then - LB(1:3) = lbound(SrcParamData%FreqBE) - UB(1:3) = ubound(SrcParamData%FreqBE) + LB(1:3) = lbound(SrcParamData%FreqBE, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%FreqBE, kind=B8Ki) if (.not. allocated(DstParamData%FreqBE)) then allocate(DstParamData%FreqBE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8508,8 +8508,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%FreqBE = SrcParamData%FreqBE end if if (allocated(SrcParamData%FreqBF)) then - LB(1:3) = lbound(SrcParamData%FreqBF) - UB(1:3) = ubound(SrcParamData%FreqBF) + LB(1:3) = lbound(SrcParamData%FreqBF, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%FreqBF, kind=B8Ki) if (.not. allocated(DstParamData%FreqBF)) then allocate(DstParamData%FreqBF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8562,8 +8562,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%RotSpeed = SrcParamData%RotSpeed DstParamData%RootName = SrcParamData%RootName if (allocated(SrcParamData%BElmntMass)) then - LB(1:2) = lbound(SrcParamData%BElmntMass) - UB(1:2) = ubound(SrcParamData%BElmntMass) + LB(1:2) = lbound(SrcParamData%BElmntMass, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BElmntMass, kind=B8Ki) if (.not. allocated(DstParamData%BElmntMass)) then allocate(DstParamData%BElmntMass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8574,8 +8574,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BElmntMass = SrcParamData%BElmntMass end if if (allocated(SrcParamData%TElmntMass)) then - LB(1:1) = lbound(SrcParamData%TElmntMass) - UB(1:1) = ubound(SrcParamData%TElmntMass) + LB(1:1) = lbound(SrcParamData%TElmntMass, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%TElmntMass, kind=B8Ki) if (.not. allocated(DstParamData%TElmntMass)) then allocate(DstParamData%TElmntMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8593,8 +8593,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BldNd_NumOuts = SrcParamData%BldNd_NumOuts DstParamData%BldNd_TotNumOuts = SrcParamData%BldNd_TotNumOuts if (allocated(SrcParamData%BldNd_OutParam)) then - LB(1:1) = lbound(SrcParamData%BldNd_OutParam) - UB(1:1) = ubound(SrcParamData%BldNd_OutParam) + LB(1:1) = lbound(SrcParamData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BldNd_OutParam, kind=B8Ki) if (.not. allocated(DstParamData%BldNd_OutParam)) then allocate(DstParamData%BldNd_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8610,8 +8610,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%BldNd_BladesOut = SrcParamData%BldNd_BladesOut if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx) - UB(1:2) = ubound(SrcParamData%Jac_u_indx) + LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_u_indx)) then allocate(DstParamData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8622,8 +8622,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_u_indx = SrcParamData%Jac_u_indx end if if (allocated(SrcParamData%du)) then - LB(1:1) = lbound(SrcParamData%du) - UB(1:1) = ubound(SrcParamData%du) + LB(1:1) = lbound(SrcParamData%du, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8634,8 +8634,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%du = SrcParamData%du end if if (allocated(SrcParamData%dx)) then - LB(1:1) = lbound(SrcParamData%dx) - UB(1:1) = ubound(SrcParamData%dx) + LB(1:1) = lbound(SrcParamData%dx, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8658,8 +8658,8 @@ subroutine ED_DestroyParam(ParamData, ErrStat, ErrMsg) type(ED_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4, i5 - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: i1, i2, i3, i4, i5 + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyParam' @@ -8680,8 +8680,8 @@ subroutine ED_DestroyParam(ParamData, ErrStat, ErrMsg) call ED_DestroyActiveDOFs(ParamData%DOFs, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8836,8 +8836,8 @@ subroutine ED_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%TElmntMass) end if if (allocated(ParamData%BldNd_OutParam)) then - LB(1:1) = lbound(ParamData%BldNd_OutParam) - UB(1:1) = ubound(ParamData%BldNd_OutParam) + LB(1:1) = lbound(ParamData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%BldNd_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%BldNd_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8859,8 +8859,8 @@ subroutine ED_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ED_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackParam' - integer(IntKi) :: i1, i2, i3, i4, i5 - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: i1, i2, i3, i4, i5 + integer(B8Ki) :: LB(5), UB(5) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) call RegPack(Buf, InData%DT24) @@ -8872,23 +8872,23 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%NPH) call RegPack(Buf, allocated(InData%PH)) if (allocated(InData%PH)) then - call RegPackBounds(Buf, 1, lbound(InData%PH), ubound(InData%PH)) + call RegPackBounds(Buf, 1, lbound(InData%PH, kind=B8Ki), ubound(InData%PH, kind=B8Ki)) call RegPack(Buf, InData%PH) end if call RegPack(Buf, InData%NPM) call RegPack(Buf, allocated(InData%PM)) if (allocated(InData%PM)) then - call RegPackBounds(Buf, 2, lbound(InData%PM), ubound(InData%PM)) + call RegPackBounds(Buf, 2, lbound(InData%PM, kind=B8Ki), ubound(InData%PM, kind=B8Ki)) call RegPack(Buf, InData%PM) end if call RegPack(Buf, allocated(InData%DOF_Flag)) if (allocated(InData%DOF_Flag)) then - call RegPackBounds(Buf, 1, lbound(InData%DOF_Flag), ubound(InData%DOF_Flag)) + call RegPackBounds(Buf, 1, lbound(InData%DOF_Flag, kind=B8Ki), ubound(InData%DOF_Flag, kind=B8Ki)) call RegPack(Buf, InData%DOF_Flag) end if call RegPack(Buf, allocated(InData%DOF_Desc)) if (allocated(InData%DOF_Desc)) then - call RegPackBounds(Buf, 1, lbound(InData%DOF_Desc), ubound(InData%DOF_Desc)) + call RegPackBounds(Buf, 1, lbound(InData%DOF_Desc, kind=B8Ki), ubound(InData%DOF_Desc, kind=B8Ki)) call RegPack(Buf, InData%DOF_Desc) end if call ED_PackActiveDOFs(Buf, InData%DOFs) @@ -8898,9 +8898,9 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%NTwGages) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -8911,7 +8911,7 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%CosDel3) call RegPack(Buf, allocated(InData%CosPreC)) if (allocated(InData%CosPreC)) then - call RegPackBounds(Buf, 1, lbound(InData%CosPreC), ubound(InData%CosPreC)) + call RegPackBounds(Buf, 1, lbound(InData%CosPreC, kind=B8Ki), ubound(InData%CosPreC, kind=B8Ki)) call RegPack(Buf, InData%CosPreC) end if call RegPack(Buf, InData%CRFrlSkew) @@ -8959,7 +8959,7 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%SinDel3) call RegPack(Buf, allocated(InData%SinPreC)) if (allocated(InData%SinPreC)) then - call RegPackBounds(Buf, 1, lbound(InData%SinPreC), ubound(InData%SinPreC)) + call RegPackBounds(Buf, 1, lbound(InData%SinPreC, kind=B8Ki), ubound(InData%SinPreC, kind=B8Ki)) call RegPack(Buf, InData%SinPreC) end if call RegPack(Buf, InData%SRFrlSkew) @@ -8980,52 +8980,52 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%NumBl) call RegPack(Buf, allocated(InData%AxRedTFA)) if (allocated(InData%AxRedTFA)) then - call RegPackBounds(Buf, 3, lbound(InData%AxRedTFA), ubound(InData%AxRedTFA)) + call RegPackBounds(Buf, 3, lbound(InData%AxRedTFA, kind=B8Ki), ubound(InData%AxRedTFA, kind=B8Ki)) call RegPack(Buf, InData%AxRedTFA) end if call RegPack(Buf, allocated(InData%AxRedTSS)) if (allocated(InData%AxRedTSS)) then - call RegPackBounds(Buf, 3, lbound(InData%AxRedTSS), ubound(InData%AxRedTSS)) + call RegPackBounds(Buf, 3, lbound(InData%AxRedTSS, kind=B8Ki), ubound(InData%AxRedTSS, kind=B8Ki)) call RegPack(Buf, InData%AxRedTSS) end if call RegPack(Buf, InData%CTFA) call RegPack(Buf, InData%CTSS) call RegPack(Buf, allocated(InData%DHNodes)) if (allocated(InData%DHNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%DHNodes), ubound(InData%DHNodes)) + call RegPackBounds(Buf, 1, lbound(InData%DHNodes, kind=B8Ki), ubound(InData%DHNodes, kind=B8Ki)) call RegPack(Buf, InData%DHNodes) end if call RegPack(Buf, allocated(InData%HNodes)) if (allocated(InData%HNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%HNodes), ubound(InData%HNodes)) + call RegPackBounds(Buf, 1, lbound(InData%HNodes, kind=B8Ki), ubound(InData%HNodes, kind=B8Ki)) call RegPack(Buf, InData%HNodes) end if call RegPack(Buf, allocated(InData%HNodesNorm)) if (allocated(InData%HNodesNorm)) then - call RegPackBounds(Buf, 1, lbound(InData%HNodesNorm), ubound(InData%HNodesNorm)) + call RegPackBounds(Buf, 1, lbound(InData%HNodesNorm, kind=B8Ki), ubound(InData%HNodesNorm, kind=B8Ki)) call RegPack(Buf, InData%HNodesNorm) end if call RegPack(Buf, InData%KTFA) call RegPack(Buf, InData%KTSS) call RegPack(Buf, allocated(InData%MassT)) if (allocated(InData%MassT)) then - call RegPackBounds(Buf, 1, lbound(InData%MassT), ubound(InData%MassT)) + call RegPackBounds(Buf, 1, lbound(InData%MassT, kind=B8Ki), ubound(InData%MassT, kind=B8Ki)) call RegPack(Buf, InData%MassT) end if call RegPack(Buf, allocated(InData%StiffTSS)) if (allocated(InData%StiffTSS)) then - call RegPackBounds(Buf, 1, lbound(InData%StiffTSS), ubound(InData%StiffTSS)) + call RegPackBounds(Buf, 1, lbound(InData%StiffTSS, kind=B8Ki), ubound(InData%StiffTSS, kind=B8Ki)) call RegPack(Buf, InData%StiffTSS) end if call RegPack(Buf, allocated(InData%TwrFASF)) if (allocated(InData%TwrFASF)) then - call RegPackBounds(Buf, 3, lbound(InData%TwrFASF), ubound(InData%TwrFASF)) + call RegPackBounds(Buf, 3, lbound(InData%TwrFASF, kind=B8Ki), ubound(InData%TwrFASF, kind=B8Ki)) call RegPack(Buf, InData%TwrFASF) end if call RegPack(Buf, InData%TwrFlexL) call RegPack(Buf, allocated(InData%TwrSSSF)) if (allocated(InData%TwrSSSF)) then - call RegPackBounds(Buf, 3, lbound(InData%TwrSSSF), ubound(InData%TwrSSSF)) + call RegPackBounds(Buf, 3, lbound(InData%TwrSSSF, kind=B8Ki), ubound(InData%TwrSSSF, kind=B8Ki)) call RegPack(Buf, InData%TwrSSSF) end if call RegPack(Buf, InData%TTopNode) @@ -9033,24 +9033,24 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%MHK) call RegPack(Buf, allocated(InData%StiffTFA)) if (allocated(InData%StiffTFA)) then - call RegPackBounds(Buf, 1, lbound(InData%StiffTFA), ubound(InData%StiffTFA)) + call RegPackBounds(Buf, 1, lbound(InData%StiffTFA, kind=B8Ki), ubound(InData%StiffTFA, kind=B8Ki)) call RegPack(Buf, InData%StiffTFA) end if call RegPack(Buf, InData%AtfaIner) call RegPack(Buf, allocated(InData%BldCG)) if (allocated(InData%BldCG)) then - call RegPackBounds(Buf, 1, lbound(InData%BldCG), ubound(InData%BldCG)) + call RegPackBounds(Buf, 1, lbound(InData%BldCG, kind=B8Ki), ubound(InData%BldCG, kind=B8Ki)) call RegPack(Buf, InData%BldCG) end if call RegPack(Buf, allocated(InData%BldMass)) if (allocated(InData%BldMass)) then - call RegPackBounds(Buf, 1, lbound(InData%BldMass), ubound(InData%BldMass)) + call RegPackBounds(Buf, 1, lbound(InData%BldMass, kind=B8Ki), ubound(InData%BldMass, kind=B8Ki)) call RegPack(Buf, InData%BldMass) end if call RegPack(Buf, InData%BoomMass) call RegPack(Buf, allocated(InData%FirstMom)) if (allocated(InData%FirstMom)) then - call RegPackBounds(Buf, 1, lbound(InData%FirstMom), ubound(InData%FirstMom)) + call RegPackBounds(Buf, 1, lbound(InData%FirstMom, kind=B8Ki), ubound(InData%FirstMom, kind=B8Ki)) call RegPack(Buf, InData%FirstMom) end if call RegPack(Buf, InData%GenIner) @@ -9069,14 +9069,14 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%RrfaIner) call RegPack(Buf, allocated(InData%SecondMom)) if (allocated(InData%SecondMom)) then - call RegPackBounds(Buf, 1, lbound(InData%SecondMom), ubound(InData%SecondMom)) + call RegPackBounds(Buf, 1, lbound(InData%SecondMom, kind=B8Ki), ubound(InData%SecondMom, kind=B8Ki)) call RegPack(Buf, InData%SecondMom) end if call RegPack(Buf, InData%TFinMass) call RegPack(Buf, InData%TFrlIner) call RegPack(Buf, allocated(InData%TipMass)) if (allocated(InData%TipMass)) then - call RegPackBounds(Buf, 1, lbound(InData%TipMass), ubound(InData%TipMass)) + call RegPackBounds(Buf, 1, lbound(InData%TipMass, kind=B8Ki), ubound(InData%TipMass, kind=B8Ki)) call RegPack(Buf, InData%TipMass) end if call RegPack(Buf, InData%TurbMass) @@ -9086,153 +9086,153 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%Gravity) call RegPack(Buf, allocated(InData%PitchAxis)) if (allocated(InData%PitchAxis)) then - call RegPackBounds(Buf, 2, lbound(InData%PitchAxis), ubound(InData%PitchAxis)) + call RegPackBounds(Buf, 2, lbound(InData%PitchAxis, kind=B8Ki), ubound(InData%PitchAxis, kind=B8Ki)) call RegPack(Buf, InData%PitchAxis) end if call RegPack(Buf, allocated(InData%AeroTwst)) if (allocated(InData%AeroTwst)) then - call RegPackBounds(Buf, 1, lbound(InData%AeroTwst), ubound(InData%AeroTwst)) + call RegPackBounds(Buf, 1, lbound(InData%AeroTwst, kind=B8Ki), ubound(InData%AeroTwst, kind=B8Ki)) call RegPack(Buf, InData%AeroTwst) end if call RegPack(Buf, allocated(InData%AxRedBld)) if (allocated(InData%AxRedBld)) then - call RegPackBounds(Buf, 4, lbound(InData%AxRedBld), ubound(InData%AxRedBld)) + call RegPackBounds(Buf, 4, lbound(InData%AxRedBld, kind=B8Ki), ubound(InData%AxRedBld, kind=B8Ki)) call RegPack(Buf, InData%AxRedBld) end if call RegPack(Buf, allocated(InData%BldEDamp)) if (allocated(InData%BldEDamp)) then - call RegPackBounds(Buf, 2, lbound(InData%BldEDamp), ubound(InData%BldEDamp)) + call RegPackBounds(Buf, 2, lbound(InData%BldEDamp, kind=B8Ki), ubound(InData%BldEDamp, kind=B8Ki)) call RegPack(Buf, InData%BldEDamp) end if call RegPack(Buf, allocated(InData%BldFDamp)) if (allocated(InData%BldFDamp)) then - call RegPackBounds(Buf, 2, lbound(InData%BldFDamp), ubound(InData%BldFDamp)) + call RegPackBounds(Buf, 2, lbound(InData%BldFDamp, kind=B8Ki), ubound(InData%BldFDamp, kind=B8Ki)) call RegPack(Buf, InData%BldFDamp) end if call RegPack(Buf, InData%BldFlexL) call RegPack(Buf, allocated(InData%CAeroTwst)) if (allocated(InData%CAeroTwst)) then - call RegPackBounds(Buf, 1, lbound(InData%CAeroTwst), ubound(InData%CAeroTwst)) + call RegPackBounds(Buf, 1, lbound(InData%CAeroTwst, kind=B8Ki), ubound(InData%CAeroTwst, kind=B8Ki)) call RegPack(Buf, InData%CAeroTwst) end if call RegPack(Buf, allocated(InData%CBE)) if (allocated(InData%CBE)) then - call RegPackBounds(Buf, 3, lbound(InData%CBE), ubound(InData%CBE)) + call RegPackBounds(Buf, 3, lbound(InData%CBE, kind=B8Ki), ubound(InData%CBE, kind=B8Ki)) call RegPack(Buf, InData%CBE) end if call RegPack(Buf, allocated(InData%CBF)) if (allocated(InData%CBF)) then - call RegPackBounds(Buf, 3, lbound(InData%CBF), ubound(InData%CBF)) + call RegPackBounds(Buf, 3, lbound(InData%CBF, kind=B8Ki), ubound(InData%CBF, kind=B8Ki)) call RegPack(Buf, InData%CBF) end if call RegPack(Buf, allocated(InData%Chord)) if (allocated(InData%Chord)) then - call RegPackBounds(Buf, 1, lbound(InData%Chord), ubound(InData%Chord)) + call RegPackBounds(Buf, 1, lbound(InData%Chord, kind=B8Ki), ubound(InData%Chord, kind=B8Ki)) call RegPack(Buf, InData%Chord) end if call RegPack(Buf, allocated(InData%CThetaS)) if (allocated(InData%CThetaS)) then - call RegPackBounds(Buf, 2, lbound(InData%CThetaS), ubound(InData%CThetaS)) + call RegPackBounds(Buf, 2, lbound(InData%CThetaS, kind=B8Ki), ubound(InData%CThetaS, kind=B8Ki)) call RegPack(Buf, InData%CThetaS) end if call RegPack(Buf, allocated(InData%DRNodes)) if (allocated(InData%DRNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%DRNodes), ubound(InData%DRNodes)) + call RegPackBounds(Buf, 1, lbound(InData%DRNodes, kind=B8Ki), ubound(InData%DRNodes, kind=B8Ki)) call RegPack(Buf, InData%DRNodes) end if call RegPack(Buf, allocated(InData%FStTunr)) if (allocated(InData%FStTunr)) then - call RegPackBounds(Buf, 2, lbound(InData%FStTunr), ubound(InData%FStTunr)) + call RegPackBounds(Buf, 2, lbound(InData%FStTunr, kind=B8Ki), ubound(InData%FStTunr, kind=B8Ki)) call RegPack(Buf, InData%FStTunr) end if call RegPack(Buf, allocated(InData%KBE)) if (allocated(InData%KBE)) then - call RegPackBounds(Buf, 3, lbound(InData%KBE), ubound(InData%KBE)) + call RegPackBounds(Buf, 3, lbound(InData%KBE, kind=B8Ki), ubound(InData%KBE, kind=B8Ki)) call RegPack(Buf, InData%KBE) end if call RegPack(Buf, allocated(InData%KBF)) if (allocated(InData%KBF)) then - call RegPackBounds(Buf, 3, lbound(InData%KBF), ubound(InData%KBF)) + call RegPackBounds(Buf, 3, lbound(InData%KBF, kind=B8Ki), ubound(InData%KBF, kind=B8Ki)) call RegPack(Buf, InData%KBF) end if call RegPack(Buf, allocated(InData%MassB)) if (allocated(InData%MassB)) then - call RegPackBounds(Buf, 2, lbound(InData%MassB), ubound(InData%MassB)) + call RegPackBounds(Buf, 2, lbound(InData%MassB, kind=B8Ki), ubound(InData%MassB, kind=B8Ki)) call RegPack(Buf, InData%MassB) end if call RegPack(Buf, allocated(InData%RNodes)) if (allocated(InData%RNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%RNodes), ubound(InData%RNodes)) + call RegPackBounds(Buf, 1, lbound(InData%RNodes, kind=B8Ki), ubound(InData%RNodes, kind=B8Ki)) call RegPack(Buf, InData%RNodes) end if call RegPack(Buf, allocated(InData%RNodesNorm)) if (allocated(InData%RNodesNorm)) then - call RegPackBounds(Buf, 1, lbound(InData%RNodesNorm), ubound(InData%RNodesNorm)) + call RegPackBounds(Buf, 1, lbound(InData%RNodesNorm, kind=B8Ki), ubound(InData%RNodesNorm, kind=B8Ki)) call RegPack(Buf, InData%RNodesNorm) end if call RegPack(Buf, allocated(InData%rSAerCenn1)) if (allocated(InData%rSAerCenn1)) then - call RegPackBounds(Buf, 2, lbound(InData%rSAerCenn1), ubound(InData%rSAerCenn1)) + call RegPackBounds(Buf, 2, lbound(InData%rSAerCenn1, kind=B8Ki), ubound(InData%rSAerCenn1, kind=B8Ki)) call RegPack(Buf, InData%rSAerCenn1) end if call RegPack(Buf, allocated(InData%rSAerCenn2)) if (allocated(InData%rSAerCenn2)) then - call RegPackBounds(Buf, 2, lbound(InData%rSAerCenn2), ubound(InData%rSAerCenn2)) + call RegPackBounds(Buf, 2, lbound(InData%rSAerCenn2, kind=B8Ki), ubound(InData%rSAerCenn2, kind=B8Ki)) call RegPack(Buf, InData%rSAerCenn2) end if call RegPack(Buf, allocated(InData%SAeroTwst)) if (allocated(InData%SAeroTwst)) then - call RegPackBounds(Buf, 1, lbound(InData%SAeroTwst), ubound(InData%SAeroTwst)) + call RegPackBounds(Buf, 1, lbound(InData%SAeroTwst, kind=B8Ki), ubound(InData%SAeroTwst, kind=B8Ki)) call RegPack(Buf, InData%SAeroTwst) end if call RegPack(Buf, allocated(InData%StiffBE)) if (allocated(InData%StiffBE)) then - call RegPackBounds(Buf, 2, lbound(InData%StiffBE), ubound(InData%StiffBE)) + call RegPackBounds(Buf, 2, lbound(InData%StiffBE, kind=B8Ki), ubound(InData%StiffBE, kind=B8Ki)) call RegPack(Buf, InData%StiffBE) end if call RegPack(Buf, allocated(InData%StiffBF)) if (allocated(InData%StiffBF)) then - call RegPackBounds(Buf, 2, lbound(InData%StiffBF), ubound(InData%StiffBF)) + call RegPackBounds(Buf, 2, lbound(InData%StiffBF, kind=B8Ki), ubound(InData%StiffBF, kind=B8Ki)) call RegPack(Buf, InData%StiffBF) end if call RegPack(Buf, allocated(InData%SThetaS)) if (allocated(InData%SThetaS)) then - call RegPackBounds(Buf, 2, lbound(InData%SThetaS), ubound(InData%SThetaS)) + call RegPackBounds(Buf, 2, lbound(InData%SThetaS, kind=B8Ki), ubound(InData%SThetaS, kind=B8Ki)) call RegPack(Buf, InData%SThetaS) end if call RegPack(Buf, allocated(InData%ThetaS)) if (allocated(InData%ThetaS)) then - call RegPackBounds(Buf, 2, lbound(InData%ThetaS), ubound(InData%ThetaS)) + call RegPackBounds(Buf, 2, lbound(InData%ThetaS, kind=B8Ki), ubound(InData%ThetaS, kind=B8Ki)) call RegPack(Buf, InData%ThetaS) end if call RegPack(Buf, allocated(InData%TwistedSF)) if (allocated(InData%TwistedSF)) then - call RegPackBounds(Buf, 5, lbound(InData%TwistedSF), ubound(InData%TwistedSF)) + call RegPackBounds(Buf, 5, lbound(InData%TwistedSF, kind=B8Ki), ubound(InData%TwistedSF, kind=B8Ki)) call RegPack(Buf, InData%TwistedSF) end if call RegPack(Buf, allocated(InData%BldFl1Sh)) if (allocated(InData%BldFl1Sh)) then - call RegPackBounds(Buf, 2, lbound(InData%BldFl1Sh), ubound(InData%BldFl1Sh)) + call RegPackBounds(Buf, 2, lbound(InData%BldFl1Sh, kind=B8Ki), ubound(InData%BldFl1Sh, kind=B8Ki)) call RegPack(Buf, InData%BldFl1Sh) end if call RegPack(Buf, allocated(InData%BldFl2Sh)) if (allocated(InData%BldFl2Sh)) then - call RegPackBounds(Buf, 2, lbound(InData%BldFl2Sh), ubound(InData%BldFl2Sh)) + call RegPackBounds(Buf, 2, lbound(InData%BldFl2Sh, kind=B8Ki), ubound(InData%BldFl2Sh, kind=B8Ki)) call RegPack(Buf, InData%BldFl2Sh) end if call RegPack(Buf, allocated(InData%BldEdgSh)) if (allocated(InData%BldEdgSh)) then - call RegPackBounds(Buf, 2, lbound(InData%BldEdgSh), ubound(InData%BldEdgSh)) + call RegPackBounds(Buf, 2, lbound(InData%BldEdgSh, kind=B8Ki), ubound(InData%BldEdgSh, kind=B8Ki)) call RegPack(Buf, InData%BldEdgSh) end if call RegPack(Buf, allocated(InData%FreqBE)) if (allocated(InData%FreqBE)) then - call RegPackBounds(Buf, 3, lbound(InData%FreqBE), ubound(InData%FreqBE)) + call RegPackBounds(Buf, 3, lbound(InData%FreqBE, kind=B8Ki), ubound(InData%FreqBE, kind=B8Ki)) call RegPack(Buf, InData%FreqBE) end if call RegPack(Buf, allocated(InData%FreqBF)) if (allocated(InData%FreqBF)) then - call RegPackBounds(Buf, 3, lbound(InData%FreqBF), ubound(InData%FreqBF)) + call RegPackBounds(Buf, 3, lbound(InData%FreqBF, kind=B8Ki), ubound(InData%FreqBF, kind=B8Ki)) call RegPack(Buf, InData%FreqBF) end if call RegPack(Buf, InData%FreqTFA) @@ -9279,12 +9279,12 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%BElmntMass)) if (allocated(InData%BElmntMass)) then - call RegPackBounds(Buf, 2, lbound(InData%BElmntMass), ubound(InData%BElmntMass)) + call RegPackBounds(Buf, 2, lbound(InData%BElmntMass, kind=B8Ki), ubound(InData%BElmntMass, kind=B8Ki)) call RegPack(Buf, InData%BElmntMass) end if call RegPack(Buf, allocated(InData%TElmntMass)) if (allocated(InData%TElmntMass)) then - call RegPackBounds(Buf, 1, lbound(InData%TElmntMass), ubound(InData%TElmntMass)) + call RegPackBounds(Buf, 1, lbound(InData%TElmntMass, kind=B8Ki), ubound(InData%TElmntMass, kind=B8Ki)) call RegPack(Buf, InData%TElmntMass) end if call RegPack(Buf, InData%method) @@ -9296,9 +9296,9 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%BldNd_TotNumOuts) call RegPack(Buf, allocated(InData%BldNd_OutParam)) if (allocated(InData%BldNd_OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutParam), ubound(InData%BldNd_OutParam)) - LB(1:1) = lbound(InData%BldNd_OutParam) - UB(1:1) = ubound(InData%BldNd_OutParam) + call RegPackBounds(Buf, 1, lbound(InData%BldNd_OutParam, kind=B8Ki), ubound(InData%BldNd_OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%BldNd_OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%BldNd_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%BldNd_OutParam(i1)) end do @@ -9306,17 +9306,17 @@ subroutine ED_PackParam(Buf, Indata) call RegPack(Buf, InData%BldNd_BladesOut) call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, allocated(InData%dx)) if (allocated(InData%dx)) then - call RegPackBounds(Buf, 1, lbound(InData%dx), ubound(InData%dx)) + call RegPackBounds(Buf, 1, lbound(InData%dx, kind=B8Ki), ubound(InData%dx, kind=B8Ki)) call RegPack(Buf, InData%dx) end if call RegPack(Buf, InData%Jac_ny) @@ -9333,8 +9333,8 @@ subroutine ED_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackParam' - integer(IntKi) :: i1, i2, i3, i4, i5 - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: i1, i2, i3, i4, i5 + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -10491,16 +10491,16 @@ subroutine ED_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%BladePtLoads)) then - LB(1:1) = lbound(SrcInputData%BladePtLoads) - UB(1:1) = ubound(SrcInputData%BladePtLoads) + LB(1:1) = lbound(SrcInputData%BladePtLoads, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%BladePtLoads, kind=B8Ki) if (.not. allocated(DstInputData%BladePtLoads)) then allocate(DstInputData%BladePtLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10530,8 +10530,8 @@ subroutine ED_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInputData%TwrAddedMass)) then - LB(1:3) = lbound(SrcInputData%TwrAddedMass) - UB(1:3) = ubound(SrcInputData%TwrAddedMass) + LB(1:3) = lbound(SrcInputData%TwrAddedMass, kind=B8Ki) + UB(1:3) = ubound(SrcInputData%TwrAddedMass, kind=B8Ki) if (.not. allocated(DstInputData%TwrAddedMass)) then allocate(DstInputData%TwrAddedMass(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10543,8 +10543,8 @@ subroutine ED_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end if DstInputData%PtfmAddedMass = SrcInputData%PtfmAddedMass if (allocated(SrcInputData%BlPitchCom)) then - LB(1:1) = lbound(SrcInputData%BlPitchCom) - UB(1:1) = ubound(SrcInputData%BlPitchCom) + LB(1:1) = lbound(SrcInputData%BlPitchCom, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%BlPitchCom, kind=B8Ki) if (.not. allocated(DstInputData%BlPitchCom)) then allocate(DstInputData%BlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10563,16 +10563,16 @@ subroutine ED_DestroyInput(InputData, ErrStat, ErrMsg) type(ED_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%BladePtLoads)) then - LB(1:1) = lbound(InputData%BladePtLoads) - UB(1:1) = ubound(InputData%BladePtLoads) + LB(1:1) = lbound(InputData%BladePtLoads, kind=B8Ki) + UB(1:1) = ubound(InputData%BladePtLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%BladePtLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10601,14 +10601,14 @@ subroutine ED_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ED_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackInput' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%BladePtLoads)) if (allocated(InData%BladePtLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%BladePtLoads), ubound(InData%BladePtLoads)) - LB(1:1) = lbound(InData%BladePtLoads) - UB(1:1) = ubound(InData%BladePtLoads) + call RegPackBounds(Buf, 1, lbound(InData%BladePtLoads, kind=B8Ki), ubound(InData%BladePtLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%BladePtLoads, kind=B8Ki) + UB(1:1) = ubound(InData%BladePtLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladePtLoads(i1)) end do @@ -10620,13 +10620,13 @@ subroutine ED_PackInput(Buf, Indata) call MeshPack(Buf, InData%TFinCMLoads) call RegPack(Buf, allocated(InData%TwrAddedMass)) if (allocated(InData%TwrAddedMass)) then - call RegPackBounds(Buf, 3, lbound(InData%TwrAddedMass), ubound(InData%TwrAddedMass)) + call RegPackBounds(Buf, 3, lbound(InData%TwrAddedMass, kind=B8Ki), ubound(InData%TwrAddedMass, kind=B8Ki)) call RegPack(Buf, InData%TwrAddedMass) end if call RegPack(Buf, InData%PtfmAddedMass) call RegPack(Buf, allocated(InData%BlPitchCom)) if (allocated(InData%BlPitchCom)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchCom), ubound(InData%BlPitchCom)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchCom, kind=B8Ki), ubound(InData%BlPitchCom, kind=B8Ki)) call RegPack(Buf, InData%BlPitchCom) end if call RegPack(Buf, InData%YawMom) @@ -10639,8 +10639,8 @@ subroutine ED_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackInput' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -10708,16 +10708,16 @@ subroutine ED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%BladeLn2Mesh)) then - LB(1:1) = lbound(SrcOutputData%BladeLn2Mesh) - UB(1:1) = ubound(SrcOutputData%BladeLn2Mesh) + LB(1:1) = lbound(SrcOutputData%BladeLn2Mesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%BladeLn2Mesh, kind=B8Ki) if (.not. allocated(DstOutputData%BladeLn2Mesh)) then allocate(DstOutputData%BladeLn2Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10747,8 +10747,8 @@ subroutine ED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%BladeRootMotion)) then - LB(1:1) = lbound(SrcOutputData%BladeRootMotion) - UB(1:1) = ubound(SrcOutputData%BladeRootMotion) + LB(1:1) = lbound(SrcOutputData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%BladeRootMotion, kind=B8Ki) if (.not. allocated(DstOutputData%BladeRootMotion)) then allocate(DstOutputData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10775,8 +10775,8 @@ subroutine ED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10787,8 +10787,8 @@ subroutine ED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%WriteOutput = SrcOutputData%WriteOutput end if if (allocated(SrcOutputData%BlPitch)) then - LB(1:1) = lbound(SrcOutputData%BlPitch) - UB(1:1) = ubound(SrcOutputData%BlPitch) + LB(1:1) = lbound(SrcOutputData%BlPitch, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%BlPitch, kind=B8Ki) if (.not. allocated(DstOutputData%BlPitch)) then allocate(DstOutputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10830,16 +10830,16 @@ subroutine ED_DestroyOutput(OutputData, ErrStat, ErrMsg) type(ED_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%BladeLn2Mesh)) then - LB(1:1) = lbound(OutputData%BladeLn2Mesh) - UB(1:1) = ubound(OutputData%BladeLn2Mesh) + LB(1:1) = lbound(OutputData%BladeLn2Mesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%BladeLn2Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeLn2Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10857,8 +10857,8 @@ subroutine ED_DestroyOutput(OutputData, ErrStat, ErrMsg) call MeshDestroy( OutputData%BladeRootMotion14, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(OutputData%BladeRootMotion)) then - LB(1:1) = lbound(OutputData%BladeRootMotion) - UB(1:1) = ubound(OutputData%BladeRootMotion) + LB(1:1) = lbound(OutputData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(OutputData%BladeRootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10885,14 +10885,14 @@ subroutine ED_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ED_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%BladeLn2Mesh)) if (allocated(InData%BladeLn2Mesh)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeLn2Mesh), ubound(InData%BladeLn2Mesh)) - LB(1:1) = lbound(InData%BladeLn2Mesh) - UB(1:1) = ubound(InData%BladeLn2Mesh) + call RegPackBounds(Buf, 1, lbound(InData%BladeLn2Mesh, kind=B8Ki), ubound(InData%BladeLn2Mesh, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeLn2Mesh, kind=B8Ki) + UB(1:1) = ubound(InData%BladeLn2Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeLn2Mesh(i1)) end do @@ -10904,9 +10904,9 @@ subroutine ED_PackOutput(Buf, Indata) call MeshPack(Buf, InData%BladeRootMotion14) call RegPack(Buf, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) - LB(1:1) = lbound(InData%BladeRootMotion) - UB(1:1) = ubound(InData%BladeRootMotion) + call RegPackBounds(Buf, 1, lbound(InData%BladeRootMotion, kind=B8Ki), ubound(InData%BladeRootMotion, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeRootMotion, kind=B8Ki) + UB(1:1) = ubound(InData%BladeRootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BladeRootMotion(i1)) end do @@ -10917,12 +10917,12 @@ subroutine ED_PackOutput(Buf, Indata) call MeshPack(Buf, InData%TFinCMMotion) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, allocated(InData%BlPitch)) if (allocated(InData%BlPitch)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitch), ubound(InData%BlPitch)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitch, kind=B8Ki), ubound(InData%BlPitch, kind=B8Ki)) call RegPack(Buf, InData%BlPitch) end if call RegPack(Buf, InData%Yaw) @@ -10958,8 +10958,8 @@ subroutine ED_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ED_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -11186,7 +11186,7 @@ SUBROUTINE ED_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg ) a2 = t_out/t(2) IF (ALLOCATED(u_out%BladePtLoads) .AND. ALLOCATED(u1%BladePtLoads)) THEN - DO i1 = LBOUND(u_out%BladePtLoads,1),UBOUND(u_out%BladePtLoads,1) + DO i1 = LBOUND(u_out%BladePtLoads,1, kind=B8Ki),UBOUND(u_out%BladePtLoads,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%BladePtLoads(i1), u2%BladePtLoads(i1), tin, u_out%BladePtLoads(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -11206,7 +11206,7 @@ SUBROUTINE ED_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg ) END IF ! check if allocated u_out%PtfmAddedMass = a1*u1%PtfmAddedMass + a2*u2%PtfmAddedMass IF (ALLOCATED(u_out%BlPitchCom) .AND. ALLOCATED(u1%BlPitchCom)) THEN - DO i1 = LBOUND(u_out%BlPitchCom,1),UBOUND(u_out%BlPitchCom,1) + DO i1 = LBOUND(u_out%BlPitchCom,1, kind=B8Ki),UBOUND(u_out%BlPitchCom,1, kind=B8Ki) CALL Angles_ExtrapInterp( u1%BlPitchCom(i1), u2%BlPitchCom(i1), tin, u_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -11275,7 +11275,7 @@ SUBROUTINE ED_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, ErrM a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%BladePtLoads) .AND. ALLOCATED(u1%BladePtLoads)) THEN - DO i1 = LBOUND(u_out%BladePtLoads,1),UBOUND(u_out%BladePtLoads,1) + DO i1 = LBOUND(u_out%BladePtLoads,1, kind=B8Ki),UBOUND(u_out%BladePtLoads,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%BladePtLoads(i1), u2%BladePtLoads(i1), u3%BladePtLoads(i1), tin, u_out%BladePtLoads(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -11295,7 +11295,7 @@ SUBROUTINE ED_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, ErrM END IF ! check if allocated u_out%PtfmAddedMass = a1*u1%PtfmAddedMass + a2*u2%PtfmAddedMass + a3*u3%PtfmAddedMass IF (ALLOCATED(u_out%BlPitchCom) .AND. ALLOCATED(u1%BlPitchCom)) THEN - DO i1 = LBOUND(u_out%BlPitchCom,1),UBOUND(u_out%BlPitchCom,1) + DO i1 = LBOUND(u_out%BlPitchCom,1, kind=B8Ki),UBOUND(u_out%BlPitchCom,1, kind=B8Ki) CALL Angles_ExtrapInterp( u1%BlPitchCom(i1), u2%BlPitchCom(i1), u3%BlPitchCom(i1), tin, u_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -11402,7 +11402,7 @@ SUBROUTINE ED_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(y_out%BladeLn2Mesh) .AND. ALLOCATED(y1%BladeLn2Mesh)) THEN - DO i1 = LBOUND(y_out%BladeLn2Mesh,1),UBOUND(y_out%BladeLn2Mesh,1) + DO i1 = LBOUND(y_out%BladeLn2Mesh,1, kind=B8Ki),UBOUND(y_out%BladeLn2Mesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%BladeLn2Mesh(i1), y2%BladeLn2Mesh(i1), tin, y_out%BladeLn2Mesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -11418,7 +11418,7 @@ SUBROUTINE ED_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg CALL MeshExtrapInterp1(y1%BladeRootMotion14, y2%BladeRootMotion14, tin, y_out%BladeRootMotion14, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(y_out%BladeRootMotion) .AND. ALLOCATED(y1%BladeRootMotion)) THEN - DO i1 = LBOUND(y_out%BladeRootMotion,1),UBOUND(y_out%BladeRootMotion,1) + DO i1 = LBOUND(y_out%BladeRootMotion,1, kind=B8Ki),UBOUND(y_out%BladeRootMotion,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%BladeRootMotion(i1), y2%BladeRootMotion(i1), tin, y_out%BladeRootMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -11435,7 +11435,7 @@ SUBROUTINE ED_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg y_out%WriteOutput = a1*y1%WriteOutput + a2*y2%WriteOutput END IF ! check if allocated IF (ALLOCATED(y_out%BlPitch) .AND. ALLOCATED(y1%BlPitch)) THEN - DO i1 = LBOUND(y_out%BlPitch,1),UBOUND(y_out%BlPitch,1) + DO i1 = LBOUND(y_out%BlPitch,1, kind=B8Ki),UBOUND(y_out%BlPitch,1, kind=B8Ki) CALL Angles_ExtrapInterp( y1%BlPitch(i1), y2%BlPitch(i1), tin, y_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated @@ -11523,7 +11523,7 @@ SUBROUTINE ED_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%BladeLn2Mesh) .AND. ALLOCATED(y1%BladeLn2Mesh)) THEN - DO i1 = LBOUND(y_out%BladeLn2Mesh,1),UBOUND(y_out%BladeLn2Mesh,1) + DO i1 = LBOUND(y_out%BladeLn2Mesh,1, kind=B8Ki),UBOUND(y_out%BladeLn2Mesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%BladeLn2Mesh(i1), y2%BladeLn2Mesh(i1), y3%BladeLn2Mesh(i1), tin, y_out%BladeLn2Mesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -11539,7 +11539,7 @@ SUBROUTINE ED_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err CALL MeshExtrapInterp2(y1%BladeRootMotion14, y2%BladeRootMotion14, y3%BladeRootMotion14, tin, y_out%BladeRootMotion14, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(y_out%BladeRootMotion) .AND. ALLOCATED(y1%BladeRootMotion)) THEN - DO i1 = LBOUND(y_out%BladeRootMotion,1),UBOUND(y_out%BladeRootMotion,1) + DO i1 = LBOUND(y_out%BladeRootMotion,1, kind=B8Ki),UBOUND(y_out%BladeRootMotion,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%BladeRootMotion(i1), y2%BladeRootMotion(i1), y3%BladeRootMotion(i1), tin, y_out%BladeRootMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -11556,7 +11556,7 @@ SUBROUTINE ED_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err y_out%WriteOutput = a1*y1%WriteOutput + a2*y2%WriteOutput + a3*y3%WriteOutput END IF ! check if allocated IF (ALLOCATED(y_out%BlPitch) .AND. ALLOCATED(y1%BlPitch)) THEN - DO i1 = LBOUND(y_out%BlPitch,1),UBOUND(y_out%BlPitch,1) + DO i1 = LBOUND(y_out%BlPitch,1, kind=B8Ki),UBOUND(y_out%BlPitch,1, kind=B8Ki) CALL Angles_ExtrapInterp( y1%BlPitch(i1), y2%BlPitch(i1), y3%BlPitch(i1), tin, y_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated diff --git a/modules/externalinflow/src/ExternalInflow_Types.f90 b/modules/externalinflow/src/ExternalInflow_Types.f90 index f7714f8fa7..64783b1eb5 100644 --- a/modules/externalinflow/src/ExternalInflow_Types.f90 +++ b/modules/externalinflow/src/ExternalInflow_Types.f90 @@ -212,7 +212,7 @@ subroutine ExtInfw_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtInfw_CopyInitInput' ErrStat = ErrID_None @@ -222,8 +222,8 @@ subroutine ExtInfw_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E DstInitInputData%NumActForcePtsTower = SrcInitInputData%NumActForcePtsTower DstInitInputData%C_obj%NumActForcePtsTower = SrcInitInputData%C_obj%NumActForcePtsTower if (associated(SrcInitInputData%StructBldRNodes)) then - LB(1:1) = lbound(SrcInitInputData%StructBldRNodes) - UB(1:1) = ubound(SrcInitInputData%StructBldRNodes) + LB(1:1) = lbound(SrcInitInputData%StructBldRNodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%StructBldRNodes, kind=B8Ki) if (.not. associated(DstInitInputData%StructBldRNodes)) then allocate(DstInitInputData%StructBldRNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -237,8 +237,8 @@ subroutine ExtInfw_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E DstInitInputData%StructBldRNodes = SrcInitInputData%StructBldRNodes end if if (associated(SrcInitInputData%StructTwrHNodes)) then - LB(1:1) = lbound(SrcInitInputData%StructTwrHNodes) - UB(1:1) = ubound(SrcInitInputData%StructTwrHNodes) + LB(1:1) = lbound(SrcInitInputData%StructTwrHNodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%StructTwrHNodes, kind=B8Ki) if (.not. associated(DstInitInputData%StructTwrHNodes)) then allocate(DstInitInputData%StructTwrHNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -296,7 +296,7 @@ subroutine ExtInfw_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NumActForcePtsTower) call RegPack(Buf, associated(InData%StructBldRNodes)) if (associated(InData%StructBldRNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%StructBldRNodes), ubound(InData%StructBldRNodes)) + call RegPackBounds(Buf, 1, lbound(InData%StructBldRNodes, kind=B8Ki), ubound(InData%StructBldRNodes, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%StructBldRNodes), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%StructBldRNodes) @@ -304,7 +304,7 @@ subroutine ExtInfw_PackInitInput(Buf, Indata) end if call RegPack(Buf, associated(InData%StructTwrHNodes)) if (associated(InData%StructTwrHNodes)) then - call RegPackBounds(Buf, 1, lbound(InData%StructTwrHNodes), ubound(InData%StructTwrHNodes)) + call RegPackBounds(Buf, 1, lbound(InData%StructTwrHNodes, kind=B8Ki), ubound(InData%StructTwrHNodes, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%StructTwrHNodes), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%StructTwrHNodes) @@ -321,10 +321,10 @@ subroutine ExtInfw_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%NumActForcePtsBlade) @@ -466,7 +466,7 @@ SUBROUTINE ExtInfw_F2C_CopyInitInput( InitInputData, ErrStat, ErrMsg, SkipPointe ELSE InitInputData%C_obj%StructBldRNodes_Len = SIZE(InitInputData%StructBldRNodes) IF (InitInputData%C_obj%StructBldRNodes_Len > 0) & - InitInputData%C_obj%StructBldRNodes = C_LOC(InitInputData%StructBldRNodes(LBOUND(InitInputData%StructBldRNodes,1))) + InitInputData%C_obj%StructBldRNodes = C_LOC(InitInputData%StructBldRNodes(LBOUND(InitInputData%StructBldRNodes,1, kind=B8Ki))) END IF END IF @@ -478,7 +478,7 @@ SUBROUTINE ExtInfw_F2C_CopyInitInput( InitInputData, ErrStat, ErrMsg, SkipPointe ELSE InitInputData%C_obj%StructTwrHNodes_Len = SIZE(InitInputData%StructTwrHNodes) IF (InitInputData%C_obj%StructTwrHNodes_Len > 0) & - InitInputData%C_obj%StructTwrHNodes = C_LOC(InitInputData%StructTwrHNodes(LBOUND(InitInputData%StructTwrHNodes,1))) + InitInputData%C_obj%StructTwrHNodes = C_LOC(InitInputData%StructTwrHNodes(LBOUND(InitInputData%StructTwrHNodes,1, kind=B8Ki))) END IF END IF InitInputData%C_obj%BladeLength = InitInputData%BladeLength @@ -493,15 +493,15 @@ subroutine ExtInfw_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtInfw_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -512,8 +512,8 @@ subroutine ExtInfw_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -561,12 +561,12 @@ subroutine ExtInfw_PackInitOutput(Buf, Indata) end if call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) @@ -584,10 +584,10 @@ subroutine ExtInfw_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (allocated(OutData%WriteOutputHdr)) deallocate(OutData%WriteOutputHdr) @@ -681,16 +681,16 @@ subroutine ExtInfw_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtInfw_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%ActForceMotionsPoints)) then - LB(1:1) = lbound(SrcMiscData%ActForceMotionsPoints) - UB(1:1) = ubound(SrcMiscData%ActForceMotionsPoints) + LB(1:1) = lbound(SrcMiscData%ActForceMotionsPoints, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%ActForceMotionsPoints, kind=B8Ki) if (.not. allocated(DstMiscData%ActForceMotionsPoints)) then allocate(DstMiscData%ActForceMotionsPoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -705,8 +705,8 @@ subroutine ExtInfw_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%ActForceLoadsPoints)) then - LB(1:1) = lbound(SrcMiscData%ActForceLoadsPoints) - UB(1:1) = ubound(SrcMiscData%ActForceLoadsPoints) + LB(1:1) = lbound(SrcMiscData%ActForceLoadsPoints, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%ActForceLoadsPoints, kind=B8Ki) if (.not. allocated(DstMiscData%ActForceLoadsPoints)) then allocate(DstMiscData%ActForceLoadsPoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -721,8 +721,8 @@ subroutine ExtInfw_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%Line2_to_Point_Loads)) then - LB(1:1) = lbound(SrcMiscData%Line2_to_Point_Loads) - UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Loads) + LB(1:1) = lbound(SrcMiscData%Line2_to_Point_Loads, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Loads, kind=B8Ki) if (.not. allocated(DstMiscData%Line2_to_Point_Loads)) then allocate(DstMiscData%Line2_to_Point_Loads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -737,8 +737,8 @@ subroutine ExtInfw_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%Line2_to_Point_Motions)) then - LB(1:1) = lbound(SrcMiscData%Line2_to_Point_Motions) - UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Motions) + LB(1:1) = lbound(SrcMiscData%Line2_to_Point_Motions, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Motions, kind=B8Ki) if (.not. allocated(DstMiscData%Line2_to_Point_Motions)) then allocate(DstMiscData%Line2_to_Point_Motions(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -770,16 +770,16 @@ subroutine ExtInfw_DestroyMisc(MiscData, ErrStat, ErrMsg) type(ExtInfw_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtInfw_DestroyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(MiscData%ActForceMotionsPoints)) then - LB(1:1) = lbound(MiscData%ActForceMotionsPoints) - UB(1:1) = ubound(MiscData%ActForceMotionsPoints) + LB(1:1) = lbound(MiscData%ActForceMotionsPoints, kind=B8Ki) + UB(1:1) = ubound(MiscData%ActForceMotionsPoints, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%ActForceMotionsPoints(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -787,8 +787,8 @@ subroutine ExtInfw_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%ActForceMotionsPoints) end if if (allocated(MiscData%ActForceLoadsPoints)) then - LB(1:1) = lbound(MiscData%ActForceLoadsPoints) - UB(1:1) = ubound(MiscData%ActForceLoadsPoints) + LB(1:1) = lbound(MiscData%ActForceLoadsPoints, kind=B8Ki) + UB(1:1) = ubound(MiscData%ActForceLoadsPoints, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%ActForceLoadsPoints(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -796,8 +796,8 @@ subroutine ExtInfw_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%ActForceLoadsPoints) end if if (allocated(MiscData%Line2_to_Point_Loads)) then - LB(1:1) = lbound(MiscData%Line2_to_Point_Loads) - UB(1:1) = ubound(MiscData%Line2_to_Point_Loads) + LB(1:1) = lbound(MiscData%Line2_to_Point_Loads, kind=B8Ki) + UB(1:1) = ubound(MiscData%Line2_to_Point_Loads, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%Line2_to_Point_Loads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -805,8 +805,8 @@ subroutine ExtInfw_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%Line2_to_Point_Loads) end if if (allocated(MiscData%Line2_to_Point_Motions)) then - LB(1:1) = lbound(MiscData%Line2_to_Point_Motions) - UB(1:1) = ubound(MiscData%Line2_to_Point_Motions) + LB(1:1) = lbound(MiscData%Line2_to_Point_Motions, kind=B8Ki) + UB(1:1) = ubound(MiscData%Line2_to_Point_Motions, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%Line2_to_Point_Motions(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -825,8 +825,8 @@ subroutine ExtInfw_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtInfw_PackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return if (c_associated(InData%C_obj%object)) then @@ -835,36 +835,36 @@ subroutine ExtInfw_PackMisc(Buf, Indata) end if call RegPack(Buf, allocated(InData%ActForceMotionsPoints)) if (allocated(InData%ActForceMotionsPoints)) then - call RegPackBounds(Buf, 1, lbound(InData%ActForceMotionsPoints), ubound(InData%ActForceMotionsPoints)) - LB(1:1) = lbound(InData%ActForceMotionsPoints) - UB(1:1) = ubound(InData%ActForceMotionsPoints) + call RegPackBounds(Buf, 1, lbound(InData%ActForceMotionsPoints, kind=B8Ki), ubound(InData%ActForceMotionsPoints, kind=B8Ki)) + LB(1:1) = lbound(InData%ActForceMotionsPoints, kind=B8Ki) + UB(1:1) = ubound(InData%ActForceMotionsPoints, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%ActForceMotionsPoints(i1)) end do end if call RegPack(Buf, allocated(InData%ActForceLoadsPoints)) if (allocated(InData%ActForceLoadsPoints)) then - call RegPackBounds(Buf, 1, lbound(InData%ActForceLoadsPoints), ubound(InData%ActForceLoadsPoints)) - LB(1:1) = lbound(InData%ActForceLoadsPoints) - UB(1:1) = ubound(InData%ActForceLoadsPoints) + call RegPackBounds(Buf, 1, lbound(InData%ActForceLoadsPoints, kind=B8Ki), ubound(InData%ActForceLoadsPoints, kind=B8Ki)) + LB(1:1) = lbound(InData%ActForceLoadsPoints, kind=B8Ki) + UB(1:1) = ubound(InData%ActForceLoadsPoints, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%ActForceLoadsPoints(i1)) end do end if call RegPack(Buf, allocated(InData%Line2_to_Point_Loads)) if (allocated(InData%Line2_to_Point_Loads)) then - call RegPackBounds(Buf, 1, lbound(InData%Line2_to_Point_Loads), ubound(InData%Line2_to_Point_Loads)) - LB(1:1) = lbound(InData%Line2_to_Point_Loads) - UB(1:1) = ubound(InData%Line2_to_Point_Loads) + call RegPackBounds(Buf, 1, lbound(InData%Line2_to_Point_Loads, kind=B8Ki), ubound(InData%Line2_to_Point_Loads, kind=B8Ki)) + LB(1:1) = lbound(InData%Line2_to_Point_Loads, kind=B8Ki) + UB(1:1) = ubound(InData%Line2_to_Point_Loads, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%Line2_to_Point_Loads(i1)) end do end if call RegPack(Buf, allocated(InData%Line2_to_Point_Motions)) if (allocated(InData%Line2_to_Point_Motions)) then - call RegPackBounds(Buf, 1, lbound(InData%Line2_to_Point_Motions), ubound(InData%Line2_to_Point_Motions)) - LB(1:1) = lbound(InData%Line2_to_Point_Motions) - UB(1:1) = ubound(InData%Line2_to_Point_Motions) + call RegPackBounds(Buf, 1, lbound(InData%Line2_to_Point_Motions, kind=B8Ki), ubound(InData%Line2_to_Point_Motions, kind=B8Ki)) + LB(1:1) = lbound(InData%Line2_to_Point_Motions, kind=B8Ki) + UB(1:1) = ubound(InData%Line2_to_Point_Motions, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%Line2_to_Point_Motions(i1)) end do @@ -883,11 +883,11 @@ subroutine ExtInfw_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (allocated(OutData%ActForceMotionsPoints)) deallocate(OutData%ActForceMotionsPoints) @@ -1012,7 +1012,7 @@ subroutine ExtInfw_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtInfw_CopyParam' ErrStat = ErrID_None @@ -1032,8 +1032,8 @@ subroutine ExtInfw_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%NnodesForceTower = SrcParamData%NnodesForceTower DstParamData%C_obj%NnodesForceTower = SrcParamData%C_obj%NnodesForceTower if (associated(SrcParamData%forceBldRnodes)) then - LB(1:1) = lbound(SrcParamData%forceBldRnodes) - UB(1:1) = ubound(SrcParamData%forceBldRnodes) + LB(1:1) = lbound(SrcParamData%forceBldRnodes, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%forceBldRnodes, kind=B8Ki) if (.not. associated(DstParamData%forceBldRnodes)) then allocate(DstParamData%forceBldRnodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1047,8 +1047,8 @@ subroutine ExtInfw_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%forceBldRnodes = SrcParamData%forceBldRnodes end if if (associated(SrcParamData%forceTwrHnodes)) then - LB(1:1) = lbound(SrcParamData%forceTwrHnodes) - UB(1:1) = ubound(SrcParamData%forceTwrHnodes) + LB(1:1) = lbound(SrcParamData%forceTwrHnodes, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%forceTwrHnodes, kind=B8Ki) if (.not. associated(DstParamData%forceTwrHnodes)) then allocate(DstParamData%forceTwrHnodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1111,7 +1111,7 @@ subroutine ExtInfw_PackParam(Buf, Indata) call RegPack(Buf, InData%NnodesForceTower) call RegPack(Buf, associated(InData%forceBldRnodes)) if (associated(InData%forceBldRnodes)) then - call RegPackBounds(Buf, 1, lbound(InData%forceBldRnodes), ubound(InData%forceBldRnodes)) + call RegPackBounds(Buf, 1, lbound(InData%forceBldRnodes, kind=B8Ki), ubound(InData%forceBldRnodes, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%forceBldRnodes), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%forceBldRnodes) @@ -1119,7 +1119,7 @@ subroutine ExtInfw_PackParam(Buf, Indata) end if call RegPack(Buf, associated(InData%forceTwrHnodes)) if (associated(InData%forceTwrHnodes)) then - call RegPackBounds(Buf, 1, lbound(InData%forceTwrHnodes), ubound(InData%forceTwrHnodes)) + call RegPackBounds(Buf, 1, lbound(InData%forceTwrHnodes, kind=B8Ki), ubound(InData%forceTwrHnodes, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%forceTwrHnodes), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%forceTwrHnodes) @@ -1136,10 +1136,10 @@ subroutine ExtInfw_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackParam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%AirDens) @@ -1306,7 +1306,7 @@ SUBROUTINE ExtInfw_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%forceBldRnodes_Len = SIZE(ParamData%forceBldRnodes) IF (ParamData%C_obj%forceBldRnodes_Len > 0) & - ParamData%C_obj%forceBldRnodes = C_LOC(ParamData%forceBldRnodes(LBOUND(ParamData%forceBldRnodes,1))) + ParamData%C_obj%forceBldRnodes = C_LOC(ParamData%forceBldRnodes(LBOUND(ParamData%forceBldRnodes,1, kind=B8Ki))) END IF END IF @@ -1318,7 +1318,7 @@ SUBROUTINE ExtInfw_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%forceTwrHnodes_Len = SIZE(ParamData%forceTwrHnodes) IF (ParamData%C_obj%forceTwrHnodes_Len > 0) & - ParamData%C_obj%forceTwrHnodes = C_LOC(ParamData%forceTwrHnodes(LBOUND(ParamData%forceTwrHnodes,1))) + ParamData%C_obj%forceTwrHnodes = C_LOC(ParamData%forceTwrHnodes(LBOUND(ParamData%forceTwrHnodes,1, kind=B8Ki))) END IF END IF ParamData%C_obj%BladeLength = ParamData%BladeLength @@ -1333,14 +1333,14 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtInfw_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcInputData%pxVel)) then - LB(1:1) = lbound(SrcInputData%pxVel) - UB(1:1) = ubound(SrcInputData%pxVel) + LB(1:1) = lbound(SrcInputData%pxVel, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pxVel, kind=B8Ki) if (.not. associated(DstInputData%pxVel)) then allocate(DstInputData%pxVel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1354,8 +1354,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pxVel = SrcInputData%pxVel end if if (associated(SrcInputData%pyVel)) then - LB(1:1) = lbound(SrcInputData%pyVel) - UB(1:1) = ubound(SrcInputData%pyVel) + LB(1:1) = lbound(SrcInputData%pyVel, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pyVel, kind=B8Ki) if (.not. associated(DstInputData%pyVel)) then allocate(DstInputData%pyVel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1369,8 +1369,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pyVel = SrcInputData%pyVel end if if (associated(SrcInputData%pzVel)) then - LB(1:1) = lbound(SrcInputData%pzVel) - UB(1:1) = ubound(SrcInputData%pzVel) + LB(1:1) = lbound(SrcInputData%pzVel, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pzVel, kind=B8Ki) if (.not. associated(DstInputData%pzVel)) then allocate(DstInputData%pzVel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1384,8 +1384,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pzVel = SrcInputData%pzVel end if if (associated(SrcInputData%pxForce)) then - LB(1:1) = lbound(SrcInputData%pxForce) - UB(1:1) = ubound(SrcInputData%pxForce) + LB(1:1) = lbound(SrcInputData%pxForce, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pxForce, kind=B8Ki) if (.not. associated(DstInputData%pxForce)) then allocate(DstInputData%pxForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1399,8 +1399,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pxForce = SrcInputData%pxForce end if if (associated(SrcInputData%pyForce)) then - LB(1:1) = lbound(SrcInputData%pyForce) - UB(1:1) = ubound(SrcInputData%pyForce) + LB(1:1) = lbound(SrcInputData%pyForce, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pyForce, kind=B8Ki) if (.not. associated(DstInputData%pyForce)) then allocate(DstInputData%pyForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1414,8 +1414,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pyForce = SrcInputData%pyForce end if if (associated(SrcInputData%pzForce)) then - LB(1:1) = lbound(SrcInputData%pzForce) - UB(1:1) = ubound(SrcInputData%pzForce) + LB(1:1) = lbound(SrcInputData%pzForce, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pzForce, kind=B8Ki) if (.not. associated(DstInputData%pzForce)) then allocate(DstInputData%pzForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1429,8 +1429,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pzForce = SrcInputData%pzForce end if if (associated(SrcInputData%xdotForce)) then - LB(1:1) = lbound(SrcInputData%xdotForce) - UB(1:1) = ubound(SrcInputData%xdotForce) + LB(1:1) = lbound(SrcInputData%xdotForce, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%xdotForce, kind=B8Ki) if (.not. associated(DstInputData%xdotForce)) then allocate(DstInputData%xdotForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1444,8 +1444,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%xdotForce = SrcInputData%xdotForce end if if (associated(SrcInputData%ydotForce)) then - LB(1:1) = lbound(SrcInputData%ydotForce) - UB(1:1) = ubound(SrcInputData%ydotForce) + LB(1:1) = lbound(SrcInputData%ydotForce, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%ydotForce, kind=B8Ki) if (.not. associated(DstInputData%ydotForce)) then allocate(DstInputData%ydotForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1459,8 +1459,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%ydotForce = SrcInputData%ydotForce end if if (associated(SrcInputData%zdotForce)) then - LB(1:1) = lbound(SrcInputData%zdotForce) - UB(1:1) = ubound(SrcInputData%zdotForce) + LB(1:1) = lbound(SrcInputData%zdotForce, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%zdotForce, kind=B8Ki) if (.not. associated(DstInputData%zdotForce)) then allocate(DstInputData%zdotForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1474,8 +1474,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%zdotForce = SrcInputData%zdotForce end if if (associated(SrcInputData%pOrientation)) then - LB(1:1) = lbound(SrcInputData%pOrientation) - UB(1:1) = ubound(SrcInputData%pOrientation) + LB(1:1) = lbound(SrcInputData%pOrientation, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%pOrientation, kind=B8Ki) if (.not. associated(DstInputData%pOrientation)) then allocate(DstInputData%pOrientation(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1489,8 +1489,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%pOrientation = SrcInputData%pOrientation end if if (associated(SrcInputData%fx)) then - LB(1:1) = lbound(SrcInputData%fx) - UB(1:1) = ubound(SrcInputData%fx) + LB(1:1) = lbound(SrcInputData%fx, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fx, kind=B8Ki) if (.not. associated(DstInputData%fx)) then allocate(DstInputData%fx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1504,8 +1504,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%fx = SrcInputData%fx end if if (associated(SrcInputData%fy)) then - LB(1:1) = lbound(SrcInputData%fy) - UB(1:1) = ubound(SrcInputData%fy) + LB(1:1) = lbound(SrcInputData%fy, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fy, kind=B8Ki) if (.not. associated(DstInputData%fy)) then allocate(DstInputData%fy(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1519,8 +1519,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%fy = SrcInputData%fy end if if (associated(SrcInputData%fz)) then - LB(1:1) = lbound(SrcInputData%fz) - UB(1:1) = ubound(SrcInputData%fz) + LB(1:1) = lbound(SrcInputData%fz, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fz, kind=B8Ki) if (.not. associated(DstInputData%fz)) then allocate(DstInputData%fz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1534,8 +1534,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%fz = SrcInputData%fz end if if (associated(SrcInputData%momentx)) then - LB(1:1) = lbound(SrcInputData%momentx) - UB(1:1) = ubound(SrcInputData%momentx) + LB(1:1) = lbound(SrcInputData%momentx, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%momentx, kind=B8Ki) if (.not. associated(DstInputData%momentx)) then allocate(DstInputData%momentx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1549,8 +1549,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%momentx = SrcInputData%momentx end if if (associated(SrcInputData%momenty)) then - LB(1:1) = lbound(SrcInputData%momenty) - UB(1:1) = ubound(SrcInputData%momenty) + LB(1:1) = lbound(SrcInputData%momenty, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%momenty, kind=B8Ki) if (.not. associated(DstInputData%momenty)) then allocate(DstInputData%momenty(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1564,8 +1564,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%momenty = SrcInputData%momenty end if if (associated(SrcInputData%momentz)) then - LB(1:1) = lbound(SrcInputData%momentz) - UB(1:1) = ubound(SrcInputData%momentz) + LB(1:1) = lbound(SrcInputData%momentz, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%momentz, kind=B8Ki) if (.not. associated(DstInputData%momentz)) then allocate(DstInputData%momentz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1579,8 +1579,8 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%momentz = SrcInputData%momentz end if if (associated(SrcInputData%forceNodesChord)) then - LB(1:1) = lbound(SrcInputData%forceNodesChord) - UB(1:1) = ubound(SrcInputData%forceNodesChord) + LB(1:1) = lbound(SrcInputData%forceNodesChord, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%forceNodesChord, kind=B8Ki) if (.not. associated(DstInputData%forceNodesChord)) then allocate(DstInputData%forceNodesChord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1718,7 +1718,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pxVel)) if (associated(InData%pxVel)) then - call RegPackBounds(Buf, 1, lbound(InData%pxVel), ubound(InData%pxVel)) + call RegPackBounds(Buf, 1, lbound(InData%pxVel, kind=B8Ki), ubound(InData%pxVel, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pxVel), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pxVel) @@ -1726,7 +1726,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pyVel)) if (associated(InData%pyVel)) then - call RegPackBounds(Buf, 1, lbound(InData%pyVel), ubound(InData%pyVel)) + call RegPackBounds(Buf, 1, lbound(InData%pyVel, kind=B8Ki), ubound(InData%pyVel, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pyVel), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pyVel) @@ -1734,7 +1734,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pzVel)) if (associated(InData%pzVel)) then - call RegPackBounds(Buf, 1, lbound(InData%pzVel), ubound(InData%pzVel)) + call RegPackBounds(Buf, 1, lbound(InData%pzVel, kind=B8Ki), ubound(InData%pzVel, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pzVel), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pzVel) @@ -1742,7 +1742,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pxForce)) if (associated(InData%pxForce)) then - call RegPackBounds(Buf, 1, lbound(InData%pxForce), ubound(InData%pxForce)) + call RegPackBounds(Buf, 1, lbound(InData%pxForce, kind=B8Ki), ubound(InData%pxForce, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pxForce), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pxForce) @@ -1750,7 +1750,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pyForce)) if (associated(InData%pyForce)) then - call RegPackBounds(Buf, 1, lbound(InData%pyForce), ubound(InData%pyForce)) + call RegPackBounds(Buf, 1, lbound(InData%pyForce, kind=B8Ki), ubound(InData%pyForce, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pyForce), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pyForce) @@ -1758,7 +1758,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pzForce)) if (associated(InData%pzForce)) then - call RegPackBounds(Buf, 1, lbound(InData%pzForce), ubound(InData%pzForce)) + call RegPackBounds(Buf, 1, lbound(InData%pzForce, kind=B8Ki), ubound(InData%pzForce, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pzForce), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pzForce) @@ -1766,7 +1766,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%xdotForce)) if (associated(InData%xdotForce)) then - call RegPackBounds(Buf, 1, lbound(InData%xdotForce), ubound(InData%xdotForce)) + call RegPackBounds(Buf, 1, lbound(InData%xdotForce, kind=B8Ki), ubound(InData%xdotForce, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%xdotForce), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%xdotForce) @@ -1774,7 +1774,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%ydotForce)) if (associated(InData%ydotForce)) then - call RegPackBounds(Buf, 1, lbound(InData%ydotForce), ubound(InData%ydotForce)) + call RegPackBounds(Buf, 1, lbound(InData%ydotForce, kind=B8Ki), ubound(InData%ydotForce, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%ydotForce), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%ydotForce) @@ -1782,7 +1782,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%zdotForce)) if (associated(InData%zdotForce)) then - call RegPackBounds(Buf, 1, lbound(InData%zdotForce), ubound(InData%zdotForce)) + call RegPackBounds(Buf, 1, lbound(InData%zdotForce, kind=B8Ki), ubound(InData%zdotForce, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%zdotForce), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%zdotForce) @@ -1790,7 +1790,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%pOrientation)) if (associated(InData%pOrientation)) then - call RegPackBounds(Buf, 1, lbound(InData%pOrientation), ubound(InData%pOrientation)) + call RegPackBounds(Buf, 1, lbound(InData%pOrientation, kind=B8Ki), ubound(InData%pOrientation, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%pOrientation), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%pOrientation) @@ -1798,7 +1798,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%fx)) if (associated(InData%fx)) then - call RegPackBounds(Buf, 1, lbound(InData%fx), ubound(InData%fx)) + call RegPackBounds(Buf, 1, lbound(InData%fx, kind=B8Ki), ubound(InData%fx, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fx), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fx) @@ -1806,7 +1806,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%fy)) if (associated(InData%fy)) then - call RegPackBounds(Buf, 1, lbound(InData%fy), ubound(InData%fy)) + call RegPackBounds(Buf, 1, lbound(InData%fy, kind=B8Ki), ubound(InData%fy, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fy), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fy) @@ -1814,7 +1814,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%fz)) if (associated(InData%fz)) then - call RegPackBounds(Buf, 1, lbound(InData%fz), ubound(InData%fz)) + call RegPackBounds(Buf, 1, lbound(InData%fz, kind=B8Ki), ubound(InData%fz, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fz), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fz) @@ -1822,7 +1822,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%momentx)) if (associated(InData%momentx)) then - call RegPackBounds(Buf, 1, lbound(InData%momentx), ubound(InData%momentx)) + call RegPackBounds(Buf, 1, lbound(InData%momentx, kind=B8Ki), ubound(InData%momentx, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%momentx), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%momentx) @@ -1830,7 +1830,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%momenty)) if (associated(InData%momenty)) then - call RegPackBounds(Buf, 1, lbound(InData%momenty), ubound(InData%momenty)) + call RegPackBounds(Buf, 1, lbound(InData%momenty, kind=B8Ki), ubound(InData%momenty, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%momenty), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%momenty) @@ -1838,7 +1838,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%momentz)) if (associated(InData%momentz)) then - call RegPackBounds(Buf, 1, lbound(InData%momentz), ubound(InData%momentz)) + call RegPackBounds(Buf, 1, lbound(InData%momentz, kind=B8Ki), ubound(InData%momentz, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%momentz), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%momentz) @@ -1846,7 +1846,7 @@ subroutine ExtInfw_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%forceNodesChord)) if (associated(InData%forceNodesChord)) then - call RegPackBounds(Buf, 1, lbound(InData%forceNodesChord), ubound(InData%forceNodesChord)) + call RegPackBounds(Buf, 1, lbound(InData%forceNodesChord, kind=B8Ki), ubound(InData%forceNodesChord, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%forceNodesChord), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%forceNodesChord) @@ -1859,10 +1859,10 @@ subroutine ExtInfw_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%pxVel)) deallocate(OutData%pxVel) @@ -2503,7 +2503,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pxVel_Len = SIZE(InputData%pxVel) IF (InputData%C_obj%pxVel_Len > 0) & - InputData%C_obj%pxVel = C_LOC(InputData%pxVel(LBOUND(InputData%pxVel,1))) + InputData%C_obj%pxVel = C_LOC(InputData%pxVel(LBOUND(InputData%pxVel,1, kind=B8Ki))) END IF END IF @@ -2515,7 +2515,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pyVel_Len = SIZE(InputData%pyVel) IF (InputData%C_obj%pyVel_Len > 0) & - InputData%C_obj%pyVel = C_LOC(InputData%pyVel(LBOUND(InputData%pyVel,1))) + InputData%C_obj%pyVel = C_LOC(InputData%pyVel(LBOUND(InputData%pyVel,1, kind=B8Ki))) END IF END IF @@ -2527,7 +2527,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pzVel_Len = SIZE(InputData%pzVel) IF (InputData%C_obj%pzVel_Len > 0) & - InputData%C_obj%pzVel = C_LOC(InputData%pzVel(LBOUND(InputData%pzVel,1))) + InputData%C_obj%pzVel = C_LOC(InputData%pzVel(LBOUND(InputData%pzVel,1, kind=B8Ki))) END IF END IF @@ -2539,7 +2539,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pxForce_Len = SIZE(InputData%pxForce) IF (InputData%C_obj%pxForce_Len > 0) & - InputData%C_obj%pxForce = C_LOC(InputData%pxForce(LBOUND(InputData%pxForce,1))) + InputData%C_obj%pxForce = C_LOC(InputData%pxForce(LBOUND(InputData%pxForce,1, kind=B8Ki))) END IF END IF @@ -2551,7 +2551,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pyForce_Len = SIZE(InputData%pyForce) IF (InputData%C_obj%pyForce_Len > 0) & - InputData%C_obj%pyForce = C_LOC(InputData%pyForce(LBOUND(InputData%pyForce,1))) + InputData%C_obj%pyForce = C_LOC(InputData%pyForce(LBOUND(InputData%pyForce,1, kind=B8Ki))) END IF END IF @@ -2563,7 +2563,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pzForce_Len = SIZE(InputData%pzForce) IF (InputData%C_obj%pzForce_Len > 0) & - InputData%C_obj%pzForce = C_LOC(InputData%pzForce(LBOUND(InputData%pzForce,1))) + InputData%C_obj%pzForce = C_LOC(InputData%pzForce(LBOUND(InputData%pzForce,1, kind=B8Ki))) END IF END IF @@ -2575,7 +2575,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%xdotForce_Len = SIZE(InputData%xdotForce) IF (InputData%C_obj%xdotForce_Len > 0) & - InputData%C_obj%xdotForce = C_LOC(InputData%xdotForce(LBOUND(InputData%xdotForce,1))) + InputData%C_obj%xdotForce = C_LOC(InputData%xdotForce(LBOUND(InputData%xdotForce,1, kind=B8Ki))) END IF END IF @@ -2587,7 +2587,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%ydotForce_Len = SIZE(InputData%ydotForce) IF (InputData%C_obj%ydotForce_Len > 0) & - InputData%C_obj%ydotForce = C_LOC(InputData%ydotForce(LBOUND(InputData%ydotForce,1))) + InputData%C_obj%ydotForce = C_LOC(InputData%ydotForce(LBOUND(InputData%ydotForce,1, kind=B8Ki))) END IF END IF @@ -2599,7 +2599,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%zdotForce_Len = SIZE(InputData%zdotForce) IF (InputData%C_obj%zdotForce_Len > 0) & - InputData%C_obj%zdotForce = C_LOC(InputData%zdotForce(LBOUND(InputData%zdotForce,1))) + InputData%C_obj%zdotForce = C_LOC(InputData%zdotForce(LBOUND(InputData%zdotForce,1, kind=B8Ki))) END IF END IF @@ -2611,7 +2611,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%pOrientation_Len = SIZE(InputData%pOrientation) IF (InputData%C_obj%pOrientation_Len > 0) & - InputData%C_obj%pOrientation = C_LOC(InputData%pOrientation(LBOUND(InputData%pOrientation,1))) + InputData%C_obj%pOrientation = C_LOC(InputData%pOrientation(LBOUND(InputData%pOrientation,1, kind=B8Ki))) END IF END IF @@ -2623,7 +2623,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%fx_Len = SIZE(InputData%fx) IF (InputData%C_obj%fx_Len > 0) & - InputData%C_obj%fx = C_LOC(InputData%fx(LBOUND(InputData%fx,1))) + InputData%C_obj%fx = C_LOC(InputData%fx(LBOUND(InputData%fx,1, kind=B8Ki))) END IF END IF @@ -2635,7 +2635,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%fy_Len = SIZE(InputData%fy) IF (InputData%C_obj%fy_Len > 0) & - InputData%C_obj%fy = C_LOC(InputData%fy(LBOUND(InputData%fy,1))) + InputData%C_obj%fy = C_LOC(InputData%fy(LBOUND(InputData%fy,1, kind=B8Ki))) END IF END IF @@ -2647,7 +2647,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%fz_Len = SIZE(InputData%fz) IF (InputData%C_obj%fz_Len > 0) & - InputData%C_obj%fz = C_LOC(InputData%fz(LBOUND(InputData%fz,1))) + InputData%C_obj%fz = C_LOC(InputData%fz(LBOUND(InputData%fz,1, kind=B8Ki))) END IF END IF @@ -2659,7 +2659,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%momentx_Len = SIZE(InputData%momentx) IF (InputData%C_obj%momentx_Len > 0) & - InputData%C_obj%momentx = C_LOC(InputData%momentx(LBOUND(InputData%momentx,1))) + InputData%C_obj%momentx = C_LOC(InputData%momentx(LBOUND(InputData%momentx,1, kind=B8Ki))) END IF END IF @@ -2671,7 +2671,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%momenty_Len = SIZE(InputData%momenty) IF (InputData%C_obj%momenty_Len > 0) & - InputData%C_obj%momenty = C_LOC(InputData%momenty(LBOUND(InputData%momenty,1))) + InputData%C_obj%momenty = C_LOC(InputData%momenty(LBOUND(InputData%momenty,1, kind=B8Ki))) END IF END IF @@ -2683,7 +2683,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%momentz_Len = SIZE(InputData%momentz) IF (InputData%C_obj%momentz_Len > 0) & - InputData%C_obj%momentz = C_LOC(InputData%momentz(LBOUND(InputData%momentz,1))) + InputData%C_obj%momentz = C_LOC(InputData%momentz(LBOUND(InputData%momentz,1, kind=B8Ki))) END IF END IF @@ -2695,7 +2695,7 @@ SUBROUTINE ExtInfw_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%forceNodesChord_Len = SIZE(InputData%forceNodesChord) IF (InputData%C_obj%forceNodesChord_Len > 0) & - InputData%C_obj%forceNodesChord = C_LOC(InputData%forceNodesChord(LBOUND(InputData%forceNodesChord,1))) + InputData%C_obj%forceNodesChord = C_LOC(InputData%forceNodesChord(LBOUND(InputData%forceNodesChord,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -2706,14 +2706,14 @@ subroutine ExtInfw_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtInfw_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcOutputData%u)) then - LB(1:1) = lbound(SrcOutputData%u) - UB(1:1) = ubound(SrcOutputData%u) + LB(1:1) = lbound(SrcOutputData%u, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%u, kind=B8Ki) if (.not. associated(DstOutputData%u)) then allocate(DstOutputData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2727,8 +2727,8 @@ subroutine ExtInfw_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E DstOutputData%u = SrcOutputData%u end if if (associated(SrcOutputData%v)) then - LB(1:1) = lbound(SrcOutputData%v) - UB(1:1) = ubound(SrcOutputData%v) + LB(1:1) = lbound(SrcOutputData%v, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%v, kind=B8Ki) if (.not. associated(DstOutputData%v)) then allocate(DstOutputData%v(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2742,8 +2742,8 @@ subroutine ExtInfw_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E DstOutputData%v = SrcOutputData%v end if if (associated(SrcOutputData%w)) then - LB(1:1) = lbound(SrcOutputData%w) - UB(1:1) = ubound(SrcOutputData%w) + LB(1:1) = lbound(SrcOutputData%w, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%w, kind=B8Ki) if (.not. associated(DstOutputData%w)) then allocate(DstOutputData%w(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2757,8 +2757,8 @@ subroutine ExtInfw_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E DstOutputData%w = SrcOutputData%w end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2812,7 +2812,7 @@ subroutine ExtInfw_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%u)) if (associated(InData%u)) then - call RegPackBounds(Buf, 1, lbound(InData%u), ubound(InData%u)) + call RegPackBounds(Buf, 1, lbound(InData%u, kind=B8Ki), ubound(InData%u, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%u), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%u) @@ -2820,7 +2820,7 @@ subroutine ExtInfw_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%v)) if (associated(InData%v)) then - call RegPackBounds(Buf, 1, lbound(InData%v), ubound(InData%v)) + call RegPackBounds(Buf, 1, lbound(InData%v, kind=B8Ki), ubound(InData%v, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%v), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%v) @@ -2828,7 +2828,7 @@ subroutine ExtInfw_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%w)) if (associated(InData%w)) then - call RegPackBounds(Buf, 1, lbound(InData%w), ubound(InData%w)) + call RegPackBounds(Buf, 1, lbound(InData%w, kind=B8Ki), ubound(InData%w, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%w), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%w) @@ -2836,7 +2836,7 @@ subroutine ExtInfw_PackOutput(Buf, Indata) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2846,10 +2846,10 @@ subroutine ExtInfw_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtInfw_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%u)) deallocate(OutData%u) @@ -3014,7 +3014,7 @@ SUBROUTINE ExtInfw_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%u_Len = SIZE(OutputData%u) IF (OutputData%C_obj%u_Len > 0) & - OutputData%C_obj%u = C_LOC(OutputData%u(LBOUND(OutputData%u,1))) + OutputData%C_obj%u = C_LOC(OutputData%u(LBOUND(OutputData%u,1, kind=B8Ki))) END IF END IF @@ -3026,7 +3026,7 @@ SUBROUTINE ExtInfw_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%v_Len = SIZE(OutputData%v) IF (OutputData%C_obj%v_Len > 0) & - OutputData%C_obj%v = C_LOC(OutputData%v(LBOUND(OutputData%v,1))) + OutputData%C_obj%v = C_LOC(OutputData%v(LBOUND(OutputData%v,1, kind=B8Ki))) END IF END IF @@ -3038,7 +3038,7 @@ SUBROUTINE ExtInfw_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%w_Len = SIZE(OutputData%w) IF (OutputData%C_obj%w_Len > 0) & - OutputData%C_obj%w = C_LOC(OutputData%w(LBOUND(OutputData%w,1))) + OutputData%C_obj%w = C_LOC(OutputData%w(LBOUND(OutputData%w,1, kind=B8Ki))) END IF END IF END SUBROUTINE diff --git a/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 b/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 index ce08cab5c0..9ca5ac7425 100644 --- a/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 +++ b/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 @@ -213,7 +213,7 @@ subroutine ExtPtfm_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyInputFile' ErrStat = ErrID_None @@ -225,8 +225,8 @@ subroutine ExtPtfm_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, E DstInputFileData%RedFileCst = SrcInputFileData%RedFileCst DstInputFileData%EquilStart = SrcInputFileData%EquilStart if (allocated(SrcInputFileData%ActiveCBDOF)) then - LB(1:1) = lbound(SrcInputFileData%ActiveCBDOF) - UB(1:1) = ubound(SrcInputFileData%ActiveCBDOF) + LB(1:1) = lbound(SrcInputFileData%ActiveCBDOF, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%ActiveCBDOF, kind=B8Ki) if (.not. allocated(DstInputFileData%ActiveCBDOF)) then allocate(DstInputFileData%ActiveCBDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -237,8 +237,8 @@ subroutine ExtPtfm_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, E DstInputFileData%ActiveCBDOF = SrcInputFileData%ActiveCBDOF end if if (allocated(SrcInputFileData%InitPosList)) then - LB(1:1) = lbound(SrcInputFileData%InitPosList) - UB(1:1) = ubound(SrcInputFileData%InitPosList) + LB(1:1) = lbound(SrcInputFileData%InitPosList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%InitPosList, kind=B8Ki) if (.not. allocated(DstInputFileData%InitPosList)) then allocate(DstInputFileData%InitPosList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -249,8 +249,8 @@ subroutine ExtPtfm_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, E DstInputFileData%InitPosList = SrcInputFileData%InitPosList end if if (allocated(SrcInputFileData%InitVelList)) then - LB(1:1) = lbound(SrcInputFileData%InitVelList) - UB(1:1) = ubound(SrcInputFileData%InitVelList) + LB(1:1) = lbound(SrcInputFileData%InitVelList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%InitVelList, kind=B8Ki) if (.not. allocated(DstInputFileData%InitVelList)) then allocate(DstInputFileData%InitVelList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -267,8 +267,8 @@ subroutine ExtPtfm_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, E DstInputFileData%Tstart = SrcInputFileData%Tstart DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -314,17 +314,17 @@ subroutine ExtPtfm_PackInputFile(Buf, Indata) call RegPack(Buf, InData%EquilStart) call RegPack(Buf, allocated(InData%ActiveCBDOF)) if (allocated(InData%ActiveCBDOF)) then - call RegPackBounds(Buf, 1, lbound(InData%ActiveCBDOF), ubound(InData%ActiveCBDOF)) + call RegPackBounds(Buf, 1, lbound(InData%ActiveCBDOF, kind=B8Ki), ubound(InData%ActiveCBDOF, kind=B8Ki)) call RegPack(Buf, InData%ActiveCBDOF) end if call RegPack(Buf, allocated(InData%InitPosList)) if (allocated(InData%InitPosList)) then - call RegPackBounds(Buf, 1, lbound(InData%InitPosList), ubound(InData%InitPosList)) + call RegPackBounds(Buf, 1, lbound(InData%InitPosList, kind=B8Ki), ubound(InData%InitPosList, kind=B8Ki)) call RegPack(Buf, InData%InitPosList) end if call RegPack(Buf, allocated(InData%InitVelList)) if (allocated(InData%InitVelList)) then - call RegPackBounds(Buf, 1, lbound(InData%InitVelList), ubound(InData%InitVelList)) + call RegPackBounds(Buf, 1, lbound(InData%InitVelList, kind=B8Ki), ubound(InData%InitVelList, kind=B8Ki)) call RegPack(Buf, InData%InitVelList) end if call RegPack(Buf, InData%SumPrint) @@ -335,7 +335,7 @@ subroutine ExtPtfm_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if if (RegCheckErr(Buf, RoutineName)) return @@ -345,7 +345,7 @@ subroutine ExtPtfm_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackInputFile' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -437,7 +437,7 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyInitOutput' @@ -447,8 +447,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -459,8 +459,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -471,8 +471,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputUnt = SrcInitOutputData%WriteOutputUnt end if if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -483,8 +483,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -495,8 +495,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -507,8 +507,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -519,8 +519,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_x)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -531,8 +531,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%RotFrame_x = SrcInitOutputData%RotFrame_x end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -543,8 +543,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -555,8 +555,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%IsLoad_u = SrcInitOutputData%IsLoad_u end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -619,52 +619,52 @@ subroutine ExtPtfm_PackInitOutput(Buf, Indata) call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -674,7 +674,7 @@ subroutine ExtPtfm_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -827,14 +827,14 @@ subroutine ExtPtfm_CopyContState(SrcContStateData, DstContStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%qm)) then - LB(1:1) = lbound(SrcContStateData%qm) - UB(1:1) = ubound(SrcContStateData%qm) + LB(1:1) = lbound(SrcContStateData%qm, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%qm, kind=B8Ki) if (.not. allocated(DstContStateData%qm)) then allocate(DstContStateData%qm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -845,8 +845,8 @@ subroutine ExtPtfm_CopyContState(SrcContStateData, DstContStateData, CtrlCode, E DstContStateData%qm = SrcContStateData%qm end if if (allocated(SrcContStateData%qmdot)) then - LB(1:1) = lbound(SrcContStateData%qmdot) - UB(1:1) = ubound(SrcContStateData%qmdot) + LB(1:1) = lbound(SrcContStateData%qmdot, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%qmdot, kind=B8Ki) if (.not. allocated(DstContStateData%qmdot)) then allocate(DstContStateData%qmdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -880,12 +880,12 @@ subroutine ExtPtfm_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%qm)) if (allocated(InData%qm)) then - call RegPackBounds(Buf, 1, lbound(InData%qm), ubound(InData%qm)) + call RegPackBounds(Buf, 1, lbound(InData%qm, kind=B8Ki), ubound(InData%qm, kind=B8Ki)) call RegPack(Buf, InData%qm) end if call RegPack(Buf, allocated(InData%qmdot)) if (allocated(InData%qmdot)) then - call RegPackBounds(Buf, 1, lbound(InData%qmdot), ubound(InData%qmdot)) + call RegPackBounds(Buf, 1, lbound(InData%qmdot, kind=B8Ki), ubound(InData%qmdot, kind=B8Ki)) call RegPack(Buf, InData%qmdot) end if if (RegCheckErr(Buf, RoutineName)) return @@ -895,7 +895,7 @@ subroutine ExtPtfm_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackContState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1013,16 +1013,16 @@ subroutine ExtPtfm_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%xdot)) then - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1043,16 +1043,16 @@ subroutine ExtPtfm_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(ExtPtfm_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%xdot)) then - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1065,14 +1065,14 @@ subroutine ExtPtfm_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtPtfm_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(Buf, 1, lbound(InData%xdot), ubound(InData%xdot)) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + call RegPackBounds(Buf, 1, lbound(InData%xdot, kind=B8Ki), ubound(InData%xdot, kind=B8Ki)) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackContState(Buf, InData%xdot(i1)) end do @@ -1085,8 +1085,8 @@ subroutine ExtPtfm_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1115,14 +1115,14 @@ subroutine ExtPtfm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%xFlat)) then - LB(1:1) = lbound(SrcMiscData%xFlat) - UB(1:1) = ubound(SrcMiscData%xFlat) + LB(1:1) = lbound(SrcMiscData%xFlat, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%xFlat, kind=B8Ki) if (.not. allocated(DstMiscData%xFlat)) then allocate(DstMiscData%xFlat(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1134,8 +1134,8 @@ subroutine ExtPtfm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end if DstMiscData%uFlat = SrcMiscData%uFlat if (allocated(SrcMiscData%F_at_t)) then - LB(1:1) = lbound(SrcMiscData%F_at_t) - UB(1:1) = ubound(SrcMiscData%F_at_t) + LB(1:1) = lbound(SrcMiscData%F_at_t, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_at_t, kind=B8Ki) if (.not. allocated(DstMiscData%F_at_t)) then allocate(DstMiscData%F_at_t(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1148,8 +1148,8 @@ subroutine ExtPtfm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Indx = SrcMiscData%Indx DstMiscData%EquilStart = SrcMiscData%EquilStart if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1186,20 +1186,20 @@ subroutine ExtPtfm_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%xFlat)) if (allocated(InData%xFlat)) then - call RegPackBounds(Buf, 1, lbound(InData%xFlat), ubound(InData%xFlat)) + call RegPackBounds(Buf, 1, lbound(InData%xFlat, kind=B8Ki), ubound(InData%xFlat, kind=B8Ki)) call RegPack(Buf, InData%xFlat) end if call RegPack(Buf, InData%uFlat) call RegPack(Buf, allocated(InData%F_at_t)) if (allocated(InData%F_at_t)) then - call RegPackBounds(Buf, 1, lbound(InData%F_at_t), ubound(InData%F_at_t)) + call RegPackBounds(Buf, 1, lbound(InData%F_at_t, kind=B8Ki), ubound(InData%F_at_t, kind=B8Ki)) call RegPack(Buf, InData%F_at_t) end if call RegPack(Buf, InData%Indx) call RegPack(Buf, InData%EquilStart) call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1209,7 +1209,7 @@ subroutine ExtPtfm_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackMisc' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1269,16 +1269,16 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcParamData%Mass)) then - LB(1:2) = lbound(SrcParamData%Mass) - UB(1:2) = ubound(SrcParamData%Mass) + LB(1:2) = lbound(SrcParamData%Mass, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Mass, kind=B8Ki) if (.not. allocated(DstParamData%Mass)) then allocate(DstParamData%Mass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1289,8 +1289,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%Mass = SrcParamData%Mass end if if (allocated(SrcParamData%Damp)) then - LB(1:2) = lbound(SrcParamData%Damp) - UB(1:2) = ubound(SrcParamData%Damp) + LB(1:2) = lbound(SrcParamData%Damp, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Damp, kind=B8Ki) if (.not. allocated(DstParamData%Damp)) then allocate(DstParamData%Damp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1301,8 +1301,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%Damp = SrcParamData%Damp end if if (allocated(SrcParamData%Stff)) then - LB(1:2) = lbound(SrcParamData%Stff) - UB(1:2) = ubound(SrcParamData%Stff) + LB(1:2) = lbound(SrcParamData%Stff, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Stff, kind=B8Ki) if (.not. allocated(DstParamData%Stff)) then allocate(DstParamData%Stff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1313,8 +1313,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%Stff = SrcParamData%Stff end if if (allocated(SrcParamData%Forces)) then - LB(1:2) = lbound(SrcParamData%Forces) - UB(1:2) = ubound(SrcParamData%Forces) + LB(1:2) = lbound(SrcParamData%Forces, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Forces, kind=B8Ki) if (.not. allocated(DstParamData%Forces)) then allocate(DstParamData%Forces(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1325,8 +1325,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%Forces = SrcParamData%Forces end if if (allocated(SrcParamData%times)) then - LB(1:1) = lbound(SrcParamData%times) - UB(1:1) = ubound(SrcParamData%times) + LB(1:1) = lbound(SrcParamData%times, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%times, kind=B8Ki) if (.not. allocated(DstParamData%times)) then allocate(DstParamData%times(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1337,8 +1337,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%times = SrcParamData%times end if if (allocated(SrcParamData%AMat)) then - LB(1:2) = lbound(SrcParamData%AMat) - UB(1:2) = ubound(SrcParamData%AMat) + LB(1:2) = lbound(SrcParamData%AMat, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%AMat, kind=B8Ki) if (.not. allocated(DstParamData%AMat)) then allocate(DstParamData%AMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1349,8 +1349,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%AMat = SrcParamData%AMat end if if (allocated(SrcParamData%BMat)) then - LB(1:2) = lbound(SrcParamData%BMat) - UB(1:2) = ubound(SrcParamData%BMat) + LB(1:2) = lbound(SrcParamData%BMat, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%BMat, kind=B8Ki) if (.not. allocated(DstParamData%BMat)) then allocate(DstParamData%BMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1361,8 +1361,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%BMat = SrcParamData%BMat end if if (allocated(SrcParamData%CMat)) then - LB(1:2) = lbound(SrcParamData%CMat) - UB(1:2) = ubound(SrcParamData%CMat) + LB(1:2) = lbound(SrcParamData%CMat, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%CMat, kind=B8Ki) if (.not. allocated(DstParamData%CMat)) then allocate(DstParamData%CMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1373,8 +1373,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%CMat = SrcParamData%CMat end if if (allocated(SrcParamData%DMat)) then - LB(1:2) = lbound(SrcParamData%DMat) - UB(1:2) = ubound(SrcParamData%DMat) + LB(1:2) = lbound(SrcParamData%DMat, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%DMat, kind=B8Ki) if (.not. allocated(DstParamData%DMat)) then allocate(DstParamData%DMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1385,8 +1385,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%DMat = SrcParamData%DMat end if if (allocated(SrcParamData%FX)) then - LB(1:1) = lbound(SrcParamData%FX) - UB(1:1) = ubound(SrcParamData%FX) + LB(1:1) = lbound(SrcParamData%FX, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FX, kind=B8Ki) if (.not. allocated(DstParamData%FX)) then allocate(DstParamData%FX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1397,8 +1397,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%FX = SrcParamData%FX end if if (allocated(SrcParamData%FY)) then - LB(1:1) = lbound(SrcParamData%FY) - UB(1:1) = ubound(SrcParamData%FY) + LB(1:1) = lbound(SrcParamData%FY, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FY, kind=B8Ki) if (.not. allocated(DstParamData%FY)) then allocate(DstParamData%FY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1409,8 +1409,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%FY = SrcParamData%FY end if if (allocated(SrcParamData%M11)) then - LB(1:2) = lbound(SrcParamData%M11) - UB(1:2) = ubound(SrcParamData%M11) + LB(1:2) = lbound(SrcParamData%M11, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%M11, kind=B8Ki) if (.not. allocated(DstParamData%M11)) then allocate(DstParamData%M11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1421,8 +1421,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%M11 = SrcParamData%M11 end if if (allocated(SrcParamData%M12)) then - LB(1:2) = lbound(SrcParamData%M12) - UB(1:2) = ubound(SrcParamData%M12) + LB(1:2) = lbound(SrcParamData%M12, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%M12, kind=B8Ki) if (.not. allocated(DstParamData%M12)) then allocate(DstParamData%M12(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1433,8 +1433,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%M12 = SrcParamData%M12 end if if (allocated(SrcParamData%M22)) then - LB(1:2) = lbound(SrcParamData%M22) - UB(1:2) = ubound(SrcParamData%M22) + LB(1:2) = lbound(SrcParamData%M22, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%M22, kind=B8Ki) if (.not. allocated(DstParamData%M22)) then allocate(DstParamData%M22(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1445,8 +1445,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%M22 = SrcParamData%M22 end if if (allocated(SrcParamData%M21)) then - LB(1:2) = lbound(SrcParamData%M21) - UB(1:2) = ubound(SrcParamData%M21) + LB(1:2) = lbound(SrcParamData%M21, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%M21, kind=B8Ki) if (.not. allocated(DstParamData%M21)) then allocate(DstParamData%M21(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1457,8 +1457,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%M21 = SrcParamData%M21 end if if (allocated(SrcParamData%K11)) then - LB(1:2) = lbound(SrcParamData%K11) - UB(1:2) = ubound(SrcParamData%K11) + LB(1:2) = lbound(SrcParamData%K11, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%K11, kind=B8Ki) if (.not. allocated(DstParamData%K11)) then allocate(DstParamData%K11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1469,8 +1469,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%K11 = SrcParamData%K11 end if if (allocated(SrcParamData%K22)) then - LB(1:2) = lbound(SrcParamData%K22) - UB(1:2) = ubound(SrcParamData%K22) + LB(1:2) = lbound(SrcParamData%K22, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%K22, kind=B8Ki) if (.not. allocated(DstParamData%K22)) then allocate(DstParamData%K22(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1481,8 +1481,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%K22 = SrcParamData%K22 end if if (allocated(SrcParamData%C11)) then - LB(1:2) = lbound(SrcParamData%C11) - UB(1:2) = ubound(SrcParamData%C11) + LB(1:2) = lbound(SrcParamData%C11, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C11, kind=B8Ki) if (.not. allocated(DstParamData%C11)) then allocate(DstParamData%C11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1493,8 +1493,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%C11 = SrcParamData%C11 end if if (allocated(SrcParamData%C12)) then - LB(1:2) = lbound(SrcParamData%C12) - UB(1:2) = ubound(SrcParamData%C12) + LB(1:2) = lbound(SrcParamData%C12, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C12, kind=B8Ki) if (.not. allocated(DstParamData%C12)) then allocate(DstParamData%C12(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1505,8 +1505,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%C12 = SrcParamData%C12 end if if (allocated(SrcParamData%C22)) then - LB(1:2) = lbound(SrcParamData%C22) - UB(1:2) = ubound(SrcParamData%C22) + LB(1:2) = lbound(SrcParamData%C22, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C22, kind=B8Ki) if (.not. allocated(DstParamData%C22)) then allocate(DstParamData%C22(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1517,8 +1517,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%C22 = SrcParamData%C22 end if if (allocated(SrcParamData%C21)) then - LB(1:2) = lbound(SrcParamData%C21) - UB(1:2) = ubound(SrcParamData%C21) + LB(1:2) = lbound(SrcParamData%C21, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C21, kind=B8Ki) if (.not. allocated(DstParamData%C21)) then allocate(DstParamData%C21(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1536,8 +1536,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%NumOuts = SrcParamData%NumOuts DstParamData%IntMethod = SrcParamData%IntMethod if (allocated(SrcParamData%ActiveCBDOF)) then - LB(1:1) = lbound(SrcParamData%ActiveCBDOF) - UB(1:1) = ubound(SrcParamData%ActiveCBDOF) + LB(1:1) = lbound(SrcParamData%ActiveCBDOF, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ActiveCBDOF, kind=B8Ki) if (.not. allocated(DstParamData%ActiveCBDOF)) then allocate(DstParamData%ActiveCBDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1548,8 +1548,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%ActiveCBDOF = SrcParamData%ActiveCBDOF end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1564,8 +1564,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcParamData%OutParamLinIndx)) then - LB(1:2) = lbound(SrcParamData%OutParamLinIndx) - UB(1:2) = ubound(SrcParamData%OutParamLinIndx) + LB(1:2) = lbound(SrcParamData%OutParamLinIndx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%OutParamLinIndx, kind=B8Ki) if (.not. allocated(DstParamData%OutParamLinIndx)) then allocate(DstParamData%OutParamLinIndx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1581,8 +1581,8 @@ subroutine ExtPtfm_DestroyParam(ParamData, ErrStat, ErrMsg) type(ExtPtfm_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_DestroyParam' @@ -1655,8 +1655,8 @@ subroutine ExtPtfm_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%ActiveCBDOF) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1672,112 +1672,112 @@ subroutine ExtPtfm_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtPtfm_PackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Mass)) if (allocated(InData%Mass)) then - call RegPackBounds(Buf, 2, lbound(InData%Mass), ubound(InData%Mass)) + call RegPackBounds(Buf, 2, lbound(InData%Mass, kind=B8Ki), ubound(InData%Mass, kind=B8Ki)) call RegPack(Buf, InData%Mass) end if call RegPack(Buf, allocated(InData%Damp)) if (allocated(InData%Damp)) then - call RegPackBounds(Buf, 2, lbound(InData%Damp), ubound(InData%Damp)) + call RegPackBounds(Buf, 2, lbound(InData%Damp, kind=B8Ki), ubound(InData%Damp, kind=B8Ki)) call RegPack(Buf, InData%Damp) end if call RegPack(Buf, allocated(InData%Stff)) if (allocated(InData%Stff)) then - call RegPackBounds(Buf, 2, lbound(InData%Stff), ubound(InData%Stff)) + call RegPackBounds(Buf, 2, lbound(InData%Stff, kind=B8Ki), ubound(InData%Stff, kind=B8Ki)) call RegPack(Buf, InData%Stff) end if call RegPack(Buf, allocated(InData%Forces)) if (allocated(InData%Forces)) then - call RegPackBounds(Buf, 2, lbound(InData%Forces), ubound(InData%Forces)) + call RegPackBounds(Buf, 2, lbound(InData%Forces, kind=B8Ki), ubound(InData%Forces, kind=B8Ki)) call RegPack(Buf, InData%Forces) end if call RegPack(Buf, allocated(InData%times)) if (allocated(InData%times)) then - call RegPackBounds(Buf, 1, lbound(InData%times), ubound(InData%times)) + call RegPackBounds(Buf, 1, lbound(InData%times, kind=B8Ki), ubound(InData%times, kind=B8Ki)) call RegPack(Buf, InData%times) end if call RegPack(Buf, allocated(InData%AMat)) if (allocated(InData%AMat)) then - call RegPackBounds(Buf, 2, lbound(InData%AMat), ubound(InData%AMat)) + call RegPackBounds(Buf, 2, lbound(InData%AMat, kind=B8Ki), ubound(InData%AMat, kind=B8Ki)) call RegPack(Buf, InData%AMat) end if call RegPack(Buf, allocated(InData%BMat)) if (allocated(InData%BMat)) then - call RegPackBounds(Buf, 2, lbound(InData%BMat), ubound(InData%BMat)) + call RegPackBounds(Buf, 2, lbound(InData%BMat, kind=B8Ki), ubound(InData%BMat, kind=B8Ki)) call RegPack(Buf, InData%BMat) end if call RegPack(Buf, allocated(InData%CMat)) if (allocated(InData%CMat)) then - call RegPackBounds(Buf, 2, lbound(InData%CMat), ubound(InData%CMat)) + call RegPackBounds(Buf, 2, lbound(InData%CMat, kind=B8Ki), ubound(InData%CMat, kind=B8Ki)) call RegPack(Buf, InData%CMat) end if call RegPack(Buf, allocated(InData%DMat)) if (allocated(InData%DMat)) then - call RegPackBounds(Buf, 2, lbound(InData%DMat), ubound(InData%DMat)) + call RegPackBounds(Buf, 2, lbound(InData%DMat, kind=B8Ki), ubound(InData%DMat, kind=B8Ki)) call RegPack(Buf, InData%DMat) end if call RegPack(Buf, allocated(InData%FX)) if (allocated(InData%FX)) then - call RegPackBounds(Buf, 1, lbound(InData%FX), ubound(InData%FX)) + call RegPackBounds(Buf, 1, lbound(InData%FX, kind=B8Ki), ubound(InData%FX, kind=B8Ki)) call RegPack(Buf, InData%FX) end if call RegPack(Buf, allocated(InData%FY)) if (allocated(InData%FY)) then - call RegPackBounds(Buf, 1, lbound(InData%FY), ubound(InData%FY)) + call RegPackBounds(Buf, 1, lbound(InData%FY, kind=B8Ki), ubound(InData%FY, kind=B8Ki)) call RegPack(Buf, InData%FY) end if call RegPack(Buf, allocated(InData%M11)) if (allocated(InData%M11)) then - call RegPackBounds(Buf, 2, lbound(InData%M11), ubound(InData%M11)) + call RegPackBounds(Buf, 2, lbound(InData%M11, kind=B8Ki), ubound(InData%M11, kind=B8Ki)) call RegPack(Buf, InData%M11) end if call RegPack(Buf, allocated(InData%M12)) if (allocated(InData%M12)) then - call RegPackBounds(Buf, 2, lbound(InData%M12), ubound(InData%M12)) + call RegPackBounds(Buf, 2, lbound(InData%M12, kind=B8Ki), ubound(InData%M12, kind=B8Ki)) call RegPack(Buf, InData%M12) end if call RegPack(Buf, allocated(InData%M22)) if (allocated(InData%M22)) then - call RegPackBounds(Buf, 2, lbound(InData%M22), ubound(InData%M22)) + call RegPackBounds(Buf, 2, lbound(InData%M22, kind=B8Ki), ubound(InData%M22, kind=B8Ki)) call RegPack(Buf, InData%M22) end if call RegPack(Buf, allocated(InData%M21)) if (allocated(InData%M21)) then - call RegPackBounds(Buf, 2, lbound(InData%M21), ubound(InData%M21)) + call RegPackBounds(Buf, 2, lbound(InData%M21, kind=B8Ki), ubound(InData%M21, kind=B8Ki)) call RegPack(Buf, InData%M21) end if call RegPack(Buf, allocated(InData%K11)) if (allocated(InData%K11)) then - call RegPackBounds(Buf, 2, lbound(InData%K11), ubound(InData%K11)) + call RegPackBounds(Buf, 2, lbound(InData%K11, kind=B8Ki), ubound(InData%K11, kind=B8Ki)) call RegPack(Buf, InData%K11) end if call RegPack(Buf, allocated(InData%K22)) if (allocated(InData%K22)) then - call RegPackBounds(Buf, 2, lbound(InData%K22), ubound(InData%K22)) + call RegPackBounds(Buf, 2, lbound(InData%K22, kind=B8Ki), ubound(InData%K22, kind=B8Ki)) call RegPack(Buf, InData%K22) end if call RegPack(Buf, allocated(InData%C11)) if (allocated(InData%C11)) then - call RegPackBounds(Buf, 2, lbound(InData%C11), ubound(InData%C11)) + call RegPackBounds(Buf, 2, lbound(InData%C11, kind=B8Ki), ubound(InData%C11, kind=B8Ki)) call RegPack(Buf, InData%C11) end if call RegPack(Buf, allocated(InData%C12)) if (allocated(InData%C12)) then - call RegPackBounds(Buf, 2, lbound(InData%C12), ubound(InData%C12)) + call RegPackBounds(Buf, 2, lbound(InData%C12, kind=B8Ki), ubound(InData%C12, kind=B8Ki)) call RegPack(Buf, InData%C12) end if call RegPack(Buf, allocated(InData%C22)) if (allocated(InData%C22)) then - call RegPackBounds(Buf, 2, lbound(InData%C22), ubound(InData%C22)) + call RegPackBounds(Buf, 2, lbound(InData%C22, kind=B8Ki), ubound(InData%C22, kind=B8Ki)) call RegPack(Buf, InData%C22) end if call RegPack(Buf, allocated(InData%C21)) if (allocated(InData%C21)) then - call RegPackBounds(Buf, 2, lbound(InData%C21), ubound(InData%C21)) + call RegPackBounds(Buf, 2, lbound(InData%C21, kind=B8Ki), ubound(InData%C21, kind=B8Ki)) call RegPack(Buf, InData%C21) end if call RegPack(Buf, InData%EP_DeltaT) @@ -1789,21 +1789,21 @@ subroutine ExtPtfm_PackParam(Buf, Indata) call RegPack(Buf, InData%IntMethod) call RegPack(Buf, allocated(InData%ActiveCBDOF)) if (allocated(InData%ActiveCBDOF)) then - call RegPackBounds(Buf, 1, lbound(InData%ActiveCBDOF), ubound(InData%ActiveCBDOF)) + call RegPackBounds(Buf, 1, lbound(InData%ActiveCBDOF, kind=B8Ki), ubound(InData%ActiveCBDOF, kind=B8Ki)) call RegPack(Buf, InData%ActiveCBDOF) end if call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do end if call RegPack(Buf, allocated(InData%OutParamLinIndx)) if (allocated(InData%OutParamLinIndx)) then - call RegPackBounds(Buf, 2, lbound(InData%OutParamLinIndx), ubound(InData%OutParamLinIndx)) + call RegPackBounds(Buf, 2, lbound(InData%OutParamLinIndx, kind=B8Ki), ubound(InData%OutParamLinIndx, kind=B8Ki)) call RegPack(Buf, InData%OutParamLinIndx) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1813,8 +1813,8 @@ subroutine ExtPtfm_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2223,7 +2223,7 @@ subroutine ExtPtfm_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyOutput' @@ -2233,8 +2233,8 @@ subroutine ExtPtfm_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2270,7 +2270,7 @@ subroutine ExtPtfm_PackOutput(Buf, Indata) call MeshPack(Buf, InData%PtfmMesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2280,7 +2280,7 @@ subroutine ExtPtfm_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/feamooring/src/FEAMooring_Types.f90 b/modules/feamooring/src/FEAMooring_Types.f90 index 29b7bba7dd..70dbe328be 100644 --- a/modules/feamooring/src/FEAMooring_Types.f90 +++ b/modules/feamooring/src/FEAMooring_Types.f90 @@ -231,15 +231,15 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FEAM_CopyInputFile' ErrStat = ErrID_None ErrMsg = '' DstInputFileData%DT = SrcInputFileData%DT if (allocated(SrcInputFileData%LineCI)) then - LB(1:1) = lbound(SrcInputFileData%LineCI) - UB(1:1) = ubound(SrcInputFileData%LineCI) + LB(1:1) = lbound(SrcInputFileData%LineCI, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LineCI, kind=B8Ki) if (.not. allocated(DstInputFileData%LineCI)) then allocate(DstInputFileData%LineCI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -250,8 +250,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LineCI = SrcInputFileData%LineCI end if if (allocated(SrcInputFileData%LineCD)) then - LB(1:1) = lbound(SrcInputFileData%LineCD) - UB(1:1) = ubound(SrcInputFileData%LineCD) + LB(1:1) = lbound(SrcInputFileData%LineCD, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LineCD, kind=B8Ki) if (.not. allocated(DstInputFileData%LineCD)) then allocate(DstInputFileData%LineCD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -262,8 +262,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LineCD = SrcInputFileData%LineCD end if if (allocated(SrcInputFileData%LEAStiff)) then - LB(1:1) = lbound(SrcInputFileData%LEAStiff) - UB(1:1) = ubound(SrcInputFileData%LEAStiff) + LB(1:1) = lbound(SrcInputFileData%LEAStiff, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LEAStiff, kind=B8Ki) if (.not. allocated(DstInputFileData%LEAStiff)) then allocate(DstInputFileData%LEAStiff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -274,8 +274,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LEAStiff = SrcInputFileData%LEAStiff end if if (allocated(SrcInputFileData%LMassDen)) then - LB(1:1) = lbound(SrcInputFileData%LMassDen) - UB(1:1) = ubound(SrcInputFileData%LMassDen) + LB(1:1) = lbound(SrcInputFileData%LMassDen, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LMassDen, kind=B8Ki) if (.not. allocated(DstInputFileData%LMassDen)) then allocate(DstInputFileData%LMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -286,8 +286,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LMassDen = SrcInputFileData%LMassDen end if if (allocated(SrcInputFileData%LDMassDen)) then - LB(1:1) = lbound(SrcInputFileData%LDMassDen) - UB(1:1) = ubound(SrcInputFileData%LDMassDen) + LB(1:1) = lbound(SrcInputFileData%LDMassDen, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LDMassDen, kind=B8Ki) if (.not. allocated(DstInputFileData%LDMassDen)) then allocate(DstInputFileData%LDMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -298,8 +298,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LDMassDen = SrcInputFileData%LDMassDen end if if (allocated(SrcInputFileData%BottmStiff)) then - LB(1:1) = lbound(SrcInputFileData%BottmStiff) - UB(1:1) = ubound(SrcInputFileData%BottmStiff) + LB(1:1) = lbound(SrcInputFileData%BottmStiff, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BottmStiff, kind=B8Ki) if (.not. allocated(DstInputFileData%BottmStiff)) then allocate(DstInputFileData%BottmStiff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -310,8 +310,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%BottmStiff = SrcInputFileData%BottmStiff end if if (allocated(SrcInputFileData%LRadAnch)) then - LB(1:1) = lbound(SrcInputFileData%LRadAnch) - UB(1:1) = ubound(SrcInputFileData%LRadAnch) + LB(1:1) = lbound(SrcInputFileData%LRadAnch, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LRadAnch, kind=B8Ki) if (.not. allocated(DstInputFileData%LRadAnch)) then allocate(DstInputFileData%LRadAnch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -322,8 +322,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LRadAnch = SrcInputFileData%LRadAnch end if if (allocated(SrcInputFileData%LAngAnch)) then - LB(1:1) = lbound(SrcInputFileData%LAngAnch) - UB(1:1) = ubound(SrcInputFileData%LAngAnch) + LB(1:1) = lbound(SrcInputFileData%LAngAnch, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LAngAnch, kind=B8Ki) if (.not. allocated(DstInputFileData%LAngAnch)) then allocate(DstInputFileData%LAngAnch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -334,8 +334,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LAngAnch = SrcInputFileData%LAngAnch end if if (allocated(SrcInputFileData%LDpthAnch)) then - LB(1:1) = lbound(SrcInputFileData%LDpthAnch) - UB(1:1) = ubound(SrcInputFileData%LDpthAnch) + LB(1:1) = lbound(SrcInputFileData%LDpthAnch, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LDpthAnch, kind=B8Ki) if (.not. allocated(DstInputFileData%LDpthAnch)) then allocate(DstInputFileData%LDpthAnch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -346,8 +346,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LDpthAnch = SrcInputFileData%LDpthAnch end if if (allocated(SrcInputFileData%LRadFair)) then - LB(1:1) = lbound(SrcInputFileData%LRadFair) - UB(1:1) = ubound(SrcInputFileData%LRadFair) + LB(1:1) = lbound(SrcInputFileData%LRadFair, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LRadFair, kind=B8Ki) if (.not. allocated(DstInputFileData%LRadFair)) then allocate(DstInputFileData%LRadFair(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -358,8 +358,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LRadFair = SrcInputFileData%LRadFair end if if (allocated(SrcInputFileData%LAngFair)) then - LB(1:1) = lbound(SrcInputFileData%LAngFair) - UB(1:1) = ubound(SrcInputFileData%LAngFair) + LB(1:1) = lbound(SrcInputFileData%LAngFair, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LAngFair, kind=B8Ki) if (.not. allocated(DstInputFileData%LAngFair)) then allocate(DstInputFileData%LAngFair(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -370,8 +370,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LAngFair = SrcInputFileData%LAngFair end if if (allocated(SrcInputFileData%LDrftFair)) then - LB(1:1) = lbound(SrcInputFileData%LDrftFair) - UB(1:1) = ubound(SrcInputFileData%LDrftFair) + LB(1:1) = lbound(SrcInputFileData%LDrftFair, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LDrftFair, kind=B8Ki) if (.not. allocated(DstInputFileData%LDrftFair)) then allocate(DstInputFileData%LDrftFair(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -382,8 +382,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LDrftFair = SrcInputFileData%LDrftFair end if if (allocated(SrcInputFileData%LUnstrLen)) then - LB(1:1) = lbound(SrcInputFileData%LUnstrLen) - UB(1:1) = ubound(SrcInputFileData%LUnstrLen) + LB(1:1) = lbound(SrcInputFileData%LUnstrLen, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LUnstrLen, kind=B8Ki) if (.not. allocated(DstInputFileData%LUnstrLen)) then allocate(DstInputFileData%LUnstrLen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -394,8 +394,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LUnstrLen = SrcInputFileData%LUnstrLen end if if (allocated(SrcInputFileData%Tension)) then - LB(1:1) = lbound(SrcInputFileData%Tension) - UB(1:1) = ubound(SrcInputFileData%Tension) + LB(1:1) = lbound(SrcInputFileData%Tension, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%Tension, kind=B8Ki) if (.not. allocated(DstInputFileData%Tension)) then allocate(DstInputFileData%Tension(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -406,8 +406,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%Tension = SrcInputFileData%Tension end if if (allocated(SrcInputFileData%GSL)) then - LB(1:3) = lbound(SrcInputFileData%GSL) - UB(1:3) = ubound(SrcInputFileData%GSL) + LB(1:3) = lbound(SrcInputFileData%GSL, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%GSL, kind=B8Ki) if (.not. allocated(DstInputFileData%GSL)) then allocate(DstInputFileData%GSL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -418,8 +418,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%GSL = SrcInputFileData%GSL end if if (allocated(SrcInputFileData%GSR)) then - LB(1:2) = lbound(SrcInputFileData%GSR) - UB(1:2) = ubound(SrcInputFileData%GSR) + LB(1:2) = lbound(SrcInputFileData%GSR, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileData%GSR, kind=B8Ki) if (.not. allocated(DstInputFileData%GSR)) then allocate(DstInputFileData%GSR(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -430,8 +430,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%GSR = SrcInputFileData%GSR end if if (allocated(SrcInputFileData%GE)) then - LB(1:3) = lbound(SrcInputFileData%GE) - UB(1:3) = ubound(SrcInputFileData%GE) + LB(1:3) = lbound(SrcInputFileData%GE, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%GE, kind=B8Ki) if (.not. allocated(DstInputFileData%GE)) then allocate(DstInputFileData%GE(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -454,8 +454,8 @@ subroutine FEAM_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%Tstart = SrcInputFileData%Tstart DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -538,87 +538,87 @@ subroutine FEAM_PackInputFile(Buf, Indata) call RegPack(Buf, InData%DT) call RegPack(Buf, allocated(InData%LineCI)) if (allocated(InData%LineCI)) then - call RegPackBounds(Buf, 1, lbound(InData%LineCI), ubound(InData%LineCI)) + call RegPackBounds(Buf, 1, lbound(InData%LineCI, kind=B8Ki), ubound(InData%LineCI, kind=B8Ki)) call RegPack(Buf, InData%LineCI) end if call RegPack(Buf, allocated(InData%LineCD)) if (allocated(InData%LineCD)) then - call RegPackBounds(Buf, 1, lbound(InData%LineCD), ubound(InData%LineCD)) + call RegPackBounds(Buf, 1, lbound(InData%LineCD, kind=B8Ki), ubound(InData%LineCD, kind=B8Ki)) call RegPack(Buf, InData%LineCD) end if call RegPack(Buf, allocated(InData%LEAStiff)) if (allocated(InData%LEAStiff)) then - call RegPackBounds(Buf, 1, lbound(InData%LEAStiff), ubound(InData%LEAStiff)) + call RegPackBounds(Buf, 1, lbound(InData%LEAStiff, kind=B8Ki), ubound(InData%LEAStiff, kind=B8Ki)) call RegPack(Buf, InData%LEAStiff) end if call RegPack(Buf, allocated(InData%LMassDen)) if (allocated(InData%LMassDen)) then - call RegPackBounds(Buf, 1, lbound(InData%LMassDen), ubound(InData%LMassDen)) + call RegPackBounds(Buf, 1, lbound(InData%LMassDen, kind=B8Ki), ubound(InData%LMassDen, kind=B8Ki)) call RegPack(Buf, InData%LMassDen) end if call RegPack(Buf, allocated(InData%LDMassDen)) if (allocated(InData%LDMassDen)) then - call RegPackBounds(Buf, 1, lbound(InData%LDMassDen), ubound(InData%LDMassDen)) + call RegPackBounds(Buf, 1, lbound(InData%LDMassDen, kind=B8Ki), ubound(InData%LDMassDen, kind=B8Ki)) call RegPack(Buf, InData%LDMassDen) end if call RegPack(Buf, allocated(InData%BottmStiff)) if (allocated(InData%BottmStiff)) then - call RegPackBounds(Buf, 1, lbound(InData%BottmStiff), ubound(InData%BottmStiff)) + call RegPackBounds(Buf, 1, lbound(InData%BottmStiff, kind=B8Ki), ubound(InData%BottmStiff, kind=B8Ki)) call RegPack(Buf, InData%BottmStiff) end if call RegPack(Buf, allocated(InData%LRadAnch)) if (allocated(InData%LRadAnch)) then - call RegPackBounds(Buf, 1, lbound(InData%LRadAnch), ubound(InData%LRadAnch)) + call RegPackBounds(Buf, 1, lbound(InData%LRadAnch, kind=B8Ki), ubound(InData%LRadAnch, kind=B8Ki)) call RegPack(Buf, InData%LRadAnch) end if call RegPack(Buf, allocated(InData%LAngAnch)) if (allocated(InData%LAngAnch)) then - call RegPackBounds(Buf, 1, lbound(InData%LAngAnch), ubound(InData%LAngAnch)) + call RegPackBounds(Buf, 1, lbound(InData%LAngAnch, kind=B8Ki), ubound(InData%LAngAnch, kind=B8Ki)) call RegPack(Buf, InData%LAngAnch) end if call RegPack(Buf, allocated(InData%LDpthAnch)) if (allocated(InData%LDpthAnch)) then - call RegPackBounds(Buf, 1, lbound(InData%LDpthAnch), ubound(InData%LDpthAnch)) + call RegPackBounds(Buf, 1, lbound(InData%LDpthAnch, kind=B8Ki), ubound(InData%LDpthAnch, kind=B8Ki)) call RegPack(Buf, InData%LDpthAnch) end if call RegPack(Buf, allocated(InData%LRadFair)) if (allocated(InData%LRadFair)) then - call RegPackBounds(Buf, 1, lbound(InData%LRadFair), ubound(InData%LRadFair)) + call RegPackBounds(Buf, 1, lbound(InData%LRadFair, kind=B8Ki), ubound(InData%LRadFair, kind=B8Ki)) call RegPack(Buf, InData%LRadFair) end if call RegPack(Buf, allocated(InData%LAngFair)) if (allocated(InData%LAngFair)) then - call RegPackBounds(Buf, 1, lbound(InData%LAngFair), ubound(InData%LAngFair)) + call RegPackBounds(Buf, 1, lbound(InData%LAngFair, kind=B8Ki), ubound(InData%LAngFair, kind=B8Ki)) call RegPack(Buf, InData%LAngFair) end if call RegPack(Buf, allocated(InData%LDrftFair)) if (allocated(InData%LDrftFair)) then - call RegPackBounds(Buf, 1, lbound(InData%LDrftFair), ubound(InData%LDrftFair)) + call RegPackBounds(Buf, 1, lbound(InData%LDrftFair, kind=B8Ki), ubound(InData%LDrftFair, kind=B8Ki)) call RegPack(Buf, InData%LDrftFair) end if call RegPack(Buf, allocated(InData%LUnstrLen)) if (allocated(InData%LUnstrLen)) then - call RegPackBounds(Buf, 1, lbound(InData%LUnstrLen), ubound(InData%LUnstrLen)) + call RegPackBounds(Buf, 1, lbound(InData%LUnstrLen, kind=B8Ki), ubound(InData%LUnstrLen, kind=B8Ki)) call RegPack(Buf, InData%LUnstrLen) end if call RegPack(Buf, allocated(InData%Tension)) if (allocated(InData%Tension)) then - call RegPackBounds(Buf, 1, lbound(InData%Tension), ubound(InData%Tension)) + call RegPackBounds(Buf, 1, lbound(InData%Tension, kind=B8Ki), ubound(InData%Tension, kind=B8Ki)) call RegPack(Buf, InData%Tension) end if call RegPack(Buf, allocated(InData%GSL)) if (allocated(InData%GSL)) then - call RegPackBounds(Buf, 3, lbound(InData%GSL), ubound(InData%GSL)) + call RegPackBounds(Buf, 3, lbound(InData%GSL, kind=B8Ki), ubound(InData%GSL, kind=B8Ki)) call RegPack(Buf, InData%GSL) end if call RegPack(Buf, allocated(InData%GSR)) if (allocated(InData%GSR)) then - call RegPackBounds(Buf, 2, lbound(InData%GSR), ubound(InData%GSR)) + call RegPackBounds(Buf, 2, lbound(InData%GSR, kind=B8Ki), ubound(InData%GSR, kind=B8Ki)) call RegPack(Buf, InData%GSR) end if call RegPack(Buf, allocated(InData%GE)) if (allocated(InData%GE)) then - call RegPackBounds(Buf, 3, lbound(InData%GE), ubound(InData%GE)) + call RegPackBounds(Buf, 3, lbound(InData%GE, kind=B8Ki), ubound(InData%GE, kind=B8Ki)) call RegPack(Buf, InData%GE) end if call RegPack(Buf, InData%NumLines) @@ -635,7 +635,7 @@ subroutine FEAM_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if if (RegCheckErr(Buf, RoutineName)) return @@ -645,7 +645,7 @@ subroutine FEAM_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackInputFile' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -935,7 +935,7 @@ subroutine FEAM_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FEAM_CopyInitInput' ErrStat = ErrID_None @@ -945,8 +945,8 @@ subroutine FEAM_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%PtfmInit = SrcInitInputData%PtfmInit DstInitInputData%NStepWave = SrcInitInputData%NStepWave if (allocated(SrcInitInputData%WaveAcc0)) then - LB(1:3) = lbound(SrcInitInputData%WaveAcc0) - UB(1:3) = ubound(SrcInitInputData%WaveAcc0) + LB(1:3) = lbound(SrcInitInputData%WaveAcc0, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%WaveAcc0, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveAcc0)) then allocate(DstInitInputData%WaveAcc0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -957,8 +957,8 @@ subroutine FEAM_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%WaveAcc0 = SrcInitInputData%WaveAcc0 end if if (allocated(SrcInitInputData%WaveTime)) then - LB(1:1) = lbound(SrcInitInputData%WaveTime) - UB(1:1) = ubound(SrcInitInputData%WaveTime) + LB(1:1) = lbound(SrcInitInputData%WaveTime, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveTime, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveTime)) then allocate(DstInitInputData%WaveTime(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -969,8 +969,8 @@ subroutine FEAM_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%WaveTime = SrcInitInputData%WaveTime end if if (allocated(SrcInitInputData%WaveVel0)) then - LB(1:3) = lbound(SrcInitInputData%WaveVel0) - UB(1:3) = ubound(SrcInitInputData%WaveVel0) + LB(1:3) = lbound(SrcInitInputData%WaveVel0, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%WaveVel0, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveVel0)) then allocate(DstInitInputData%WaveVel0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1013,17 +1013,17 @@ subroutine FEAM_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NStepWave) call RegPack(Buf, allocated(InData%WaveAcc0)) if (allocated(InData%WaveAcc0)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveAcc0), ubound(InData%WaveAcc0)) + call RegPackBounds(Buf, 3, lbound(InData%WaveAcc0, kind=B8Ki), ubound(InData%WaveAcc0, kind=B8Ki)) call RegPack(Buf, InData%WaveAcc0) end if call RegPack(Buf, allocated(InData%WaveTime)) if (allocated(InData%WaveTime)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveTime), ubound(InData%WaveTime)) + call RegPackBounds(Buf, 1, lbound(InData%WaveTime, kind=B8Ki), ubound(InData%WaveTime, kind=B8Ki)) call RegPack(Buf, InData%WaveTime) end if call RegPack(Buf, allocated(InData%WaveVel0)) if (allocated(InData%WaveVel0)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveVel0), ubound(InData%WaveVel0)) + call RegPackBounds(Buf, 3, lbound(InData%WaveVel0, kind=B8Ki), ubound(InData%WaveVel0, kind=B8Ki)) call RegPack(Buf, InData%WaveVel0) end if call RegPack(Buf, InData%Gravity) @@ -1035,7 +1035,7 @@ subroutine FEAM_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackInitInput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1101,15 +1101,15 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FEAM_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1120,8 +1120,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1135,8 +1135,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%LAnchxi)) then - LB(1:1) = lbound(SrcInitOutputData%LAnchxi) - UB(1:1) = ubound(SrcInitOutputData%LAnchxi) + LB(1:1) = lbound(SrcInitOutputData%LAnchxi, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LAnchxi, kind=B8Ki) if (.not. allocated(DstInitOutputData%LAnchxi)) then allocate(DstInitOutputData%LAnchxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1147,8 +1147,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LAnchxi = SrcInitOutputData%LAnchxi end if if (allocated(SrcInitOutputData%LAnchyi)) then - LB(1:1) = lbound(SrcInitOutputData%LAnchyi) - UB(1:1) = ubound(SrcInitOutputData%LAnchyi) + LB(1:1) = lbound(SrcInitOutputData%LAnchyi, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LAnchyi, kind=B8Ki) if (.not. allocated(DstInitOutputData%LAnchyi)) then allocate(DstInitOutputData%LAnchyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1159,8 +1159,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LAnchyi = SrcInitOutputData%LAnchyi end if if (allocated(SrcInitOutputData%LAnchzi)) then - LB(1:1) = lbound(SrcInitOutputData%LAnchzi) - UB(1:1) = ubound(SrcInitOutputData%LAnchzi) + LB(1:1) = lbound(SrcInitOutputData%LAnchzi, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LAnchzi, kind=B8Ki) if (.not. allocated(DstInitOutputData%LAnchzi)) then allocate(DstInitOutputData%LAnchzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1171,8 +1171,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LAnchzi = SrcInitOutputData%LAnchzi end if if (allocated(SrcInitOutputData%LFairxt)) then - LB(1:1) = lbound(SrcInitOutputData%LFairxt) - UB(1:1) = ubound(SrcInitOutputData%LFairxt) + LB(1:1) = lbound(SrcInitOutputData%LFairxt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LFairxt, kind=B8Ki) if (.not. allocated(DstInitOutputData%LFairxt)) then allocate(DstInitOutputData%LFairxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1183,8 +1183,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LFairxt = SrcInitOutputData%LFairxt end if if (allocated(SrcInitOutputData%LFairyt)) then - LB(1:1) = lbound(SrcInitOutputData%LFairyt) - UB(1:1) = ubound(SrcInitOutputData%LFairyt) + LB(1:1) = lbound(SrcInitOutputData%LFairyt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LFairyt, kind=B8Ki) if (.not. allocated(DstInitOutputData%LFairyt)) then allocate(DstInitOutputData%LFairyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1195,8 +1195,8 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LFairyt = SrcInitOutputData%LFairyt end if if (allocated(SrcInitOutputData%LFairzt)) then - LB(1:1) = lbound(SrcInitOutputData%LFairzt) - UB(1:1) = ubound(SrcInitOutputData%LFairzt) + LB(1:1) = lbound(SrcInitOutputData%LFairzt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LFairzt, kind=B8Ki) if (.not. allocated(DstInitOutputData%LFairzt)) then allocate(DstInitOutputData%LFairzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1252,43 +1252,43 @@ subroutine FEAM_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%LAnchxi)) if (allocated(InData%LAnchxi)) then - call RegPackBounds(Buf, 1, lbound(InData%LAnchxi), ubound(InData%LAnchxi)) + call RegPackBounds(Buf, 1, lbound(InData%LAnchxi, kind=B8Ki), ubound(InData%LAnchxi, kind=B8Ki)) call RegPack(Buf, InData%LAnchxi) end if call RegPack(Buf, allocated(InData%LAnchyi)) if (allocated(InData%LAnchyi)) then - call RegPackBounds(Buf, 1, lbound(InData%LAnchyi), ubound(InData%LAnchyi)) + call RegPackBounds(Buf, 1, lbound(InData%LAnchyi, kind=B8Ki), ubound(InData%LAnchyi, kind=B8Ki)) call RegPack(Buf, InData%LAnchyi) end if call RegPack(Buf, allocated(InData%LAnchzi)) if (allocated(InData%LAnchzi)) then - call RegPackBounds(Buf, 1, lbound(InData%LAnchzi), ubound(InData%LAnchzi)) + call RegPackBounds(Buf, 1, lbound(InData%LAnchzi, kind=B8Ki), ubound(InData%LAnchzi, kind=B8Ki)) call RegPack(Buf, InData%LAnchzi) end if call RegPack(Buf, allocated(InData%LFairxt)) if (allocated(InData%LFairxt)) then - call RegPackBounds(Buf, 1, lbound(InData%LFairxt), ubound(InData%LFairxt)) + call RegPackBounds(Buf, 1, lbound(InData%LFairxt, kind=B8Ki), ubound(InData%LFairxt, kind=B8Ki)) call RegPack(Buf, InData%LFairxt) end if call RegPack(Buf, allocated(InData%LFairyt)) if (allocated(InData%LFairyt)) then - call RegPackBounds(Buf, 1, lbound(InData%LFairyt), ubound(InData%LFairyt)) + call RegPackBounds(Buf, 1, lbound(InData%LFairyt, kind=B8Ki), ubound(InData%LFairyt, kind=B8Ki)) call RegPack(Buf, InData%LFairyt) end if call RegPack(Buf, allocated(InData%LFairzt)) if (allocated(InData%LFairzt)) then - call RegPackBounds(Buf, 1, lbound(InData%LFairzt), ubound(InData%LFairzt)) + call RegPackBounds(Buf, 1, lbound(InData%LFairzt, kind=B8Ki), ubound(InData%LFairzt, kind=B8Ki)) call RegPack(Buf, InData%LFairzt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1298,7 +1298,7 @@ subroutine FEAM_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1423,14 +1423,14 @@ subroutine FEAM_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FEAM_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%GLU)) then - LB(1:2) = lbound(SrcContStateData%GLU) - UB(1:2) = ubound(SrcContStateData%GLU) + LB(1:2) = lbound(SrcContStateData%GLU, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%GLU, kind=B8Ki) if (.not. allocated(DstContStateData%GLU)) then allocate(DstContStateData%GLU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1441,8 +1441,8 @@ subroutine FEAM_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS DstContStateData%GLU = SrcContStateData%GLU end if if (allocated(SrcContStateData%GLDU)) then - LB(1:2) = lbound(SrcContStateData%GLDU) - UB(1:2) = ubound(SrcContStateData%GLDU) + LB(1:2) = lbound(SrcContStateData%GLDU, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%GLDU, kind=B8Ki) if (.not. allocated(DstContStateData%GLDU)) then allocate(DstContStateData%GLDU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1476,12 +1476,12 @@ subroutine FEAM_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%GLU)) if (allocated(InData%GLU)) then - call RegPackBounds(Buf, 2, lbound(InData%GLU), ubound(InData%GLU)) + call RegPackBounds(Buf, 2, lbound(InData%GLU, kind=B8Ki), ubound(InData%GLU, kind=B8Ki)) call RegPack(Buf, InData%GLU) end if call RegPack(Buf, allocated(InData%GLDU)) if (allocated(InData%GLDU)) then - call RegPackBounds(Buf, 2, lbound(InData%GLDU), ubound(InData%GLDU)) + call RegPackBounds(Buf, 2, lbound(InData%GLDU, kind=B8Ki), ubound(InData%GLDU, kind=B8Ki)) call RegPack(Buf, InData%GLDU) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1491,7 +1491,7 @@ subroutine FEAM_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackContState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1613,14 +1613,14 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FEAM_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%GLU0)) then - LB(1:2) = lbound(SrcOtherStateData%GLU0) - UB(1:2) = ubound(SrcOtherStateData%GLU0) + LB(1:2) = lbound(SrcOtherStateData%GLU0, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%GLU0, kind=B8Ki) if (.not. allocated(DstOtherStateData%GLU0)) then allocate(DstOtherStateData%GLU0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1631,8 +1631,8 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%GLU0 = SrcOtherStateData%GLU0 end if if (allocated(SrcOtherStateData%GLDDU)) then - LB(1:2) = lbound(SrcOtherStateData%GLDDU) - UB(1:2) = ubound(SrcOtherStateData%GLDDU) + LB(1:2) = lbound(SrcOtherStateData%GLDDU, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%GLDDU, kind=B8Ki) if (.not. allocated(DstOtherStateData%GLDDU)) then allocate(DstOtherStateData%GLDDU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1644,8 +1644,8 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end if DstOtherStateData%BottomTouch = SrcOtherStateData%BottomTouch if (allocated(SrcOtherStateData%GFORC0)) then - LB(1:3) = lbound(SrcOtherStateData%GFORC0) - UB(1:3) = ubound(SrcOtherStateData%GFORC0) + LB(1:3) = lbound(SrcOtherStateData%GFORC0, kind=B8Ki) + UB(1:3) = ubound(SrcOtherStateData%GFORC0, kind=B8Ki) if (.not. allocated(DstOtherStateData%GFORC0)) then allocate(DstOtherStateData%GFORC0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1656,8 +1656,8 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%GFORC0 = SrcOtherStateData%GFORC0 end if if (allocated(SrcOtherStateData%GMASS0)) then - LB(1:4) = lbound(SrcOtherStateData%GMASS0) - UB(1:4) = ubound(SrcOtherStateData%GMASS0) + LB(1:4) = lbound(SrcOtherStateData%GMASS0, kind=B8Ki) + UB(1:4) = ubound(SrcOtherStateData%GMASS0, kind=B8Ki) if (.not. allocated(DstOtherStateData%GMASS0)) then allocate(DstOtherStateData%GMASS0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1668,8 +1668,8 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%GMASS0 = SrcOtherStateData%GMASS0 end if if (allocated(SrcOtherStateData%FAST_FPA)) then - LB(1:2) = lbound(SrcOtherStateData%FAST_FPA) - UB(1:2) = ubound(SrcOtherStateData%FAST_FPA) + LB(1:2) = lbound(SrcOtherStateData%FAST_FPA, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%FAST_FPA, kind=B8Ki) if (.not. allocated(DstOtherStateData%FAST_FPA)) then allocate(DstOtherStateData%FAST_FPA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1680,8 +1680,8 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%FAST_FPA = SrcOtherStateData%FAST_FPA end if if (allocated(SrcOtherStateData%FAST_RP)) then - LB(1:2) = lbound(SrcOtherStateData%FAST_RP) - UB(1:2) = ubound(SrcOtherStateData%FAST_RP) + LB(1:2) = lbound(SrcOtherStateData%FAST_RP, kind=B8Ki) + UB(1:2) = ubound(SrcOtherStateData%FAST_RP, kind=B8Ki) if (.not. allocated(DstOtherStateData%FAST_RP)) then allocate(DstOtherStateData%FAST_RP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1731,33 +1731,33 @@ subroutine FEAM_PackOtherState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%GLU0)) if (allocated(InData%GLU0)) then - call RegPackBounds(Buf, 2, lbound(InData%GLU0), ubound(InData%GLU0)) + call RegPackBounds(Buf, 2, lbound(InData%GLU0, kind=B8Ki), ubound(InData%GLU0, kind=B8Ki)) call RegPack(Buf, InData%GLU0) end if call RegPack(Buf, allocated(InData%GLDDU)) if (allocated(InData%GLDDU)) then - call RegPackBounds(Buf, 2, lbound(InData%GLDDU), ubound(InData%GLDDU)) + call RegPackBounds(Buf, 2, lbound(InData%GLDDU, kind=B8Ki), ubound(InData%GLDDU, kind=B8Ki)) call RegPack(Buf, InData%GLDDU) end if call RegPack(Buf, InData%BottomTouch) call RegPack(Buf, allocated(InData%GFORC0)) if (allocated(InData%GFORC0)) then - call RegPackBounds(Buf, 3, lbound(InData%GFORC0), ubound(InData%GFORC0)) + call RegPackBounds(Buf, 3, lbound(InData%GFORC0, kind=B8Ki), ubound(InData%GFORC0, kind=B8Ki)) call RegPack(Buf, InData%GFORC0) end if call RegPack(Buf, allocated(InData%GMASS0)) if (allocated(InData%GMASS0)) then - call RegPackBounds(Buf, 4, lbound(InData%GMASS0), ubound(InData%GMASS0)) + call RegPackBounds(Buf, 4, lbound(InData%GMASS0, kind=B8Ki), ubound(InData%GMASS0, kind=B8Ki)) call RegPack(Buf, InData%GMASS0) end if call RegPack(Buf, allocated(InData%FAST_FPA)) if (allocated(InData%FAST_FPA)) then - call RegPackBounds(Buf, 2, lbound(InData%FAST_FPA), ubound(InData%FAST_FPA)) + call RegPackBounds(Buf, 2, lbound(InData%FAST_FPA, kind=B8Ki), ubound(InData%FAST_FPA, kind=B8Ki)) call RegPack(Buf, InData%FAST_FPA) end if call RegPack(Buf, allocated(InData%FAST_RP)) if (allocated(InData%FAST_RP)) then - call RegPackBounds(Buf, 2, lbound(InData%FAST_RP), ubound(InData%FAST_RP)) + call RegPackBounds(Buf, 2, lbound(InData%FAST_RP, kind=B8Ki), ubound(InData%FAST_RP, kind=B8Ki)) call RegPack(Buf, InData%FAST_RP) end if call RegPack(Buf, InData%INCR) @@ -1771,7 +1771,7 @@ subroutine FEAM_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackOtherState' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1877,14 +1877,14 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FEAM_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%GLF)) then - LB(1:2) = lbound(SrcMiscData%GLF) - UB(1:2) = ubound(SrcMiscData%GLF) + LB(1:2) = lbound(SrcMiscData%GLF, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%GLF, kind=B8Ki) if (.not. allocated(DstMiscData%GLF)) then allocate(DstMiscData%GLF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1895,8 +1895,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%GLF = SrcMiscData%GLF end if if (allocated(SrcMiscData%GLK)) then - LB(1:3) = lbound(SrcMiscData%GLK) - UB(1:3) = ubound(SrcMiscData%GLK) + LB(1:3) = lbound(SrcMiscData%GLK, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%GLK, kind=B8Ki) if (.not. allocated(DstMiscData%GLK)) then allocate(DstMiscData%GLK(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1909,8 +1909,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%EMASS = SrcMiscData%EMASS DstMiscData%ESTIF = SrcMiscData%ESTIF if (allocated(SrcMiscData%FAST_FP)) then - LB(1:2) = lbound(SrcMiscData%FAST_FP) - UB(1:2) = ubound(SrcMiscData%FAST_FP) + LB(1:2) = lbound(SrcMiscData%FAST_FP, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%FAST_FP, kind=B8Ki) if (.not. allocated(DstMiscData%FAST_FP)) then allocate(DstMiscData%FAST_FP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1932,8 +1932,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SLIN = SrcMiscData%SLIN DstMiscData%STIFR = SrcMiscData%STIFR if (allocated(SrcMiscData%FAIR_ANG)) then - LB(1:2) = lbound(SrcMiscData%FAIR_ANG) - UB(1:2) = ubound(SrcMiscData%FAIR_ANG) + LB(1:2) = lbound(SrcMiscData%FAIR_ANG, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%FAIR_ANG, kind=B8Ki) if (.not. allocated(DstMiscData%FAIR_ANG)) then allocate(DstMiscData%FAIR_ANG(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1944,8 +1944,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FAIR_ANG = SrcMiscData%FAIR_ANG end if if (allocated(SrcMiscData%FAIR_T)) then - LB(1:1) = lbound(SrcMiscData%FAIR_T) - UB(1:1) = ubound(SrcMiscData%FAIR_T) + LB(1:1) = lbound(SrcMiscData%FAIR_T, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FAIR_T, kind=B8Ki) if (.not. allocated(DstMiscData%FAIR_T)) then allocate(DstMiscData%FAIR_T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1956,8 +1956,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FAIR_T = SrcMiscData%FAIR_T end if if (allocated(SrcMiscData%ANCH_ANG)) then - LB(1:2) = lbound(SrcMiscData%ANCH_ANG) - UB(1:2) = ubound(SrcMiscData%ANCH_ANG) + LB(1:2) = lbound(SrcMiscData%ANCH_ANG, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%ANCH_ANG, kind=B8Ki) if (.not. allocated(DstMiscData%ANCH_ANG)) then allocate(DstMiscData%ANCH_ANG(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1968,8 +1968,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%ANCH_ANG = SrcMiscData%ANCH_ANG end if if (allocated(SrcMiscData%ANCH_T)) then - LB(1:1) = lbound(SrcMiscData%ANCH_T) - UB(1:1) = ubound(SrcMiscData%ANCH_T) + LB(1:1) = lbound(SrcMiscData%ANCH_T, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%ANCH_T, kind=B8Ki) if (.not. allocated(DstMiscData%ANCH_T)) then allocate(DstMiscData%ANCH_T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1980,8 +1980,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%ANCH_T = SrcMiscData%ANCH_T end if if (allocated(SrcMiscData%Line_Coordinate)) then - LB(1:3) = lbound(SrcMiscData%Line_Coordinate) - UB(1:3) = ubound(SrcMiscData%Line_Coordinate) + LB(1:3) = lbound(SrcMiscData%Line_Coordinate, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%Line_Coordinate, kind=B8Ki) if (.not. allocated(DstMiscData%Line_Coordinate)) then allocate(DstMiscData%Line_Coordinate(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1992,8 +1992,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Line_Coordinate = SrcMiscData%Line_Coordinate end if if (allocated(SrcMiscData%Line_Tangent)) then - LB(1:3) = lbound(SrcMiscData%Line_Tangent) - UB(1:3) = ubound(SrcMiscData%Line_Tangent) + LB(1:3) = lbound(SrcMiscData%Line_Tangent, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%Line_Tangent, kind=B8Ki) if (.not. allocated(DstMiscData%Line_Tangent)) then allocate(DstMiscData%Line_Tangent(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2004,8 +2004,8 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Line_Tangent = SrcMiscData%Line_Tangent end if if (allocated(SrcMiscData%F_Lines)) then - LB(1:2) = lbound(SrcMiscData%F_Lines) - UB(1:2) = ubound(SrcMiscData%F_Lines) + LB(1:2) = lbound(SrcMiscData%F_Lines, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_Lines, kind=B8Ki) if (.not. allocated(DstMiscData%F_Lines)) then allocate(DstMiscData%F_Lines(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2064,19 +2064,19 @@ subroutine FEAM_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%GLF)) if (allocated(InData%GLF)) then - call RegPackBounds(Buf, 2, lbound(InData%GLF), ubound(InData%GLF)) + call RegPackBounds(Buf, 2, lbound(InData%GLF, kind=B8Ki), ubound(InData%GLF, kind=B8Ki)) call RegPack(Buf, InData%GLF) end if call RegPack(Buf, allocated(InData%GLK)) if (allocated(InData%GLK)) then - call RegPackBounds(Buf, 3, lbound(InData%GLK), ubound(InData%GLK)) + call RegPackBounds(Buf, 3, lbound(InData%GLK, kind=B8Ki), ubound(InData%GLK, kind=B8Ki)) call RegPack(Buf, InData%GLK) end if call RegPack(Buf, InData%EMASS) call RegPack(Buf, InData%ESTIF) call RegPack(Buf, allocated(InData%FAST_FP)) if (allocated(InData%FAST_FP)) then - call RegPackBounds(Buf, 2, lbound(InData%FAST_FP), ubound(InData%FAST_FP)) + call RegPackBounds(Buf, 2, lbound(InData%FAST_FP, kind=B8Ki), ubound(InData%FAST_FP, kind=B8Ki)) call RegPack(Buf, InData%FAST_FP) end if call RegPack(Buf, InData%FORCE) @@ -2092,37 +2092,37 @@ subroutine FEAM_PackMisc(Buf, Indata) call RegPack(Buf, InData%STIFR) call RegPack(Buf, allocated(InData%FAIR_ANG)) if (allocated(InData%FAIR_ANG)) then - call RegPackBounds(Buf, 2, lbound(InData%FAIR_ANG), ubound(InData%FAIR_ANG)) + call RegPackBounds(Buf, 2, lbound(InData%FAIR_ANG, kind=B8Ki), ubound(InData%FAIR_ANG, kind=B8Ki)) call RegPack(Buf, InData%FAIR_ANG) end if call RegPack(Buf, allocated(InData%FAIR_T)) if (allocated(InData%FAIR_T)) then - call RegPackBounds(Buf, 1, lbound(InData%FAIR_T), ubound(InData%FAIR_T)) + call RegPackBounds(Buf, 1, lbound(InData%FAIR_T, kind=B8Ki), ubound(InData%FAIR_T, kind=B8Ki)) call RegPack(Buf, InData%FAIR_T) end if call RegPack(Buf, allocated(InData%ANCH_ANG)) if (allocated(InData%ANCH_ANG)) then - call RegPackBounds(Buf, 2, lbound(InData%ANCH_ANG), ubound(InData%ANCH_ANG)) + call RegPackBounds(Buf, 2, lbound(InData%ANCH_ANG, kind=B8Ki), ubound(InData%ANCH_ANG, kind=B8Ki)) call RegPack(Buf, InData%ANCH_ANG) end if call RegPack(Buf, allocated(InData%ANCH_T)) if (allocated(InData%ANCH_T)) then - call RegPackBounds(Buf, 1, lbound(InData%ANCH_T), ubound(InData%ANCH_T)) + call RegPackBounds(Buf, 1, lbound(InData%ANCH_T, kind=B8Ki), ubound(InData%ANCH_T, kind=B8Ki)) call RegPack(Buf, InData%ANCH_T) end if call RegPack(Buf, allocated(InData%Line_Coordinate)) if (allocated(InData%Line_Coordinate)) then - call RegPackBounds(Buf, 3, lbound(InData%Line_Coordinate), ubound(InData%Line_Coordinate)) + call RegPackBounds(Buf, 3, lbound(InData%Line_Coordinate, kind=B8Ki), ubound(InData%Line_Coordinate, kind=B8Ki)) call RegPack(Buf, InData%Line_Coordinate) end if call RegPack(Buf, allocated(InData%Line_Tangent)) if (allocated(InData%Line_Tangent)) then - call RegPackBounds(Buf, 3, lbound(InData%Line_Tangent), ubound(InData%Line_Tangent)) + call RegPackBounds(Buf, 3, lbound(InData%Line_Tangent, kind=B8Ki), ubound(InData%Line_Tangent, kind=B8Ki)) call RegPack(Buf, InData%Line_Tangent) end if call RegPack(Buf, allocated(InData%F_Lines)) if (allocated(InData%F_Lines)) then - call RegPackBounds(Buf, 2, lbound(InData%F_Lines), ubound(InData%F_Lines)) + call RegPackBounds(Buf, 2, lbound(InData%F_Lines, kind=B8Ki), ubound(InData%F_Lines, kind=B8Ki)) call RegPack(Buf, InData%F_Lines) end if call RegPack(Buf, InData%LastIndWave) @@ -2133,7 +2133,7 @@ subroutine FEAM_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackMisc' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2313,8 +2313,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FEAM_CopyParam' @@ -2329,8 +2329,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NHBD = SrcParamData%NHBD DstParamData%NDIM = SrcParamData%NDIM if (allocated(SrcParamData%NEQ)) then - LB(1:1) = lbound(SrcParamData%NEQ) - UB(1:1) = ubound(SrcParamData%NEQ) + LB(1:1) = lbound(SrcParamData%NEQ, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NEQ, kind=B8Ki) if (.not. allocated(DstParamData%NEQ)) then allocate(DstParamData%NEQ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2345,8 +2345,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumElems = SrcParamData%NumElems DstParamData%NumNodes = SrcParamData%NumNodes if (allocated(SrcParamData%GSL)) then - LB(1:3) = lbound(SrcParamData%GSL) - UB(1:3) = ubound(SrcParamData%GSL) + LB(1:3) = lbound(SrcParamData%GSL, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%GSL, kind=B8Ki) if (.not. allocated(DstParamData%GSL)) then allocate(DstParamData%GSL(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2357,8 +2357,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%GSL = SrcParamData%GSL end if if (allocated(SrcParamData%GP)) then - LB(1:2) = lbound(SrcParamData%GP) - UB(1:2) = ubound(SrcParamData%GP) + LB(1:2) = lbound(SrcParamData%GP, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%GP, kind=B8Ki) if (.not. allocated(DstParamData%GP)) then allocate(DstParamData%GP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2369,8 +2369,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%GP = SrcParamData%GP end if if (allocated(SrcParamData%Elength)) then - LB(1:1) = lbound(SrcParamData%Elength) - UB(1:1) = ubound(SrcParamData%Elength) + LB(1:1) = lbound(SrcParamData%Elength, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Elength, kind=B8Ki) if (.not. allocated(DstParamData%Elength)) then allocate(DstParamData%Elength(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2381,8 +2381,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Elength = SrcParamData%Elength end if if (allocated(SrcParamData%BottmElev)) then - LB(1:1) = lbound(SrcParamData%BottmElev) - UB(1:1) = ubound(SrcParamData%BottmElev) + LB(1:1) = lbound(SrcParamData%BottmElev, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BottmElev, kind=B8Ki) if (.not. allocated(DstParamData%BottmElev)) then allocate(DstParamData%BottmElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2393,8 +2393,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BottmElev = SrcParamData%BottmElev end if if (allocated(SrcParamData%BottmStiff)) then - LB(1:1) = lbound(SrcParamData%BottmStiff) - UB(1:1) = ubound(SrcParamData%BottmStiff) + LB(1:1) = lbound(SrcParamData%BottmStiff, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BottmStiff, kind=B8Ki) if (.not. allocated(DstParamData%BottmStiff)) then allocate(DstParamData%BottmStiff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2405,8 +2405,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BottmStiff = SrcParamData%BottmStiff end if if (allocated(SrcParamData%LMassDen)) then - LB(1:1) = lbound(SrcParamData%LMassDen) - UB(1:1) = ubound(SrcParamData%LMassDen) + LB(1:1) = lbound(SrcParamData%LMassDen, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%LMassDen, kind=B8Ki) if (.not. allocated(DstParamData%LMassDen)) then allocate(DstParamData%LMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2417,8 +2417,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%LMassDen = SrcParamData%LMassDen end if if (allocated(SrcParamData%LDMassDen)) then - LB(1:1) = lbound(SrcParamData%LDMassDen) - UB(1:1) = ubound(SrcParamData%LDMassDen) + LB(1:1) = lbound(SrcParamData%LDMassDen, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%LDMassDen, kind=B8Ki) if (.not. allocated(DstParamData%LDMassDen)) then allocate(DstParamData%LDMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2429,8 +2429,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%LDMassDen = SrcParamData%LDMassDen end if if (allocated(SrcParamData%LEAStiff)) then - LB(1:1) = lbound(SrcParamData%LEAStiff) - UB(1:1) = ubound(SrcParamData%LEAStiff) + LB(1:1) = lbound(SrcParamData%LEAStiff, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%LEAStiff, kind=B8Ki) if (.not. allocated(DstParamData%LEAStiff)) then allocate(DstParamData%LEAStiff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2441,8 +2441,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%LEAStiff = SrcParamData%LEAStiff end if if (allocated(SrcParamData%LineCI)) then - LB(1:1) = lbound(SrcParamData%LineCI) - UB(1:1) = ubound(SrcParamData%LineCI) + LB(1:1) = lbound(SrcParamData%LineCI, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%LineCI, kind=B8Ki) if (.not. allocated(DstParamData%LineCI)) then allocate(DstParamData%LineCI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2453,8 +2453,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%LineCI = SrcParamData%LineCI end if if (allocated(SrcParamData%LineCD)) then - LB(1:1) = lbound(SrcParamData%LineCD) - UB(1:1) = ubound(SrcParamData%LineCD) + LB(1:1) = lbound(SrcParamData%LineCD, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%LineCD, kind=B8Ki) if (.not. allocated(DstParamData%LineCD)) then allocate(DstParamData%LineCD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2465,8 +2465,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%LineCD = SrcParamData%LineCD end if if (allocated(SrcParamData%Bvp)) then - LB(1:2) = lbound(SrcParamData%Bvp) - UB(1:2) = ubound(SrcParamData%Bvp) + LB(1:2) = lbound(SrcParamData%Bvp, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Bvp, kind=B8Ki) if (.not. allocated(DstParamData%Bvp)) then allocate(DstParamData%Bvp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2477,8 +2477,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Bvp = SrcParamData%Bvp end if if (allocated(SrcParamData%WaveAcc0)) then - LB(1:3) = lbound(SrcParamData%WaveAcc0) - UB(1:3) = ubound(SrcParamData%WaveAcc0) + LB(1:3) = lbound(SrcParamData%WaveAcc0, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%WaveAcc0, kind=B8Ki) if (.not. allocated(DstParamData%WaveAcc0)) then allocate(DstParamData%WaveAcc0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2489,8 +2489,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WaveAcc0 = SrcParamData%WaveAcc0 end if if (allocated(SrcParamData%WaveTime)) then - LB(1:1) = lbound(SrcParamData%WaveTime) - UB(1:1) = ubound(SrcParamData%WaveTime) + LB(1:1) = lbound(SrcParamData%WaveTime, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WaveTime, kind=B8Ki) if (.not. allocated(DstParamData%WaveTime)) then allocate(DstParamData%WaveTime(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2501,8 +2501,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WaveTime = SrcParamData%WaveTime end if if (allocated(SrcParamData%WaveVel0)) then - LB(1:3) = lbound(SrcParamData%WaveVel0) - UB(1:3) = ubound(SrcParamData%WaveVel0) + LB(1:3) = lbound(SrcParamData%WaveVel0, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%WaveVel0, kind=B8Ki) if (.not. allocated(DstParamData%WaveVel0)) then allocate(DstParamData%WaveVel0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2534,8 +2534,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumOuts = SrcParamData%NumOuts DstParamData%RootName = SrcParamData%RootName if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2551,8 +2551,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%Delim = SrcParamData%Delim if (allocated(SrcParamData%GLUZR)) then - LB(1:3) = lbound(SrcParamData%GLUZR) - UB(1:3) = ubound(SrcParamData%GLUZR) + LB(1:3) = lbound(SrcParamData%GLUZR, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%GLUZR, kind=B8Ki) if (.not. allocated(DstParamData%GLUZR)) then allocate(DstParamData%GLUZR(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2563,8 +2563,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%GLUZR = SrcParamData%GLUZR end if if (allocated(SrcParamData%GTZER)) then - LB(1:2) = lbound(SrcParamData%GTZER) - UB(1:2) = ubound(SrcParamData%GTZER) + LB(1:2) = lbound(SrcParamData%GTZER, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%GTZER, kind=B8Ki) if (.not. allocated(DstParamData%GTZER)) then allocate(DstParamData%GTZER(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2580,8 +2580,8 @@ subroutine FEAM_DestroyParam(ParamData, ErrStat, ErrMsg) type(FEAM_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FEAM_DestroyParam' @@ -2633,8 +2633,8 @@ subroutine FEAM_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WaveVel0) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2653,8 +2653,8 @@ subroutine FEAM_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FEAM_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'FEAM_PackParam' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) call RegPack(Buf, InData%GRAV) @@ -2666,7 +2666,7 @@ subroutine FEAM_PackParam(Buf, Indata) call RegPack(Buf, InData%NDIM) call RegPack(Buf, allocated(InData%NEQ)) if (allocated(InData%NEQ)) then - call RegPackBounds(Buf, 1, lbound(InData%NEQ), ubound(InData%NEQ)) + call RegPackBounds(Buf, 1, lbound(InData%NEQ, kind=B8Ki), ubound(InData%NEQ, kind=B8Ki)) call RegPack(Buf, InData%NEQ) end if call RegPack(Buf, InData%NBAND) @@ -2675,72 +2675,72 @@ subroutine FEAM_PackParam(Buf, Indata) call RegPack(Buf, InData%NumNodes) call RegPack(Buf, allocated(InData%GSL)) if (allocated(InData%GSL)) then - call RegPackBounds(Buf, 3, lbound(InData%GSL), ubound(InData%GSL)) + call RegPackBounds(Buf, 3, lbound(InData%GSL, kind=B8Ki), ubound(InData%GSL, kind=B8Ki)) call RegPack(Buf, InData%GSL) end if call RegPack(Buf, allocated(InData%GP)) if (allocated(InData%GP)) then - call RegPackBounds(Buf, 2, lbound(InData%GP), ubound(InData%GP)) + call RegPackBounds(Buf, 2, lbound(InData%GP, kind=B8Ki), ubound(InData%GP, kind=B8Ki)) call RegPack(Buf, InData%GP) end if call RegPack(Buf, allocated(InData%Elength)) if (allocated(InData%Elength)) then - call RegPackBounds(Buf, 1, lbound(InData%Elength), ubound(InData%Elength)) + call RegPackBounds(Buf, 1, lbound(InData%Elength, kind=B8Ki), ubound(InData%Elength, kind=B8Ki)) call RegPack(Buf, InData%Elength) end if call RegPack(Buf, allocated(InData%BottmElev)) if (allocated(InData%BottmElev)) then - call RegPackBounds(Buf, 1, lbound(InData%BottmElev), ubound(InData%BottmElev)) + call RegPackBounds(Buf, 1, lbound(InData%BottmElev, kind=B8Ki), ubound(InData%BottmElev, kind=B8Ki)) call RegPack(Buf, InData%BottmElev) end if call RegPack(Buf, allocated(InData%BottmStiff)) if (allocated(InData%BottmStiff)) then - call RegPackBounds(Buf, 1, lbound(InData%BottmStiff), ubound(InData%BottmStiff)) + call RegPackBounds(Buf, 1, lbound(InData%BottmStiff, kind=B8Ki), ubound(InData%BottmStiff, kind=B8Ki)) call RegPack(Buf, InData%BottmStiff) end if call RegPack(Buf, allocated(InData%LMassDen)) if (allocated(InData%LMassDen)) then - call RegPackBounds(Buf, 1, lbound(InData%LMassDen), ubound(InData%LMassDen)) + call RegPackBounds(Buf, 1, lbound(InData%LMassDen, kind=B8Ki), ubound(InData%LMassDen, kind=B8Ki)) call RegPack(Buf, InData%LMassDen) end if call RegPack(Buf, allocated(InData%LDMassDen)) if (allocated(InData%LDMassDen)) then - call RegPackBounds(Buf, 1, lbound(InData%LDMassDen), ubound(InData%LDMassDen)) + call RegPackBounds(Buf, 1, lbound(InData%LDMassDen, kind=B8Ki), ubound(InData%LDMassDen, kind=B8Ki)) call RegPack(Buf, InData%LDMassDen) end if call RegPack(Buf, allocated(InData%LEAStiff)) if (allocated(InData%LEAStiff)) then - call RegPackBounds(Buf, 1, lbound(InData%LEAStiff), ubound(InData%LEAStiff)) + call RegPackBounds(Buf, 1, lbound(InData%LEAStiff, kind=B8Ki), ubound(InData%LEAStiff, kind=B8Ki)) call RegPack(Buf, InData%LEAStiff) end if call RegPack(Buf, allocated(InData%LineCI)) if (allocated(InData%LineCI)) then - call RegPackBounds(Buf, 1, lbound(InData%LineCI), ubound(InData%LineCI)) + call RegPackBounds(Buf, 1, lbound(InData%LineCI, kind=B8Ki), ubound(InData%LineCI, kind=B8Ki)) call RegPack(Buf, InData%LineCI) end if call RegPack(Buf, allocated(InData%LineCD)) if (allocated(InData%LineCD)) then - call RegPackBounds(Buf, 1, lbound(InData%LineCD), ubound(InData%LineCD)) + call RegPackBounds(Buf, 1, lbound(InData%LineCD, kind=B8Ki), ubound(InData%LineCD, kind=B8Ki)) call RegPack(Buf, InData%LineCD) end if call RegPack(Buf, allocated(InData%Bvp)) if (allocated(InData%Bvp)) then - call RegPackBounds(Buf, 2, lbound(InData%Bvp), ubound(InData%Bvp)) + call RegPackBounds(Buf, 2, lbound(InData%Bvp, kind=B8Ki), ubound(InData%Bvp, kind=B8Ki)) call RegPack(Buf, InData%Bvp) end if call RegPack(Buf, allocated(InData%WaveAcc0)) if (allocated(InData%WaveAcc0)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveAcc0), ubound(InData%WaveAcc0)) + call RegPackBounds(Buf, 3, lbound(InData%WaveAcc0, kind=B8Ki), ubound(InData%WaveAcc0, kind=B8Ki)) call RegPack(Buf, InData%WaveAcc0) end if call RegPack(Buf, allocated(InData%WaveTime)) if (allocated(InData%WaveTime)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveTime), ubound(InData%WaveTime)) + call RegPackBounds(Buf, 1, lbound(InData%WaveTime, kind=B8Ki), ubound(InData%WaveTime, kind=B8Ki)) call RegPack(Buf, InData%WaveTime) end if call RegPack(Buf, allocated(InData%WaveVel0)) if (allocated(InData%WaveVel0)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveVel0), ubound(InData%WaveVel0)) + call RegPackBounds(Buf, 3, lbound(InData%WaveVel0, kind=B8Ki), ubound(InData%WaveVel0, kind=B8Ki)) call RegPack(Buf, InData%WaveVel0) end if call RegPack(Buf, InData%NStepWave) @@ -2766,9 +2766,9 @@ subroutine FEAM_PackParam(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -2776,12 +2776,12 @@ subroutine FEAM_PackParam(Buf, Indata) call RegPack(Buf, InData%Delim) call RegPack(Buf, allocated(InData%GLUZR)) if (allocated(InData%GLUZR)) then - call RegPackBounds(Buf, 3, lbound(InData%GLUZR), ubound(InData%GLUZR)) + call RegPackBounds(Buf, 3, lbound(InData%GLUZR, kind=B8Ki), ubound(InData%GLUZR, kind=B8Ki)) call RegPack(Buf, InData%GLUZR) end if call RegPack(Buf, allocated(InData%GTZER)) if (allocated(InData%GTZER)) then - call RegPackBounds(Buf, 2, lbound(InData%GTZER), ubound(InData%GTZER)) + call RegPackBounds(Buf, 2, lbound(InData%GTZER, kind=B8Ki), ubound(InData%GTZER, kind=B8Ki)) call RegPack(Buf, InData%GTZER) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2791,8 +2791,8 @@ subroutine FEAM_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackParam' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3178,15 +3178,15 @@ subroutine FEAM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FEAM_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3229,7 +3229,7 @@ subroutine FEAM_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call MeshPack(Buf, InData%PtFairleadLoad) @@ -3241,7 +3241,7 @@ subroutine FEAM_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAM_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/Conv_Radiation_Types.f90 b/modules/hydrodyn/src/Conv_Radiation_Types.f90 index fe84e573c5..88f18e81de 100644 --- a/modules/hydrodyn/src/Conv_Radiation_Types.f90 +++ b/modules/hydrodyn/src/Conv_Radiation_Types.f90 @@ -106,7 +106,7 @@ subroutine Conv_Rdtn_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Conv_Rdtn_CopyInitInput' ErrStat = ErrID_None @@ -117,8 +117,8 @@ subroutine Conv_Rdtn_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, DstInitInputData%HighFreq = SrcInitInputData%HighFreq DstInitInputData%WAMITFile = SrcInitInputData%WAMITFile if (allocated(SrcInitInputData%HdroAddMs)) then - LB(1:3) = lbound(SrcInitInputData%HdroAddMs) - UB(1:3) = ubound(SrcInitInputData%HdroAddMs) + LB(1:3) = lbound(SrcInitInputData%HdroAddMs, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%HdroAddMs, kind=B8Ki) if (.not. allocated(DstInitInputData%HdroAddMs)) then allocate(DstInitInputData%HdroAddMs(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -129,8 +129,8 @@ subroutine Conv_Rdtn_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, DstInitInputData%HdroAddMs = SrcInitInputData%HdroAddMs end if if (allocated(SrcInitInputData%HdroFreq)) then - LB(1:1) = lbound(SrcInitInputData%HdroFreq) - UB(1:1) = ubound(SrcInitInputData%HdroFreq) + LB(1:1) = lbound(SrcInitInputData%HdroFreq, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%HdroFreq, kind=B8Ki) if (.not. allocated(DstInitInputData%HdroFreq)) then allocate(DstInitInputData%HdroFreq(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -141,8 +141,8 @@ subroutine Conv_Rdtn_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, DstInitInputData%HdroFreq = SrcInitInputData%HdroFreq end if if (allocated(SrcInitInputData%HdroDmpng)) then - LB(1:3) = lbound(SrcInitInputData%HdroDmpng) - UB(1:3) = ubound(SrcInitInputData%HdroDmpng) + LB(1:3) = lbound(SrcInitInputData%HdroDmpng, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%HdroDmpng, kind=B8Ki) if (.not. allocated(DstInitInputData%HdroDmpng)) then allocate(DstInitInputData%HdroDmpng(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -186,17 +186,17 @@ subroutine Conv_Rdtn_PackInitInput(Buf, Indata) call RegPack(Buf, InData%WAMITFile) call RegPack(Buf, allocated(InData%HdroAddMs)) if (allocated(InData%HdroAddMs)) then - call RegPackBounds(Buf, 3, lbound(InData%HdroAddMs), ubound(InData%HdroAddMs)) + call RegPackBounds(Buf, 3, lbound(InData%HdroAddMs, kind=B8Ki), ubound(InData%HdroAddMs, kind=B8Ki)) call RegPack(Buf, InData%HdroAddMs) end if call RegPack(Buf, allocated(InData%HdroFreq)) if (allocated(InData%HdroFreq)) then - call RegPackBounds(Buf, 1, lbound(InData%HdroFreq), ubound(InData%HdroFreq)) + call RegPackBounds(Buf, 1, lbound(InData%HdroFreq, kind=B8Ki), ubound(InData%HdroFreq, kind=B8Ki)) call RegPack(Buf, InData%HdroFreq) end if call RegPack(Buf, allocated(InData%HdroDmpng)) if (allocated(InData%HdroDmpng)) then - call RegPackBounds(Buf, 3, lbound(InData%HdroDmpng), ubound(InData%HdroDmpng)) + call RegPackBounds(Buf, 3, lbound(InData%HdroDmpng, kind=B8Ki), ubound(InData%HdroDmpng, kind=B8Ki)) call RegPack(Buf, InData%HdroDmpng) end if call RegPack(Buf, InData%NInpFreq) @@ -208,7 +208,7 @@ subroutine Conv_Rdtn_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Conv_Rdtn_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackInitInput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -354,14 +354,14 @@ subroutine Conv_Rdtn_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Conv_Rdtn_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%XDHistory)) then - LB(1:2) = lbound(SrcDiscStateData%XDHistory) - UB(1:2) = ubound(SrcDiscStateData%XDHistory) + LB(1:2) = lbound(SrcDiscStateData%XDHistory, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%XDHistory, kind=B8Ki) if (.not. allocated(DstDiscStateData%XDHistory)) then allocate(DstDiscStateData%XDHistory(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -393,7 +393,7 @@ subroutine Conv_Rdtn_PackDiscState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%XDHistory)) if (allocated(InData%XDHistory)) then - call RegPackBounds(Buf, 2, lbound(InData%XDHistory), ubound(InData%XDHistory)) + call RegPackBounds(Buf, 2, lbound(InData%XDHistory, kind=B8Ki), ubound(InData%XDHistory, kind=B8Ki)) call RegPack(Buf, InData%XDHistory) end if call RegPack(Buf, InData%LastTime) @@ -404,7 +404,7 @@ subroutine Conv_Rdtn_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Conv_Rdtn_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackDiscState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -549,7 +549,7 @@ subroutine Conv_Rdtn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Conv_Rdtn_CopyParam' ErrStat = ErrID_None @@ -558,8 +558,8 @@ subroutine Conv_Rdtn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Er DstParamData%RdtnDT = SrcParamData%RdtnDT DstParamData%NBody = SrcParamData%NBody if (allocated(SrcParamData%RdtnKrnl)) then - LB(1:3) = lbound(SrcParamData%RdtnKrnl) - UB(1:3) = ubound(SrcParamData%RdtnKrnl) + LB(1:3) = lbound(SrcParamData%RdtnKrnl, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%RdtnKrnl, kind=B8Ki) if (.not. allocated(DstParamData%RdtnKrnl)) then allocate(DstParamData%RdtnKrnl(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -595,7 +595,7 @@ subroutine Conv_Rdtn_PackParam(Buf, Indata) call RegPack(Buf, InData%NBody) call RegPack(Buf, allocated(InData%RdtnKrnl)) if (allocated(InData%RdtnKrnl)) then - call RegPackBounds(Buf, 3, lbound(InData%RdtnKrnl), ubound(InData%RdtnKrnl)) + call RegPackBounds(Buf, 3, lbound(InData%RdtnKrnl, kind=B8Ki), ubound(InData%RdtnKrnl, kind=B8Ki)) call RegPack(Buf, InData%RdtnKrnl) end if call RegPack(Buf, InData%NStepRdtn) @@ -607,7 +607,7 @@ subroutine Conv_Rdtn_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Conv_Rdtn_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackParam' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -643,14 +643,14 @@ subroutine Conv_Rdtn_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Conv_Rdtn_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%Velocity)) then - LB(1:1) = lbound(SrcInputData%Velocity) - UB(1:1) = ubound(SrcInputData%Velocity) + LB(1:1) = lbound(SrcInputData%Velocity, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%Velocity, kind=B8Ki) if (.not. allocated(DstInputData%Velocity)) then allocate(DstInputData%Velocity(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -681,7 +681,7 @@ subroutine Conv_Rdtn_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Velocity)) if (allocated(InData%Velocity)) then - call RegPackBounds(Buf, 1, lbound(InData%Velocity), ubound(InData%Velocity)) + call RegPackBounds(Buf, 1, lbound(InData%Velocity, kind=B8Ki), ubound(InData%Velocity, kind=B8Ki)) call RegPack(Buf, InData%Velocity) end if if (RegCheckErr(Buf, RoutineName)) return @@ -691,7 +691,7 @@ subroutine Conv_Rdtn_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Conv_Rdtn_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -717,14 +717,14 @@ subroutine Conv_Rdtn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Conv_Rdtn_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%F_Rdtn)) then - LB(1:1) = lbound(SrcOutputData%F_Rdtn) - UB(1:1) = ubound(SrcOutputData%F_Rdtn) + LB(1:1) = lbound(SrcOutputData%F_Rdtn, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%F_Rdtn, kind=B8Ki) if (.not. allocated(DstOutputData%F_Rdtn)) then allocate(DstOutputData%F_Rdtn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -755,7 +755,7 @@ subroutine Conv_Rdtn_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%F_Rdtn)) if (allocated(InData%F_Rdtn)) then - call RegPackBounds(Buf, 1, lbound(InData%F_Rdtn), ubound(InData%F_Rdtn)) + call RegPackBounds(Buf, 1, lbound(InData%F_Rdtn, kind=B8Ki), ubound(InData%F_Rdtn, kind=B8Ki)) call RegPack(Buf, InData%F_Rdtn) end if if (RegCheckErr(Buf, RoutineName)) return @@ -765,7 +765,7 @@ subroutine Conv_Rdtn_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Conv_Rdtn_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/HydroDyn_Types.f90 b/modules/hydrodyn/src/HydroDyn_Types.f90 index 6e5e13a26c..21d8555c40 100644 --- a/modules/hydrodyn/src/HydroDyn_Types.f90 +++ b/modules/hydrodyn/src/HydroDyn_Types.f90 @@ -213,7 +213,7 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyInputFile' @@ -221,8 +221,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrMsg = '' DstInputFileData%EchoFlag = SrcInputFileData%EchoFlag if (allocated(SrcInputFileData%AddF0)) then - LB(1:2) = lbound(SrcInputFileData%AddF0) - UB(1:2) = ubound(SrcInputFileData%AddF0) + LB(1:2) = lbound(SrcInputFileData%AddF0, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileData%AddF0, kind=B8Ki) if (.not. allocated(DstInputFileData%AddF0)) then allocate(DstInputFileData%AddF0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -233,8 +233,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddF0 = SrcInputFileData%AddF0 end if if (allocated(SrcInputFileData%AddCLin)) then - LB(1:3) = lbound(SrcInputFileData%AddCLin) - UB(1:3) = ubound(SrcInputFileData%AddCLin) + LB(1:3) = lbound(SrcInputFileData%AddCLin, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%AddCLin, kind=B8Ki) if (.not. allocated(DstInputFileData%AddCLin)) then allocate(DstInputFileData%AddCLin(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -245,8 +245,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddCLin = SrcInputFileData%AddCLin end if if (allocated(SrcInputFileData%AddBLin)) then - LB(1:3) = lbound(SrcInputFileData%AddBLin) - UB(1:3) = ubound(SrcInputFileData%AddBLin) + LB(1:3) = lbound(SrcInputFileData%AddBLin, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%AddBLin, kind=B8Ki) if (.not. allocated(DstInputFileData%AddBLin)) then allocate(DstInputFileData%AddBLin(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -257,8 +257,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddBLin = SrcInputFileData%AddBLin end if if (allocated(SrcInputFileData%AddBQuad)) then - LB(1:3) = lbound(SrcInputFileData%AddBQuad) - UB(1:3) = ubound(SrcInputFileData%AddBQuad) + LB(1:3) = lbound(SrcInputFileData%AddBQuad, kind=B8Ki) + UB(1:3) = ubound(SrcInputFileData%AddBQuad, kind=B8Ki) if (.not. allocated(DstInputFileData%AddBQuad)) then allocate(DstInputFileData%AddBQuad(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -269,8 +269,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddBQuad = SrcInputFileData%AddBQuad end if if (allocated(SrcInputFileData%PotFile)) then - LB(1:1) = lbound(SrcInputFileData%PotFile) - UB(1:1) = ubound(SrcInputFileData%PotFile) + LB(1:1) = lbound(SrcInputFileData%PotFile, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PotFile, kind=B8Ki) if (.not. allocated(DstInputFileData%PotFile)) then allocate(DstInputFileData%PotFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -285,8 +285,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%NBody = SrcInputFileData%NBody DstInputFileData%NBodyMod = SrcInputFileData%NBodyMod if (allocated(SrcInputFileData%PtfmVol0)) then - LB(1:1) = lbound(SrcInputFileData%PtfmVol0) - UB(1:1) = ubound(SrcInputFileData%PtfmVol0) + LB(1:1) = lbound(SrcInputFileData%PtfmVol0, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmVol0, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmVol0)) then allocate(DstInputFileData%PtfmVol0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -298,8 +298,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, end if DstInputFileData%HasWAMIT = SrcInputFileData%HasWAMIT if (allocated(SrcInputFileData%WAMITULEN)) then - LB(1:1) = lbound(SrcInputFileData%WAMITULEN) - UB(1:1) = ubound(SrcInputFileData%WAMITULEN) + LB(1:1) = lbound(SrcInputFileData%WAMITULEN, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WAMITULEN, kind=B8Ki) if (.not. allocated(DstInputFileData%WAMITULEN)) then allocate(DstInputFileData%WAMITULEN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -310,8 +310,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%WAMITULEN = SrcInputFileData%WAMITULEN end if if (allocated(SrcInputFileData%PtfmRefxt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefxt) - UB(1:1) = ubound(SrcInputFileData%PtfmRefxt) + LB(1:1) = lbound(SrcInputFileData%PtfmRefxt, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmRefxt, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmRefxt)) then allocate(DstInputFileData%PtfmRefxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -322,8 +322,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefxt = SrcInputFileData%PtfmRefxt end if if (allocated(SrcInputFileData%PtfmRefyt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefyt) - UB(1:1) = ubound(SrcInputFileData%PtfmRefyt) + LB(1:1) = lbound(SrcInputFileData%PtfmRefyt, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmRefyt, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmRefyt)) then allocate(DstInputFileData%PtfmRefyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -334,8 +334,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefyt = SrcInputFileData%PtfmRefyt end if if (allocated(SrcInputFileData%PtfmRefzt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefzt) - UB(1:1) = ubound(SrcInputFileData%PtfmRefzt) + LB(1:1) = lbound(SrcInputFileData%PtfmRefzt, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmRefzt, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmRefzt)) then allocate(DstInputFileData%PtfmRefzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -346,8 +346,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefzt = SrcInputFileData%PtfmRefzt end if if (allocated(SrcInputFileData%PtfmRefztRot)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefztRot) - UB(1:1) = ubound(SrcInputFileData%PtfmRefztRot) + LB(1:1) = lbound(SrcInputFileData%PtfmRefztRot, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmRefztRot, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmRefztRot)) then allocate(DstInputFileData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -358,8 +358,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefztRot = SrcInputFileData%PtfmRefztRot end if if (allocated(SrcInputFileData%PtfmCOBxt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmCOBxt) - UB(1:1) = ubound(SrcInputFileData%PtfmCOBxt) + LB(1:1) = lbound(SrcInputFileData%PtfmCOBxt, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmCOBxt, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmCOBxt)) then allocate(DstInputFileData%PtfmCOBxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -370,8 +370,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmCOBxt = SrcInputFileData%PtfmCOBxt end if if (allocated(SrcInputFileData%PtfmCOByt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmCOByt) - UB(1:1) = ubound(SrcInputFileData%PtfmCOByt) + LB(1:1) = lbound(SrcInputFileData%PtfmCOByt, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%PtfmCOByt, kind=B8Ki) if (.not. allocated(DstInputFileData%PtfmCOByt)) then allocate(DstInputFileData%PtfmCOByt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -394,8 +394,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PotMod = SrcInputFileData%PotMod DstInputFileData%NUserOutputs = SrcInputFileData%NUserOutputs if (allocated(SrcInputFileData%UserOutputs)) then - LB(1:1) = lbound(SrcInputFileData%UserOutputs) - UB(1:1) = ubound(SrcInputFileData%UserOutputs) + LB(1:1) = lbound(SrcInputFileData%UserOutputs, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%UserOutputs, kind=B8Ki) if (.not. allocated(DstInputFileData%UserOutputs)) then allocate(DstInputFileData%UserOutputs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -409,8 +409,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%OutAll = SrcInputFileData%OutAll DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -496,27 +496,27 @@ subroutine HydroDyn_PackInputFile(Buf, Indata) call RegPack(Buf, InData%EchoFlag) call RegPack(Buf, allocated(InData%AddF0)) if (allocated(InData%AddF0)) then - call RegPackBounds(Buf, 2, lbound(InData%AddF0), ubound(InData%AddF0)) + call RegPackBounds(Buf, 2, lbound(InData%AddF0, kind=B8Ki), ubound(InData%AddF0, kind=B8Ki)) call RegPack(Buf, InData%AddF0) end if call RegPack(Buf, allocated(InData%AddCLin)) if (allocated(InData%AddCLin)) then - call RegPackBounds(Buf, 3, lbound(InData%AddCLin), ubound(InData%AddCLin)) + call RegPackBounds(Buf, 3, lbound(InData%AddCLin, kind=B8Ki), ubound(InData%AddCLin, kind=B8Ki)) call RegPack(Buf, InData%AddCLin) end if call RegPack(Buf, allocated(InData%AddBLin)) if (allocated(InData%AddBLin)) then - call RegPackBounds(Buf, 3, lbound(InData%AddBLin), ubound(InData%AddBLin)) + call RegPackBounds(Buf, 3, lbound(InData%AddBLin, kind=B8Ki), ubound(InData%AddBLin, kind=B8Ki)) call RegPack(Buf, InData%AddBLin) end if call RegPack(Buf, allocated(InData%AddBQuad)) if (allocated(InData%AddBQuad)) then - call RegPackBounds(Buf, 3, lbound(InData%AddBQuad), ubound(InData%AddBQuad)) + call RegPackBounds(Buf, 3, lbound(InData%AddBQuad, kind=B8Ki), ubound(InData%AddBQuad, kind=B8Ki)) call RegPack(Buf, InData%AddBQuad) end if call RegPack(Buf, allocated(InData%PotFile)) if (allocated(InData%PotFile)) then - call RegPackBounds(Buf, 1, lbound(InData%PotFile), ubound(InData%PotFile)) + call RegPackBounds(Buf, 1, lbound(InData%PotFile, kind=B8Ki), ubound(InData%PotFile, kind=B8Ki)) call RegPack(Buf, InData%PotFile) end if call RegPack(Buf, InData%nWAMITObj) @@ -525,43 +525,43 @@ subroutine HydroDyn_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NBodyMod) call RegPack(Buf, allocated(InData%PtfmVol0)) if (allocated(InData%PtfmVol0)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmVol0), ubound(InData%PtfmVol0)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmVol0, kind=B8Ki), ubound(InData%PtfmVol0, kind=B8Ki)) call RegPack(Buf, InData%PtfmVol0) end if call RegPack(Buf, InData%HasWAMIT) call RegPack(Buf, allocated(InData%WAMITULEN)) if (allocated(InData%WAMITULEN)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMITULEN), ubound(InData%WAMITULEN)) + call RegPackBounds(Buf, 1, lbound(InData%WAMITULEN, kind=B8Ki), ubound(InData%WAMITULEN, kind=B8Ki)) call RegPack(Buf, InData%WAMITULEN) end if call RegPack(Buf, allocated(InData%PtfmRefxt)) if (allocated(InData%PtfmRefxt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefxt), ubound(InData%PtfmRefxt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefxt, kind=B8Ki), ubound(InData%PtfmRefxt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefxt) end if call RegPack(Buf, allocated(InData%PtfmRefyt)) if (allocated(InData%PtfmRefyt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefyt), ubound(InData%PtfmRefyt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefyt, kind=B8Ki), ubound(InData%PtfmRefyt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefyt) end if call RegPack(Buf, allocated(InData%PtfmRefzt)) if (allocated(InData%PtfmRefzt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefzt), ubound(InData%PtfmRefzt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefzt, kind=B8Ki), ubound(InData%PtfmRefzt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefzt) end if call RegPack(Buf, allocated(InData%PtfmRefztRot)) if (allocated(InData%PtfmRefztRot)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot), ubound(InData%PtfmRefztRot)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot, kind=B8Ki), ubound(InData%PtfmRefztRot, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefztRot) end if call RegPack(Buf, allocated(InData%PtfmCOBxt)) if (allocated(InData%PtfmCOBxt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmCOBxt), ubound(InData%PtfmCOBxt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmCOBxt, kind=B8Ki), ubound(InData%PtfmCOBxt, kind=B8Ki)) call RegPack(Buf, InData%PtfmCOBxt) end if call RegPack(Buf, allocated(InData%PtfmCOByt)) if (allocated(InData%PtfmCOByt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmCOByt), ubound(InData%PtfmCOByt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmCOByt, kind=B8Ki), ubound(InData%PtfmCOByt, kind=B8Ki)) call RegPack(Buf, InData%PtfmCOByt) end if call WAMIT_PackInitInput(Buf, InData%WAMIT) @@ -572,7 +572,7 @@ subroutine HydroDyn_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NUserOutputs) call RegPack(Buf, allocated(InData%UserOutputs)) if (allocated(InData%UserOutputs)) then - call RegPackBounds(Buf, 1, lbound(InData%UserOutputs), ubound(InData%UserOutputs)) + call RegPackBounds(Buf, 1, lbound(InData%UserOutputs, kind=B8Ki), ubound(InData%UserOutputs, kind=B8Ki)) call RegPack(Buf, InData%UserOutputs) end if call RegPack(Buf, InData%OutSwtch) @@ -580,7 +580,7 @@ subroutine HydroDyn_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%HDSum) @@ -594,7 +594,7 @@ subroutine HydroDyn_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackInputFile' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -851,7 +851,7 @@ subroutine HydroDyn_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(0), UB(0) + integer(B8Ki) :: LB(0), UB(0) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyInitInput' @@ -914,10 +914,10 @@ subroutine HydroDyn_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackInitInput' - integer(IntKi) :: LB(0), UB(0) + integer(B8Ki) :: LB(0), UB(0) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%InputFile) @@ -965,7 +965,7 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyInitOutput' @@ -975,8 +975,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -987,8 +987,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1002,8 +1002,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1014,8 +1014,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1026,8 +1026,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1038,8 +1038,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1050,8 +1050,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod DstInitOutputData%DerivOrder_x = SrcInitOutputData%DerivOrder_x end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1107,38 +1107,38 @@ subroutine HydroDyn_PackInitOutput(Buf, Indata) call Morison_PackInitOutput(Buf, InData%Morison) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1148,7 +1148,7 @@ subroutine HydroDyn_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1320,16 +1320,16 @@ subroutine HydroDyn_CopyContState(SrcContStateData, DstContStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%WAMIT)) then - LB(1:1) = lbound(SrcContStateData%WAMIT) - UB(1:1) = ubound(SrcContStateData%WAMIT) + LB(1:1) = lbound(SrcContStateData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%WAMIT, kind=B8Ki) if (.not. allocated(DstContStateData%WAMIT)) then allocate(DstContStateData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1352,16 +1352,16 @@ subroutine HydroDyn_DestroyContState(ContStateData, ErrStat, ErrMsg) type(HydroDyn_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%WAMIT)) then - LB(1:1) = lbound(ContStateData%WAMIT) - UB(1:1) = ubound(ContStateData%WAMIT) + LB(1:1) = lbound(ContStateData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(ContStateData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyContState(ContStateData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1376,14 +1376,14 @@ subroutine HydroDyn_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) - LB(1:1) = lbound(InData%WAMIT) - UB(1:1) = ubound(InData%WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT, kind=B8Ki), ubound(InData%WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackContState(Buf, InData%WAMIT(i1)) end do @@ -1396,8 +1396,8 @@ subroutine HydroDyn_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1425,16 +1425,16 @@ subroutine HydroDyn_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%WAMIT)) then - LB(1:1) = lbound(SrcDiscStateData%WAMIT) - UB(1:1) = ubound(SrcDiscStateData%WAMIT) + LB(1:1) = lbound(SrcDiscStateData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%WAMIT, kind=B8Ki) if (.not. allocated(DstDiscStateData%WAMIT)) then allocate(DstDiscStateData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1457,16 +1457,16 @@ subroutine HydroDyn_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(HydroDyn_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(DiscStateData%WAMIT)) then - LB(1:1) = lbound(DiscStateData%WAMIT) - UB(1:1) = ubound(DiscStateData%WAMIT) + LB(1:1) = lbound(DiscStateData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyDiscState(DiscStateData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1481,14 +1481,14 @@ subroutine HydroDyn_PackDiscState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) - LB(1:1) = lbound(InData%WAMIT) - UB(1:1) = ubound(InData%WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT, kind=B8Ki), ubound(InData%WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackDiscState(Buf, InData%WAMIT(i1)) end do @@ -1501,8 +1501,8 @@ subroutine HydroDyn_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1583,16 +1583,16 @@ subroutine HydroDyn_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%WAMIT)) then - LB(1:1) = lbound(SrcOtherStateData%WAMIT) - UB(1:1) = ubound(SrcOtherStateData%WAMIT) + LB(1:1) = lbound(SrcOtherStateData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%WAMIT, kind=B8Ki) if (.not. allocated(DstOtherStateData%WAMIT)) then allocate(DstOtherStateData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1615,16 +1615,16 @@ subroutine HydroDyn_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(HydroDyn_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%WAMIT)) then - LB(1:1) = lbound(OtherStateData%WAMIT) - UB(1:1) = ubound(OtherStateData%WAMIT) + LB(1:1) = lbound(OtherStateData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyOtherState(OtherStateData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1639,14 +1639,14 @@ subroutine HydroDyn_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) - LB(1:1) = lbound(InData%WAMIT) - UB(1:1) = ubound(InData%WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT, kind=B8Ki), ubound(InData%WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackOtherState(Buf, InData%WAMIT(i1)) end do @@ -1659,8 +1659,8 @@ subroutine HydroDyn_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1688,8 +1688,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyMisc' @@ -1704,8 +1704,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg DstMiscData%Decimate = SrcMiscData%Decimate DstMiscData%LastOutTime = SrcMiscData%LastOutTime if (allocated(SrcMiscData%F_PtfmAdd)) then - LB(1:1) = lbound(SrcMiscData%F_PtfmAdd) - UB(1:1) = ubound(SrcMiscData%F_PtfmAdd) + LB(1:1) = lbound(SrcMiscData%F_PtfmAdd, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_PtfmAdd, kind=B8Ki) if (.not. allocated(DstMiscData%F_PtfmAdd)) then allocate(DstMiscData%F_PtfmAdd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1717,8 +1717,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg end if DstMiscData%F_Hydro = SrcMiscData%F_Hydro if (allocated(SrcMiscData%F_Waves)) then - LB(1:1) = lbound(SrcMiscData%F_Waves) - UB(1:1) = ubound(SrcMiscData%F_Waves) + LB(1:1) = lbound(SrcMiscData%F_Waves, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_Waves, kind=B8Ki) if (.not. allocated(DstMiscData%F_Waves)) then allocate(DstMiscData%F_Waves(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1729,8 +1729,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg DstMiscData%F_Waves = SrcMiscData%F_Waves end if if (allocated(SrcMiscData%WAMIT)) then - LB(1:1) = lbound(SrcMiscData%WAMIT) - UB(1:1) = ubound(SrcMiscData%WAMIT) + LB(1:1) = lbound(SrcMiscData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%WAMIT, kind=B8Ki) if (.not. allocated(DstMiscData%WAMIT)) then allocate(DstMiscData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1745,8 +1745,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcMiscData%WAMIT2)) then - LB(1:1) = lbound(SrcMiscData%WAMIT2) - UB(1:1) = ubound(SrcMiscData%WAMIT2) + LB(1:1) = lbound(SrcMiscData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%WAMIT2, kind=B8Ki) if (.not. allocated(DstMiscData%WAMIT2)) then allocate(DstMiscData%WAMIT2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1764,8 +1764,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%u_WAMIT)) then - LB(1:1) = lbound(SrcMiscData%u_WAMIT) - UB(1:1) = ubound(SrcMiscData%u_WAMIT) + LB(1:1) = lbound(SrcMiscData%u_WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%u_WAMIT, kind=B8Ki) if (.not. allocated(DstMiscData%u_WAMIT)) then allocate(DstMiscData%u_WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1785,8 +1785,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) type(HydroDyn_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyMisc' @@ -1803,8 +1803,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%F_Waves) end if if (allocated(MiscData%WAMIT)) then - LB(1:1) = lbound(MiscData%WAMIT) - UB(1:1) = ubound(MiscData%WAMIT) + LB(1:1) = lbound(MiscData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(MiscData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyMisc(MiscData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1812,8 +1812,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%WAMIT) end if if (allocated(MiscData%WAMIT2)) then - LB(1:1) = lbound(MiscData%WAMIT2) - UB(1:1) = ubound(MiscData%WAMIT2) + LB(1:1) = lbound(MiscData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(MiscData%WAMIT2, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT2_DestroyMisc(MiscData%WAMIT2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1823,8 +1823,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) call Morison_DestroyMisc(MiscData%Morison, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MiscData%u_WAMIT)) then - LB(1:1) = lbound(MiscData%u_WAMIT) - UB(1:1) = ubound(MiscData%u_WAMIT) + LB(1:1) = lbound(MiscData%u_WAMIT, kind=B8Ki) + UB(1:1) = ubound(MiscData%u_WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyInput(MiscData%u_WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1837,8 +1837,8 @@ subroutine HydroDyn_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call MeshPack(Buf, InData%AllHdroOrigin) call HydroDyn_PackHD_ModuleMapType(Buf, InData%HD_MeshMap) @@ -1846,29 +1846,29 @@ subroutine HydroDyn_PackMisc(Buf, Indata) call RegPack(Buf, InData%LastOutTime) call RegPack(Buf, allocated(InData%F_PtfmAdd)) if (allocated(InData%F_PtfmAdd)) then - call RegPackBounds(Buf, 1, lbound(InData%F_PtfmAdd), ubound(InData%F_PtfmAdd)) + call RegPackBounds(Buf, 1, lbound(InData%F_PtfmAdd, kind=B8Ki), ubound(InData%F_PtfmAdd, kind=B8Ki)) call RegPack(Buf, InData%F_PtfmAdd) end if call RegPack(Buf, InData%F_Hydro) call RegPack(Buf, allocated(InData%F_Waves)) if (allocated(InData%F_Waves)) then - call RegPackBounds(Buf, 1, lbound(InData%F_Waves), ubound(InData%F_Waves)) + call RegPackBounds(Buf, 1, lbound(InData%F_Waves, kind=B8Ki), ubound(InData%F_Waves, kind=B8Ki)) call RegPack(Buf, InData%F_Waves) end if call RegPack(Buf, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) - LB(1:1) = lbound(InData%WAMIT) - UB(1:1) = ubound(InData%WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT, kind=B8Ki), ubound(InData%WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackMisc(Buf, InData%WAMIT(i1)) end do end if call RegPack(Buf, allocated(InData%WAMIT2)) if (allocated(InData%WAMIT2)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT2), ubound(InData%WAMIT2)) - LB(1:1) = lbound(InData%WAMIT2) - UB(1:1) = ubound(InData%WAMIT2) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT2, kind=B8Ki), ubound(InData%WAMIT2, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT2, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT2_PackMisc(Buf, InData%WAMIT2(i1)) end do @@ -1876,9 +1876,9 @@ subroutine HydroDyn_PackMisc(Buf, Indata) call Morison_PackMisc(Buf, InData%Morison) call RegPack(Buf, allocated(InData%u_WAMIT)) if (allocated(InData%u_WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%u_WAMIT), ubound(InData%u_WAMIT)) - LB(1:1) = lbound(InData%u_WAMIT) - UB(1:1) = ubound(InData%u_WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%u_WAMIT, kind=B8Ki), ubound(InData%u_WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%u_WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%u_WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackInput(Buf, InData%u_WAMIT(i1)) end do @@ -1890,8 +1890,8 @@ subroutine HydroDyn_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackMisc' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1985,8 +1985,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyParam' @@ -1995,8 +1995,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%nWAMITObj = SrcParamData%nWAMITObj DstParamData%vecMultiplier = SrcParamData%vecMultiplier if (allocated(SrcParamData%WAMIT)) then - LB(1:1) = lbound(SrcParamData%WAMIT) - UB(1:1) = ubound(SrcParamData%WAMIT) + LB(1:1) = lbound(SrcParamData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WAMIT, kind=B8Ki) if (.not. allocated(DstParamData%WAMIT)) then allocate(DstParamData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2011,8 +2011,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err end do end if if (allocated(SrcParamData%WAMIT2)) then - LB(1:1) = lbound(SrcParamData%WAMIT2) - UB(1:1) = ubound(SrcParamData%WAMIT2) + LB(1:1) = lbound(SrcParamData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WAMIT2, kind=B8Ki) if (.not. allocated(DstParamData%WAMIT2)) then allocate(DstParamData%WAMIT2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2037,8 +2037,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%totalExctnStates = SrcParamData%totalExctnStates DstParamData%totalRdtnStates = SrcParamData%totalRdtnStates if (allocated(SrcParamData%AddF0)) then - LB(1:2) = lbound(SrcParamData%AddF0) - UB(1:2) = ubound(SrcParamData%AddF0) + LB(1:2) = lbound(SrcParamData%AddF0, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%AddF0, kind=B8Ki) if (.not. allocated(DstParamData%AddF0)) then allocate(DstParamData%AddF0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2049,8 +2049,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%AddF0 = SrcParamData%AddF0 end if if (allocated(SrcParamData%AddCLin)) then - LB(1:3) = lbound(SrcParamData%AddCLin) - UB(1:3) = ubound(SrcParamData%AddCLin) + LB(1:3) = lbound(SrcParamData%AddCLin, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AddCLin, kind=B8Ki) if (.not. allocated(DstParamData%AddCLin)) then allocate(DstParamData%AddCLin(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2061,8 +2061,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%AddCLin = SrcParamData%AddCLin end if if (allocated(SrcParamData%AddBLin)) then - LB(1:3) = lbound(SrcParamData%AddBLin) - UB(1:3) = ubound(SrcParamData%AddBLin) + LB(1:3) = lbound(SrcParamData%AddBLin, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AddBLin, kind=B8Ki) if (.not. allocated(DstParamData%AddBLin)) then allocate(DstParamData%AddBLin(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2073,8 +2073,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%AddBLin = SrcParamData%AddBLin end if if (allocated(SrcParamData%AddBQuad)) then - LB(1:3) = lbound(SrcParamData%AddBQuad) - UB(1:3) = ubound(SrcParamData%AddBQuad) + LB(1:3) = lbound(SrcParamData%AddBQuad, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AddBQuad, kind=B8Ki) if (.not. allocated(DstParamData%AddBQuad)) then allocate(DstParamData%AddBQuad(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2086,8 +2086,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err end if DstParamData%DT = SrcParamData%DT if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2110,8 +2110,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%UnOutFile = SrcParamData%UnOutFile DstParamData%OutDec = SrcParamData%OutDec if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx) - UB(1:2) = ubound(SrcParamData%Jac_u_indx) + LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_u_indx)) then allocate(DstParamData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2122,8 +2122,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%Jac_u_indx = SrcParamData%Jac_u_indx end if if (allocated(SrcParamData%du)) then - LB(1:1) = lbound(SrcParamData%du) - UB(1:1) = ubound(SrcParamData%du) + LB(1:1) = lbound(SrcParamData%du, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2134,8 +2134,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err DstParamData%du = SrcParamData%du end if if (allocated(SrcParamData%dx)) then - LB(1:1) = lbound(SrcParamData%dx) - UB(1:1) = ubound(SrcParamData%dx) + LB(1:1) = lbound(SrcParamData%dx, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2154,16 +2154,16 @@ subroutine HydroDyn_DestroyParam(ParamData, ErrStat, ErrMsg) type(HydroDyn_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(ParamData%WAMIT)) then - LB(1:1) = lbound(ParamData%WAMIT) - UB(1:1) = ubound(ParamData%WAMIT) + LB(1:1) = lbound(ParamData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(ParamData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyParam(ParamData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2171,8 +2171,8 @@ subroutine HydroDyn_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WAMIT) end if if (allocated(ParamData%WAMIT2)) then - LB(1:1) = lbound(ParamData%WAMIT2) - UB(1:1) = ubound(ParamData%WAMIT2) + LB(1:1) = lbound(ParamData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(ParamData%WAMIT2, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT2_DestroyParam(ParamData%WAMIT2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2194,8 +2194,8 @@ subroutine HydroDyn_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%AddBQuad) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2218,26 +2218,26 @@ subroutine HydroDyn_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%nWAMITObj) call RegPack(Buf, InData%vecMultiplier) call RegPack(Buf, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) - LB(1:1) = lbound(InData%WAMIT) - UB(1:1) = ubound(InData%WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT, kind=B8Ki), ubound(InData%WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackParam(Buf, InData%WAMIT(i1)) end do end if call RegPack(Buf, allocated(InData%WAMIT2)) if (allocated(InData%WAMIT2)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT2), ubound(InData%WAMIT2)) - LB(1:1) = lbound(InData%WAMIT2) - UB(1:1) = ubound(InData%WAMIT2) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT2, kind=B8Ki), ubound(InData%WAMIT2, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT2, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT2_PackParam(Buf, InData%WAMIT2(i1)) end do @@ -2252,30 +2252,30 @@ subroutine HydroDyn_PackParam(Buf, Indata) call RegPack(Buf, InData%totalRdtnStates) call RegPack(Buf, allocated(InData%AddF0)) if (allocated(InData%AddF0)) then - call RegPackBounds(Buf, 2, lbound(InData%AddF0), ubound(InData%AddF0)) + call RegPackBounds(Buf, 2, lbound(InData%AddF0, kind=B8Ki), ubound(InData%AddF0, kind=B8Ki)) call RegPack(Buf, InData%AddF0) end if call RegPack(Buf, allocated(InData%AddCLin)) if (allocated(InData%AddCLin)) then - call RegPackBounds(Buf, 3, lbound(InData%AddCLin), ubound(InData%AddCLin)) + call RegPackBounds(Buf, 3, lbound(InData%AddCLin, kind=B8Ki), ubound(InData%AddCLin, kind=B8Ki)) call RegPack(Buf, InData%AddCLin) end if call RegPack(Buf, allocated(InData%AddBLin)) if (allocated(InData%AddBLin)) then - call RegPackBounds(Buf, 3, lbound(InData%AddBLin), ubound(InData%AddBLin)) + call RegPackBounds(Buf, 3, lbound(InData%AddBLin, kind=B8Ki), ubound(InData%AddBLin, kind=B8Ki)) call RegPack(Buf, InData%AddBLin) end if call RegPack(Buf, allocated(InData%AddBQuad)) if (allocated(InData%AddBQuad)) then - call RegPackBounds(Buf, 3, lbound(InData%AddBQuad), ubound(InData%AddBQuad)) + call RegPackBounds(Buf, 3, lbound(InData%AddBQuad, kind=B8Ki), ubound(InData%AddBQuad, kind=B8Ki)) call RegPack(Buf, InData%AddBQuad) end if call RegPack(Buf, InData%DT) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -2290,17 +2290,17 @@ subroutine HydroDyn_PackParam(Buf, Indata) call RegPack(Buf, InData%OutDec) call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, allocated(InData%dx)) if (allocated(InData%dx)) then - call RegPackBounds(Buf, 1, lbound(InData%dx), ubound(InData%dx)) + call RegPackBounds(Buf, 1, lbound(InData%dx, kind=B8Ki), ubound(InData%dx, kind=B8Ki)) call RegPack(Buf, InData%dx) end if call RegPack(Buf, InData%Jac_ny) @@ -2319,11 +2319,11 @@ subroutine HydroDyn_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%nWAMITObj) @@ -2598,16 +2598,16 @@ subroutine HydroDyn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%WAMIT)) then - LB(1:1) = lbound(SrcOutputData%WAMIT) - UB(1:1) = ubound(SrcOutputData%WAMIT) + LB(1:1) = lbound(SrcOutputData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WAMIT, kind=B8Ki) if (.not. allocated(DstOutputData%WAMIT)) then allocate(DstOutputData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2622,8 +2622,8 @@ subroutine HydroDyn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, end do end if if (allocated(SrcOutputData%WAMIT2)) then - LB(1:1) = lbound(SrcOutputData%WAMIT2) - UB(1:1) = ubound(SrcOutputData%WAMIT2) + LB(1:1) = lbound(SrcOutputData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WAMIT2, kind=B8Ki) if (.not. allocated(DstOutputData%WAMIT2)) then allocate(DstOutputData%WAMIT2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2644,8 +2644,8 @@ subroutine HydroDyn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2661,16 +2661,16 @@ subroutine HydroDyn_DestroyOutput(OutputData, ErrStat, ErrMsg) type(HydroDyn_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%WAMIT)) then - LB(1:1) = lbound(OutputData%WAMIT) - UB(1:1) = ubound(OutputData%WAMIT) + LB(1:1) = lbound(OutputData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(OutputData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_DestroyOutput(OutputData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2678,8 +2678,8 @@ subroutine HydroDyn_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%WAMIT) end if if (allocated(OutputData%WAMIT2)) then - LB(1:1) = lbound(OutputData%WAMIT2) - UB(1:1) = ubound(OutputData%WAMIT2) + LB(1:1) = lbound(OutputData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(OutputData%WAMIT2, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT2_DestroyOutput(OutputData%WAMIT2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2699,23 +2699,23 @@ subroutine HydroDyn_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) - LB(1:1) = lbound(InData%WAMIT) - UB(1:1) = ubound(InData%WAMIT) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT, kind=B8Ki), ubound(InData%WAMIT, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT_PackOutput(Buf, InData%WAMIT(i1)) end do end if call RegPack(Buf, allocated(InData%WAMIT2)) if (allocated(InData%WAMIT2)) then - call RegPackBounds(Buf, 1, lbound(InData%WAMIT2), ubound(InData%WAMIT2)) - LB(1:1) = lbound(InData%WAMIT2) - UB(1:1) = ubound(InData%WAMIT2) + call RegPackBounds(Buf, 1, lbound(InData%WAMIT2, kind=B8Ki), ubound(InData%WAMIT2, kind=B8Ki)) + LB(1:1) = lbound(InData%WAMIT2, kind=B8Ki) + UB(1:1) = ubound(InData%WAMIT2, kind=B8Ki) do i1 = LB(1), UB(1) call WAMIT2_PackOutput(Buf, InData%WAMIT2(i1)) end do @@ -2724,7 +2724,7 @@ subroutine HydroDyn_PackOutput(Buf, Indata) call MeshPack(Buf, InData%WAMITMesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2734,8 +2734,8 @@ subroutine HydroDyn_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3049,13 +3049,13 @@ SUBROUTINE HydroDyn_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, E a2 = t_out/t(2) IF (ALLOCATED(y_out%WAMIT) .AND. ALLOCATED(y1%WAMIT)) THEN - DO i1 = LBOUND(y_out%WAMIT,1),UBOUND(y_out%WAMIT,1) + DO i1 = LBOUND(y_out%WAMIT,1, kind=B8Ki),UBOUND(y_out%WAMIT,1, kind=B8Ki) CALL WAMIT_Output_ExtrapInterp1( y1%WAMIT(i1), y2%WAMIT(i1), tin, y_out%WAMIT(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%WAMIT2) .AND. ALLOCATED(y1%WAMIT2)) THEN - DO i1 = LBOUND(y_out%WAMIT2,1),UBOUND(y_out%WAMIT2,1) + DO i1 = LBOUND(y_out%WAMIT2,1, kind=B8Ki),UBOUND(y_out%WAMIT2,1, kind=B8Ki) CALL WAMIT2_Output_ExtrapInterp1( y1%WAMIT2(i1), y2%WAMIT2(i1), tin, y_out%WAMIT2(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -3125,13 +3125,13 @@ SUBROUTINE HydroDyn_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrSta a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%WAMIT) .AND. ALLOCATED(y1%WAMIT)) THEN - DO i1 = LBOUND(y_out%WAMIT,1),UBOUND(y_out%WAMIT,1) + DO i1 = LBOUND(y_out%WAMIT,1, kind=B8Ki),UBOUND(y_out%WAMIT,1, kind=B8Ki) CALL WAMIT_Output_ExtrapInterp2( y1%WAMIT(i1), y2%WAMIT(i1), y3%WAMIT(i1), tin, y_out%WAMIT(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%WAMIT2) .AND. ALLOCATED(y1%WAMIT2)) THEN - DO i1 = LBOUND(y_out%WAMIT2,1),UBOUND(y_out%WAMIT2,1) + DO i1 = LBOUND(y_out%WAMIT2,1, kind=B8Ki),UBOUND(y_out%WAMIT2,1, kind=B8Ki) CALL WAMIT2_Output_ExtrapInterp2( y1%WAMIT2(i1), y2%WAMIT2(i1), y3%WAMIT2(i1), tin, y_out%WAMIT2(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO diff --git a/modules/hydrodyn/src/Morison_Types.f90 b/modules/hydrodyn/src/Morison_Types.f90 index 0a37e81083..024346ed79 100644 --- a/modules/hydrodyn/src/Morison_Types.f90 +++ b/modules/hydrodyn/src/Morison_Types.f90 @@ -549,15 +549,15 @@ subroutine Morison_CopyFilledGroupType(SrcFilledGroupTypeData, DstFilledGroupTyp integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyFilledGroupType' ErrStat = ErrID_None ErrMsg = '' DstFilledGroupTypeData%FillNumM = SrcFilledGroupTypeData%FillNumM if (allocated(SrcFilledGroupTypeData%FillMList)) then - LB(1:1) = lbound(SrcFilledGroupTypeData%FillMList) - UB(1:1) = ubound(SrcFilledGroupTypeData%FillMList) + LB(1:1) = lbound(SrcFilledGroupTypeData%FillMList, kind=B8Ki) + UB(1:1) = ubound(SrcFilledGroupTypeData%FillMList, kind=B8Ki) if (.not. allocated(DstFilledGroupTypeData%FillMList)) then allocate(DstFilledGroupTypeData%FillMList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -592,7 +592,7 @@ subroutine Morison_PackFilledGroupType(Buf, Indata) call RegPack(Buf, InData%FillNumM) call RegPack(Buf, allocated(InData%FillMList)) if (allocated(InData%FillMList)) then - call RegPackBounds(Buf, 1, lbound(InData%FillMList), ubound(InData%FillMList)) + call RegPackBounds(Buf, 1, lbound(InData%FillMList, kind=B8Ki), ubound(InData%FillMList, kind=B8Ki)) call RegPack(Buf, InData%FillMList) end if call RegPack(Buf, InData%FillFSLoc) @@ -605,7 +605,7 @@ subroutine Morison_UnPackFilledGroupType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_FilledGroupType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackFilledGroupType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -801,15 +801,15 @@ subroutine Morison_CopyMemberInputType(SrcMemberInputTypeData, DstMemberInputTyp integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyMemberInputType' ErrStat = ErrID_None ErrMsg = '' DstMemberInputTypeData%MemberID = SrcMemberInputTypeData%MemberID if (allocated(SrcMemberInputTypeData%NodeIndx)) then - LB(1:1) = lbound(SrcMemberInputTypeData%NodeIndx) - UB(1:1) = ubound(SrcMemberInputTypeData%NodeIndx) + LB(1:1) = lbound(SrcMemberInputTypeData%NodeIndx, kind=B8Ki) + UB(1:1) = ubound(SrcMemberInputTypeData%NodeIndx, kind=B8Ki) if (.not. allocated(DstMemberInputTypeData%NodeIndx)) then allocate(DstMemberInputTypeData%NodeIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -859,7 +859,7 @@ subroutine Morison_PackMemberInputType(Buf, Indata) call RegPack(Buf, InData%MemberID) call RegPack(Buf, allocated(InData%NodeIndx)) if (allocated(InData%NodeIndx)) then - call RegPackBounds(Buf, 1, lbound(InData%NodeIndx), ubound(InData%NodeIndx)) + call RegPackBounds(Buf, 1, lbound(InData%NodeIndx, kind=B8Ki), ubound(InData%NodeIndx, kind=B8Ki)) call RegPack(Buf, InData%NodeIndx) end if call RegPack(Buf, InData%MJointID1) @@ -887,7 +887,7 @@ subroutine Morison_UnPackMemberInputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_MemberInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMemberInputType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1046,14 +1046,14 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyMemberType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMemberTypeData%NodeIndx)) then - LB(1:1) = lbound(SrcMemberTypeData%NodeIndx) - UB(1:1) = ubound(SrcMemberTypeData%NodeIndx) + LB(1:1) = lbound(SrcMemberTypeData%NodeIndx, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%NodeIndx, kind=B8Ki) if (.not. allocated(DstMemberTypeData%NodeIndx)) then allocate(DstMemberTypeData%NodeIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1072,8 +1072,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%kkt = SrcMemberTypeData%kkt DstMemberTypeData%Ak = SrcMemberTypeData%Ak if (allocated(SrcMemberTypeData%R)) then - LB(1:1) = lbound(SrcMemberTypeData%R) - UB(1:1) = ubound(SrcMemberTypeData%R) + LB(1:1) = lbound(SrcMemberTypeData%R, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%R, kind=B8Ki) if (.not. allocated(DstMemberTypeData%R)) then allocate(DstMemberTypeData%R(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1084,8 +1084,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%R = SrcMemberTypeData%R end if if (allocated(SrcMemberTypeData%RMG)) then - LB(1:1) = lbound(SrcMemberTypeData%RMG) - UB(1:1) = ubound(SrcMemberTypeData%RMG) + LB(1:1) = lbound(SrcMemberTypeData%RMG, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%RMG, kind=B8Ki) if (.not. allocated(DstMemberTypeData%RMG)) then allocate(DstMemberTypeData%RMG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1096,8 +1096,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%RMG = SrcMemberTypeData%RMG end if if (allocated(SrcMemberTypeData%RMGB)) then - LB(1:1) = lbound(SrcMemberTypeData%RMGB) - UB(1:1) = ubound(SrcMemberTypeData%RMGB) + LB(1:1) = lbound(SrcMemberTypeData%RMGB, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%RMGB, kind=B8Ki) if (.not. allocated(DstMemberTypeData%RMGB)) then allocate(DstMemberTypeData%RMGB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1108,8 +1108,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%RMGB = SrcMemberTypeData%RMGB end if if (allocated(SrcMemberTypeData%Rin)) then - LB(1:1) = lbound(SrcMemberTypeData%Rin) - UB(1:1) = ubound(SrcMemberTypeData%Rin) + LB(1:1) = lbound(SrcMemberTypeData%Rin, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Rin, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Rin)) then allocate(DstMemberTypeData%Rin(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1120,8 +1120,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Rin = SrcMemberTypeData%Rin end if if (allocated(SrcMemberTypeData%tMG)) then - LB(1:1) = lbound(SrcMemberTypeData%tMG) - UB(1:1) = ubound(SrcMemberTypeData%tMG) + LB(1:1) = lbound(SrcMemberTypeData%tMG, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%tMG, kind=B8Ki) if (.not. allocated(DstMemberTypeData%tMG)) then allocate(DstMemberTypeData%tMG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1132,8 +1132,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%tMG = SrcMemberTypeData%tMG end if if (allocated(SrcMemberTypeData%MGdensity)) then - LB(1:1) = lbound(SrcMemberTypeData%MGdensity) - UB(1:1) = ubound(SrcMemberTypeData%MGdensity) + LB(1:1) = lbound(SrcMemberTypeData%MGdensity, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%MGdensity, kind=B8Ki) if (.not. allocated(DstMemberTypeData%MGdensity)) then allocate(DstMemberTypeData%MGdensity(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1144,8 +1144,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%MGdensity = SrcMemberTypeData%MGdensity end if if (allocated(SrcMemberTypeData%dRdl_mg)) then - LB(1:1) = lbound(SrcMemberTypeData%dRdl_mg) - UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg) + LB(1:1) = lbound(SrcMemberTypeData%dRdl_mg, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg, kind=B8Ki) if (.not. allocated(DstMemberTypeData%dRdl_mg)) then allocate(DstMemberTypeData%dRdl_mg(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1156,8 +1156,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%dRdl_mg = SrcMemberTypeData%dRdl_mg end if if (allocated(SrcMemberTypeData%dRdl_mg_b)) then - LB(1:1) = lbound(SrcMemberTypeData%dRdl_mg_b) - UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg_b) + LB(1:1) = lbound(SrcMemberTypeData%dRdl_mg_b, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg_b, kind=B8Ki) if (.not. allocated(DstMemberTypeData%dRdl_mg_b)) then allocate(DstMemberTypeData%dRdl_mg_b(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1168,8 +1168,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%dRdl_mg_b = SrcMemberTypeData%dRdl_mg_b end if if (allocated(SrcMemberTypeData%dRdl_in)) then - LB(1:1) = lbound(SrcMemberTypeData%dRdl_in) - UB(1:1) = ubound(SrcMemberTypeData%dRdl_in) + LB(1:1) = lbound(SrcMemberTypeData%dRdl_in, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%dRdl_in, kind=B8Ki) if (.not. allocated(DstMemberTypeData%dRdl_in)) then allocate(DstMemberTypeData%dRdl_in(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1191,8 +1191,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%doEndBuoyancy = SrcMemberTypeData%doEndBuoyancy DstMemberTypeData%memfloodstatus = SrcMemberTypeData%memfloodstatus if (allocated(SrcMemberTypeData%floodstatus)) then - LB(1:1) = lbound(SrcMemberTypeData%floodstatus) - UB(1:1) = ubound(SrcMemberTypeData%floodstatus) + LB(1:1) = lbound(SrcMemberTypeData%floodstatus, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%floodstatus, kind=B8Ki) if (.not. allocated(DstMemberTypeData%floodstatus)) then allocate(DstMemberTypeData%floodstatus(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1203,8 +1203,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%floodstatus = SrcMemberTypeData%floodstatus end if if (allocated(SrcMemberTypeData%alpha)) then - LB(1:1) = lbound(SrcMemberTypeData%alpha) - UB(1:1) = ubound(SrcMemberTypeData%alpha) + LB(1:1) = lbound(SrcMemberTypeData%alpha, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%alpha, kind=B8Ki) if (.not. allocated(DstMemberTypeData%alpha)) then allocate(DstMemberTypeData%alpha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1215,8 +1215,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%alpha = SrcMemberTypeData%alpha end if if (allocated(SrcMemberTypeData%alpha_fb)) then - LB(1:1) = lbound(SrcMemberTypeData%alpha_fb) - UB(1:1) = ubound(SrcMemberTypeData%alpha_fb) + LB(1:1) = lbound(SrcMemberTypeData%alpha_fb, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%alpha_fb, kind=B8Ki) if (.not. allocated(DstMemberTypeData%alpha_fb)) then allocate(DstMemberTypeData%alpha_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1227,8 +1227,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%alpha_fb = SrcMemberTypeData%alpha_fb end if if (allocated(SrcMemberTypeData%alpha_fb_star)) then - LB(1:1) = lbound(SrcMemberTypeData%alpha_fb_star) - UB(1:1) = ubound(SrcMemberTypeData%alpha_fb_star) + LB(1:1) = lbound(SrcMemberTypeData%alpha_fb_star, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%alpha_fb_star, kind=B8Ki) if (.not. allocated(DstMemberTypeData%alpha_fb_star)) then allocate(DstMemberTypeData%alpha_fb_star(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1239,8 +1239,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%alpha_fb_star = SrcMemberTypeData%alpha_fb_star end if if (allocated(SrcMemberTypeData%Cd)) then - LB(1:1) = lbound(SrcMemberTypeData%Cd) - UB(1:1) = ubound(SrcMemberTypeData%Cd) + LB(1:1) = lbound(SrcMemberTypeData%Cd, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Cd, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Cd)) then allocate(DstMemberTypeData%Cd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1251,8 +1251,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cd = SrcMemberTypeData%Cd end if if (allocated(SrcMemberTypeData%Ca)) then - LB(1:1) = lbound(SrcMemberTypeData%Ca) - UB(1:1) = ubound(SrcMemberTypeData%Ca) + LB(1:1) = lbound(SrcMemberTypeData%Ca, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Ca, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Ca)) then allocate(DstMemberTypeData%Ca(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1263,8 +1263,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Ca = SrcMemberTypeData%Ca end if if (allocated(SrcMemberTypeData%Cp)) then - LB(1:1) = lbound(SrcMemberTypeData%Cp) - UB(1:1) = ubound(SrcMemberTypeData%Cp) + LB(1:1) = lbound(SrcMemberTypeData%Cp, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Cp, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Cp)) then allocate(DstMemberTypeData%Cp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1275,8 +1275,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cp = SrcMemberTypeData%Cp end if if (allocated(SrcMemberTypeData%AxCd)) then - LB(1:1) = lbound(SrcMemberTypeData%AxCd) - UB(1:1) = ubound(SrcMemberTypeData%AxCd) + LB(1:1) = lbound(SrcMemberTypeData%AxCd, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%AxCd, kind=B8Ki) if (.not. allocated(DstMemberTypeData%AxCd)) then allocate(DstMemberTypeData%AxCd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1287,8 +1287,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%AxCd = SrcMemberTypeData%AxCd end if if (allocated(SrcMemberTypeData%AxCa)) then - LB(1:1) = lbound(SrcMemberTypeData%AxCa) - UB(1:1) = ubound(SrcMemberTypeData%AxCa) + LB(1:1) = lbound(SrcMemberTypeData%AxCa, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%AxCa, kind=B8Ki) if (.not. allocated(DstMemberTypeData%AxCa)) then allocate(DstMemberTypeData%AxCa(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1299,8 +1299,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%AxCa = SrcMemberTypeData%AxCa end if if (allocated(SrcMemberTypeData%AxCp)) then - LB(1:1) = lbound(SrcMemberTypeData%AxCp) - UB(1:1) = ubound(SrcMemberTypeData%AxCp) + LB(1:1) = lbound(SrcMemberTypeData%AxCp, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%AxCp, kind=B8Ki) if (.not. allocated(DstMemberTypeData%AxCp)) then allocate(DstMemberTypeData%AxCp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1311,8 +1311,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%AxCp = SrcMemberTypeData%AxCp end if if (allocated(SrcMemberTypeData%Cb)) then - LB(1:1) = lbound(SrcMemberTypeData%Cb) - UB(1:1) = ubound(SrcMemberTypeData%Cb) + LB(1:1) = lbound(SrcMemberTypeData%Cb, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Cb, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Cb)) then allocate(DstMemberTypeData%Cb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1323,8 +1323,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cb = SrcMemberTypeData%Cb end if if (allocated(SrcMemberTypeData%m_fb_l)) then - LB(1:1) = lbound(SrcMemberTypeData%m_fb_l) - UB(1:1) = ubound(SrcMemberTypeData%m_fb_l) + LB(1:1) = lbound(SrcMemberTypeData%m_fb_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%m_fb_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%m_fb_l)) then allocate(DstMemberTypeData%m_fb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1335,8 +1335,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%m_fb_l = SrcMemberTypeData%m_fb_l end if if (allocated(SrcMemberTypeData%m_fb_u)) then - LB(1:1) = lbound(SrcMemberTypeData%m_fb_u) - UB(1:1) = ubound(SrcMemberTypeData%m_fb_u) + LB(1:1) = lbound(SrcMemberTypeData%m_fb_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%m_fb_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%m_fb_u)) then allocate(DstMemberTypeData%m_fb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1347,8 +1347,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%m_fb_u = SrcMemberTypeData%m_fb_u end if if (allocated(SrcMemberTypeData%h_cfb_l)) then - LB(1:1) = lbound(SrcMemberTypeData%h_cfb_l) - UB(1:1) = ubound(SrcMemberTypeData%h_cfb_l) + LB(1:1) = lbound(SrcMemberTypeData%h_cfb_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%h_cfb_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%h_cfb_l)) then allocate(DstMemberTypeData%h_cfb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1359,8 +1359,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%h_cfb_l = SrcMemberTypeData%h_cfb_l end if if (allocated(SrcMemberTypeData%h_cfb_u)) then - LB(1:1) = lbound(SrcMemberTypeData%h_cfb_u) - UB(1:1) = ubound(SrcMemberTypeData%h_cfb_u) + LB(1:1) = lbound(SrcMemberTypeData%h_cfb_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%h_cfb_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%h_cfb_u)) then allocate(DstMemberTypeData%h_cfb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1371,8 +1371,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%h_cfb_u = SrcMemberTypeData%h_cfb_u end if if (allocated(SrcMemberTypeData%I_lfb_l)) then - LB(1:1) = lbound(SrcMemberTypeData%I_lfb_l) - UB(1:1) = ubound(SrcMemberTypeData%I_lfb_l) + LB(1:1) = lbound(SrcMemberTypeData%I_lfb_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_lfb_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_lfb_l)) then allocate(DstMemberTypeData%I_lfb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1383,8 +1383,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_lfb_l = SrcMemberTypeData%I_lfb_l end if if (allocated(SrcMemberTypeData%I_lfb_u)) then - LB(1:1) = lbound(SrcMemberTypeData%I_lfb_u) - UB(1:1) = ubound(SrcMemberTypeData%I_lfb_u) + LB(1:1) = lbound(SrcMemberTypeData%I_lfb_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_lfb_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_lfb_u)) then allocate(DstMemberTypeData%I_lfb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1395,8 +1395,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_lfb_u = SrcMemberTypeData%I_lfb_u end if if (allocated(SrcMemberTypeData%I_rfb_l)) then - LB(1:1) = lbound(SrcMemberTypeData%I_rfb_l) - UB(1:1) = ubound(SrcMemberTypeData%I_rfb_l) + LB(1:1) = lbound(SrcMemberTypeData%I_rfb_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_rfb_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_rfb_l)) then allocate(DstMemberTypeData%I_rfb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1407,8 +1407,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_rfb_l = SrcMemberTypeData%I_rfb_l end if if (allocated(SrcMemberTypeData%I_rfb_u)) then - LB(1:1) = lbound(SrcMemberTypeData%I_rfb_u) - UB(1:1) = ubound(SrcMemberTypeData%I_rfb_u) + LB(1:1) = lbound(SrcMemberTypeData%I_rfb_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_rfb_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_rfb_u)) then allocate(DstMemberTypeData%I_rfb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1419,8 +1419,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_rfb_u = SrcMemberTypeData%I_rfb_u end if if (allocated(SrcMemberTypeData%m_mg_l)) then - LB(1:1) = lbound(SrcMemberTypeData%m_mg_l) - UB(1:1) = ubound(SrcMemberTypeData%m_mg_l) + LB(1:1) = lbound(SrcMemberTypeData%m_mg_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%m_mg_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%m_mg_l)) then allocate(DstMemberTypeData%m_mg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1431,8 +1431,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%m_mg_l = SrcMemberTypeData%m_mg_l end if if (allocated(SrcMemberTypeData%m_mg_u)) then - LB(1:1) = lbound(SrcMemberTypeData%m_mg_u) - UB(1:1) = ubound(SrcMemberTypeData%m_mg_u) + LB(1:1) = lbound(SrcMemberTypeData%m_mg_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%m_mg_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%m_mg_u)) then allocate(DstMemberTypeData%m_mg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1443,8 +1443,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%m_mg_u = SrcMemberTypeData%m_mg_u end if if (allocated(SrcMemberTypeData%h_cmg_l)) then - LB(1:1) = lbound(SrcMemberTypeData%h_cmg_l) - UB(1:1) = ubound(SrcMemberTypeData%h_cmg_l) + LB(1:1) = lbound(SrcMemberTypeData%h_cmg_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%h_cmg_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%h_cmg_l)) then allocate(DstMemberTypeData%h_cmg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1455,8 +1455,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%h_cmg_l = SrcMemberTypeData%h_cmg_l end if if (allocated(SrcMemberTypeData%h_cmg_u)) then - LB(1:1) = lbound(SrcMemberTypeData%h_cmg_u) - UB(1:1) = ubound(SrcMemberTypeData%h_cmg_u) + LB(1:1) = lbound(SrcMemberTypeData%h_cmg_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%h_cmg_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%h_cmg_u)) then allocate(DstMemberTypeData%h_cmg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1467,8 +1467,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%h_cmg_u = SrcMemberTypeData%h_cmg_u end if if (allocated(SrcMemberTypeData%I_lmg_l)) then - LB(1:1) = lbound(SrcMemberTypeData%I_lmg_l) - UB(1:1) = ubound(SrcMemberTypeData%I_lmg_l) + LB(1:1) = lbound(SrcMemberTypeData%I_lmg_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_lmg_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_lmg_l)) then allocate(DstMemberTypeData%I_lmg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1479,8 +1479,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_lmg_l = SrcMemberTypeData%I_lmg_l end if if (allocated(SrcMemberTypeData%I_lmg_u)) then - LB(1:1) = lbound(SrcMemberTypeData%I_lmg_u) - UB(1:1) = ubound(SrcMemberTypeData%I_lmg_u) + LB(1:1) = lbound(SrcMemberTypeData%I_lmg_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_lmg_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_lmg_u)) then allocate(DstMemberTypeData%I_lmg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1491,8 +1491,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_lmg_u = SrcMemberTypeData%I_lmg_u end if if (allocated(SrcMemberTypeData%I_rmg_l)) then - LB(1:1) = lbound(SrcMemberTypeData%I_rmg_l) - UB(1:1) = ubound(SrcMemberTypeData%I_rmg_l) + LB(1:1) = lbound(SrcMemberTypeData%I_rmg_l, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_rmg_l, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_rmg_l)) then allocate(DstMemberTypeData%I_rmg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1503,8 +1503,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_rmg_l = SrcMemberTypeData%I_rmg_l end if if (allocated(SrcMemberTypeData%I_rmg_u)) then - LB(1:1) = lbound(SrcMemberTypeData%I_rmg_u) - UB(1:1) = ubound(SrcMemberTypeData%I_rmg_u) + LB(1:1) = lbound(SrcMemberTypeData%I_rmg_u, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%I_rmg_u, kind=B8Ki) if (.not. allocated(DstMemberTypeData%I_rmg_u)) then allocate(DstMemberTypeData%I_rmg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1515,8 +1515,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%I_rmg_u = SrcMemberTypeData%I_rmg_u end if if (allocated(SrcMemberTypeData%Cfl_fb)) then - LB(1:1) = lbound(SrcMemberTypeData%Cfl_fb) - UB(1:1) = ubound(SrcMemberTypeData%Cfl_fb) + LB(1:1) = lbound(SrcMemberTypeData%Cfl_fb, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Cfl_fb, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Cfl_fb)) then allocate(DstMemberTypeData%Cfl_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1527,8 +1527,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cfl_fb = SrcMemberTypeData%Cfl_fb end if if (allocated(SrcMemberTypeData%Cfr_fb)) then - LB(1:1) = lbound(SrcMemberTypeData%Cfr_fb) - UB(1:1) = ubound(SrcMemberTypeData%Cfr_fb) + LB(1:1) = lbound(SrcMemberTypeData%Cfr_fb, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%Cfr_fb, kind=B8Ki) if (.not. allocated(DstMemberTypeData%Cfr_fb)) then allocate(DstMemberTypeData%Cfr_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1539,8 +1539,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cfr_fb = SrcMemberTypeData%Cfr_fb end if if (allocated(SrcMemberTypeData%CM0_fb)) then - LB(1:1) = lbound(SrcMemberTypeData%CM0_fb) - UB(1:1) = ubound(SrcMemberTypeData%CM0_fb) + LB(1:1) = lbound(SrcMemberTypeData%CM0_fb, kind=B8Ki) + UB(1:1) = ubound(SrcMemberTypeData%CM0_fb, kind=B8Ki) if (.not. allocated(DstMemberTypeData%CM0_fb)) then allocate(DstMemberTypeData%CM0_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1699,7 +1699,7 @@ subroutine Morison_PackMemberType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%NodeIndx)) if (allocated(InData%NodeIndx)) then - call RegPackBounds(Buf, 1, lbound(InData%NodeIndx), ubound(InData%NodeIndx)) + call RegPackBounds(Buf, 1, lbound(InData%NodeIndx, kind=B8Ki), ubound(InData%NodeIndx, kind=B8Ki)) call RegPack(Buf, InData%NodeIndx) end if call RegPack(Buf, InData%MemberID) @@ -1712,47 +1712,47 @@ subroutine Morison_PackMemberType(Buf, Indata) call RegPack(Buf, InData%Ak) call RegPack(Buf, allocated(InData%R)) if (allocated(InData%R)) then - call RegPackBounds(Buf, 1, lbound(InData%R), ubound(InData%R)) + call RegPackBounds(Buf, 1, lbound(InData%R, kind=B8Ki), ubound(InData%R, kind=B8Ki)) call RegPack(Buf, InData%R) end if call RegPack(Buf, allocated(InData%RMG)) if (allocated(InData%RMG)) then - call RegPackBounds(Buf, 1, lbound(InData%RMG), ubound(InData%RMG)) + call RegPackBounds(Buf, 1, lbound(InData%RMG, kind=B8Ki), ubound(InData%RMG, kind=B8Ki)) call RegPack(Buf, InData%RMG) end if call RegPack(Buf, allocated(InData%RMGB)) if (allocated(InData%RMGB)) then - call RegPackBounds(Buf, 1, lbound(InData%RMGB), ubound(InData%RMGB)) + call RegPackBounds(Buf, 1, lbound(InData%RMGB, kind=B8Ki), ubound(InData%RMGB, kind=B8Ki)) call RegPack(Buf, InData%RMGB) end if call RegPack(Buf, allocated(InData%Rin)) if (allocated(InData%Rin)) then - call RegPackBounds(Buf, 1, lbound(InData%Rin), ubound(InData%Rin)) + call RegPackBounds(Buf, 1, lbound(InData%Rin, kind=B8Ki), ubound(InData%Rin, kind=B8Ki)) call RegPack(Buf, InData%Rin) end if call RegPack(Buf, allocated(InData%tMG)) if (allocated(InData%tMG)) then - call RegPackBounds(Buf, 1, lbound(InData%tMG), ubound(InData%tMG)) + call RegPackBounds(Buf, 1, lbound(InData%tMG, kind=B8Ki), ubound(InData%tMG, kind=B8Ki)) call RegPack(Buf, InData%tMG) end if call RegPack(Buf, allocated(InData%MGdensity)) if (allocated(InData%MGdensity)) then - call RegPackBounds(Buf, 1, lbound(InData%MGdensity), ubound(InData%MGdensity)) + call RegPackBounds(Buf, 1, lbound(InData%MGdensity, kind=B8Ki), ubound(InData%MGdensity, kind=B8Ki)) call RegPack(Buf, InData%MGdensity) end if call RegPack(Buf, allocated(InData%dRdl_mg)) if (allocated(InData%dRdl_mg)) then - call RegPackBounds(Buf, 1, lbound(InData%dRdl_mg), ubound(InData%dRdl_mg)) + call RegPackBounds(Buf, 1, lbound(InData%dRdl_mg, kind=B8Ki), ubound(InData%dRdl_mg, kind=B8Ki)) call RegPack(Buf, InData%dRdl_mg) end if call RegPack(Buf, allocated(InData%dRdl_mg_b)) if (allocated(InData%dRdl_mg_b)) then - call RegPackBounds(Buf, 1, lbound(InData%dRdl_mg_b), ubound(InData%dRdl_mg_b)) + call RegPackBounds(Buf, 1, lbound(InData%dRdl_mg_b, kind=B8Ki), ubound(InData%dRdl_mg_b, kind=B8Ki)) call RegPack(Buf, InData%dRdl_mg_b) end if call RegPack(Buf, allocated(InData%dRdl_in)) if (allocated(InData%dRdl_in)) then - call RegPackBounds(Buf, 1, lbound(InData%dRdl_in), ubound(InData%dRdl_in)) + call RegPackBounds(Buf, 1, lbound(InData%dRdl_in, kind=B8Ki), ubound(InData%dRdl_in, kind=B8Ki)) call RegPack(Buf, InData%dRdl_in) end if call RegPack(Buf, InData%Vinner) @@ -1768,152 +1768,152 @@ subroutine Morison_PackMemberType(Buf, Indata) call RegPack(Buf, InData%memfloodstatus) call RegPack(Buf, allocated(InData%floodstatus)) if (allocated(InData%floodstatus)) then - call RegPackBounds(Buf, 1, lbound(InData%floodstatus), ubound(InData%floodstatus)) + call RegPackBounds(Buf, 1, lbound(InData%floodstatus, kind=B8Ki), ubound(InData%floodstatus, kind=B8Ki)) call RegPack(Buf, InData%floodstatus) end if call RegPack(Buf, allocated(InData%alpha)) if (allocated(InData%alpha)) then - call RegPackBounds(Buf, 1, lbound(InData%alpha), ubound(InData%alpha)) + call RegPackBounds(Buf, 1, lbound(InData%alpha, kind=B8Ki), ubound(InData%alpha, kind=B8Ki)) call RegPack(Buf, InData%alpha) end if call RegPack(Buf, allocated(InData%alpha_fb)) if (allocated(InData%alpha_fb)) then - call RegPackBounds(Buf, 1, lbound(InData%alpha_fb), ubound(InData%alpha_fb)) + call RegPackBounds(Buf, 1, lbound(InData%alpha_fb, kind=B8Ki), ubound(InData%alpha_fb, kind=B8Ki)) call RegPack(Buf, InData%alpha_fb) end if call RegPack(Buf, allocated(InData%alpha_fb_star)) if (allocated(InData%alpha_fb_star)) then - call RegPackBounds(Buf, 1, lbound(InData%alpha_fb_star), ubound(InData%alpha_fb_star)) + call RegPackBounds(Buf, 1, lbound(InData%alpha_fb_star, kind=B8Ki), ubound(InData%alpha_fb_star, kind=B8Ki)) call RegPack(Buf, InData%alpha_fb_star) end if call RegPack(Buf, allocated(InData%Cd)) if (allocated(InData%Cd)) then - call RegPackBounds(Buf, 1, lbound(InData%Cd), ubound(InData%Cd)) + call RegPackBounds(Buf, 1, lbound(InData%Cd, kind=B8Ki), ubound(InData%Cd, kind=B8Ki)) call RegPack(Buf, InData%Cd) end if call RegPack(Buf, allocated(InData%Ca)) if (allocated(InData%Ca)) then - call RegPackBounds(Buf, 1, lbound(InData%Ca), ubound(InData%Ca)) + call RegPackBounds(Buf, 1, lbound(InData%Ca, kind=B8Ki), ubound(InData%Ca, kind=B8Ki)) call RegPack(Buf, InData%Ca) end if call RegPack(Buf, allocated(InData%Cp)) if (allocated(InData%Cp)) then - call RegPackBounds(Buf, 1, lbound(InData%Cp), ubound(InData%Cp)) + call RegPackBounds(Buf, 1, lbound(InData%Cp, kind=B8Ki), ubound(InData%Cp, kind=B8Ki)) call RegPack(Buf, InData%Cp) end if call RegPack(Buf, allocated(InData%AxCd)) if (allocated(InData%AxCd)) then - call RegPackBounds(Buf, 1, lbound(InData%AxCd), ubound(InData%AxCd)) + call RegPackBounds(Buf, 1, lbound(InData%AxCd, kind=B8Ki), ubound(InData%AxCd, kind=B8Ki)) call RegPack(Buf, InData%AxCd) end if call RegPack(Buf, allocated(InData%AxCa)) if (allocated(InData%AxCa)) then - call RegPackBounds(Buf, 1, lbound(InData%AxCa), ubound(InData%AxCa)) + call RegPackBounds(Buf, 1, lbound(InData%AxCa, kind=B8Ki), ubound(InData%AxCa, kind=B8Ki)) call RegPack(Buf, InData%AxCa) end if call RegPack(Buf, allocated(InData%AxCp)) if (allocated(InData%AxCp)) then - call RegPackBounds(Buf, 1, lbound(InData%AxCp), ubound(InData%AxCp)) + call RegPackBounds(Buf, 1, lbound(InData%AxCp, kind=B8Ki), ubound(InData%AxCp, kind=B8Ki)) call RegPack(Buf, InData%AxCp) end if call RegPack(Buf, allocated(InData%Cb)) if (allocated(InData%Cb)) then - call RegPackBounds(Buf, 1, lbound(InData%Cb), ubound(InData%Cb)) + call RegPackBounds(Buf, 1, lbound(InData%Cb, kind=B8Ki), ubound(InData%Cb, kind=B8Ki)) call RegPack(Buf, InData%Cb) end if call RegPack(Buf, allocated(InData%m_fb_l)) if (allocated(InData%m_fb_l)) then - call RegPackBounds(Buf, 1, lbound(InData%m_fb_l), ubound(InData%m_fb_l)) + call RegPackBounds(Buf, 1, lbound(InData%m_fb_l, kind=B8Ki), ubound(InData%m_fb_l, kind=B8Ki)) call RegPack(Buf, InData%m_fb_l) end if call RegPack(Buf, allocated(InData%m_fb_u)) if (allocated(InData%m_fb_u)) then - call RegPackBounds(Buf, 1, lbound(InData%m_fb_u), ubound(InData%m_fb_u)) + call RegPackBounds(Buf, 1, lbound(InData%m_fb_u, kind=B8Ki), ubound(InData%m_fb_u, kind=B8Ki)) call RegPack(Buf, InData%m_fb_u) end if call RegPack(Buf, allocated(InData%h_cfb_l)) if (allocated(InData%h_cfb_l)) then - call RegPackBounds(Buf, 1, lbound(InData%h_cfb_l), ubound(InData%h_cfb_l)) + call RegPackBounds(Buf, 1, lbound(InData%h_cfb_l, kind=B8Ki), ubound(InData%h_cfb_l, kind=B8Ki)) call RegPack(Buf, InData%h_cfb_l) end if call RegPack(Buf, allocated(InData%h_cfb_u)) if (allocated(InData%h_cfb_u)) then - call RegPackBounds(Buf, 1, lbound(InData%h_cfb_u), ubound(InData%h_cfb_u)) + call RegPackBounds(Buf, 1, lbound(InData%h_cfb_u, kind=B8Ki), ubound(InData%h_cfb_u, kind=B8Ki)) call RegPack(Buf, InData%h_cfb_u) end if call RegPack(Buf, allocated(InData%I_lfb_l)) if (allocated(InData%I_lfb_l)) then - call RegPackBounds(Buf, 1, lbound(InData%I_lfb_l), ubound(InData%I_lfb_l)) + call RegPackBounds(Buf, 1, lbound(InData%I_lfb_l, kind=B8Ki), ubound(InData%I_lfb_l, kind=B8Ki)) call RegPack(Buf, InData%I_lfb_l) end if call RegPack(Buf, allocated(InData%I_lfb_u)) if (allocated(InData%I_lfb_u)) then - call RegPackBounds(Buf, 1, lbound(InData%I_lfb_u), ubound(InData%I_lfb_u)) + call RegPackBounds(Buf, 1, lbound(InData%I_lfb_u, kind=B8Ki), ubound(InData%I_lfb_u, kind=B8Ki)) call RegPack(Buf, InData%I_lfb_u) end if call RegPack(Buf, allocated(InData%I_rfb_l)) if (allocated(InData%I_rfb_l)) then - call RegPackBounds(Buf, 1, lbound(InData%I_rfb_l), ubound(InData%I_rfb_l)) + call RegPackBounds(Buf, 1, lbound(InData%I_rfb_l, kind=B8Ki), ubound(InData%I_rfb_l, kind=B8Ki)) call RegPack(Buf, InData%I_rfb_l) end if call RegPack(Buf, allocated(InData%I_rfb_u)) if (allocated(InData%I_rfb_u)) then - call RegPackBounds(Buf, 1, lbound(InData%I_rfb_u), ubound(InData%I_rfb_u)) + call RegPackBounds(Buf, 1, lbound(InData%I_rfb_u, kind=B8Ki), ubound(InData%I_rfb_u, kind=B8Ki)) call RegPack(Buf, InData%I_rfb_u) end if call RegPack(Buf, allocated(InData%m_mg_l)) if (allocated(InData%m_mg_l)) then - call RegPackBounds(Buf, 1, lbound(InData%m_mg_l), ubound(InData%m_mg_l)) + call RegPackBounds(Buf, 1, lbound(InData%m_mg_l, kind=B8Ki), ubound(InData%m_mg_l, kind=B8Ki)) call RegPack(Buf, InData%m_mg_l) end if call RegPack(Buf, allocated(InData%m_mg_u)) if (allocated(InData%m_mg_u)) then - call RegPackBounds(Buf, 1, lbound(InData%m_mg_u), ubound(InData%m_mg_u)) + call RegPackBounds(Buf, 1, lbound(InData%m_mg_u, kind=B8Ki), ubound(InData%m_mg_u, kind=B8Ki)) call RegPack(Buf, InData%m_mg_u) end if call RegPack(Buf, allocated(InData%h_cmg_l)) if (allocated(InData%h_cmg_l)) then - call RegPackBounds(Buf, 1, lbound(InData%h_cmg_l), ubound(InData%h_cmg_l)) + call RegPackBounds(Buf, 1, lbound(InData%h_cmg_l, kind=B8Ki), ubound(InData%h_cmg_l, kind=B8Ki)) call RegPack(Buf, InData%h_cmg_l) end if call RegPack(Buf, allocated(InData%h_cmg_u)) if (allocated(InData%h_cmg_u)) then - call RegPackBounds(Buf, 1, lbound(InData%h_cmg_u), ubound(InData%h_cmg_u)) + call RegPackBounds(Buf, 1, lbound(InData%h_cmg_u, kind=B8Ki), ubound(InData%h_cmg_u, kind=B8Ki)) call RegPack(Buf, InData%h_cmg_u) end if call RegPack(Buf, allocated(InData%I_lmg_l)) if (allocated(InData%I_lmg_l)) then - call RegPackBounds(Buf, 1, lbound(InData%I_lmg_l), ubound(InData%I_lmg_l)) + call RegPackBounds(Buf, 1, lbound(InData%I_lmg_l, kind=B8Ki), ubound(InData%I_lmg_l, kind=B8Ki)) call RegPack(Buf, InData%I_lmg_l) end if call RegPack(Buf, allocated(InData%I_lmg_u)) if (allocated(InData%I_lmg_u)) then - call RegPackBounds(Buf, 1, lbound(InData%I_lmg_u), ubound(InData%I_lmg_u)) + call RegPackBounds(Buf, 1, lbound(InData%I_lmg_u, kind=B8Ki), ubound(InData%I_lmg_u, kind=B8Ki)) call RegPack(Buf, InData%I_lmg_u) end if call RegPack(Buf, allocated(InData%I_rmg_l)) if (allocated(InData%I_rmg_l)) then - call RegPackBounds(Buf, 1, lbound(InData%I_rmg_l), ubound(InData%I_rmg_l)) + call RegPackBounds(Buf, 1, lbound(InData%I_rmg_l, kind=B8Ki), ubound(InData%I_rmg_l, kind=B8Ki)) call RegPack(Buf, InData%I_rmg_l) end if call RegPack(Buf, allocated(InData%I_rmg_u)) if (allocated(InData%I_rmg_u)) then - call RegPackBounds(Buf, 1, lbound(InData%I_rmg_u), ubound(InData%I_rmg_u)) + call RegPackBounds(Buf, 1, lbound(InData%I_rmg_u, kind=B8Ki), ubound(InData%I_rmg_u, kind=B8Ki)) call RegPack(Buf, InData%I_rmg_u) end if call RegPack(Buf, allocated(InData%Cfl_fb)) if (allocated(InData%Cfl_fb)) then - call RegPackBounds(Buf, 1, lbound(InData%Cfl_fb), ubound(InData%Cfl_fb)) + call RegPackBounds(Buf, 1, lbound(InData%Cfl_fb, kind=B8Ki), ubound(InData%Cfl_fb, kind=B8Ki)) call RegPack(Buf, InData%Cfl_fb) end if call RegPack(Buf, allocated(InData%Cfr_fb)) if (allocated(InData%Cfr_fb)) then - call RegPackBounds(Buf, 1, lbound(InData%Cfr_fb), ubound(InData%Cfr_fb)) + call RegPackBounds(Buf, 1, lbound(InData%Cfr_fb, kind=B8Ki), ubound(InData%Cfr_fb, kind=B8Ki)) call RegPack(Buf, InData%Cfr_fb) end if call RegPack(Buf, allocated(InData%CM0_fb)) if (allocated(InData%CM0_fb)) then - call RegPackBounds(Buf, 1, lbound(InData%CM0_fb), ubound(InData%CM0_fb)) + call RegPackBounds(Buf, 1, lbound(InData%CM0_fb, kind=B8Ki), ubound(InData%CM0_fb, kind=B8Ki)) call RegPack(Buf, InData%CM0_fb) end if call RegPack(Buf, InData%MGvolume) @@ -1934,7 +1934,7 @@ subroutine Morison_UnPackMemberType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_MemberType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMemberType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2566,14 +2566,14 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyMemberLoads' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMemberLoadsData%F_D)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_D) - UB(1:2) = ubound(SrcMemberLoadsData%F_D) + LB(1:2) = lbound(SrcMemberLoadsData%F_D, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_D, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_D)) then allocate(DstMemberLoadsData%F_D(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2584,8 +2584,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_D = SrcMemberLoadsData%F_D end if if (allocated(SrcMemberLoadsData%F_I)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_I) - UB(1:2) = ubound(SrcMemberLoadsData%F_I) + LB(1:2) = lbound(SrcMemberLoadsData%F_I, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_I, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_I)) then allocate(DstMemberLoadsData%F_I(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2596,8 +2596,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_I = SrcMemberLoadsData%F_I end if if (allocated(SrcMemberLoadsData%F_A)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_A) - UB(1:2) = ubound(SrcMemberLoadsData%F_A) + LB(1:2) = lbound(SrcMemberLoadsData%F_A, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_A, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_A)) then allocate(DstMemberLoadsData%F_A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2608,8 +2608,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_A = SrcMemberLoadsData%F_A end if if (allocated(SrcMemberLoadsData%F_B)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_B) - UB(1:2) = ubound(SrcMemberLoadsData%F_B) + LB(1:2) = lbound(SrcMemberLoadsData%F_B, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_B, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_B)) then allocate(DstMemberLoadsData%F_B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2620,8 +2620,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_B = SrcMemberLoadsData%F_B end if if (allocated(SrcMemberLoadsData%F_BF)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_BF) - UB(1:2) = ubound(SrcMemberLoadsData%F_BF) + LB(1:2) = lbound(SrcMemberLoadsData%F_BF, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_BF, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_BF)) then allocate(DstMemberLoadsData%F_BF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2632,8 +2632,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_BF = SrcMemberLoadsData%F_BF end if if (allocated(SrcMemberLoadsData%F_If)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_If) - UB(1:2) = ubound(SrcMemberLoadsData%F_If) + LB(1:2) = lbound(SrcMemberLoadsData%F_If, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_If, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_If)) then allocate(DstMemberLoadsData%F_If(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2644,8 +2644,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_If = SrcMemberLoadsData%F_If end if if (allocated(SrcMemberLoadsData%F_WMG)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_WMG) - UB(1:2) = ubound(SrcMemberLoadsData%F_WMG) + LB(1:2) = lbound(SrcMemberLoadsData%F_WMG, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_WMG, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_WMG)) then allocate(DstMemberLoadsData%F_WMG(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2656,8 +2656,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_WMG = SrcMemberLoadsData%F_WMG end if if (allocated(SrcMemberLoadsData%F_IMG)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_IMG) - UB(1:2) = ubound(SrcMemberLoadsData%F_IMG) + LB(1:2) = lbound(SrcMemberLoadsData%F_IMG, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_IMG, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_IMG)) then allocate(DstMemberLoadsData%F_IMG(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2668,8 +2668,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%F_IMG = SrcMemberLoadsData%F_IMG end if if (allocated(SrcMemberLoadsData%FV)) then - LB(1:2) = lbound(SrcMemberLoadsData%FV) - UB(1:2) = ubound(SrcMemberLoadsData%FV) + LB(1:2) = lbound(SrcMemberLoadsData%FV, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%FV, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%FV)) then allocate(DstMemberLoadsData%FV(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2680,8 +2680,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%FV = SrcMemberLoadsData%FV end if if (allocated(SrcMemberLoadsData%FA)) then - LB(1:2) = lbound(SrcMemberLoadsData%FA) - UB(1:2) = ubound(SrcMemberLoadsData%FA) + LB(1:2) = lbound(SrcMemberLoadsData%FA, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%FA, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%FA)) then allocate(DstMemberLoadsData%FA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2692,8 +2692,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%FA = SrcMemberLoadsData%FA end if if (allocated(SrcMemberLoadsData%F_DP)) then - LB(1:2) = lbound(SrcMemberLoadsData%F_DP) - UB(1:2) = ubound(SrcMemberLoadsData%F_DP) + LB(1:2) = lbound(SrcMemberLoadsData%F_DP, kind=B8Ki) + UB(1:2) = ubound(SrcMemberLoadsData%F_DP, kind=B8Ki) if (.not. allocated(DstMemberLoadsData%F_DP)) then allocate(DstMemberLoadsData%F_DP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2754,57 +2754,57 @@ subroutine Morison_PackMemberLoads(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%F_D)) if (allocated(InData%F_D)) then - call RegPackBounds(Buf, 2, lbound(InData%F_D), ubound(InData%F_D)) + call RegPackBounds(Buf, 2, lbound(InData%F_D, kind=B8Ki), ubound(InData%F_D, kind=B8Ki)) call RegPack(Buf, InData%F_D) end if call RegPack(Buf, allocated(InData%F_I)) if (allocated(InData%F_I)) then - call RegPackBounds(Buf, 2, lbound(InData%F_I), ubound(InData%F_I)) + call RegPackBounds(Buf, 2, lbound(InData%F_I, kind=B8Ki), ubound(InData%F_I, kind=B8Ki)) call RegPack(Buf, InData%F_I) end if call RegPack(Buf, allocated(InData%F_A)) if (allocated(InData%F_A)) then - call RegPackBounds(Buf, 2, lbound(InData%F_A), ubound(InData%F_A)) + call RegPackBounds(Buf, 2, lbound(InData%F_A, kind=B8Ki), ubound(InData%F_A, kind=B8Ki)) call RegPack(Buf, InData%F_A) end if call RegPack(Buf, allocated(InData%F_B)) if (allocated(InData%F_B)) then - call RegPackBounds(Buf, 2, lbound(InData%F_B), ubound(InData%F_B)) + call RegPackBounds(Buf, 2, lbound(InData%F_B, kind=B8Ki), ubound(InData%F_B, kind=B8Ki)) call RegPack(Buf, InData%F_B) end if call RegPack(Buf, allocated(InData%F_BF)) if (allocated(InData%F_BF)) then - call RegPackBounds(Buf, 2, lbound(InData%F_BF), ubound(InData%F_BF)) + call RegPackBounds(Buf, 2, lbound(InData%F_BF, kind=B8Ki), ubound(InData%F_BF, kind=B8Ki)) call RegPack(Buf, InData%F_BF) end if call RegPack(Buf, allocated(InData%F_If)) if (allocated(InData%F_If)) then - call RegPackBounds(Buf, 2, lbound(InData%F_If), ubound(InData%F_If)) + call RegPackBounds(Buf, 2, lbound(InData%F_If, kind=B8Ki), ubound(InData%F_If, kind=B8Ki)) call RegPack(Buf, InData%F_If) end if call RegPack(Buf, allocated(InData%F_WMG)) if (allocated(InData%F_WMG)) then - call RegPackBounds(Buf, 2, lbound(InData%F_WMG), ubound(InData%F_WMG)) + call RegPackBounds(Buf, 2, lbound(InData%F_WMG, kind=B8Ki), ubound(InData%F_WMG, kind=B8Ki)) call RegPack(Buf, InData%F_WMG) end if call RegPack(Buf, allocated(InData%F_IMG)) if (allocated(InData%F_IMG)) then - call RegPackBounds(Buf, 2, lbound(InData%F_IMG), ubound(InData%F_IMG)) + call RegPackBounds(Buf, 2, lbound(InData%F_IMG, kind=B8Ki), ubound(InData%F_IMG, kind=B8Ki)) call RegPack(Buf, InData%F_IMG) end if call RegPack(Buf, allocated(InData%FV)) if (allocated(InData%FV)) then - call RegPackBounds(Buf, 2, lbound(InData%FV), ubound(InData%FV)) + call RegPackBounds(Buf, 2, lbound(InData%FV, kind=B8Ki), ubound(InData%FV, kind=B8Ki)) call RegPack(Buf, InData%FV) end if call RegPack(Buf, allocated(InData%FA)) if (allocated(InData%FA)) then - call RegPackBounds(Buf, 2, lbound(InData%FA), ubound(InData%FA)) + call RegPackBounds(Buf, 2, lbound(InData%FA, kind=B8Ki), ubound(InData%FA, kind=B8Ki)) call RegPack(Buf, InData%FA) end if call RegPack(Buf, allocated(InData%F_DP)) if (allocated(InData%F_DP)) then - call RegPackBounds(Buf, 2, lbound(InData%F_DP), ubound(InData%F_DP)) + call RegPackBounds(Buf, 2, lbound(InData%F_DP, kind=B8Ki), ubound(InData%F_DP, kind=B8Ki)) call RegPack(Buf, InData%F_DP) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2814,7 +2814,7 @@ subroutine Morison_UnPackMemberLoads(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_MemberLoads), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMemberLoads' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3182,7 +3182,7 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyMOutput' ErrStat = ErrID_None @@ -3190,8 +3190,8 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat DstMOutputData%MemberID = SrcMOutputData%MemberID DstMOutputData%NOutLoc = SrcMOutputData%NOutLoc if (allocated(SrcMOutputData%NodeLocs)) then - LB(1:1) = lbound(SrcMOutputData%NodeLocs) - UB(1:1) = ubound(SrcMOutputData%NodeLocs) + LB(1:1) = lbound(SrcMOutputData%NodeLocs, kind=B8Ki) + UB(1:1) = ubound(SrcMOutputData%NodeLocs, kind=B8Ki) if (.not. allocated(DstMOutputData%NodeLocs)) then allocate(DstMOutputData%NodeLocs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3203,8 +3203,8 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat end if DstMOutputData%MemberIDIndx = SrcMOutputData%MemberIDIndx if (allocated(SrcMOutputData%MeshIndx1)) then - LB(1:1) = lbound(SrcMOutputData%MeshIndx1) - UB(1:1) = ubound(SrcMOutputData%MeshIndx1) + LB(1:1) = lbound(SrcMOutputData%MeshIndx1, kind=B8Ki) + UB(1:1) = ubound(SrcMOutputData%MeshIndx1, kind=B8Ki) if (.not. allocated(DstMOutputData%MeshIndx1)) then allocate(DstMOutputData%MeshIndx1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3215,8 +3215,8 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat DstMOutputData%MeshIndx1 = SrcMOutputData%MeshIndx1 end if if (allocated(SrcMOutputData%MeshIndx2)) then - LB(1:1) = lbound(SrcMOutputData%MeshIndx2) - UB(1:1) = ubound(SrcMOutputData%MeshIndx2) + LB(1:1) = lbound(SrcMOutputData%MeshIndx2, kind=B8Ki) + UB(1:1) = ubound(SrcMOutputData%MeshIndx2, kind=B8Ki) if (.not. allocated(DstMOutputData%MeshIndx2)) then allocate(DstMOutputData%MeshIndx2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3227,8 +3227,8 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat DstMOutputData%MeshIndx2 = SrcMOutputData%MeshIndx2 end if if (allocated(SrcMOutputData%MemberIndx1)) then - LB(1:1) = lbound(SrcMOutputData%MemberIndx1) - UB(1:1) = ubound(SrcMOutputData%MemberIndx1) + LB(1:1) = lbound(SrcMOutputData%MemberIndx1, kind=B8Ki) + UB(1:1) = ubound(SrcMOutputData%MemberIndx1, kind=B8Ki) if (.not. allocated(DstMOutputData%MemberIndx1)) then allocate(DstMOutputData%MemberIndx1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3239,8 +3239,8 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat DstMOutputData%MemberIndx1 = SrcMOutputData%MemberIndx1 end if if (allocated(SrcMOutputData%MemberIndx2)) then - LB(1:1) = lbound(SrcMOutputData%MemberIndx2) - UB(1:1) = ubound(SrcMOutputData%MemberIndx2) + LB(1:1) = lbound(SrcMOutputData%MemberIndx2, kind=B8Ki) + UB(1:1) = ubound(SrcMOutputData%MemberIndx2, kind=B8Ki) if (.not. allocated(DstMOutputData%MemberIndx2)) then allocate(DstMOutputData%MemberIndx2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3251,8 +3251,8 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat DstMOutputData%MemberIndx2 = SrcMOutputData%MemberIndx2 end if if (allocated(SrcMOutputData%s)) then - LB(1:1) = lbound(SrcMOutputData%s) - UB(1:1) = ubound(SrcMOutputData%s) + LB(1:1) = lbound(SrcMOutputData%s, kind=B8Ki) + UB(1:1) = ubound(SrcMOutputData%s, kind=B8Ki) if (.not. allocated(DstMOutputData%s)) then allocate(DstMOutputData%s(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3300,33 +3300,33 @@ subroutine Morison_PackMOutput(Buf, Indata) call RegPack(Buf, InData%NOutLoc) call RegPack(Buf, allocated(InData%NodeLocs)) if (allocated(InData%NodeLocs)) then - call RegPackBounds(Buf, 1, lbound(InData%NodeLocs), ubound(InData%NodeLocs)) + call RegPackBounds(Buf, 1, lbound(InData%NodeLocs, kind=B8Ki), ubound(InData%NodeLocs, kind=B8Ki)) call RegPack(Buf, InData%NodeLocs) end if call RegPack(Buf, InData%MemberIDIndx) call RegPack(Buf, allocated(InData%MeshIndx1)) if (allocated(InData%MeshIndx1)) then - call RegPackBounds(Buf, 1, lbound(InData%MeshIndx1), ubound(InData%MeshIndx1)) + call RegPackBounds(Buf, 1, lbound(InData%MeshIndx1, kind=B8Ki), ubound(InData%MeshIndx1, kind=B8Ki)) call RegPack(Buf, InData%MeshIndx1) end if call RegPack(Buf, allocated(InData%MeshIndx2)) if (allocated(InData%MeshIndx2)) then - call RegPackBounds(Buf, 1, lbound(InData%MeshIndx2), ubound(InData%MeshIndx2)) + call RegPackBounds(Buf, 1, lbound(InData%MeshIndx2, kind=B8Ki), ubound(InData%MeshIndx2, kind=B8Ki)) call RegPack(Buf, InData%MeshIndx2) end if call RegPack(Buf, allocated(InData%MemberIndx1)) if (allocated(InData%MemberIndx1)) then - call RegPackBounds(Buf, 1, lbound(InData%MemberIndx1), ubound(InData%MemberIndx1)) + call RegPackBounds(Buf, 1, lbound(InData%MemberIndx1, kind=B8Ki), ubound(InData%MemberIndx1, kind=B8Ki)) call RegPack(Buf, InData%MemberIndx1) end if call RegPack(Buf, allocated(InData%MemberIndx2)) if (allocated(InData%MemberIndx2)) then - call RegPackBounds(Buf, 1, lbound(InData%MemberIndx2), ubound(InData%MemberIndx2)) + call RegPackBounds(Buf, 1, lbound(InData%MemberIndx2, kind=B8Ki), ubound(InData%MemberIndx2, kind=B8Ki)) call RegPack(Buf, InData%MemberIndx2) end if call RegPack(Buf, allocated(InData%s)) if (allocated(InData%s)) then - call RegPackBounds(Buf, 1, lbound(InData%s), ubound(InData%s)) + call RegPackBounds(Buf, 1, lbound(InData%s, kind=B8Ki), ubound(InData%s, kind=B8Ki)) call RegPack(Buf, InData%s) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3336,7 +3336,7 @@ subroutine Morison_UnPackMOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_MOutput), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3481,8 +3481,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyInitInput' @@ -3494,8 +3494,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E DstInitInputData%NJoints = SrcInitInputData%NJoints DstInitInputData%NNodes = SrcInitInputData%NNodes if (allocated(SrcInitInputData%InpJoints)) then - LB(1:1) = lbound(SrcInitInputData%InpJoints) - UB(1:1) = ubound(SrcInitInputData%InpJoints) + LB(1:1) = lbound(SrcInitInputData%InpJoints, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%InpJoints, kind=B8Ki) if (.not. allocated(DstInitInputData%InpJoints)) then allocate(DstInitInputData%InpJoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3510,8 +3510,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end do end if if (allocated(SrcInitInputData%Nodes)) then - LB(1:1) = lbound(SrcInitInputData%Nodes) - UB(1:1) = ubound(SrcInitInputData%Nodes) + LB(1:1) = lbound(SrcInitInputData%Nodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%Nodes, kind=B8Ki) if (.not. allocated(DstInitInputData%Nodes)) then allocate(DstInitInputData%Nodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3527,8 +3527,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NAxCoefs = SrcInitInputData%NAxCoefs if (allocated(SrcInitInputData%AxialCoefs)) then - LB(1:1) = lbound(SrcInitInputData%AxialCoefs) - UB(1:1) = ubound(SrcInitInputData%AxialCoefs) + LB(1:1) = lbound(SrcInitInputData%AxialCoefs, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%AxialCoefs, kind=B8Ki) if (.not. allocated(DstInitInputData%AxialCoefs)) then allocate(DstInitInputData%AxialCoefs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3544,8 +3544,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NPropSets = SrcInitInputData%NPropSets if (allocated(SrcInitInputData%MPropSets)) then - LB(1:1) = lbound(SrcInitInputData%MPropSets) - UB(1:1) = ubound(SrcInitInputData%MPropSets) + LB(1:1) = lbound(SrcInitInputData%MPropSets, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%MPropSets, kind=B8Ki) if (.not. allocated(DstInitInputData%MPropSets)) then allocate(DstInitInputData%MPropSets(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3576,8 +3576,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E DstInitInputData%SimplMCF = SrcInitInputData%SimplMCF DstInitInputData%NCoefDpth = SrcInitInputData%NCoefDpth if (allocated(SrcInitInputData%CoefDpths)) then - LB(1:1) = lbound(SrcInitInputData%CoefDpths) - UB(1:1) = ubound(SrcInitInputData%CoefDpths) + LB(1:1) = lbound(SrcInitInputData%CoefDpths, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%CoefDpths, kind=B8Ki) if (.not. allocated(DstInitInputData%CoefDpths)) then allocate(DstInitInputData%CoefDpths(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3593,8 +3593,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NCoefMembers = SrcInitInputData%NCoefMembers if (allocated(SrcInitInputData%CoefMembers)) then - LB(1:1) = lbound(SrcInitInputData%CoefMembers) - UB(1:1) = ubound(SrcInitInputData%CoefMembers) + LB(1:1) = lbound(SrcInitInputData%CoefMembers, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%CoefMembers, kind=B8Ki) if (.not. allocated(DstInitInputData%CoefMembers)) then allocate(DstInitInputData%CoefMembers(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3610,8 +3610,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NMembers = SrcInitInputData%NMembers if (allocated(SrcInitInputData%InpMembers)) then - LB(1:1) = lbound(SrcInitInputData%InpMembers) - UB(1:1) = ubound(SrcInitInputData%InpMembers) + LB(1:1) = lbound(SrcInitInputData%InpMembers, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%InpMembers, kind=B8Ki) if (.not. allocated(DstInitInputData%InpMembers)) then allocate(DstInitInputData%InpMembers(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3627,8 +3627,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NFillGroups = SrcInitInputData%NFillGroups if (allocated(SrcInitInputData%FilledGroups)) then - LB(1:1) = lbound(SrcInitInputData%FilledGroups) - UB(1:1) = ubound(SrcInitInputData%FilledGroups) + LB(1:1) = lbound(SrcInitInputData%FilledGroups, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%FilledGroups, kind=B8Ki) if (.not. allocated(DstInitInputData%FilledGroups)) then allocate(DstInitInputData%FilledGroups(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3644,8 +3644,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NMGDepths = SrcInitInputData%NMGDepths if (allocated(SrcInitInputData%MGDepths)) then - LB(1:1) = lbound(SrcInitInputData%MGDepths) - UB(1:1) = ubound(SrcInitInputData%MGDepths) + LB(1:1) = lbound(SrcInitInputData%MGDepths, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%MGDepths, kind=B8Ki) if (.not. allocated(DstInitInputData%MGDepths)) then allocate(DstInitInputData%MGDepths(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3663,8 +3663,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E DstInitInputData%MGBottom = SrcInitInputData%MGBottom DstInitInputData%NMOutputs = SrcInitInputData%NMOutputs if (allocated(SrcInitInputData%MOutLst)) then - LB(1:1) = lbound(SrcInitInputData%MOutLst) - UB(1:1) = ubound(SrcInitInputData%MOutLst) + LB(1:1) = lbound(SrcInitInputData%MOutLst, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%MOutLst, kind=B8Ki) if (.not. allocated(DstInitInputData%MOutLst)) then allocate(DstInitInputData%MOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3680,8 +3680,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end if DstInitInputData%NJOutputs = SrcInitInputData%NJOutputs if (allocated(SrcInitInputData%JOutLst)) then - LB(1:1) = lbound(SrcInitInputData%JOutLst) - UB(1:1) = ubound(SrcInitInputData%JOutLst) + LB(1:1) = lbound(SrcInitInputData%JOutLst, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%JOutLst, kind=B8Ki) if (.not. allocated(DstInitInputData%JOutLst)) then allocate(DstInitInputData%JOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3696,8 +3696,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end do end if if (allocated(SrcInitInputData%OutList)) then - LB(1:1) = lbound(SrcInitInputData%OutList) - UB(1:1) = ubound(SrcInitInputData%OutList) + LB(1:1) = lbound(SrcInitInputData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%OutList, kind=B8Ki) if (.not. allocated(DstInitInputData%OutList)) then allocate(DstInitInputData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3717,16 +3717,16 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(Morison_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_DestroyInitInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InitInputData%InpJoints)) then - LB(1:1) = lbound(InitInputData%InpJoints) - UB(1:1) = ubound(InitInputData%InpJoints) + LB(1:1) = lbound(InitInputData%InpJoints, kind=B8Ki) + UB(1:1) = ubound(InitInputData%InpJoints, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyJointType(InitInputData%InpJoints(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3734,8 +3734,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%InpJoints) end if if (allocated(InitInputData%Nodes)) then - LB(1:1) = lbound(InitInputData%Nodes) - UB(1:1) = ubound(InitInputData%Nodes) + LB(1:1) = lbound(InitInputData%Nodes, kind=B8Ki) + UB(1:1) = ubound(InitInputData%Nodes, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyNodeType(InitInputData%Nodes(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3743,8 +3743,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%Nodes) end if if (allocated(InitInputData%AxialCoefs)) then - LB(1:1) = lbound(InitInputData%AxialCoefs) - UB(1:1) = ubound(InitInputData%AxialCoefs) + LB(1:1) = lbound(InitInputData%AxialCoefs, kind=B8Ki) + UB(1:1) = ubound(InitInputData%AxialCoefs, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyAxialCoefType(InitInputData%AxialCoefs(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3752,8 +3752,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%AxialCoefs) end if if (allocated(InitInputData%MPropSets)) then - LB(1:1) = lbound(InitInputData%MPropSets) - UB(1:1) = ubound(InitInputData%MPropSets) + LB(1:1) = lbound(InitInputData%MPropSets, kind=B8Ki) + UB(1:1) = ubound(InitInputData%MPropSets, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMemberPropType(InitInputData%MPropSets(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3761,8 +3761,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%MPropSets) end if if (allocated(InitInputData%CoefDpths)) then - LB(1:1) = lbound(InitInputData%CoefDpths) - UB(1:1) = ubound(InitInputData%CoefDpths) + LB(1:1) = lbound(InitInputData%CoefDpths, kind=B8Ki) + UB(1:1) = ubound(InitInputData%CoefDpths, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyCoefDpths(InitInputData%CoefDpths(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3770,8 +3770,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%CoefDpths) end if if (allocated(InitInputData%CoefMembers)) then - LB(1:1) = lbound(InitInputData%CoefMembers) - UB(1:1) = ubound(InitInputData%CoefMembers) + LB(1:1) = lbound(InitInputData%CoefMembers, kind=B8Ki) + UB(1:1) = ubound(InitInputData%CoefMembers, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyCoefMembers(InitInputData%CoefMembers(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3779,8 +3779,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%CoefMembers) end if if (allocated(InitInputData%InpMembers)) then - LB(1:1) = lbound(InitInputData%InpMembers) - UB(1:1) = ubound(InitInputData%InpMembers) + LB(1:1) = lbound(InitInputData%InpMembers, kind=B8Ki) + UB(1:1) = ubound(InitInputData%InpMembers, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMemberInputType(InitInputData%InpMembers(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3788,8 +3788,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%InpMembers) end if if (allocated(InitInputData%FilledGroups)) then - LB(1:1) = lbound(InitInputData%FilledGroups) - UB(1:1) = ubound(InitInputData%FilledGroups) + LB(1:1) = lbound(InitInputData%FilledGroups, kind=B8Ki) + UB(1:1) = ubound(InitInputData%FilledGroups, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyFilledGroupType(InitInputData%FilledGroups(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3797,8 +3797,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%FilledGroups) end if if (allocated(InitInputData%MGDepths)) then - LB(1:1) = lbound(InitInputData%MGDepths) - UB(1:1) = ubound(InitInputData%MGDepths) + LB(1:1) = lbound(InitInputData%MGDepths, kind=B8Ki) + UB(1:1) = ubound(InitInputData%MGDepths, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMGDepthsType(InitInputData%MGDepths(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3806,8 +3806,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%MGDepths) end if if (allocated(InitInputData%MOutLst)) then - LB(1:1) = lbound(InitInputData%MOutLst) - UB(1:1) = ubound(InitInputData%MOutLst) + LB(1:1) = lbound(InitInputData%MOutLst, kind=B8Ki) + UB(1:1) = ubound(InitInputData%MOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMOutput(InitInputData%MOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3815,8 +3815,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%MOutLst) end if if (allocated(InitInputData%JOutLst)) then - LB(1:1) = lbound(InitInputData%JOutLst) - UB(1:1) = ubound(InitInputData%JOutLst) + LB(1:1) = lbound(InitInputData%JOutLst, kind=B8Ki) + UB(1:1) = ubound(InitInputData%JOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyJOutput(InitInputData%JOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3833,8 +3833,8 @@ subroutine Morison_PackInitInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Morison_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'Morison_PackInitInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%Gravity) @@ -3844,18 +3844,18 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NNodes) call RegPack(Buf, allocated(InData%InpJoints)) if (allocated(InData%InpJoints)) then - call RegPackBounds(Buf, 1, lbound(InData%InpJoints), ubound(InData%InpJoints)) - LB(1:1) = lbound(InData%InpJoints) - UB(1:1) = ubound(InData%InpJoints) + call RegPackBounds(Buf, 1, lbound(InData%InpJoints, kind=B8Ki), ubound(InData%InpJoints, kind=B8Ki)) + LB(1:1) = lbound(InData%InpJoints, kind=B8Ki) + UB(1:1) = ubound(InData%InpJoints, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackJointType(Buf, InData%InpJoints(i1)) end do end if call RegPack(Buf, allocated(InData%Nodes)) if (allocated(InData%Nodes)) then - call RegPackBounds(Buf, 1, lbound(InData%Nodes), ubound(InData%Nodes)) - LB(1:1) = lbound(InData%Nodes) - UB(1:1) = ubound(InData%Nodes) + call RegPackBounds(Buf, 1, lbound(InData%Nodes, kind=B8Ki), ubound(InData%Nodes, kind=B8Ki)) + LB(1:1) = lbound(InData%Nodes, kind=B8Ki) + UB(1:1) = ubound(InData%Nodes, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackNodeType(Buf, InData%Nodes(i1)) end do @@ -3863,9 +3863,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NAxCoefs) call RegPack(Buf, allocated(InData%AxialCoefs)) if (allocated(InData%AxialCoefs)) then - call RegPackBounds(Buf, 1, lbound(InData%AxialCoefs), ubound(InData%AxialCoefs)) - LB(1:1) = lbound(InData%AxialCoefs) - UB(1:1) = ubound(InData%AxialCoefs) + call RegPackBounds(Buf, 1, lbound(InData%AxialCoefs, kind=B8Ki), ubound(InData%AxialCoefs, kind=B8Ki)) + LB(1:1) = lbound(InData%AxialCoefs, kind=B8Ki) + UB(1:1) = ubound(InData%AxialCoefs, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackAxialCoefType(Buf, InData%AxialCoefs(i1)) end do @@ -3873,9 +3873,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NPropSets) call RegPack(Buf, allocated(InData%MPropSets)) if (allocated(InData%MPropSets)) then - call RegPackBounds(Buf, 1, lbound(InData%MPropSets), ubound(InData%MPropSets)) - LB(1:1) = lbound(InData%MPropSets) - UB(1:1) = ubound(InData%MPropSets) + call RegPackBounds(Buf, 1, lbound(InData%MPropSets, kind=B8Ki), ubound(InData%MPropSets, kind=B8Ki)) + LB(1:1) = lbound(InData%MPropSets, kind=B8Ki) + UB(1:1) = ubound(InData%MPropSets, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMemberPropType(Buf, InData%MPropSets(i1)) end do @@ -3898,9 +3898,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NCoefDpth) call RegPack(Buf, allocated(InData%CoefDpths)) if (allocated(InData%CoefDpths)) then - call RegPackBounds(Buf, 1, lbound(InData%CoefDpths), ubound(InData%CoefDpths)) - LB(1:1) = lbound(InData%CoefDpths) - UB(1:1) = ubound(InData%CoefDpths) + call RegPackBounds(Buf, 1, lbound(InData%CoefDpths, kind=B8Ki), ubound(InData%CoefDpths, kind=B8Ki)) + LB(1:1) = lbound(InData%CoefDpths, kind=B8Ki) + UB(1:1) = ubound(InData%CoefDpths, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackCoefDpths(Buf, InData%CoefDpths(i1)) end do @@ -3908,9 +3908,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NCoefMembers) call RegPack(Buf, allocated(InData%CoefMembers)) if (allocated(InData%CoefMembers)) then - call RegPackBounds(Buf, 1, lbound(InData%CoefMembers), ubound(InData%CoefMembers)) - LB(1:1) = lbound(InData%CoefMembers) - UB(1:1) = ubound(InData%CoefMembers) + call RegPackBounds(Buf, 1, lbound(InData%CoefMembers, kind=B8Ki), ubound(InData%CoefMembers, kind=B8Ki)) + LB(1:1) = lbound(InData%CoefMembers, kind=B8Ki) + UB(1:1) = ubound(InData%CoefMembers, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackCoefMembers(Buf, InData%CoefMembers(i1)) end do @@ -3918,9 +3918,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NMembers) call RegPack(Buf, allocated(InData%InpMembers)) if (allocated(InData%InpMembers)) then - call RegPackBounds(Buf, 1, lbound(InData%InpMembers), ubound(InData%InpMembers)) - LB(1:1) = lbound(InData%InpMembers) - UB(1:1) = ubound(InData%InpMembers) + call RegPackBounds(Buf, 1, lbound(InData%InpMembers, kind=B8Ki), ubound(InData%InpMembers, kind=B8Ki)) + LB(1:1) = lbound(InData%InpMembers, kind=B8Ki) + UB(1:1) = ubound(InData%InpMembers, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMemberInputType(Buf, InData%InpMembers(i1)) end do @@ -3928,9 +3928,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NFillGroups) call RegPack(Buf, allocated(InData%FilledGroups)) if (allocated(InData%FilledGroups)) then - call RegPackBounds(Buf, 1, lbound(InData%FilledGroups), ubound(InData%FilledGroups)) - LB(1:1) = lbound(InData%FilledGroups) - UB(1:1) = ubound(InData%FilledGroups) + call RegPackBounds(Buf, 1, lbound(InData%FilledGroups, kind=B8Ki), ubound(InData%FilledGroups, kind=B8Ki)) + LB(1:1) = lbound(InData%FilledGroups, kind=B8Ki) + UB(1:1) = ubound(InData%FilledGroups, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackFilledGroupType(Buf, InData%FilledGroups(i1)) end do @@ -3938,9 +3938,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NMGDepths) call RegPack(Buf, allocated(InData%MGDepths)) if (allocated(InData%MGDepths)) then - call RegPackBounds(Buf, 1, lbound(InData%MGDepths), ubound(InData%MGDepths)) - LB(1:1) = lbound(InData%MGDepths) - UB(1:1) = ubound(InData%MGDepths) + call RegPackBounds(Buf, 1, lbound(InData%MGDepths, kind=B8Ki), ubound(InData%MGDepths, kind=B8Ki)) + LB(1:1) = lbound(InData%MGDepths, kind=B8Ki) + UB(1:1) = ubound(InData%MGDepths, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMGDepthsType(Buf, InData%MGDepths(i1)) end do @@ -3950,9 +3950,9 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NMOutputs) call RegPack(Buf, allocated(InData%MOutLst)) if (allocated(InData%MOutLst)) then - call RegPackBounds(Buf, 1, lbound(InData%MOutLst), ubound(InData%MOutLst)) - LB(1:1) = lbound(InData%MOutLst) - UB(1:1) = ubound(InData%MOutLst) + call RegPackBounds(Buf, 1, lbound(InData%MOutLst, kind=B8Ki), ubound(InData%MOutLst, kind=B8Ki)) + LB(1:1) = lbound(InData%MOutLst, kind=B8Ki) + UB(1:1) = ubound(InData%MOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMOutput(Buf, InData%MOutLst(i1)) end do @@ -3960,16 +3960,16 @@ subroutine Morison_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NJOutputs) call RegPack(Buf, allocated(InData%JOutLst)) if (allocated(InData%JOutLst)) then - call RegPackBounds(Buf, 1, lbound(InData%JOutLst), ubound(InData%JOutLst)) - LB(1:1) = lbound(InData%JOutLst) - UB(1:1) = ubound(InData%JOutLst) + call RegPackBounds(Buf, 1, lbound(InData%JOutLst, kind=B8Ki), ubound(InData%JOutLst, kind=B8Ki)) + LB(1:1) = lbound(InData%JOutLst, kind=B8Ki) + UB(1:1) = ubound(InData%JOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackJOutput(Buf, InData%JOutLst(i1)) end do end if call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%NumOuts) @@ -3989,11 +3989,11 @@ subroutine Morison_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackInitInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%Gravity) @@ -4271,14 +4271,14 @@ subroutine Morison_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%MorisonVisRad)) then - LB(1:1) = lbound(SrcInitOutputData%MorisonVisRad) - UB(1:1) = ubound(SrcInitOutputData%MorisonVisRad) + LB(1:1) = lbound(SrcInitOutputData%MorisonVisRad, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%MorisonVisRad, kind=B8Ki) if (.not. allocated(DstInitOutputData%MorisonVisRad)) then allocate(DstInitOutputData%MorisonVisRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4289,8 +4289,8 @@ subroutine Morison_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%MorisonVisRad = SrcInitOutputData%MorisonVisRad end if if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4301,8 +4301,8 @@ subroutine Morison_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4339,17 +4339,17 @@ subroutine Morison_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%MorisonVisRad)) if (allocated(InData%MorisonVisRad)) then - call RegPackBounds(Buf, 1, lbound(InData%MorisonVisRad), ubound(InData%MorisonVisRad)) + call RegPackBounds(Buf, 1, lbound(InData%MorisonVisRad, kind=B8Ki), ubound(InData%MorisonVisRad, kind=B8Ki)) call RegPack(Buf, InData%MorisonVisRad) end if call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4359,7 +4359,7 @@ subroutine Morison_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4452,14 +4452,14 @@ subroutine Morison_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%V_rel_n_FiltStat)) then - LB(1:1) = lbound(SrcDiscStateData%V_rel_n_FiltStat) - UB(1:1) = ubound(SrcDiscStateData%V_rel_n_FiltStat) + LB(1:1) = lbound(SrcDiscStateData%V_rel_n_FiltStat, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%V_rel_n_FiltStat, kind=B8Ki) if (.not. allocated(DstDiscStateData%V_rel_n_FiltStat)) then allocate(DstDiscStateData%V_rel_n_FiltStat(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4490,7 +4490,7 @@ subroutine Morison_PackDiscState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%V_rel_n_FiltStat)) if (allocated(InData%V_rel_n_FiltStat)) then - call RegPackBounds(Buf, 1, lbound(InData%V_rel_n_FiltStat), ubound(InData%V_rel_n_FiltStat)) + call RegPackBounds(Buf, 1, lbound(InData%V_rel_n_FiltStat, kind=B8Ki), ubound(InData%V_rel_n_FiltStat, kind=B8Ki)) call RegPack(Buf, InData%V_rel_n_FiltStat) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4500,7 +4500,7 @@ subroutine Morison_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackDiscState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4604,16 +4604,16 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%DispNodePosHdn)) then - LB(1:2) = lbound(SrcMiscData%DispNodePosHdn) - UB(1:2) = ubound(SrcMiscData%DispNodePosHdn) + LB(1:2) = lbound(SrcMiscData%DispNodePosHdn, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%DispNodePosHdn, kind=B8Ki) if (.not. allocated(DstMiscData%DispNodePosHdn)) then allocate(DstMiscData%DispNodePosHdn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4624,8 +4624,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DispNodePosHdn = SrcMiscData%DispNodePosHdn end if if (allocated(SrcMiscData%DispNodePosHst)) then - LB(1:2) = lbound(SrcMiscData%DispNodePosHst) - UB(1:2) = ubound(SrcMiscData%DispNodePosHst) + LB(1:2) = lbound(SrcMiscData%DispNodePosHst, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%DispNodePosHst, kind=B8Ki) if (.not. allocated(DstMiscData%DispNodePosHst)) then allocate(DstMiscData%DispNodePosHst(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4636,8 +4636,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DispNodePosHst = SrcMiscData%DispNodePosHst end if if (allocated(SrcMiscData%FV)) then - LB(1:2) = lbound(SrcMiscData%FV) - UB(1:2) = ubound(SrcMiscData%FV) + LB(1:2) = lbound(SrcMiscData%FV, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%FV, kind=B8Ki) if (.not. allocated(DstMiscData%FV)) then allocate(DstMiscData%FV(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4648,8 +4648,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FV = SrcMiscData%FV end if if (allocated(SrcMiscData%FA)) then - LB(1:2) = lbound(SrcMiscData%FA) - UB(1:2) = ubound(SrcMiscData%FA) + LB(1:2) = lbound(SrcMiscData%FA, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%FA, kind=B8Ki) if (.not. allocated(DstMiscData%FA)) then allocate(DstMiscData%FA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4660,8 +4660,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FA = SrcMiscData%FA end if if (allocated(SrcMiscData%FAMCF)) then - LB(1:2) = lbound(SrcMiscData%FAMCF) - UB(1:2) = ubound(SrcMiscData%FAMCF) + LB(1:2) = lbound(SrcMiscData%FAMCF, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%FAMCF, kind=B8Ki) if (.not. allocated(DstMiscData%FAMCF)) then allocate(DstMiscData%FAMCF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4672,8 +4672,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FAMCF = SrcMiscData%FAMCF end if if (allocated(SrcMiscData%FDynP)) then - LB(1:1) = lbound(SrcMiscData%FDynP) - UB(1:1) = ubound(SrcMiscData%FDynP) + LB(1:1) = lbound(SrcMiscData%FDynP, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FDynP, kind=B8Ki) if (.not. allocated(DstMiscData%FDynP)) then allocate(DstMiscData%FDynP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4684,8 +4684,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FDynP = SrcMiscData%FDynP end if if (allocated(SrcMiscData%WaveElev)) then - LB(1:1) = lbound(SrcMiscData%WaveElev) - UB(1:1) = ubound(SrcMiscData%WaveElev) + LB(1:1) = lbound(SrcMiscData%WaveElev, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%WaveElev, kind=B8Ki) if (.not. allocated(DstMiscData%WaveElev)) then allocate(DstMiscData%WaveElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4696,8 +4696,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%WaveElev = SrcMiscData%WaveElev end if if (allocated(SrcMiscData%WaveElev1)) then - LB(1:1) = lbound(SrcMiscData%WaveElev1) - UB(1:1) = ubound(SrcMiscData%WaveElev1) + LB(1:1) = lbound(SrcMiscData%WaveElev1, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%WaveElev1, kind=B8Ki) if (.not. allocated(DstMiscData%WaveElev1)) then allocate(DstMiscData%WaveElev1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4708,8 +4708,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%WaveElev1 = SrcMiscData%WaveElev1 end if if (allocated(SrcMiscData%WaveElev2)) then - LB(1:1) = lbound(SrcMiscData%WaveElev2) - UB(1:1) = ubound(SrcMiscData%WaveElev2) + LB(1:1) = lbound(SrcMiscData%WaveElev2, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%WaveElev2, kind=B8Ki) if (.not. allocated(DstMiscData%WaveElev2)) then allocate(DstMiscData%WaveElev2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4720,8 +4720,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%WaveElev2 = SrcMiscData%WaveElev2 end if if (allocated(SrcMiscData%vrel)) then - LB(1:2) = lbound(SrcMiscData%vrel) - UB(1:2) = ubound(SrcMiscData%vrel) + LB(1:2) = lbound(SrcMiscData%vrel, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%vrel, kind=B8Ki) if (.not. allocated(DstMiscData%vrel)) then allocate(DstMiscData%vrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4732,8 +4732,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vrel = SrcMiscData%vrel end if if (allocated(SrcMiscData%nodeInWater)) then - LB(1:1) = lbound(SrcMiscData%nodeInWater) - UB(1:1) = ubound(SrcMiscData%nodeInWater) + LB(1:1) = lbound(SrcMiscData%nodeInWater, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%nodeInWater, kind=B8Ki) if (.not. allocated(DstMiscData%nodeInWater)) then allocate(DstMiscData%nodeInWater(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4744,8 +4744,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%nodeInWater = SrcMiscData%nodeInWater end if if (allocated(SrcMiscData%memberLoads)) then - LB(1:1) = lbound(SrcMiscData%memberLoads) - UB(1:1) = ubound(SrcMiscData%memberLoads) + LB(1:1) = lbound(SrcMiscData%memberLoads, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%memberLoads, kind=B8Ki) if (.not. allocated(DstMiscData%memberLoads)) then allocate(DstMiscData%memberLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4760,8 +4760,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%F_B_End)) then - LB(1:2) = lbound(SrcMiscData%F_B_End) - UB(1:2) = ubound(SrcMiscData%F_B_End) + LB(1:2) = lbound(SrcMiscData%F_B_End, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_B_End, kind=B8Ki) if (.not. allocated(DstMiscData%F_B_End)) then allocate(DstMiscData%F_B_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4772,8 +4772,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_B_End = SrcMiscData%F_B_End end if if (allocated(SrcMiscData%F_D_End)) then - LB(1:2) = lbound(SrcMiscData%F_D_End) - UB(1:2) = ubound(SrcMiscData%F_D_End) + LB(1:2) = lbound(SrcMiscData%F_D_End, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_D_End, kind=B8Ki) if (.not. allocated(DstMiscData%F_D_End)) then allocate(DstMiscData%F_D_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4784,8 +4784,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_D_End = SrcMiscData%F_D_End end if if (allocated(SrcMiscData%F_I_End)) then - LB(1:2) = lbound(SrcMiscData%F_I_End) - UB(1:2) = ubound(SrcMiscData%F_I_End) + LB(1:2) = lbound(SrcMiscData%F_I_End, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_I_End, kind=B8Ki) if (.not. allocated(DstMiscData%F_I_End)) then allocate(DstMiscData%F_I_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4796,8 +4796,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_I_End = SrcMiscData%F_I_End end if if (allocated(SrcMiscData%F_IMG_End)) then - LB(1:2) = lbound(SrcMiscData%F_IMG_End) - UB(1:2) = ubound(SrcMiscData%F_IMG_End) + LB(1:2) = lbound(SrcMiscData%F_IMG_End, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_IMG_End, kind=B8Ki) if (.not. allocated(DstMiscData%F_IMG_End)) then allocate(DstMiscData%F_IMG_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4808,8 +4808,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_IMG_End = SrcMiscData%F_IMG_End end if if (allocated(SrcMiscData%F_A_End)) then - LB(1:2) = lbound(SrcMiscData%F_A_End) - UB(1:2) = ubound(SrcMiscData%F_A_End) + LB(1:2) = lbound(SrcMiscData%F_A_End, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_A_End, kind=B8Ki) if (.not. allocated(DstMiscData%F_A_End)) then allocate(DstMiscData%F_A_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4820,8 +4820,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_A_End = SrcMiscData%F_A_End end if if (allocated(SrcMiscData%F_BF_End)) then - LB(1:2) = lbound(SrcMiscData%F_BF_End) - UB(1:2) = ubound(SrcMiscData%F_BF_End) + LB(1:2) = lbound(SrcMiscData%F_BF_End, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_BF_End, kind=B8Ki) if (.not. allocated(DstMiscData%F_BF_End)) then allocate(DstMiscData%F_BF_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4832,8 +4832,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_BF_End = SrcMiscData%F_BF_End end if if (allocated(SrcMiscData%V_rel_n)) then - LB(1:1) = lbound(SrcMiscData%V_rel_n) - UB(1:1) = ubound(SrcMiscData%V_rel_n) + LB(1:1) = lbound(SrcMiscData%V_rel_n, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%V_rel_n, kind=B8Ki) if (.not. allocated(DstMiscData%V_rel_n)) then allocate(DstMiscData%V_rel_n(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4844,8 +4844,8 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%V_rel_n = SrcMiscData%V_rel_n end if if (allocated(SrcMiscData%V_rel_n_HiPass)) then - LB(1:1) = lbound(SrcMiscData%V_rel_n_HiPass) - UB(1:1) = ubound(SrcMiscData%V_rel_n_HiPass) + LB(1:1) = lbound(SrcMiscData%V_rel_n_HiPass, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%V_rel_n_HiPass, kind=B8Ki) if (.not. allocated(DstMiscData%V_rel_n_HiPass)) then allocate(DstMiscData%V_rel_n_HiPass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4867,8 +4867,8 @@ subroutine Morison_DestroyMisc(MiscData, ErrStat, ErrMsg) type(Morison_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_DestroyMisc' @@ -4908,8 +4908,8 @@ subroutine Morison_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%nodeInWater) end if if (allocated(MiscData%memberLoads)) then - LB(1:1) = lbound(MiscData%memberLoads) - UB(1:1) = ubound(MiscData%memberLoads) + LB(1:1) = lbound(MiscData%memberLoads, kind=B8Ki) + UB(1:1) = ubound(MiscData%memberLoads, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMemberLoads(MiscData%memberLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4950,111 +4950,111 @@ subroutine Morison_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Morison_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'Morison_PackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%DispNodePosHdn)) if (allocated(InData%DispNodePosHdn)) then - call RegPackBounds(Buf, 2, lbound(InData%DispNodePosHdn), ubound(InData%DispNodePosHdn)) + call RegPackBounds(Buf, 2, lbound(InData%DispNodePosHdn, kind=B8Ki), ubound(InData%DispNodePosHdn, kind=B8Ki)) call RegPack(Buf, InData%DispNodePosHdn) end if call RegPack(Buf, allocated(InData%DispNodePosHst)) if (allocated(InData%DispNodePosHst)) then - call RegPackBounds(Buf, 2, lbound(InData%DispNodePosHst), ubound(InData%DispNodePosHst)) + call RegPackBounds(Buf, 2, lbound(InData%DispNodePosHst, kind=B8Ki), ubound(InData%DispNodePosHst, kind=B8Ki)) call RegPack(Buf, InData%DispNodePosHst) end if call RegPack(Buf, allocated(InData%FV)) if (allocated(InData%FV)) then - call RegPackBounds(Buf, 2, lbound(InData%FV), ubound(InData%FV)) + call RegPackBounds(Buf, 2, lbound(InData%FV, kind=B8Ki), ubound(InData%FV, kind=B8Ki)) call RegPack(Buf, InData%FV) end if call RegPack(Buf, allocated(InData%FA)) if (allocated(InData%FA)) then - call RegPackBounds(Buf, 2, lbound(InData%FA), ubound(InData%FA)) + call RegPackBounds(Buf, 2, lbound(InData%FA, kind=B8Ki), ubound(InData%FA, kind=B8Ki)) call RegPack(Buf, InData%FA) end if call RegPack(Buf, allocated(InData%FAMCF)) if (allocated(InData%FAMCF)) then - call RegPackBounds(Buf, 2, lbound(InData%FAMCF), ubound(InData%FAMCF)) + call RegPackBounds(Buf, 2, lbound(InData%FAMCF, kind=B8Ki), ubound(InData%FAMCF, kind=B8Ki)) call RegPack(Buf, InData%FAMCF) end if call RegPack(Buf, allocated(InData%FDynP)) if (allocated(InData%FDynP)) then - call RegPackBounds(Buf, 1, lbound(InData%FDynP), ubound(InData%FDynP)) + call RegPackBounds(Buf, 1, lbound(InData%FDynP, kind=B8Ki), ubound(InData%FDynP, kind=B8Ki)) call RegPack(Buf, InData%FDynP) end if call RegPack(Buf, allocated(InData%WaveElev)) if (allocated(InData%WaveElev)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElev), ubound(InData%WaveElev)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElev, kind=B8Ki), ubound(InData%WaveElev, kind=B8Ki)) call RegPack(Buf, InData%WaveElev) end if call RegPack(Buf, allocated(InData%WaveElev1)) if (allocated(InData%WaveElev1)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElev1), ubound(InData%WaveElev1)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElev1, kind=B8Ki), ubound(InData%WaveElev1, kind=B8Ki)) call RegPack(Buf, InData%WaveElev1) end if call RegPack(Buf, allocated(InData%WaveElev2)) if (allocated(InData%WaveElev2)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElev2), ubound(InData%WaveElev2)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElev2, kind=B8Ki), ubound(InData%WaveElev2, kind=B8Ki)) call RegPack(Buf, InData%WaveElev2) end if call RegPack(Buf, allocated(InData%vrel)) if (allocated(InData%vrel)) then - call RegPackBounds(Buf, 2, lbound(InData%vrel), ubound(InData%vrel)) + call RegPackBounds(Buf, 2, lbound(InData%vrel, kind=B8Ki), ubound(InData%vrel, kind=B8Ki)) call RegPack(Buf, InData%vrel) end if call RegPack(Buf, allocated(InData%nodeInWater)) if (allocated(InData%nodeInWater)) then - call RegPackBounds(Buf, 1, lbound(InData%nodeInWater), ubound(InData%nodeInWater)) + call RegPackBounds(Buf, 1, lbound(InData%nodeInWater, kind=B8Ki), ubound(InData%nodeInWater, kind=B8Ki)) call RegPack(Buf, InData%nodeInWater) end if call RegPack(Buf, allocated(InData%memberLoads)) if (allocated(InData%memberLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%memberLoads), ubound(InData%memberLoads)) - LB(1:1) = lbound(InData%memberLoads) - UB(1:1) = ubound(InData%memberLoads) + call RegPackBounds(Buf, 1, lbound(InData%memberLoads, kind=B8Ki), ubound(InData%memberLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%memberLoads, kind=B8Ki) + UB(1:1) = ubound(InData%memberLoads, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMemberLoads(Buf, InData%memberLoads(i1)) end do end if call RegPack(Buf, allocated(InData%F_B_End)) if (allocated(InData%F_B_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_B_End), ubound(InData%F_B_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_B_End, kind=B8Ki), ubound(InData%F_B_End, kind=B8Ki)) call RegPack(Buf, InData%F_B_End) end if call RegPack(Buf, allocated(InData%F_D_End)) if (allocated(InData%F_D_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_D_End), ubound(InData%F_D_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_D_End, kind=B8Ki), ubound(InData%F_D_End, kind=B8Ki)) call RegPack(Buf, InData%F_D_End) end if call RegPack(Buf, allocated(InData%F_I_End)) if (allocated(InData%F_I_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_I_End), ubound(InData%F_I_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_I_End, kind=B8Ki), ubound(InData%F_I_End, kind=B8Ki)) call RegPack(Buf, InData%F_I_End) end if call RegPack(Buf, allocated(InData%F_IMG_End)) if (allocated(InData%F_IMG_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_IMG_End), ubound(InData%F_IMG_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_IMG_End, kind=B8Ki), ubound(InData%F_IMG_End, kind=B8Ki)) call RegPack(Buf, InData%F_IMG_End) end if call RegPack(Buf, allocated(InData%F_A_End)) if (allocated(InData%F_A_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_A_End), ubound(InData%F_A_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_A_End, kind=B8Ki), ubound(InData%F_A_End, kind=B8Ki)) call RegPack(Buf, InData%F_A_End) end if call RegPack(Buf, allocated(InData%F_BF_End)) if (allocated(InData%F_BF_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_BF_End), ubound(InData%F_BF_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_BF_End, kind=B8Ki), ubound(InData%F_BF_End, kind=B8Ki)) call RegPack(Buf, InData%F_BF_End) end if call RegPack(Buf, allocated(InData%V_rel_n)) if (allocated(InData%V_rel_n)) then - call RegPackBounds(Buf, 1, lbound(InData%V_rel_n), ubound(InData%V_rel_n)) + call RegPackBounds(Buf, 1, lbound(InData%V_rel_n, kind=B8Ki), ubound(InData%V_rel_n, kind=B8Ki)) call RegPack(Buf, InData%V_rel_n) end if call RegPack(Buf, allocated(InData%V_rel_n_HiPass)) if (allocated(InData%V_rel_n_HiPass)) then - call RegPackBounds(Buf, 1, lbound(InData%V_rel_n_HiPass), ubound(InData%V_rel_n_HiPass)) + call RegPackBounds(Buf, 1, lbound(InData%V_rel_n_HiPass, kind=B8Ki), ubound(InData%V_rel_n_HiPass, kind=B8Ki)) call RegPack(Buf, InData%V_rel_n_HiPass) end if call NWTC_Library_PackMeshMapType(Buf, InData%VisMeshMap) @@ -5066,8 +5066,8 @@ subroutine Morison_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5362,8 +5362,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyParam' @@ -5375,8 +5375,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%AMMod = SrcParamData%AMMod DstParamData%NMembers = SrcParamData%NMembers if (allocated(SrcParamData%Members)) then - LB(1:1) = lbound(SrcParamData%Members) - UB(1:1) = ubound(SrcParamData%Members) + LB(1:1) = lbound(SrcParamData%Members, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Members, kind=B8Ki) if (.not. allocated(DstParamData%Members)) then allocate(DstParamData%Members(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5393,8 +5393,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%NNodes = SrcParamData%NNodes DstParamData%NJoints = SrcParamData%NJoints if (allocated(SrcParamData%I_MG_End)) then - LB(1:3) = lbound(SrcParamData%I_MG_End) - UB(1:3) = ubound(SrcParamData%I_MG_End) + LB(1:3) = lbound(SrcParamData%I_MG_End, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%I_MG_End, kind=B8Ki) if (.not. allocated(DstParamData%I_MG_End)) then allocate(DstParamData%I_MG_End(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5405,8 +5405,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%I_MG_End = SrcParamData%I_MG_End end if if (allocated(SrcParamData%An_End)) then - LB(1:2) = lbound(SrcParamData%An_End) - UB(1:2) = ubound(SrcParamData%An_End) + LB(1:2) = lbound(SrcParamData%An_End, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%An_End, kind=B8Ki) if (.not. allocated(DstParamData%An_End)) then allocate(DstParamData%An_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5417,8 +5417,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%An_End = SrcParamData%An_End end if if (allocated(SrcParamData%DragConst_End)) then - LB(1:1) = lbound(SrcParamData%DragConst_End) - UB(1:1) = ubound(SrcParamData%DragConst_End) + LB(1:1) = lbound(SrcParamData%DragConst_End, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DragConst_End, kind=B8Ki) if (.not. allocated(DstParamData%DragConst_End)) then allocate(DstParamData%DragConst_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5429,8 +5429,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%DragConst_End = SrcParamData%DragConst_End end if if (allocated(SrcParamData%VRelNFiltConst)) then - LB(1:1) = lbound(SrcParamData%VRelNFiltConst) - UB(1:1) = ubound(SrcParamData%VRelNFiltConst) + LB(1:1) = lbound(SrcParamData%VRelNFiltConst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%VRelNFiltConst, kind=B8Ki) if (.not. allocated(DstParamData%VRelNFiltConst)) then allocate(DstParamData%VRelNFiltConst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5441,8 +5441,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%VRelNFiltConst = SrcParamData%VRelNFiltConst end if if (allocated(SrcParamData%DragMod_End)) then - LB(1:1) = lbound(SrcParamData%DragMod_End) - UB(1:1) = ubound(SrcParamData%DragMod_End) + LB(1:1) = lbound(SrcParamData%DragMod_End, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DragMod_End, kind=B8Ki) if (.not. allocated(DstParamData%DragMod_End)) then allocate(DstParamData%DragMod_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5453,8 +5453,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%DragMod_End = SrcParamData%DragMod_End end if if (allocated(SrcParamData%DragLoFSc_End)) then - LB(1:1) = lbound(SrcParamData%DragLoFSc_End) - UB(1:1) = ubound(SrcParamData%DragLoFSc_End) + LB(1:1) = lbound(SrcParamData%DragLoFSc_End, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%DragLoFSc_End, kind=B8Ki) if (.not. allocated(DstParamData%DragLoFSc_End)) then allocate(DstParamData%DragLoFSc_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5465,8 +5465,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%DragLoFSc_End = SrcParamData%DragLoFSc_End end if if (allocated(SrcParamData%F_WMG_End)) then - LB(1:2) = lbound(SrcParamData%F_WMG_End) - UB(1:2) = ubound(SrcParamData%F_WMG_End) + LB(1:2) = lbound(SrcParamData%F_WMG_End, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%F_WMG_End, kind=B8Ki) if (.not. allocated(DstParamData%F_WMG_End)) then allocate(DstParamData%F_WMG_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5477,8 +5477,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%F_WMG_End = SrcParamData%F_WMG_End end if if (allocated(SrcParamData%DP_Const_End)) then - LB(1:2) = lbound(SrcParamData%DP_Const_End) - UB(1:2) = ubound(SrcParamData%DP_Const_End) + LB(1:2) = lbound(SrcParamData%DP_Const_End, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%DP_Const_End, kind=B8Ki) if (.not. allocated(DstParamData%DP_Const_End)) then allocate(DstParamData%DP_Const_End(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5489,8 +5489,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%DP_Const_End = SrcParamData%DP_Const_End end if if (allocated(SrcParamData%Mass_MG_End)) then - LB(1:1) = lbound(SrcParamData%Mass_MG_End) - UB(1:1) = ubound(SrcParamData%Mass_MG_End) + LB(1:1) = lbound(SrcParamData%Mass_MG_End, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Mass_MG_End, kind=B8Ki) if (.not. allocated(DstParamData%Mass_MG_End)) then allocate(DstParamData%Mass_MG_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5501,8 +5501,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%Mass_MG_End = SrcParamData%Mass_MG_End end if if (allocated(SrcParamData%AM_End)) then - LB(1:3) = lbound(SrcParamData%AM_End) - UB(1:3) = ubound(SrcParamData%AM_End) + LB(1:3) = lbound(SrcParamData%AM_End, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%AM_End, kind=B8Ki) if (.not. allocated(DstParamData%AM_End)) then allocate(DstParamData%AM_End(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5514,8 +5514,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM end if DstParamData%NMOutputs = SrcParamData%NMOutputs if (allocated(SrcParamData%MOutLst)) then - LB(1:1) = lbound(SrcParamData%MOutLst) - UB(1:1) = ubound(SrcParamData%MOutLst) + LB(1:1) = lbound(SrcParamData%MOutLst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%MOutLst, kind=B8Ki) if (.not. allocated(DstParamData%MOutLst)) then allocate(DstParamData%MOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5531,8 +5531,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM end if DstParamData%NJOutputs = SrcParamData%NJOutputs if (allocated(SrcParamData%JOutLst)) then - LB(1:1) = lbound(SrcParamData%JOutLst) - UB(1:1) = ubound(SrcParamData%JOutLst) + LB(1:1) = lbound(SrcParamData%JOutLst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%JOutLst, kind=B8Ki) if (.not. allocated(DstParamData%JOutLst)) then allocate(DstParamData%JOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5547,8 +5547,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5571,16 +5571,16 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) type(Morison_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_DestroyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(ParamData%Members)) then - LB(1:1) = lbound(ParamData%Members) - UB(1:1) = ubound(ParamData%Members) + LB(1:1) = lbound(ParamData%Members, kind=B8Ki) + UB(1:1) = ubound(ParamData%Members, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMemberType(ParamData%Members(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5618,8 +5618,8 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%AM_End) end if if (allocated(ParamData%MOutLst)) then - LB(1:1) = lbound(ParamData%MOutLst) - UB(1:1) = ubound(ParamData%MOutLst) + LB(1:1) = lbound(ParamData%MOutLst, kind=B8Ki) + UB(1:1) = ubound(ParamData%MOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyMOutput(ParamData%MOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5627,8 +5627,8 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MOutLst) end if if (allocated(ParamData%JOutLst)) then - LB(1:1) = lbound(ParamData%JOutLst) - UB(1:1) = ubound(ParamData%JOutLst) + LB(1:1) = lbound(ParamData%JOutLst, kind=B8Ki) + UB(1:1) = ubound(ParamData%JOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_DestroyJOutput(ParamData%JOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5636,8 +5636,8 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%JOutLst) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5651,8 +5651,8 @@ subroutine Morison_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Morison_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'Morison_PackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) @@ -5662,9 +5662,9 @@ subroutine Morison_PackParam(Buf, Indata) call RegPack(Buf, InData%NMembers) call RegPack(Buf, allocated(InData%Members)) if (allocated(InData%Members)) then - call RegPackBounds(Buf, 1, lbound(InData%Members), ubound(InData%Members)) - LB(1:1) = lbound(InData%Members) - UB(1:1) = ubound(InData%Members) + call RegPackBounds(Buf, 1, lbound(InData%Members, kind=B8Ki), ubound(InData%Members, kind=B8Ki)) + LB(1:1) = lbound(InData%Members, kind=B8Ki) + UB(1:1) = ubound(InData%Members, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMemberType(Buf, InData%Members(i1)) end do @@ -5673,60 +5673,60 @@ subroutine Morison_PackParam(Buf, Indata) call RegPack(Buf, InData%NJoints) call RegPack(Buf, allocated(InData%I_MG_End)) if (allocated(InData%I_MG_End)) then - call RegPackBounds(Buf, 3, lbound(InData%I_MG_End), ubound(InData%I_MG_End)) + call RegPackBounds(Buf, 3, lbound(InData%I_MG_End, kind=B8Ki), ubound(InData%I_MG_End, kind=B8Ki)) call RegPack(Buf, InData%I_MG_End) end if call RegPack(Buf, allocated(InData%An_End)) if (allocated(InData%An_End)) then - call RegPackBounds(Buf, 2, lbound(InData%An_End), ubound(InData%An_End)) + call RegPackBounds(Buf, 2, lbound(InData%An_End, kind=B8Ki), ubound(InData%An_End, kind=B8Ki)) call RegPack(Buf, InData%An_End) end if call RegPack(Buf, allocated(InData%DragConst_End)) if (allocated(InData%DragConst_End)) then - call RegPackBounds(Buf, 1, lbound(InData%DragConst_End), ubound(InData%DragConst_End)) + call RegPackBounds(Buf, 1, lbound(InData%DragConst_End, kind=B8Ki), ubound(InData%DragConst_End, kind=B8Ki)) call RegPack(Buf, InData%DragConst_End) end if call RegPack(Buf, allocated(InData%VRelNFiltConst)) if (allocated(InData%VRelNFiltConst)) then - call RegPackBounds(Buf, 1, lbound(InData%VRelNFiltConst), ubound(InData%VRelNFiltConst)) + call RegPackBounds(Buf, 1, lbound(InData%VRelNFiltConst, kind=B8Ki), ubound(InData%VRelNFiltConst, kind=B8Ki)) call RegPack(Buf, InData%VRelNFiltConst) end if call RegPack(Buf, allocated(InData%DragMod_End)) if (allocated(InData%DragMod_End)) then - call RegPackBounds(Buf, 1, lbound(InData%DragMod_End), ubound(InData%DragMod_End)) + call RegPackBounds(Buf, 1, lbound(InData%DragMod_End, kind=B8Ki), ubound(InData%DragMod_End, kind=B8Ki)) call RegPack(Buf, InData%DragMod_End) end if call RegPack(Buf, allocated(InData%DragLoFSc_End)) if (allocated(InData%DragLoFSc_End)) then - call RegPackBounds(Buf, 1, lbound(InData%DragLoFSc_End), ubound(InData%DragLoFSc_End)) + call RegPackBounds(Buf, 1, lbound(InData%DragLoFSc_End, kind=B8Ki), ubound(InData%DragLoFSc_End, kind=B8Ki)) call RegPack(Buf, InData%DragLoFSc_End) end if call RegPack(Buf, allocated(InData%F_WMG_End)) if (allocated(InData%F_WMG_End)) then - call RegPackBounds(Buf, 2, lbound(InData%F_WMG_End), ubound(InData%F_WMG_End)) + call RegPackBounds(Buf, 2, lbound(InData%F_WMG_End, kind=B8Ki), ubound(InData%F_WMG_End, kind=B8Ki)) call RegPack(Buf, InData%F_WMG_End) end if call RegPack(Buf, allocated(InData%DP_Const_End)) if (allocated(InData%DP_Const_End)) then - call RegPackBounds(Buf, 2, lbound(InData%DP_Const_End), ubound(InData%DP_Const_End)) + call RegPackBounds(Buf, 2, lbound(InData%DP_Const_End, kind=B8Ki), ubound(InData%DP_Const_End, kind=B8Ki)) call RegPack(Buf, InData%DP_Const_End) end if call RegPack(Buf, allocated(InData%Mass_MG_End)) if (allocated(InData%Mass_MG_End)) then - call RegPackBounds(Buf, 1, lbound(InData%Mass_MG_End), ubound(InData%Mass_MG_End)) + call RegPackBounds(Buf, 1, lbound(InData%Mass_MG_End, kind=B8Ki), ubound(InData%Mass_MG_End, kind=B8Ki)) call RegPack(Buf, InData%Mass_MG_End) end if call RegPack(Buf, allocated(InData%AM_End)) if (allocated(InData%AM_End)) then - call RegPackBounds(Buf, 3, lbound(InData%AM_End), ubound(InData%AM_End)) + call RegPackBounds(Buf, 3, lbound(InData%AM_End, kind=B8Ki), ubound(InData%AM_End, kind=B8Ki)) call RegPack(Buf, InData%AM_End) end if call RegPack(Buf, InData%NMOutputs) call RegPack(Buf, allocated(InData%MOutLst)) if (allocated(InData%MOutLst)) then - call RegPackBounds(Buf, 1, lbound(InData%MOutLst), ubound(InData%MOutLst)) - LB(1:1) = lbound(InData%MOutLst) - UB(1:1) = ubound(InData%MOutLst) + call RegPackBounds(Buf, 1, lbound(InData%MOutLst, kind=B8Ki), ubound(InData%MOutLst, kind=B8Ki)) + LB(1:1) = lbound(InData%MOutLst, kind=B8Ki) + UB(1:1) = ubound(InData%MOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackMOutput(Buf, InData%MOutLst(i1)) end do @@ -5734,18 +5734,18 @@ subroutine Morison_PackParam(Buf, Indata) call RegPack(Buf, InData%NJOutputs) call RegPack(Buf, allocated(InData%JOutLst)) if (allocated(InData%JOutLst)) then - call RegPackBounds(Buf, 1, lbound(InData%JOutLst), ubound(InData%JOutLst)) - LB(1:1) = lbound(InData%JOutLst) - UB(1:1) = ubound(InData%JOutLst) + call RegPackBounds(Buf, 1, lbound(InData%JOutLst, kind=B8Ki), ubound(InData%JOutLst, kind=B8Ki)) + LB(1:1) = lbound(InData%JOutLst, kind=B8Ki) + UB(1:1) = ubound(InData%JOutLst, kind=B8Ki) do i1 = LB(1), UB(1) call Morison_PackJOutput(Buf, InData%JOutLst(i1)) end do end if call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -5766,11 +5766,11 @@ subroutine Morison_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%DT) @@ -6069,7 +6069,7 @@ subroutine Morison_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyOutput' @@ -6082,8 +6082,8 @@ subroutine Morison_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6122,7 +6122,7 @@ subroutine Morison_PackOutput(Buf, Indata) call MeshPack(Buf, InData%VisMesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6132,7 +6132,7 @@ subroutine Morison_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Morison_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/SS_Excitation_Types.f90 b/modules/hydrodyn/src/SS_Excitation_Types.f90 index d2ba97c733..ba09d27160 100644 --- a/modules/hydrodyn/src/SS_Excitation_Types.f90 +++ b/modules/hydrodyn/src/SS_Excitation_Types.f90 @@ -110,7 +110,7 @@ subroutine SS_Exc_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Exc_CopyInitInput' @@ -120,8 +120,8 @@ subroutine SS_Exc_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%NBody = SrcInitInputData%NBody DstInitInputData%ExctnDisp = SrcInitInputData%ExctnDisp if (allocated(SrcInitInputData%PtfmRefztRot)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -160,7 +160,7 @@ subroutine SS_Exc_PackInitInput(Buf, Indata) call RegPack(Buf, InData%ExctnDisp) call RegPack(Buf, allocated(InData%PtfmRefztRot)) if (allocated(InData%PtfmRefztRot)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot), ubound(InData%PtfmRefztRot)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot, kind=B8Ki), ubound(InData%PtfmRefztRot, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefztRot) end if call RegPack(Buf, associated(InData%WaveField)) @@ -177,10 +177,10 @@ subroutine SS_Exc_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%InputFile) @@ -231,14 +231,14 @@ subroutine SS_Exc_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Exc_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -249,8 +249,8 @@ subroutine SS_Exc_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -284,12 +284,12 @@ subroutine SS_Exc_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -299,7 +299,7 @@ subroutine SS_Exc_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -339,14 +339,14 @@ subroutine SS_Exc_CopyContState(SrcContStateData, DstContStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Exc_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%x)) then - LB(1:1) = lbound(SrcContStateData%x) - UB(1:1) = ubound(SrcContStateData%x) + LB(1:1) = lbound(SrcContStateData%x, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%x, kind=B8Ki) if (.not. allocated(DstContStateData%x)) then allocate(DstContStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -377,7 +377,7 @@ subroutine SS_Exc_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(Buf, 1, lbound(InData%x), ubound(InData%x)) + call RegPackBounds(Buf, 1, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) call RegPack(Buf, InData%x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -387,7 +387,7 @@ subroutine SS_Exc_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackContState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -491,16 +491,16 @@ subroutine SS_Exc_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Exc_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' DstOtherStateData%n = SrcOtherStateData%n - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Exc_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -512,15 +512,15 @@ subroutine SS_Exc_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SS_Exc_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Exc_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Exc_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -531,12 +531,12 @@ subroutine SS_Exc_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SS_Exc_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%n) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Exc_PackContState(Buf, InData%xdot(i1)) end do @@ -547,13 +547,13 @@ subroutine SS_Exc_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%n) if (RegCheckErr(Buf, RoutineName)) return - LB(1:1) = lbound(OutData%xdot) - UB(1:1) = ubound(OutData%xdot) + LB(1:1) = lbound(OutData%xdot, kind=B8Ki) + UB(1:1) = ubound(OutData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Exc_UnpackContState(Buf, OutData%xdot(i1)) ! xdot end do @@ -615,7 +615,7 @@ subroutine SS_Exc_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Exc_CopyParam' @@ -625,8 +625,8 @@ subroutine SS_Exc_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%NBody = SrcParamData%NBody DstParamData%ExctnDisp = SrcParamData%ExctnDisp if (allocated(SrcParamData%spDOF)) then - LB(1:1) = lbound(SrcParamData%spDOF) - UB(1:1) = ubound(SrcParamData%spDOF) + LB(1:1) = lbound(SrcParamData%spDOF, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%spDOF, kind=B8Ki) if (.not. allocated(DstParamData%spDOF)) then allocate(DstParamData%spDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -637,8 +637,8 @@ subroutine SS_Exc_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%spDOF = SrcParamData%spDOF end if if (allocated(SrcParamData%A)) then - LB(1:2) = lbound(SrcParamData%A) - UB(1:2) = ubound(SrcParamData%A) + LB(1:2) = lbound(SrcParamData%A, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%A, kind=B8Ki) if (.not. allocated(DstParamData%A)) then allocate(DstParamData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -649,8 +649,8 @@ subroutine SS_Exc_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%A = SrcParamData%A end if if (allocated(SrcParamData%B)) then - LB(1:1) = lbound(SrcParamData%B) - UB(1:1) = ubound(SrcParamData%B) + LB(1:1) = lbound(SrcParamData%B, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%B, kind=B8Ki) if (.not. allocated(DstParamData%B)) then allocate(DstParamData%B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -661,8 +661,8 @@ subroutine SS_Exc_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%B = SrcParamData%B end if if (allocated(SrcParamData%C)) then - LB(1:2) = lbound(SrcParamData%C) - UB(1:2) = ubound(SrcParamData%C) + LB(1:2) = lbound(SrcParamData%C, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C, kind=B8Ki) if (.not. allocated(DstParamData%C)) then allocate(DstParamData%C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -712,22 +712,22 @@ subroutine SS_Exc_PackParam(Buf, Indata) call RegPack(Buf, InData%ExctnDisp) call RegPack(Buf, allocated(InData%spDOF)) if (allocated(InData%spDOF)) then - call RegPackBounds(Buf, 1, lbound(InData%spDOF), ubound(InData%spDOF)) + call RegPackBounds(Buf, 1, lbound(InData%spDOF, kind=B8Ki), ubound(InData%spDOF, kind=B8Ki)) call RegPack(Buf, InData%spDOF) end if call RegPack(Buf, allocated(InData%A)) if (allocated(InData%A)) then - call RegPackBounds(Buf, 2, lbound(InData%A), ubound(InData%A)) + call RegPackBounds(Buf, 2, lbound(InData%A, kind=B8Ki), ubound(InData%A, kind=B8Ki)) call RegPack(Buf, InData%A) end if call RegPack(Buf, allocated(InData%B)) if (allocated(InData%B)) then - call RegPackBounds(Buf, 1, lbound(InData%B), ubound(InData%B)) + call RegPackBounds(Buf, 1, lbound(InData%B, kind=B8Ki), ubound(InData%B, kind=B8Ki)) call RegPack(Buf, InData%B) end if call RegPack(Buf, allocated(InData%C)) if (allocated(InData%C)) then - call RegPackBounds(Buf, 2, lbound(InData%C), ubound(InData%C)) + call RegPackBounds(Buf, 2, lbound(InData%C, kind=B8Ki), ubound(InData%C, kind=B8Ki)) call RegPack(Buf, InData%C) end if call RegPack(Buf, InData%numStates) @@ -746,10 +746,10 @@ subroutine SS_Exc_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%DT) @@ -846,14 +846,14 @@ subroutine SS_Exc_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Exc_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%PtfmPos)) then - LB(1:2) = lbound(SrcInputData%PtfmPos) - UB(1:2) = ubound(SrcInputData%PtfmPos) + LB(1:2) = lbound(SrcInputData%PtfmPos, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%PtfmPos, kind=B8Ki) if (.not. allocated(DstInputData%PtfmPos)) then allocate(DstInputData%PtfmPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -884,7 +884,7 @@ subroutine SS_Exc_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%PtfmPos)) if (allocated(InData%PtfmPos)) then - call RegPackBounds(Buf, 2, lbound(InData%PtfmPos), ubound(InData%PtfmPos)) + call RegPackBounds(Buf, 2, lbound(InData%PtfmPos, kind=B8Ki), ubound(InData%PtfmPos, kind=B8Ki)) call RegPack(Buf, InData%PtfmPos) end if if (RegCheckErr(Buf, RoutineName)) return @@ -894,7 +894,7 @@ subroutine SS_Exc_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -920,14 +920,14 @@ subroutine SS_Exc_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Exc_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%y)) then - LB(1:1) = lbound(SrcOutputData%y) - UB(1:1) = ubound(SrcOutputData%y) + LB(1:1) = lbound(SrcOutputData%y, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%y, kind=B8Ki) if (.not. allocated(DstOutputData%y)) then allocate(DstOutputData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -938,8 +938,8 @@ subroutine SS_Exc_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Er DstOutputData%y = SrcOutputData%y end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -973,12 +973,12 @@ subroutine SS_Exc_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPack(Buf, InData%y) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -988,7 +988,7 @@ subroutine SS_Exc_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Exc_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/SS_Radiation_Types.f90 b/modules/hydrodyn/src/SS_Radiation_Types.f90 index 48280fc706..1c07721d8a 100644 --- a/modules/hydrodyn/src/SS_Radiation_Types.f90 +++ b/modules/hydrodyn/src/SS_Radiation_Types.f90 @@ -103,15 +103,15 @@ subroutine SS_Rad_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Rad_CopyInitInput' ErrStat = ErrID_None ErrMsg = '' DstInitInputData%InputFile = SrcInitInputData%InputFile if (allocated(SrcInitInputData%enabledDOFs)) then - LB(1:1) = lbound(SrcInitInputData%enabledDOFs) - UB(1:1) = ubound(SrcInitInputData%enabledDOFs) + LB(1:1) = lbound(SrcInitInputData%enabledDOFs, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%enabledDOFs, kind=B8Ki) if (.not. allocated(DstInitInputData%enabledDOFs)) then allocate(DstInitInputData%enabledDOFs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -123,8 +123,8 @@ subroutine SS_Rad_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er end if DstInitInputData%NBody = SrcInitInputData%NBody if (allocated(SrcInitInputData%PtfmRefztRot)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -159,13 +159,13 @@ subroutine SS_Rad_PackInitInput(Buf, Indata) call RegPack(Buf, InData%InputFile) call RegPack(Buf, allocated(InData%enabledDOFs)) if (allocated(InData%enabledDOFs)) then - call RegPackBounds(Buf, 1, lbound(InData%enabledDOFs), ubound(InData%enabledDOFs)) + call RegPackBounds(Buf, 1, lbound(InData%enabledDOFs, kind=B8Ki), ubound(InData%enabledDOFs, kind=B8Ki)) call RegPack(Buf, InData%enabledDOFs) end if call RegPack(Buf, InData%NBody) call RegPack(Buf, allocated(InData%PtfmRefztRot)) if (allocated(InData%PtfmRefztRot)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot), ubound(InData%PtfmRefztRot)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot, kind=B8Ki), ubound(InData%PtfmRefztRot, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefztRot) end if if (RegCheckErr(Buf, RoutineName)) return @@ -175,7 +175,7 @@ subroutine SS_Rad_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -219,14 +219,14 @@ subroutine SS_Rad_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Rad_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -237,8 +237,8 @@ subroutine SS_Rad_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -272,12 +272,12 @@ subroutine SS_Rad_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -287,7 +287,7 @@ subroutine SS_Rad_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -327,14 +327,14 @@ subroutine SS_Rad_CopyContState(SrcContStateData, DstContStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Rad_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%x)) then - LB(1:1) = lbound(SrcContStateData%x) - UB(1:1) = ubound(SrcContStateData%x) + LB(1:1) = lbound(SrcContStateData%x, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%x, kind=B8Ki) if (.not. allocated(DstContStateData%x)) then allocate(DstContStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -365,7 +365,7 @@ subroutine SS_Rad_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(Buf, 1, lbound(InData%x), ubound(InData%x)) + call RegPackBounds(Buf, 1, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) call RegPack(Buf, InData%x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -375,7 +375,7 @@ subroutine SS_Rad_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackContState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -479,16 +479,16 @@ subroutine SS_Rad_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Rad_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' DstOtherStateData%n = SrcOtherStateData%n - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Rad_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -500,15 +500,15 @@ subroutine SS_Rad_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SS_Rad_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Rad_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Rad_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -519,12 +519,12 @@ subroutine SS_Rad_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SS_Rad_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%n) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Rad_PackContState(Buf, InData%xdot(i1)) end do @@ -535,13 +535,13 @@ subroutine SS_Rad_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%n) if (RegCheckErr(Buf, RoutineName)) return - LB(1:1) = lbound(OutData%xdot) - UB(1:1) = ubound(OutData%xdot) + LB(1:1) = lbound(OutData%xdot, kind=B8Ki) + UB(1:1) = ubound(OutData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SS_Rad_UnpackContState(Buf, OutData%xdot(i1)) ! xdot end do @@ -592,15 +592,15 @@ subroutine SS_Rad_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Rad_CopyParam' ErrStat = ErrID_None ErrMsg = '' DstParamData%DT = SrcParamData%DT if (allocated(SrcParamData%A)) then - LB(1:2) = lbound(SrcParamData%A) - UB(1:2) = ubound(SrcParamData%A) + LB(1:2) = lbound(SrcParamData%A, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%A, kind=B8Ki) if (.not. allocated(DstParamData%A)) then allocate(DstParamData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -611,8 +611,8 @@ subroutine SS_Rad_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%A = SrcParamData%A end if if (allocated(SrcParamData%B)) then - LB(1:2) = lbound(SrcParamData%B) - UB(1:2) = ubound(SrcParamData%B) + LB(1:2) = lbound(SrcParamData%B, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%B, kind=B8Ki) if (.not. allocated(DstParamData%B)) then allocate(DstParamData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -623,8 +623,8 @@ subroutine SS_Rad_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%B = SrcParamData%B end if if (allocated(SrcParamData%C)) then - LB(1:2) = lbound(SrcParamData%C) - UB(1:2) = ubound(SrcParamData%C) + LB(1:2) = lbound(SrcParamData%C, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C, kind=B8Ki) if (.not. allocated(DstParamData%C)) then allocate(DstParamData%C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -636,8 +636,8 @@ subroutine SS_Rad_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs end if DstParamData%numStates = SrcParamData%numStates if (allocated(SrcParamData%spdof)) then - LB(1:1) = lbound(SrcParamData%spdof) - UB(1:1) = ubound(SrcParamData%spdof) + LB(1:1) = lbound(SrcParamData%spdof, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%spdof, kind=B8Ki) if (.not. allocated(DstParamData%spdof)) then allocate(DstParamData%spdof(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -679,23 +679,23 @@ subroutine SS_Rad_PackParam(Buf, Indata) call RegPack(Buf, InData%DT) call RegPack(Buf, allocated(InData%A)) if (allocated(InData%A)) then - call RegPackBounds(Buf, 2, lbound(InData%A), ubound(InData%A)) + call RegPackBounds(Buf, 2, lbound(InData%A, kind=B8Ki), ubound(InData%A, kind=B8Ki)) call RegPack(Buf, InData%A) end if call RegPack(Buf, allocated(InData%B)) if (allocated(InData%B)) then - call RegPackBounds(Buf, 2, lbound(InData%B), ubound(InData%B)) + call RegPackBounds(Buf, 2, lbound(InData%B, kind=B8Ki), ubound(InData%B, kind=B8Ki)) call RegPack(Buf, InData%B) end if call RegPack(Buf, allocated(InData%C)) if (allocated(InData%C)) then - call RegPackBounds(Buf, 2, lbound(InData%C), ubound(InData%C)) + call RegPackBounds(Buf, 2, lbound(InData%C, kind=B8Ki), ubound(InData%C, kind=B8Ki)) call RegPack(Buf, InData%C) end if call RegPack(Buf, InData%numStates) call RegPack(Buf, allocated(InData%spdof)) if (allocated(InData%spdof)) then - call RegPackBounds(Buf, 1, lbound(InData%spdof), ubound(InData%spdof)) + call RegPackBounds(Buf, 1, lbound(InData%spdof, kind=B8Ki), ubound(InData%spdof, kind=B8Ki)) call RegPack(Buf, InData%spdof) end if call RegPack(Buf, InData%NBody) @@ -706,7 +706,7 @@ subroutine SS_Rad_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -780,14 +780,14 @@ subroutine SS_Rad_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Rad_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%dq)) then - LB(1:1) = lbound(SrcInputData%dq) - UB(1:1) = ubound(SrcInputData%dq) + LB(1:1) = lbound(SrcInputData%dq, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%dq, kind=B8Ki) if (.not. allocated(DstInputData%dq)) then allocate(DstInputData%dq(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -818,7 +818,7 @@ subroutine SS_Rad_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%dq)) if (allocated(InData%dq)) then - call RegPackBounds(Buf, 1, lbound(InData%dq), ubound(InData%dq)) + call RegPackBounds(Buf, 1, lbound(InData%dq, kind=B8Ki), ubound(InData%dq, kind=B8Ki)) call RegPack(Buf, InData%dq) end if if (RegCheckErr(Buf, RoutineName)) return @@ -828,7 +828,7 @@ subroutine SS_Rad_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -854,14 +854,14 @@ subroutine SS_Rad_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SS_Rad_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%y)) then - LB(1:1) = lbound(SrcOutputData%y) - UB(1:1) = ubound(SrcOutputData%y) + LB(1:1) = lbound(SrcOutputData%y, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%y, kind=B8Ki) if (.not. allocated(DstOutputData%y)) then allocate(DstOutputData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -872,8 +872,8 @@ subroutine SS_Rad_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Er DstOutputData%y = SrcOutputData%y end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -907,12 +907,12 @@ subroutine SS_Rad_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPack(Buf, InData%y) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -922,7 +922,7 @@ subroutine SS_Rad_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SS_Rad_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/WAMIT2_Types.f90 b/modules/hydrodyn/src/WAMIT2_Types.f90 index 603be0c1d1..3a25ad9a6b 100644 --- a/modules/hydrodyn/src/WAMIT2_Types.f90 +++ b/modules/hydrodyn/src/WAMIT2_Types.f90 @@ -92,7 +92,7 @@ subroutine WAMIT2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT2_CopyInitInput' @@ -103,8 +103,8 @@ subroutine WAMIT2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%NBody = SrcInitInputData%NBody DstInitInputData%NBodyMod = SrcInitInputData%NBodyMod if (allocated(SrcInitInputData%PtfmRefxt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefxt) - UB(1:1) = ubound(SrcInitInputData%PtfmRefxt) + LB(1:1) = lbound(SrcInitInputData%PtfmRefxt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefxt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefxt)) then allocate(DstInitInputData%PtfmRefxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -115,8 +115,8 @@ subroutine WAMIT2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%PtfmRefxt = SrcInitInputData%PtfmRefxt end if if (allocated(SrcInitInputData%PtfmRefyt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefyt) - UB(1:1) = ubound(SrcInitInputData%PtfmRefyt) + LB(1:1) = lbound(SrcInitInputData%PtfmRefyt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefyt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefyt)) then allocate(DstInitInputData%PtfmRefyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -127,8 +127,8 @@ subroutine WAMIT2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%PtfmRefyt = SrcInitInputData%PtfmRefyt end if if (allocated(SrcInitInputData%PtfmRefzt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefzt) - UB(1:1) = ubound(SrcInitInputData%PtfmRefzt) + LB(1:1) = lbound(SrcInitInputData%PtfmRefzt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefzt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefzt)) then allocate(DstInitInputData%PtfmRefzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -139,8 +139,8 @@ subroutine WAMIT2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%PtfmRefzt = SrcInitInputData%PtfmRefzt end if if (allocated(SrcInitInputData%PtfmRefztRot)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -199,22 +199,22 @@ subroutine WAMIT2_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NBodyMod) call RegPack(Buf, allocated(InData%PtfmRefxt)) if (allocated(InData%PtfmRefxt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefxt), ubound(InData%PtfmRefxt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefxt, kind=B8Ki), ubound(InData%PtfmRefxt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefxt) end if call RegPack(Buf, allocated(InData%PtfmRefyt)) if (allocated(InData%PtfmRefyt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefyt), ubound(InData%PtfmRefyt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefyt, kind=B8Ki), ubound(InData%PtfmRefyt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefyt) end if call RegPack(Buf, allocated(InData%PtfmRefzt)) if (allocated(InData%PtfmRefzt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefzt), ubound(InData%PtfmRefzt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefzt, kind=B8Ki), ubound(InData%PtfmRefzt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefzt) end if call RegPack(Buf, allocated(InData%PtfmRefztRot)) if (allocated(InData%PtfmRefztRot)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot), ubound(InData%PtfmRefztRot)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot, kind=B8Ki), ubound(InData%PtfmRefztRot, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefztRot) end if call RegPack(Buf, InData%WAMITULEN) @@ -241,10 +241,10 @@ subroutine WAMIT2_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT2_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT2_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%HasWAMIT) @@ -359,14 +359,14 @@ subroutine WAMIT2_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WAMIT2_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%LastIndWave)) then - LB(1:1) = lbound(SrcMiscData%LastIndWave) - UB(1:1) = ubound(SrcMiscData%LastIndWave) + LB(1:1) = lbound(SrcMiscData%LastIndWave, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LastIndWave, kind=B8Ki) if (.not. allocated(DstMiscData%LastIndWave)) then allocate(DstMiscData%LastIndWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -377,8 +377,8 @@ subroutine WAMIT2_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LastIndWave = SrcMiscData%LastIndWave end if if (allocated(SrcMiscData%F_Waves2)) then - LB(1:1) = lbound(SrcMiscData%F_Waves2) - UB(1:1) = ubound(SrcMiscData%F_Waves2) + LB(1:1) = lbound(SrcMiscData%F_Waves2, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_Waves2, kind=B8Ki) if (.not. allocated(DstMiscData%F_Waves2)) then allocate(DstMiscData%F_Waves2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -412,12 +412,12 @@ subroutine WAMIT2_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%LastIndWave)) if (allocated(InData%LastIndWave)) then - call RegPackBounds(Buf, 1, lbound(InData%LastIndWave), ubound(InData%LastIndWave)) + call RegPackBounds(Buf, 1, lbound(InData%LastIndWave, kind=B8Ki), ubound(InData%LastIndWave, kind=B8Ki)) call RegPack(Buf, InData%LastIndWave) end if call RegPack(Buf, allocated(InData%F_Waves2)) if (allocated(InData%F_Waves2)) then - call RegPackBounds(Buf, 1, lbound(InData%F_Waves2), ubound(InData%F_Waves2)) + call RegPackBounds(Buf, 1, lbound(InData%F_Waves2, kind=B8Ki), ubound(InData%F_Waves2, kind=B8Ki)) call RegPack(Buf, InData%F_Waves2) end if if (RegCheckErr(Buf, RoutineName)) return @@ -427,7 +427,7 @@ subroutine WAMIT2_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT2_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT2_UnPackMisc' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -467,7 +467,7 @@ subroutine WAMIT2_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WAMIT2_CopyParam' ErrStat = ErrID_None @@ -475,8 +475,8 @@ subroutine WAMIT2_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%NBody = SrcParamData%NBody DstParamData%NBodyMod = SrcParamData%NBodyMod if (allocated(SrcParamData%WaveExctn2)) then - LB(1:2) = lbound(SrcParamData%WaveExctn2) - UB(1:2) = ubound(SrcParamData%WaveExctn2) + LB(1:2) = lbound(SrcParamData%WaveExctn2, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%WaveExctn2, kind=B8Ki) if (.not. allocated(DstParamData%WaveExctn2)) then allocate(DstParamData%WaveExctn2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -517,7 +517,7 @@ subroutine WAMIT2_PackParam(Buf, Indata) call RegPack(Buf, InData%NBodyMod) call RegPack(Buf, allocated(InData%WaveExctn2)) if (allocated(InData%WaveExctn2)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveExctn2), ubound(InData%WaveExctn2)) + call RegPackBounds(Buf, 2, lbound(InData%WaveExctn2, kind=B8Ki), ubound(InData%WaveExctn2, kind=B8Ki)) call RegPack(Buf, InData%WaveExctn2) end if call RegPack(Buf, InData%MnDriftDims) @@ -535,7 +535,7 @@ subroutine WAMIT2_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT2_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT2_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/WAMIT_Types.f90 b/modules/hydrodyn/src/WAMIT_Types.f90 index 5ec3700014..d801d3ad76 100644 --- a/modules/hydrodyn/src/WAMIT_Types.f90 +++ b/modules/hydrodyn/src/WAMIT_Types.f90 @@ -147,7 +147,7 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyInitInput' @@ -157,8 +157,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%NBodyMod = SrcInitInputData%NBodyMod DstInitInputData%Gravity = SrcInitInputData%Gravity if (allocated(SrcInitInputData%PtfmVol0)) then - LB(1:1) = lbound(SrcInitInputData%PtfmVol0) - UB(1:1) = ubound(SrcInitInputData%PtfmVol0) + LB(1:1) = lbound(SrcInitInputData%PtfmVol0, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmVol0, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmVol0)) then allocate(DstInitInputData%PtfmVol0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -171,8 +171,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%HasWAMIT = SrcInitInputData%HasWAMIT DstInitInputData%WAMITULEN = SrcInitInputData%WAMITULEN if (allocated(SrcInitInputData%PtfmRefxt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefxt) - UB(1:1) = ubound(SrcInitInputData%PtfmRefxt) + LB(1:1) = lbound(SrcInitInputData%PtfmRefxt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefxt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefxt)) then allocate(DstInitInputData%PtfmRefxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -183,8 +183,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%PtfmRefxt = SrcInitInputData%PtfmRefxt end if if (allocated(SrcInitInputData%PtfmRefyt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefyt) - UB(1:1) = ubound(SrcInitInputData%PtfmRefyt) + LB(1:1) = lbound(SrcInitInputData%PtfmRefyt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefyt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefyt)) then allocate(DstInitInputData%PtfmRefyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -195,8 +195,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%PtfmRefyt = SrcInitInputData%PtfmRefyt end if if (allocated(SrcInitInputData%PtfmRefzt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefzt) - UB(1:1) = ubound(SrcInitInputData%PtfmRefzt) + LB(1:1) = lbound(SrcInitInputData%PtfmRefzt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefzt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefzt)) then allocate(DstInitInputData%PtfmRefzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -207,8 +207,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%PtfmRefzt = SrcInitInputData%PtfmRefzt end if if (allocated(SrcInitInputData%PtfmRefztRot)) then - LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -219,8 +219,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%PtfmRefztRot = SrcInitInputData%PtfmRefztRot end if if (allocated(SrcInitInputData%PtfmCOBxt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmCOBxt) - UB(1:1) = ubound(SrcInitInputData%PtfmCOBxt) + LB(1:1) = lbound(SrcInitInputData%PtfmCOBxt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmCOBxt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmCOBxt)) then allocate(DstInitInputData%PtfmCOBxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -231,8 +231,8 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%PtfmCOBxt = SrcInitInputData%PtfmCOBxt end if if (allocated(SrcInitInputData%PtfmCOByt)) then - LB(1:1) = lbound(SrcInitInputData%PtfmCOByt) - UB(1:1) = ubound(SrcInitInputData%PtfmCOByt) + LB(1:1) = lbound(SrcInitInputData%PtfmCOByt, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%PtfmCOByt, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmCOByt)) then allocate(DstInitInputData%PtfmCOByt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -300,39 +300,39 @@ subroutine WAMIT_PackInitInput(Buf, Indata) call RegPack(Buf, InData%Gravity) call RegPack(Buf, allocated(InData%PtfmVol0)) if (allocated(InData%PtfmVol0)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmVol0), ubound(InData%PtfmVol0)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmVol0, kind=B8Ki), ubound(InData%PtfmVol0, kind=B8Ki)) call RegPack(Buf, InData%PtfmVol0) end if call RegPack(Buf, InData%HasWAMIT) call RegPack(Buf, InData%WAMITULEN) call RegPack(Buf, allocated(InData%PtfmRefxt)) if (allocated(InData%PtfmRefxt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefxt), ubound(InData%PtfmRefxt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefxt, kind=B8Ki), ubound(InData%PtfmRefxt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefxt) end if call RegPack(Buf, allocated(InData%PtfmRefyt)) if (allocated(InData%PtfmRefyt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefyt), ubound(InData%PtfmRefyt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefyt, kind=B8Ki), ubound(InData%PtfmRefyt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefyt) end if call RegPack(Buf, allocated(InData%PtfmRefzt)) if (allocated(InData%PtfmRefzt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefzt), ubound(InData%PtfmRefzt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefzt, kind=B8Ki), ubound(InData%PtfmRefzt, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefzt) end if call RegPack(Buf, allocated(InData%PtfmRefztRot)) if (allocated(InData%PtfmRefztRot)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot), ubound(InData%PtfmRefztRot)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmRefztRot, kind=B8Ki), ubound(InData%PtfmRefztRot, kind=B8Ki)) call RegPack(Buf, InData%PtfmRefztRot) end if call RegPack(Buf, allocated(InData%PtfmCOBxt)) if (allocated(InData%PtfmCOBxt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmCOBxt), ubound(InData%PtfmCOBxt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmCOBxt, kind=B8Ki), ubound(InData%PtfmCOBxt, kind=B8Ki)) call RegPack(Buf, InData%PtfmCOBxt) end if call RegPack(Buf, allocated(InData%PtfmCOByt)) if (allocated(InData%PtfmCOByt)) then - call RegPackBounds(Buf, 1, lbound(InData%PtfmCOByt), ubound(InData%PtfmCOByt)) + call RegPackBounds(Buf, 1, lbound(InData%PtfmCOByt, kind=B8Ki), ubound(InData%PtfmCOByt, kind=B8Ki)) call RegPack(Buf, InData%PtfmCOByt) end if call RegPack(Buf, InData%RdtnMod) @@ -356,10 +356,10 @@ subroutine WAMIT_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%NBody) @@ -571,7 +571,7 @@ subroutine WAMIT_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyDiscState' @@ -587,8 +587,8 @@ subroutine WAMIT_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcDiscStateData%BdyPosFilt)) then - LB(1:3) = lbound(SrcDiscStateData%BdyPosFilt) - UB(1:3) = ubound(SrcDiscStateData%BdyPosFilt) + LB(1:3) = lbound(SrcDiscStateData%BdyPosFilt, kind=B8Ki) + UB(1:3) = ubound(SrcDiscStateData%BdyPosFilt, kind=B8Ki) if (.not. allocated(DstDiscStateData%BdyPosFilt)) then allocate(DstDiscStateData%BdyPosFilt(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -630,7 +630,7 @@ subroutine WAMIT_PackDiscState(Buf, Indata) call SS_Exc_PackDiscState(Buf, InData%SS_Exctn) call RegPack(Buf, allocated(InData%BdyPosFilt)) if (allocated(InData%BdyPosFilt)) then - call RegPackBounds(Buf, 3, lbound(InData%BdyPosFilt), ubound(InData%BdyPosFilt)) + call RegPackBounds(Buf, 3, lbound(InData%BdyPosFilt, kind=B8Ki), ubound(InData%BdyPosFilt, kind=B8Ki)) call RegPack(Buf, InData%BdyPosFilt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -640,7 +640,7 @@ subroutine WAMIT_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackDiscState' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -789,7 +789,7 @@ subroutine WAMIT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyMisc' @@ -797,8 +797,8 @@ subroutine WAMIT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) ErrMsg = '' DstMiscData%LastIndWave = SrcMiscData%LastIndWave if (allocated(SrcMiscData%F_HS)) then - LB(1:1) = lbound(SrcMiscData%F_HS) - UB(1:1) = ubound(SrcMiscData%F_HS) + LB(1:1) = lbound(SrcMiscData%F_HS, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_HS, kind=B8Ki) if (.not. allocated(DstMiscData%F_HS)) then allocate(DstMiscData%F_HS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -809,8 +809,8 @@ subroutine WAMIT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_HS = SrcMiscData%F_HS end if if (allocated(SrcMiscData%F_Waves1)) then - LB(1:1) = lbound(SrcMiscData%F_Waves1) - UB(1:1) = ubound(SrcMiscData%F_Waves1) + LB(1:1) = lbound(SrcMiscData%F_Waves1, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_Waves1, kind=B8Ki) if (.not. allocated(DstMiscData%F_Waves1)) then allocate(DstMiscData%F_Waves1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -821,8 +821,8 @@ subroutine WAMIT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_Waves1 = SrcMiscData%F_Waves1 end if if (allocated(SrcMiscData%F_Rdtn)) then - LB(1:1) = lbound(SrcMiscData%F_Rdtn) - UB(1:1) = ubound(SrcMiscData%F_Rdtn) + LB(1:1) = lbound(SrcMiscData%F_Rdtn, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_Rdtn, kind=B8Ki) if (.not. allocated(DstMiscData%F_Rdtn)) then allocate(DstMiscData%F_Rdtn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -833,8 +833,8 @@ subroutine WAMIT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_Rdtn = SrcMiscData%F_Rdtn end if if (allocated(SrcMiscData%F_PtfmAM)) then - LB(1:1) = lbound(SrcMiscData%F_PtfmAM) - UB(1:1) = ubound(SrcMiscData%F_PtfmAM) + LB(1:1) = lbound(SrcMiscData%F_PtfmAM, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_PtfmAM, kind=B8Ki) if (.not. allocated(DstMiscData%F_PtfmAM)) then allocate(DstMiscData%F_PtfmAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -927,22 +927,22 @@ subroutine WAMIT_PackMisc(Buf, Indata) call RegPack(Buf, InData%LastIndWave) call RegPack(Buf, allocated(InData%F_HS)) if (allocated(InData%F_HS)) then - call RegPackBounds(Buf, 1, lbound(InData%F_HS), ubound(InData%F_HS)) + call RegPackBounds(Buf, 1, lbound(InData%F_HS, kind=B8Ki), ubound(InData%F_HS, kind=B8Ki)) call RegPack(Buf, InData%F_HS) end if call RegPack(Buf, allocated(InData%F_Waves1)) if (allocated(InData%F_Waves1)) then - call RegPackBounds(Buf, 1, lbound(InData%F_Waves1), ubound(InData%F_Waves1)) + call RegPackBounds(Buf, 1, lbound(InData%F_Waves1, kind=B8Ki), ubound(InData%F_Waves1, kind=B8Ki)) call RegPack(Buf, InData%F_Waves1) end if call RegPack(Buf, allocated(InData%F_Rdtn)) if (allocated(InData%F_Rdtn)) then - call RegPackBounds(Buf, 1, lbound(InData%F_Rdtn), ubound(InData%F_Rdtn)) + call RegPackBounds(Buf, 1, lbound(InData%F_Rdtn, kind=B8Ki), ubound(InData%F_Rdtn, kind=B8Ki)) call RegPack(Buf, InData%F_Rdtn) end if call RegPack(Buf, allocated(InData%F_PtfmAM)) if (allocated(InData%F_PtfmAM)) then - call RegPackBounds(Buf, 1, lbound(InData%F_PtfmAM), ubound(InData%F_PtfmAM)) + call RegPackBounds(Buf, 1, lbound(InData%F_PtfmAM, kind=B8Ki), ubound(InData%F_PtfmAM, kind=B8Ki)) call RegPack(Buf, InData%F_PtfmAM) end if call SS_Rad_PackMisc(Buf, InData%SS_Rdtn) @@ -962,7 +962,7 @@ subroutine WAMIT_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackMisc' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1042,7 +1042,7 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyParam' @@ -1051,8 +1051,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%NBody = SrcParamData%NBody DstParamData%NBodyMod = SrcParamData%NBodyMod if (allocated(SrcParamData%F_HS_Moment_Offset)) then - LB(1:2) = lbound(SrcParamData%F_HS_Moment_Offset) - UB(1:2) = ubound(SrcParamData%F_HS_Moment_Offset) + LB(1:2) = lbound(SrcParamData%F_HS_Moment_Offset, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%F_HS_Moment_Offset, kind=B8Ki) if (.not. allocated(DstParamData%F_HS_Moment_Offset)) then allocate(DstParamData%F_HS_Moment_Offset(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1063,8 +1063,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%F_HS_Moment_Offset = SrcParamData%F_HS_Moment_Offset end if if (allocated(SrcParamData%HdroAdMsI)) then - LB(1:2) = lbound(SrcParamData%HdroAdMsI) - UB(1:2) = ubound(SrcParamData%HdroAdMsI) + LB(1:2) = lbound(SrcParamData%HdroAdMsI, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%HdroAdMsI, kind=B8Ki) if (.not. allocated(DstParamData%HdroAdMsI)) then allocate(DstParamData%HdroAdMsI(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1075,8 +1075,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%HdroAdMsI = SrcParamData%HdroAdMsI end if if (allocated(SrcParamData%HdroSttc)) then - LB(1:2) = lbound(SrcParamData%HdroSttc) - UB(1:2) = ubound(SrcParamData%HdroSttc) + LB(1:2) = lbound(SrcParamData%HdroSttc, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%HdroSttc, kind=B8Ki) if (.not. allocated(DstParamData%HdroSttc)) then allocate(DstParamData%HdroSttc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1092,8 +1092,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%ExctnCutOff = SrcParamData%ExctnCutOff DstParamData%ExctnFiltConst = SrcParamData%ExctnFiltConst if (allocated(SrcParamData%WaveExctn)) then - LB(1:2) = lbound(SrcParamData%WaveExctn) - UB(1:2) = ubound(SrcParamData%WaveExctn) + LB(1:2) = lbound(SrcParamData%WaveExctn, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%WaveExctn, kind=B8Ki) if (.not. allocated(DstParamData%WaveExctn)) then allocate(DstParamData%WaveExctn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1104,8 +1104,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%WaveExctn = SrcParamData%WaveExctn end if if (allocated(SrcParamData%WaveExctnGrid)) then - LB(1:4) = lbound(SrcParamData%WaveExctnGrid) - UB(1:4) = ubound(SrcParamData%WaveExctnGrid) + LB(1:4) = lbound(SrcParamData%WaveExctnGrid, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%WaveExctnGrid, kind=B8Ki) if (.not. allocated(DstParamData%WaveExctnGrid)) then allocate(DstParamData%WaveExctnGrid(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1171,17 +1171,17 @@ subroutine WAMIT_PackParam(Buf, Indata) call RegPack(Buf, InData%NBodyMod) call RegPack(Buf, allocated(InData%F_HS_Moment_Offset)) if (allocated(InData%F_HS_Moment_Offset)) then - call RegPackBounds(Buf, 2, lbound(InData%F_HS_Moment_Offset), ubound(InData%F_HS_Moment_Offset)) + call RegPackBounds(Buf, 2, lbound(InData%F_HS_Moment_Offset, kind=B8Ki), ubound(InData%F_HS_Moment_Offset, kind=B8Ki)) call RegPack(Buf, InData%F_HS_Moment_Offset) end if call RegPack(Buf, allocated(InData%HdroAdMsI)) if (allocated(InData%HdroAdMsI)) then - call RegPackBounds(Buf, 2, lbound(InData%HdroAdMsI), ubound(InData%HdroAdMsI)) + call RegPackBounds(Buf, 2, lbound(InData%HdroAdMsI, kind=B8Ki), ubound(InData%HdroAdMsI, kind=B8Ki)) call RegPack(Buf, InData%HdroAdMsI) end if call RegPack(Buf, allocated(InData%HdroSttc)) if (allocated(InData%HdroSttc)) then - call RegPackBounds(Buf, 2, lbound(InData%HdroSttc), ubound(InData%HdroSttc)) + call RegPackBounds(Buf, 2, lbound(InData%HdroSttc, kind=B8Ki), ubound(InData%HdroSttc, kind=B8Ki)) call RegPack(Buf, InData%HdroSttc) end if call RegPack(Buf, InData%RdtnMod) @@ -1191,12 +1191,12 @@ subroutine WAMIT_PackParam(Buf, Indata) call RegPack(Buf, InData%ExctnFiltConst) call RegPack(Buf, allocated(InData%WaveExctn)) if (allocated(InData%WaveExctn)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveExctn), ubound(InData%WaveExctn)) + call RegPackBounds(Buf, 2, lbound(InData%WaveExctn, kind=B8Ki), ubound(InData%WaveExctn, kind=B8Ki)) call RegPack(Buf, InData%WaveExctn) end if call RegPack(Buf, allocated(InData%WaveExctnGrid)) if (allocated(InData%WaveExctnGrid)) then - call RegPackBounds(Buf, 4, lbound(InData%WaveExctnGrid), ubound(InData%WaveExctnGrid)) + call RegPackBounds(Buf, 4, lbound(InData%WaveExctnGrid, kind=B8Ki), ubound(InData%WaveExctnGrid, kind=B8Ki)) call RegPack(Buf, InData%WaveExctnGrid) end if call Conv_Rdtn_PackParam(Buf, InData%Conv_Rdtn) @@ -1217,10 +1217,10 @@ subroutine WAMIT_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WAMIT_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackParam' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%NBody) diff --git a/modules/icedyn/src/IceDyn_Types.f90 b/modules/icedyn/src/IceDyn_Types.f90 index 56e7b92ace..299b42c9a0 100644 --- a/modules/icedyn/src/IceDyn_Types.f90 +++ b/modules/icedyn/src/IceDyn_Types.f90 @@ -232,7 +232,7 @@ subroutine IceD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IceD_CopyInputFile' ErrStat = ErrID_None @@ -249,8 +249,8 @@ subroutine IceD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%Seed2 = SrcInputFileData%Seed2 DstInputFileData%NumLegs = SrcInputFileData%NumLegs if (allocated(SrcInputFileData%LegPosX)) then - LB(1:1) = lbound(SrcInputFileData%LegPosX) - UB(1:1) = ubound(SrcInputFileData%LegPosX) + LB(1:1) = lbound(SrcInputFileData%LegPosX, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LegPosX, kind=B8Ki) if (.not. allocated(DstInputFileData%LegPosX)) then allocate(DstInputFileData%LegPosX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -261,8 +261,8 @@ subroutine IceD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LegPosX = SrcInputFileData%LegPosX end if if (allocated(SrcInputFileData%LegPosY)) then - LB(1:1) = lbound(SrcInputFileData%LegPosY) - UB(1:1) = ubound(SrcInputFileData%LegPosY) + LB(1:1) = lbound(SrcInputFileData%LegPosY, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%LegPosY, kind=B8Ki) if (.not. allocated(DstInputFileData%LegPosY)) then allocate(DstInputFileData%LegPosY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -273,8 +273,8 @@ subroutine IceD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%LegPosY = SrcInputFileData%LegPosY end if if (allocated(SrcInputFileData%StrWd)) then - LB(1:1) = lbound(SrcInputFileData%StrWd) - UB(1:1) = ubound(SrcInputFileData%StrWd) + LB(1:1) = lbound(SrcInputFileData%StrWd, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%StrWd, kind=B8Ki) if (.not. allocated(DstInputFileData%StrWd)) then allocate(DstInputFileData%StrWd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -368,17 +368,17 @@ subroutine IceD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumLegs) call RegPack(Buf, allocated(InData%LegPosX)) if (allocated(InData%LegPosX)) then - call RegPackBounds(Buf, 1, lbound(InData%LegPosX), ubound(InData%LegPosX)) + call RegPackBounds(Buf, 1, lbound(InData%LegPosX, kind=B8Ki), ubound(InData%LegPosX, kind=B8Ki)) call RegPack(Buf, InData%LegPosX) end if call RegPack(Buf, allocated(InData%LegPosY)) if (allocated(InData%LegPosY)) then - call RegPackBounds(Buf, 1, lbound(InData%LegPosY), ubound(InData%LegPosY)) + call RegPackBounds(Buf, 1, lbound(InData%LegPosY, kind=B8Ki), ubound(InData%LegPosY, kind=B8Ki)) call RegPack(Buf, InData%LegPosY) end if call RegPack(Buf, allocated(InData%StrWd)) if (allocated(InData%StrWd)) then - call RegPackBounds(Buf, 1, lbound(InData%StrWd), ubound(InData%StrWd)) + call RegPackBounds(Buf, 1, lbound(InData%StrWd, kind=B8Ki), ubound(InData%StrWd, kind=B8Ki)) call RegPack(Buf, InData%StrWd) end if call RegPack(Buf, InData%Ikm) @@ -434,7 +434,7 @@ subroutine IceD_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackInputFile' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -665,15 +665,15 @@ subroutine IceD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -684,8 +684,8 @@ subroutine IceD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -727,12 +727,12 @@ subroutine IceD_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call RegPack(Buf, InData%numLegs) @@ -744,7 +744,7 @@ subroutine IceD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -908,8 +908,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_CopyOtherState' @@ -917,8 +917,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E ErrMsg = '' DstOtherStateData%IceTthNo2 = SrcOtherStateData%IceTthNo2 if (allocated(SrcOtherStateData%Nc)) then - LB(1:1) = lbound(SrcOtherStateData%Nc) - UB(1:1) = ubound(SrcOtherStateData%Nc) + LB(1:1) = lbound(SrcOtherStateData%Nc, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Nc, kind=B8Ki) if (.not. allocated(DstOtherStateData%Nc)) then allocate(DstOtherStateData%Nc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -929,8 +929,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%Nc = SrcOtherStateData%Nc end if if (allocated(SrcOtherStateData%Psum)) then - LB(1:1) = lbound(SrcOtherStateData%Psum) - UB(1:1) = ubound(SrcOtherStateData%Psum) + LB(1:1) = lbound(SrcOtherStateData%Psum, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Psum, kind=B8Ki) if (.not. allocated(DstOtherStateData%Psum)) then allocate(DstOtherStateData%Psum(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -941,8 +941,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%Psum = SrcOtherStateData%Psum end if if (allocated(SrcOtherStateData%IceTthNo)) then - LB(1:1) = lbound(SrcOtherStateData%IceTthNo) - UB(1:1) = ubound(SrcOtherStateData%IceTthNo) + LB(1:1) = lbound(SrcOtherStateData%IceTthNo, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%IceTthNo, kind=B8Ki) if (.not. allocated(DstOtherStateData%IceTthNo)) then allocate(DstOtherStateData%IceTthNo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -957,8 +957,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%Splitf = SrcOtherStateData%Splitf DstOtherStateData%dxc = SrcOtherStateData%dxc if (allocated(SrcOtherStateData%xdot)) then - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -979,8 +979,8 @@ subroutine IceD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(IceD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_DestroyOtherState' @@ -996,8 +996,8 @@ subroutine IceD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%IceTthNo) end if if (allocated(OtherStateData%xdot)) then - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1010,23 +1010,23 @@ subroutine IceD_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(IceD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'IceD_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%IceTthNo2) call RegPack(Buf, allocated(InData%Nc)) if (allocated(InData%Nc)) then - call RegPackBounds(Buf, 1, lbound(InData%Nc), ubound(InData%Nc)) + call RegPackBounds(Buf, 1, lbound(InData%Nc, kind=B8Ki), ubound(InData%Nc, kind=B8Ki)) call RegPack(Buf, InData%Nc) end if call RegPack(Buf, allocated(InData%Psum)) if (allocated(InData%Psum)) then - call RegPackBounds(Buf, 1, lbound(InData%Psum), ubound(InData%Psum)) + call RegPackBounds(Buf, 1, lbound(InData%Psum, kind=B8Ki), ubound(InData%Psum, kind=B8Ki)) call RegPack(Buf, InData%Psum) end if call RegPack(Buf, allocated(InData%IceTthNo)) if (allocated(InData%IceTthNo)) then - call RegPackBounds(Buf, 1, lbound(InData%IceTthNo), ubound(InData%IceTthNo)) + call RegPackBounds(Buf, 1, lbound(InData%IceTthNo, kind=B8Ki), ubound(InData%IceTthNo, kind=B8Ki)) call RegPack(Buf, InData%IceTthNo) end if call RegPack(Buf, InData%Beta) @@ -1035,9 +1035,9 @@ subroutine IceD_PackOtherState(Buf, Indata) call RegPack(Buf, InData%dxc) call RegPack(Buf, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(Buf, 1, lbound(InData%xdot), ubound(InData%xdot)) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + call RegPackBounds(Buf, 1, lbound(InData%xdot, kind=B8Ki), ubound(InData%xdot, kind=B8Ki)) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_PackContState(Buf, InData%xdot(i1)) end do @@ -1050,8 +1050,8 @@ subroutine IceD_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1171,7 +1171,7 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IceD_CopyParam' ErrStat = ErrID_None @@ -1191,8 +1191,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%method = SrcParamData%method DstParamData%TmStep = SrcParamData%TmStep if (allocated(SrcParamData%OutName)) then - LB(1:1) = lbound(SrcParamData%OutName) - UB(1:1) = ubound(SrcParamData%OutName) + LB(1:1) = lbound(SrcParamData%OutName, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutName, kind=B8Ki) if (.not. allocated(DstParamData%OutName)) then allocate(DstParamData%OutName(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1203,8 +1203,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%OutName = SrcParamData%OutName end if if (allocated(SrcParamData%OutUnit)) then - LB(1:1) = lbound(SrcParamData%OutUnit) - UB(1:1) = ubound(SrcParamData%OutUnit) + LB(1:1) = lbound(SrcParamData%OutUnit, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutUnit, kind=B8Ki) if (.not. allocated(DstParamData%OutUnit)) then allocate(DstParamData%OutUnit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1228,8 +1228,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Pitch = SrcParamData%Pitch DstParamData%Kice2 = SrcParamData%Kice2 if (allocated(SrcParamData%rdmFm)) then - LB(1:1) = lbound(SrcParamData%rdmFm) - UB(1:1) = ubound(SrcParamData%rdmFm) + LB(1:1) = lbound(SrcParamData%rdmFm, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rdmFm, kind=B8Ki) if (.not. allocated(DstParamData%rdmFm)) then allocate(DstParamData%rdmFm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1240,8 +1240,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rdmFm = SrcParamData%rdmFm end if if (allocated(SrcParamData%rdmt0)) then - LB(1:1) = lbound(SrcParamData%rdmt0) - UB(1:1) = ubound(SrcParamData%rdmt0) + LB(1:1) = lbound(SrcParamData%rdmt0, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rdmt0, kind=B8Ki) if (.not. allocated(DstParamData%rdmt0)) then allocate(DstParamData%rdmt0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1252,8 +1252,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rdmt0 = SrcParamData%rdmt0 end if if (allocated(SrcParamData%rdmtm)) then - LB(1:1) = lbound(SrcParamData%rdmtm) - UB(1:1) = ubound(SrcParamData%rdmtm) + LB(1:1) = lbound(SrcParamData%rdmtm, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rdmtm, kind=B8Ki) if (.not. allocated(DstParamData%rdmtm)) then allocate(DstParamData%rdmtm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1264,8 +1264,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rdmtm = SrcParamData%rdmtm end if if (allocated(SrcParamData%rdmDm)) then - LB(1:1) = lbound(SrcParamData%rdmDm) - UB(1:1) = ubound(SrcParamData%rdmDm) + LB(1:1) = lbound(SrcParamData%rdmDm, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rdmDm, kind=B8Ki) if (.not. allocated(DstParamData%rdmDm)) then allocate(DstParamData%rdmDm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1276,8 +1276,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rdmDm = SrcParamData%rdmDm end if if (allocated(SrcParamData%rdmP)) then - LB(1:1) = lbound(SrcParamData%rdmP) - UB(1:1) = ubound(SrcParamData%rdmP) + LB(1:1) = lbound(SrcParamData%rdmP, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rdmP, kind=B8Ki) if (.not. allocated(DstParamData%rdmP)) then allocate(DstParamData%rdmP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1288,8 +1288,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rdmP = SrcParamData%rdmP end if if (allocated(SrcParamData%rdmKi)) then - LB(1:1) = lbound(SrcParamData%rdmKi) - UB(1:1) = ubound(SrcParamData%rdmKi) + LB(1:1) = lbound(SrcParamData%rdmKi, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%rdmKi, kind=B8Ki) if (.not. allocated(DstParamData%rdmKi)) then allocate(DstParamData%rdmKi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1303,8 +1303,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Kice = SrcParamData%Kice DstParamData%Delmax = SrcParamData%Delmax if (allocated(SrcParamData%Y0)) then - LB(1:1) = lbound(SrcParamData%Y0) - UB(1:1) = ubound(SrcParamData%Y0) + LB(1:1) = lbound(SrcParamData%Y0, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Y0, kind=B8Ki) if (.not. allocated(DstParamData%Y0)) then allocate(DstParamData%Y0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1315,8 +1315,8 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Y0 = SrcParamData%Y0 end if if (allocated(SrcParamData%ContPrfl)) then - LB(1:1) = lbound(SrcParamData%ContPrfl) - UB(1:1) = ubound(SrcParamData%ContPrfl) + LB(1:1) = lbound(SrcParamData%ContPrfl, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ContPrfl, kind=B8Ki) if (.not. allocated(DstParamData%ContPrfl)) then allocate(DstParamData%ContPrfl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1406,12 +1406,12 @@ subroutine IceD_PackParam(Buf, Indata) call RegPack(Buf, InData%TmStep) call RegPack(Buf, allocated(InData%OutName)) if (allocated(InData%OutName)) then - call RegPackBounds(Buf, 1, lbound(InData%OutName), ubound(InData%OutName)) + call RegPackBounds(Buf, 1, lbound(InData%OutName, kind=B8Ki), ubound(InData%OutName, kind=B8Ki)) call RegPack(Buf, InData%OutName) end if call RegPack(Buf, allocated(InData%OutUnit)) if (allocated(InData%OutUnit)) then - call RegPackBounds(Buf, 1, lbound(InData%OutUnit), ubound(InData%OutUnit)) + call RegPackBounds(Buf, 1, lbound(InData%OutUnit, kind=B8Ki), ubound(InData%OutUnit, kind=B8Ki)) call RegPack(Buf, InData%OutUnit) end if call RegPack(Buf, InData%RootName) @@ -1429,32 +1429,32 @@ subroutine IceD_PackParam(Buf, Indata) call RegPack(Buf, InData%Kice2) call RegPack(Buf, allocated(InData%rdmFm)) if (allocated(InData%rdmFm)) then - call RegPackBounds(Buf, 1, lbound(InData%rdmFm), ubound(InData%rdmFm)) + call RegPackBounds(Buf, 1, lbound(InData%rdmFm, kind=B8Ki), ubound(InData%rdmFm, kind=B8Ki)) call RegPack(Buf, InData%rdmFm) end if call RegPack(Buf, allocated(InData%rdmt0)) if (allocated(InData%rdmt0)) then - call RegPackBounds(Buf, 1, lbound(InData%rdmt0), ubound(InData%rdmt0)) + call RegPackBounds(Buf, 1, lbound(InData%rdmt0, kind=B8Ki), ubound(InData%rdmt0, kind=B8Ki)) call RegPack(Buf, InData%rdmt0) end if call RegPack(Buf, allocated(InData%rdmtm)) if (allocated(InData%rdmtm)) then - call RegPackBounds(Buf, 1, lbound(InData%rdmtm), ubound(InData%rdmtm)) + call RegPackBounds(Buf, 1, lbound(InData%rdmtm, kind=B8Ki), ubound(InData%rdmtm, kind=B8Ki)) call RegPack(Buf, InData%rdmtm) end if call RegPack(Buf, allocated(InData%rdmDm)) if (allocated(InData%rdmDm)) then - call RegPackBounds(Buf, 1, lbound(InData%rdmDm), ubound(InData%rdmDm)) + call RegPackBounds(Buf, 1, lbound(InData%rdmDm, kind=B8Ki), ubound(InData%rdmDm, kind=B8Ki)) call RegPack(Buf, InData%rdmDm) end if call RegPack(Buf, allocated(InData%rdmP)) if (allocated(InData%rdmP)) then - call RegPackBounds(Buf, 1, lbound(InData%rdmP), ubound(InData%rdmP)) + call RegPackBounds(Buf, 1, lbound(InData%rdmP, kind=B8Ki), ubound(InData%rdmP, kind=B8Ki)) call RegPack(Buf, InData%rdmP) end if call RegPack(Buf, allocated(InData%rdmKi)) if (allocated(InData%rdmKi)) then - call RegPackBounds(Buf, 1, lbound(InData%rdmKi), ubound(InData%rdmKi)) + call RegPackBounds(Buf, 1, lbound(InData%rdmKi, kind=B8Ki), ubound(InData%rdmKi, kind=B8Ki)) call RegPack(Buf, InData%rdmKi) end if call RegPack(Buf, InData%ZonePitch) @@ -1462,12 +1462,12 @@ subroutine IceD_PackParam(Buf, Indata) call RegPack(Buf, InData%Delmax) call RegPack(Buf, allocated(InData%Y0)) if (allocated(InData%Y0)) then - call RegPackBounds(Buf, 1, lbound(InData%Y0), ubound(InData%Y0)) + call RegPackBounds(Buf, 1, lbound(InData%Y0, kind=B8Ki), ubound(InData%Y0, kind=B8Ki)) call RegPack(Buf, InData%Y0) end if call RegPack(Buf, allocated(InData%ContPrfl)) if (allocated(InData%ContPrfl)) then - call RegPackBounds(Buf, 1, lbound(InData%ContPrfl), ubound(InData%ContPrfl)) + call RegPackBounds(Buf, 1, lbound(InData%ContPrfl, kind=B8Ki), ubound(InData%ContPrfl, kind=B8Ki)) call RegPack(Buf, InData%ContPrfl) end if call RegPack(Buf, InData%Zn) @@ -1495,7 +1495,7 @@ subroutine IceD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackParam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1789,7 +1789,7 @@ subroutine IceD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_CopyOutput' @@ -1799,8 +1799,8 @@ subroutine IceD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1836,7 +1836,7 @@ subroutine IceD_PackOutput(Buf, Indata) call MeshPack(Buf, InData%PointMesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1846,7 +1846,7 @@ subroutine IceD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/icefloe/src/icefloe/IceFloe_Types.f90 b/modules/icefloe/src/icefloe/IceFloe_Types.f90 index 2a7230ceb8..5d53911bed 100644 --- a/modules/icefloe/src/icefloe/IceFloe_Types.f90 +++ b/modules/icefloe/src/icefloe/IceFloe_Types.f90 @@ -171,15 +171,15 @@ subroutine IceFloe_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceFloe_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -190,8 +190,8 @@ subroutine IceFloe_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -232,12 +232,12 @@ subroutine IceFloe_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) @@ -248,7 +248,7 @@ subroutine IceFloe_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceFloe_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceFloe_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -484,14 +484,14 @@ subroutine IceFloe_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IceFloe_CopyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcParamData%loadSeries)) then - LB(1:2) = lbound(SrcParamData%loadSeries) - UB(1:2) = ubound(SrcParamData%loadSeries) + LB(1:2) = lbound(SrcParamData%loadSeries, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%loadSeries, kind=B8Ki) if (.not. allocated(DstParamData%loadSeries)) then allocate(DstParamData%loadSeries(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -512,8 +512,8 @@ subroutine IceFloe_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%dt = SrcParamData%dt DstParamData%rampTime = SrcParamData%rampTime if (allocated(SrcParamData%legX)) then - LB(1:1) = lbound(SrcParamData%legX) - UB(1:1) = ubound(SrcParamData%legX) + LB(1:1) = lbound(SrcParamData%legX, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%legX, kind=B8Ki) if (.not. allocated(DstParamData%legX)) then allocate(DstParamData%legX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -524,8 +524,8 @@ subroutine IceFloe_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%legX = SrcParamData%legX end if if (allocated(SrcParamData%legY)) then - LB(1:1) = lbound(SrcParamData%legY) - UB(1:1) = ubound(SrcParamData%legY) + LB(1:1) = lbound(SrcParamData%legY, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%legY, kind=B8Ki) if (.not. allocated(DstParamData%legY)) then allocate(DstParamData%legY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -536,8 +536,8 @@ subroutine IceFloe_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%legY = SrcParamData%legY end if if (allocated(SrcParamData%ks)) then - LB(1:1) = lbound(SrcParamData%ks) - UB(1:1) = ubound(SrcParamData%ks) + LB(1:1) = lbound(SrcParamData%ks, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ks, kind=B8Ki) if (.not. allocated(DstParamData%ks)) then allocate(DstParamData%ks(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -582,7 +582,7 @@ subroutine IceFloe_PackParam(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%loadSeries)) if (allocated(InData%loadSeries)) then - call RegPackBounds(Buf, 2, lbound(InData%loadSeries), ubound(InData%loadSeries)) + call RegPackBounds(Buf, 2, lbound(InData%loadSeries, kind=B8Ki), ubound(InData%loadSeries, kind=B8Ki)) call RegPack(Buf, InData%loadSeries) end if call RegPack(Buf, InData%iceVel) @@ -597,17 +597,17 @@ subroutine IceFloe_PackParam(Buf, Indata) call RegPack(Buf, InData%rampTime) call RegPack(Buf, allocated(InData%legX)) if (allocated(InData%legX)) then - call RegPackBounds(Buf, 1, lbound(InData%legX), ubound(InData%legX)) + call RegPackBounds(Buf, 1, lbound(InData%legX, kind=B8Ki), ubound(InData%legX, kind=B8Ki)) call RegPack(Buf, InData%legX) end if call RegPack(Buf, allocated(InData%legY)) if (allocated(InData%legY)) then - call RegPackBounds(Buf, 1, lbound(InData%legY), ubound(InData%legY)) + call RegPackBounds(Buf, 1, lbound(InData%legY, kind=B8Ki), ubound(InData%legY, kind=B8Ki)) call RegPack(Buf, InData%legY) end if call RegPack(Buf, allocated(InData%ks)) if (allocated(InData%ks)) then - call RegPackBounds(Buf, 1, lbound(InData%ks), ubound(InData%ks)) + call RegPackBounds(Buf, 1, lbound(InData%ks, kind=B8Ki), ubound(InData%ks, kind=B8Ki)) call RegPack(Buf, InData%ks) end if call RegPack(Buf, InData%numLegs) @@ -622,7 +622,7 @@ subroutine IceFloe_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceFloe_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceFloe_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -766,7 +766,7 @@ subroutine IceFloe_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceFloe_CopyOutput' @@ -776,8 +776,8 @@ subroutine IceFloe_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -813,7 +813,7 @@ subroutine IceFloe_PackOutput(Buf, Indata) call MeshPack(Buf, InData%iceMesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -823,7 +823,7 @@ subroutine IceFloe_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceFloe_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceFloe_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/inflowwind/src/IfW_FlowField_Types.f90 b/modules/inflowwind/src/IfW_FlowField_Types.f90 index bb8a9b991f..415a47a057 100644 --- a/modules/inflowwind/src/IfW_FlowField_Types.f90 +++ b/modules/inflowwind/src/IfW_FlowField_Types.f90 @@ -172,7 +172,7 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IfW_FlowField_CopyUniformFieldType' ErrStat = ErrID_None @@ -181,8 +181,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%RefLength = SrcUniformFieldTypeData%RefLength DstUniformFieldTypeData%DataSize = SrcUniformFieldTypeData%DataSize if (allocated(SrcUniformFieldTypeData%Time)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%Time) - UB(1:1) = ubound(SrcUniformFieldTypeData%Time) + LB(1:1) = lbound(SrcUniformFieldTypeData%Time, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%Time, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%Time)) then allocate(DstUniformFieldTypeData%Time(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -193,8 +193,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%Time = SrcUniformFieldTypeData%Time end if if (allocated(SrcUniformFieldTypeData%VelH)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%VelH) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelH) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelH, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelH, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%VelH)) then allocate(DstUniformFieldTypeData%VelH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -205,8 +205,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%VelH = SrcUniformFieldTypeData%VelH end if if (allocated(SrcUniformFieldTypeData%VelHDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%VelHDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelHDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelHDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelHDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%VelHDot)) then allocate(DstUniformFieldTypeData%VelHDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -217,8 +217,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%VelHDot = SrcUniformFieldTypeData%VelHDot end if if (allocated(SrcUniformFieldTypeData%VelV)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%VelV) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelV) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelV, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelV, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%VelV)) then allocate(DstUniformFieldTypeData%VelV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -229,8 +229,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%VelV = SrcUniformFieldTypeData%VelV end if if (allocated(SrcUniformFieldTypeData%VelVDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%VelVDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelVDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelVDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelVDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%VelVDot)) then allocate(DstUniformFieldTypeData%VelVDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -241,8 +241,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%VelVDot = SrcUniformFieldTypeData%VelVDot end if if (allocated(SrcUniformFieldTypeData%VelGust)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%VelGust) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelGust) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelGust, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelGust, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%VelGust)) then allocate(DstUniformFieldTypeData%VelGust(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -253,8 +253,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%VelGust = SrcUniformFieldTypeData%VelGust end if if (allocated(SrcUniformFieldTypeData%VelGustDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%VelGustDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelGustDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelGustDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelGustDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%VelGustDot)) then allocate(DstUniformFieldTypeData%VelGustDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -265,8 +265,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%VelGustDot = SrcUniformFieldTypeData%VelGustDot end if if (allocated(SrcUniformFieldTypeData%AngleH)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%AngleH) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleH) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleH, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleH, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%AngleH)) then allocate(DstUniformFieldTypeData%AngleH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -277,8 +277,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%AngleH = SrcUniformFieldTypeData%AngleH end if if (allocated(SrcUniformFieldTypeData%AngleHDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%AngleHDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleHDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleHDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleHDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%AngleHDot)) then allocate(DstUniformFieldTypeData%AngleHDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -289,8 +289,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%AngleHDot = SrcUniformFieldTypeData%AngleHDot end if if (allocated(SrcUniformFieldTypeData%AngleV)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%AngleV) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleV) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleV, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleV, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%AngleV)) then allocate(DstUniformFieldTypeData%AngleV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -301,8 +301,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%AngleV = SrcUniformFieldTypeData%AngleV end if if (allocated(SrcUniformFieldTypeData%AngleVDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%AngleVDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleVDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleVDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleVDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%AngleVDot)) then allocate(DstUniformFieldTypeData%AngleVDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -313,8 +313,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%AngleVDot = SrcUniformFieldTypeData%AngleVDot end if if (allocated(SrcUniformFieldTypeData%ShrH)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%ShrH) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrH) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrH, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrH, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%ShrH)) then allocate(DstUniformFieldTypeData%ShrH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -325,8 +325,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%ShrH = SrcUniformFieldTypeData%ShrH end if if (allocated(SrcUniformFieldTypeData%ShrHDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%ShrHDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrHDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrHDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrHDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%ShrHDot)) then allocate(DstUniformFieldTypeData%ShrHDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -337,8 +337,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%ShrHDot = SrcUniformFieldTypeData%ShrHDot end if if (allocated(SrcUniformFieldTypeData%ShrV)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%ShrV) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrV) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrV, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrV, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%ShrV)) then allocate(DstUniformFieldTypeData%ShrV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -349,8 +349,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%ShrV = SrcUniformFieldTypeData%ShrV end if if (allocated(SrcUniformFieldTypeData%ShrVDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%ShrVDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrVDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrVDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrVDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%ShrVDot)) then allocate(DstUniformFieldTypeData%ShrVDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -361,8 +361,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%ShrVDot = SrcUniformFieldTypeData%ShrVDot end if if (allocated(SrcUniformFieldTypeData%LinShrV)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%LinShrV) - UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrV) + LB(1:1) = lbound(SrcUniformFieldTypeData%LinShrV, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrV, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%LinShrV)) then allocate(DstUniformFieldTypeData%LinShrV(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -373,8 +373,8 @@ subroutine IfW_FlowField_CopyUniformFieldType(SrcUniformFieldTypeData, DstUnifor DstUniformFieldTypeData%LinShrV = SrcUniformFieldTypeData%LinShrV end if if (allocated(SrcUniformFieldTypeData%LinShrVDot)) then - LB(1:1) = lbound(SrcUniformFieldTypeData%LinShrVDot) - UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrVDot) + LB(1:1) = lbound(SrcUniformFieldTypeData%LinShrVDot, kind=B8Ki) + UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrVDot, kind=B8Ki) if (.not. allocated(DstUniformFieldTypeData%LinShrVDot)) then allocate(DstUniformFieldTypeData%LinShrVDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -456,87 +456,87 @@ subroutine IfW_FlowField_PackUniformFieldType(Buf, Indata) call RegPack(Buf, InData%DataSize) call RegPack(Buf, allocated(InData%Time)) if (allocated(InData%Time)) then - call RegPackBounds(Buf, 1, lbound(InData%Time), ubound(InData%Time)) + call RegPackBounds(Buf, 1, lbound(InData%Time, kind=B8Ki), ubound(InData%Time, kind=B8Ki)) call RegPack(Buf, InData%Time) end if call RegPack(Buf, allocated(InData%VelH)) if (allocated(InData%VelH)) then - call RegPackBounds(Buf, 1, lbound(InData%VelH), ubound(InData%VelH)) + call RegPackBounds(Buf, 1, lbound(InData%VelH, kind=B8Ki), ubound(InData%VelH, kind=B8Ki)) call RegPack(Buf, InData%VelH) end if call RegPack(Buf, allocated(InData%VelHDot)) if (allocated(InData%VelHDot)) then - call RegPackBounds(Buf, 1, lbound(InData%VelHDot), ubound(InData%VelHDot)) + call RegPackBounds(Buf, 1, lbound(InData%VelHDot, kind=B8Ki), ubound(InData%VelHDot, kind=B8Ki)) call RegPack(Buf, InData%VelHDot) end if call RegPack(Buf, allocated(InData%VelV)) if (allocated(InData%VelV)) then - call RegPackBounds(Buf, 1, lbound(InData%VelV), ubound(InData%VelV)) + call RegPackBounds(Buf, 1, lbound(InData%VelV, kind=B8Ki), ubound(InData%VelV, kind=B8Ki)) call RegPack(Buf, InData%VelV) end if call RegPack(Buf, allocated(InData%VelVDot)) if (allocated(InData%VelVDot)) then - call RegPackBounds(Buf, 1, lbound(InData%VelVDot), ubound(InData%VelVDot)) + call RegPackBounds(Buf, 1, lbound(InData%VelVDot, kind=B8Ki), ubound(InData%VelVDot, kind=B8Ki)) call RegPack(Buf, InData%VelVDot) end if call RegPack(Buf, allocated(InData%VelGust)) if (allocated(InData%VelGust)) then - call RegPackBounds(Buf, 1, lbound(InData%VelGust), ubound(InData%VelGust)) + call RegPackBounds(Buf, 1, lbound(InData%VelGust, kind=B8Ki), ubound(InData%VelGust, kind=B8Ki)) call RegPack(Buf, InData%VelGust) end if call RegPack(Buf, allocated(InData%VelGustDot)) if (allocated(InData%VelGustDot)) then - call RegPackBounds(Buf, 1, lbound(InData%VelGustDot), ubound(InData%VelGustDot)) + call RegPackBounds(Buf, 1, lbound(InData%VelGustDot, kind=B8Ki), ubound(InData%VelGustDot, kind=B8Ki)) call RegPack(Buf, InData%VelGustDot) end if call RegPack(Buf, allocated(InData%AngleH)) if (allocated(InData%AngleH)) then - call RegPackBounds(Buf, 1, lbound(InData%AngleH), ubound(InData%AngleH)) + call RegPackBounds(Buf, 1, lbound(InData%AngleH, kind=B8Ki), ubound(InData%AngleH, kind=B8Ki)) call RegPack(Buf, InData%AngleH) end if call RegPack(Buf, allocated(InData%AngleHDot)) if (allocated(InData%AngleHDot)) then - call RegPackBounds(Buf, 1, lbound(InData%AngleHDot), ubound(InData%AngleHDot)) + call RegPackBounds(Buf, 1, lbound(InData%AngleHDot, kind=B8Ki), ubound(InData%AngleHDot, kind=B8Ki)) call RegPack(Buf, InData%AngleHDot) end if call RegPack(Buf, allocated(InData%AngleV)) if (allocated(InData%AngleV)) then - call RegPackBounds(Buf, 1, lbound(InData%AngleV), ubound(InData%AngleV)) + call RegPackBounds(Buf, 1, lbound(InData%AngleV, kind=B8Ki), ubound(InData%AngleV, kind=B8Ki)) call RegPack(Buf, InData%AngleV) end if call RegPack(Buf, allocated(InData%AngleVDot)) if (allocated(InData%AngleVDot)) then - call RegPackBounds(Buf, 1, lbound(InData%AngleVDot), ubound(InData%AngleVDot)) + call RegPackBounds(Buf, 1, lbound(InData%AngleVDot, kind=B8Ki), ubound(InData%AngleVDot, kind=B8Ki)) call RegPack(Buf, InData%AngleVDot) end if call RegPack(Buf, allocated(InData%ShrH)) if (allocated(InData%ShrH)) then - call RegPackBounds(Buf, 1, lbound(InData%ShrH), ubound(InData%ShrH)) + call RegPackBounds(Buf, 1, lbound(InData%ShrH, kind=B8Ki), ubound(InData%ShrH, kind=B8Ki)) call RegPack(Buf, InData%ShrH) end if call RegPack(Buf, allocated(InData%ShrHDot)) if (allocated(InData%ShrHDot)) then - call RegPackBounds(Buf, 1, lbound(InData%ShrHDot), ubound(InData%ShrHDot)) + call RegPackBounds(Buf, 1, lbound(InData%ShrHDot, kind=B8Ki), ubound(InData%ShrHDot, kind=B8Ki)) call RegPack(Buf, InData%ShrHDot) end if call RegPack(Buf, allocated(InData%ShrV)) if (allocated(InData%ShrV)) then - call RegPackBounds(Buf, 1, lbound(InData%ShrV), ubound(InData%ShrV)) + call RegPackBounds(Buf, 1, lbound(InData%ShrV, kind=B8Ki), ubound(InData%ShrV, kind=B8Ki)) call RegPack(Buf, InData%ShrV) end if call RegPack(Buf, allocated(InData%ShrVDot)) if (allocated(InData%ShrVDot)) then - call RegPackBounds(Buf, 1, lbound(InData%ShrVDot), ubound(InData%ShrVDot)) + call RegPackBounds(Buf, 1, lbound(InData%ShrVDot, kind=B8Ki), ubound(InData%ShrVDot, kind=B8Ki)) call RegPack(Buf, InData%ShrVDot) end if call RegPack(Buf, allocated(InData%LinShrV)) if (allocated(InData%LinShrV)) then - call RegPackBounds(Buf, 1, lbound(InData%LinShrV), ubound(InData%LinShrV)) + call RegPackBounds(Buf, 1, lbound(InData%LinShrV, kind=B8Ki), ubound(InData%LinShrV, kind=B8Ki)) call RegPack(Buf, InData%LinShrV) end if call RegPack(Buf, allocated(InData%LinShrVDot)) if (allocated(InData%LinShrVDot)) then - call RegPackBounds(Buf, 1, lbound(InData%LinShrVDot), ubound(InData%LinShrVDot)) + call RegPackBounds(Buf, 1, lbound(InData%LinShrVDot, kind=B8Ki), ubound(InData%LinShrVDot, kind=B8Ki)) call RegPack(Buf, InData%LinShrVDot) end if if (RegCheckErr(Buf, RoutineName)) return @@ -546,7 +546,7 @@ subroutine IfW_FlowField_UnPackUniformFieldType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(UniformFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackUniformFieldType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -917,7 +917,7 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IfW_FlowField_CopyGrid3DFieldType' ErrStat = ErrID_None @@ -930,8 +930,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%RefHeight = SrcGrid3DFieldTypeData%RefHeight DstGrid3DFieldTypeData%RefLength = SrcGrid3DFieldTypeData%RefLength if (allocated(SrcGrid3DFieldTypeData%Vel)) then - LB(1:4) = lbound(SrcGrid3DFieldTypeData%Vel) - UB(1:4) = ubound(SrcGrid3DFieldTypeData%Vel) + LB(1:4) = lbound(SrcGrid3DFieldTypeData%Vel, kind=B8Ki) + UB(1:4) = ubound(SrcGrid3DFieldTypeData%Vel, kind=B8Ki) if (.not. allocated(DstGrid3DFieldTypeData%Vel)) then allocate(DstGrid3DFieldTypeData%Vel(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -942,8 +942,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%Vel = SrcGrid3DFieldTypeData%Vel end if if (allocated(SrcGrid3DFieldTypeData%Acc)) then - LB(1:4) = lbound(SrcGrid3DFieldTypeData%Acc) - UB(1:4) = ubound(SrcGrid3DFieldTypeData%Acc) + LB(1:4) = lbound(SrcGrid3DFieldTypeData%Acc, kind=B8Ki) + UB(1:4) = ubound(SrcGrid3DFieldTypeData%Acc, kind=B8Ki) if (.not. allocated(DstGrid3DFieldTypeData%Acc)) then allocate(DstGrid3DFieldTypeData%Acc(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -954,8 +954,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%Acc = SrcGrid3DFieldTypeData%Acc end if if (allocated(SrcGrid3DFieldTypeData%VelTower)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelTower) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelTower) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelTower, kind=B8Ki) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelTower, kind=B8Ki) if (.not. allocated(DstGrid3DFieldTypeData%VelTower)) then allocate(DstGrid3DFieldTypeData%VelTower(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -966,8 +966,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%VelTower = SrcGrid3DFieldTypeData%VelTower end if if (allocated(SrcGrid3DFieldTypeData%AccTower)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccTower) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccTower) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccTower, kind=B8Ki) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccTower, kind=B8Ki) if (.not. allocated(DstGrid3DFieldTypeData%AccTower)) then allocate(DstGrid3DFieldTypeData%AccTower(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -978,8 +978,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%AccTower = SrcGrid3DFieldTypeData%AccTower end if if (allocated(SrcGrid3DFieldTypeData%VelAvg)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelAvg) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelAvg) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelAvg, kind=B8Ki) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelAvg, kind=B8Ki) if (.not. allocated(DstGrid3DFieldTypeData%VelAvg)) then allocate(DstGrid3DFieldTypeData%VelAvg(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -990,8 +990,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%VelAvg = SrcGrid3DFieldTypeData%VelAvg end if if (allocated(SrcGrid3DFieldTypeData%AccAvg)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccAvg) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccAvg) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccAvg, kind=B8Ki) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccAvg, kind=B8Ki) if (.not. allocated(DstGrid3DFieldTypeData%AccAvg)) then allocate(DstGrid3DFieldTypeData%AccAvg(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1066,32 +1066,32 @@ subroutine IfW_FlowField_PackGrid3DFieldType(Buf, Indata) call RegPack(Buf, InData%RefLength) call RegPack(Buf, allocated(InData%Vel)) if (allocated(InData%Vel)) then - call RegPackBounds(Buf, 4, lbound(InData%Vel), ubound(InData%Vel)) + call RegPackBounds(Buf, 4, lbound(InData%Vel, kind=B8Ki), ubound(InData%Vel, kind=B8Ki)) call RegPack(Buf, InData%Vel) end if call RegPack(Buf, allocated(InData%Acc)) if (allocated(InData%Acc)) then - call RegPackBounds(Buf, 4, lbound(InData%Acc), ubound(InData%Acc)) + call RegPackBounds(Buf, 4, lbound(InData%Acc, kind=B8Ki), ubound(InData%Acc, kind=B8Ki)) call RegPack(Buf, InData%Acc) end if call RegPack(Buf, allocated(InData%VelTower)) if (allocated(InData%VelTower)) then - call RegPackBounds(Buf, 3, lbound(InData%VelTower), ubound(InData%VelTower)) + call RegPackBounds(Buf, 3, lbound(InData%VelTower, kind=B8Ki), ubound(InData%VelTower, kind=B8Ki)) call RegPack(Buf, InData%VelTower) end if call RegPack(Buf, allocated(InData%AccTower)) if (allocated(InData%AccTower)) then - call RegPackBounds(Buf, 3, lbound(InData%AccTower), ubound(InData%AccTower)) + call RegPackBounds(Buf, 3, lbound(InData%AccTower, kind=B8Ki), ubound(InData%AccTower, kind=B8Ki)) call RegPack(Buf, InData%AccTower) end if call RegPack(Buf, allocated(InData%VelAvg)) if (allocated(InData%VelAvg)) then - call RegPackBounds(Buf, 3, lbound(InData%VelAvg), ubound(InData%VelAvg)) + call RegPackBounds(Buf, 3, lbound(InData%VelAvg, kind=B8Ki), ubound(InData%VelAvg, kind=B8Ki)) call RegPack(Buf, InData%VelAvg) end if call RegPack(Buf, allocated(InData%AccAvg)) if (allocated(InData%AccAvg)) then - call RegPackBounds(Buf, 3, lbound(InData%AccAvg), ubound(InData%AccAvg)) + call RegPackBounds(Buf, 3, lbound(InData%AccAvg, kind=B8Ki), ubound(InData%AccAvg, kind=B8Ki)) call RegPack(Buf, InData%AccAvg) end if call RegPack(Buf, InData%DTime) @@ -1123,7 +1123,7 @@ subroutine IfW_FlowField_UnPackGrid3DFieldType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Grid3DFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackGrid3DFieldType' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1277,7 +1277,7 @@ subroutine IfW_FlowField_CopyGrid4DFieldType(SrcGrid4DFieldTypeData, DstGrid4DFi integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IfW_FlowField_CopyGrid4DFieldType' ErrStat = ErrID_None @@ -1311,7 +1311,7 @@ subroutine IfW_FlowField_PackGrid4DFieldType(Buf, Indata) call RegPack(Buf, InData%pZero) call RegPack(Buf, associated(InData%Vel)) if (associated(InData%Vel)) then - call RegPackBounds(Buf, 5, lbound(InData%Vel), ubound(InData%Vel)) + call RegPackBounds(Buf, 5, lbound(InData%Vel, kind=B8Ki), ubound(InData%Vel, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Vel), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Vel) @@ -1326,10 +1326,10 @@ subroutine IfW_FlowField_UnPackGrid4DFieldType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Grid4DFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackGrid4DFieldType' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%n) @@ -1374,14 +1374,14 @@ subroutine IfW_FlowField_CopyPointsFieldType(SrcPointsFieldTypeData, DstPointsFi integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IfW_FlowField_CopyPointsFieldType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcPointsFieldTypeData%Vel)) then - LB(1:2) = lbound(SrcPointsFieldTypeData%Vel) - UB(1:2) = ubound(SrcPointsFieldTypeData%Vel) + LB(1:2) = lbound(SrcPointsFieldTypeData%Vel, kind=B8Ki) + UB(1:2) = ubound(SrcPointsFieldTypeData%Vel, kind=B8Ki) if (.not. allocated(DstPointsFieldTypeData%Vel)) then allocate(DstPointsFieldTypeData%Vel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1412,7 +1412,7 @@ subroutine IfW_FlowField_PackPointsFieldType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Vel)) if (allocated(InData%Vel)) then - call RegPackBounds(Buf, 2, lbound(InData%Vel), ubound(InData%Vel)) + call RegPackBounds(Buf, 2, lbound(InData%Vel, kind=B8Ki), ubound(InData%Vel, kind=B8Ki)) call RegPack(Buf, InData%Vel) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1422,7 +1422,7 @@ subroutine IfW_FlowField_UnPackPointsFieldType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(PointsFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackPointsFieldType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/inflowwind/src/InflowWind_IO_Types.f90 b/modules/inflowwind/src/InflowWind_IO_Types.f90 index defa03ae42..310d88ebc9 100644 --- a/modules/inflowwind/src/InflowWind_IO_Types.f90 +++ b/modules/inflowwind/src/InflowWind_IO_Types.f90 @@ -705,7 +705,7 @@ subroutine InflowWind_IO_CopyGrid4D_InitInputType(SrcGrid4D_InitInputTypeData, D integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'InflowWind_IO_CopyGrid4D_InitInputType' ErrStat = ErrID_None @@ -737,7 +737,7 @@ subroutine InflowWind_IO_PackGrid4D_InitInputType(Buf, Indata) call RegPack(Buf, InData%pZero) call RegPack(Buf, associated(InData%Vel)) if (associated(InData%Vel)) then - call RegPackBounds(Buf, 5, lbound(InData%Vel), ubound(InData%Vel)) + call RegPackBounds(Buf, 5, lbound(InData%Vel, kind=B8Ki), ubound(InData%Vel, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Vel), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Vel) @@ -750,10 +750,10 @@ subroutine InflowWind_IO_UnPackGrid4D_InitInputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Grid4D_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_IO_UnPackGrid4D_InitInputType' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%n) diff --git a/modules/inflowwind/src/InflowWind_Types.f90 b/modules/inflowwind/src/InflowWind_Types.f90 index b6ffde83d3..b637ad8deb 100644 --- a/modules/inflowwind/src/InflowWind_Types.f90 +++ b/modules/inflowwind/src/InflowWind_Types.f90 @@ -208,7 +208,7 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyInputFile' @@ -221,8 +221,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%VelInterpCubic = SrcInputFileData%VelInterpCubic DstInputFileData%NWindVel = SrcInputFileData%NWindVel if (allocated(SrcInputFileData%WindVxiList)) then - LB(1:1) = lbound(SrcInputFileData%WindVxiList) - UB(1:1) = ubound(SrcInputFileData%WindVxiList) + LB(1:1) = lbound(SrcInputFileData%WindVxiList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WindVxiList, kind=B8Ki) if (.not. allocated(DstInputFileData%WindVxiList)) then allocate(DstInputFileData%WindVxiList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -233,8 +233,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%WindVxiList = SrcInputFileData%WindVxiList end if if (allocated(SrcInputFileData%WindVyiList)) then - LB(1:1) = lbound(SrcInputFileData%WindVyiList) - UB(1:1) = ubound(SrcInputFileData%WindVyiList) + LB(1:1) = lbound(SrcInputFileData%WindVyiList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WindVyiList, kind=B8Ki) if (.not. allocated(DstInputFileData%WindVyiList)) then allocate(DstInputFileData%WindVyiList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -245,8 +245,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%WindVyiList = SrcInputFileData%WindVyiList end if if (allocated(SrcInputFileData%WindVziList)) then - LB(1:1) = lbound(SrcInputFileData%WindVziList) - UB(1:1) = ubound(SrcInputFileData%WindVziList) + LB(1:1) = lbound(SrcInputFileData%WindVziList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WindVziList, kind=B8Ki) if (.not. allocated(DstInputFileData%WindVziList)) then allocate(DstInputFileData%WindVziList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -280,8 +280,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%SumPrint = SrcInputFileData%SumPrint DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -296,8 +296,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%NumPulseGate = SrcInputFileData%NumPulseGate DstInputFileData%RotorApexOffsetPos = SrcInputFileData%RotorApexOffsetPos if (allocated(SrcInputFileData%FocalDistanceX)) then - LB(1:1) = lbound(SrcInputFileData%FocalDistanceX) - UB(1:1) = ubound(SrcInputFileData%FocalDistanceX) + LB(1:1) = lbound(SrcInputFileData%FocalDistanceX, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%FocalDistanceX, kind=B8Ki) if (.not. allocated(DstInputFileData%FocalDistanceX)) then allocate(DstInputFileData%FocalDistanceX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -308,8 +308,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%FocalDistanceX = SrcInputFileData%FocalDistanceX end if if (allocated(SrcInputFileData%FocalDistanceY)) then - LB(1:1) = lbound(SrcInputFileData%FocalDistanceY) - UB(1:1) = ubound(SrcInputFileData%FocalDistanceY) + LB(1:1) = lbound(SrcInputFileData%FocalDistanceY, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%FocalDistanceY, kind=B8Ki) if (.not. allocated(DstInputFileData%FocalDistanceY)) then allocate(DstInputFileData%FocalDistanceY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -320,8 +320,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%FocalDistanceY = SrcInputFileData%FocalDistanceY end if if (allocated(SrcInputFileData%FocalDistanceZ)) then - LB(1:1) = lbound(SrcInputFileData%FocalDistanceZ) - UB(1:1) = ubound(SrcInputFileData%FocalDistanceZ) + LB(1:1) = lbound(SrcInputFileData%FocalDistanceZ, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%FocalDistanceZ, kind=B8Ki) if (.not. allocated(DstInputFileData%FocalDistanceZ)) then allocate(DstInputFileData%FocalDistanceZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -388,17 +388,17 @@ subroutine InflowWind_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NWindVel) call RegPack(Buf, allocated(InData%WindVxiList)) if (allocated(InData%WindVxiList)) then - call RegPackBounds(Buf, 1, lbound(InData%WindVxiList), ubound(InData%WindVxiList)) + call RegPackBounds(Buf, 1, lbound(InData%WindVxiList, kind=B8Ki), ubound(InData%WindVxiList, kind=B8Ki)) call RegPack(Buf, InData%WindVxiList) end if call RegPack(Buf, allocated(InData%WindVyiList)) if (allocated(InData%WindVyiList)) then - call RegPackBounds(Buf, 1, lbound(InData%WindVyiList), ubound(InData%WindVyiList)) + call RegPackBounds(Buf, 1, lbound(InData%WindVyiList, kind=B8Ki), ubound(InData%WindVyiList, kind=B8Ki)) call RegPack(Buf, InData%WindVyiList) end if call RegPack(Buf, allocated(InData%WindVziList)) if (allocated(InData%WindVziList)) then - call RegPackBounds(Buf, 1, lbound(InData%WindVziList), ubound(InData%WindVziList)) + call RegPackBounds(Buf, 1, lbound(InData%WindVziList, kind=B8Ki), ubound(InData%WindVziList, kind=B8Ki)) call RegPack(Buf, InData%WindVziList) end if call RegPack(Buf, InData%Steady_HWindSpeed) @@ -426,7 +426,7 @@ subroutine InflowWind_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%SensorType) @@ -435,17 +435,17 @@ subroutine InflowWind_PackInputFile(Buf, Indata) call RegPack(Buf, InData%RotorApexOffsetPos) call RegPack(Buf, allocated(InData%FocalDistanceX)) if (allocated(InData%FocalDistanceX)) then - call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceX), ubound(InData%FocalDistanceX)) + call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceX, kind=B8Ki), ubound(InData%FocalDistanceX, kind=B8Ki)) call RegPack(Buf, InData%FocalDistanceX) end if call RegPack(Buf, allocated(InData%FocalDistanceY)) if (allocated(InData%FocalDistanceY)) then - call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceY), ubound(InData%FocalDistanceY)) + call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceY, kind=B8Ki), ubound(InData%FocalDistanceY, kind=B8Ki)) call RegPack(Buf, InData%FocalDistanceY) end if call RegPack(Buf, allocated(InData%FocalDistanceZ)) if (allocated(InData%FocalDistanceZ)) then - call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceZ), ubound(InData%FocalDistanceZ)) + call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceZ, kind=B8Ki), ubound(InData%FocalDistanceZ, kind=B8Ki)) call RegPack(Buf, InData%FocalDistanceZ) end if call RegPack(Buf, InData%PulseSpacing) @@ -461,7 +461,7 @@ subroutine InflowWind_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackInputFile' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -775,15 +775,15 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -794,8 +794,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -812,8 +812,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -824,8 +824,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -836,8 +836,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -848,8 +848,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -860,8 +860,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -919,39 +919,39 @@ subroutine InflowWind_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call InflowWind_IO_PackWindFileDat(Buf, InData%WindFileInfo) call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, associated(InData%FlowField)) @@ -968,10 +968,10 @@ subroutine InflowWind_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (allocated(OutData%WriteOutputHdr)) deallocate(OutData%WriteOutputHdr) @@ -1102,8 +1102,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyParam' @@ -1112,8 +1112,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E DstParamData%RootFileName = SrcParamData%RootFileName DstParamData%DT = SrcParamData%DT if (allocated(SrcParamData%WindViXYZprime)) then - LB(1:2) = lbound(SrcParamData%WindViXYZprime) - UB(1:2) = ubound(SrcParamData%WindViXYZprime) + LB(1:2) = lbound(SrcParamData%WindViXYZprime, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%WindViXYZprime, kind=B8Ki) if (.not. allocated(DstParamData%WindViXYZprime)) then allocate(DstParamData%WindViXYZprime(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1124,8 +1124,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E DstParamData%WindViXYZprime = SrcParamData%WindViXYZprime end if if (allocated(SrcParamData%WindViXYZ)) then - LB(1:2) = lbound(SrcParamData%WindViXYZ) - UB(1:2) = ubound(SrcParamData%WindViXYZ) + LB(1:2) = lbound(SrcParamData%WindViXYZ, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%WindViXYZ, kind=B8Ki) if (.not. allocated(DstParamData%WindViXYZ)) then allocate(DstParamData%WindViXYZ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1148,8 +1148,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E if (ErrStat >= AbortErrLev) return end if if (allocated(SrcParamData%PositionAvg)) then - LB(1:2) = lbound(SrcParamData%PositionAvg) - UB(1:2) = ubound(SrcParamData%PositionAvg) + LB(1:2) = lbound(SrcParamData%PositionAvg, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PositionAvg, kind=B8Ki) if (.not. allocated(DstParamData%PositionAvg)) then allocate(DstParamData%PositionAvg(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1162,8 +1162,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E DstParamData%NWindVel = SrcParamData%NWindVel DstParamData%NumOuts = SrcParamData%NumOuts if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1178,8 +1178,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E end do end if if (allocated(SrcParamData%OutParamLinIndx)) then - LB(1:2) = lbound(SrcParamData%OutParamLinIndx) - UB(1:2) = ubound(SrcParamData%OutParamLinIndx) + LB(1:2) = lbound(SrcParamData%OutParamLinIndx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%OutParamLinIndx, kind=B8Ki) if (.not. allocated(DstParamData%OutParamLinIndx)) then allocate(DstParamData%OutParamLinIndx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1199,8 +1199,8 @@ subroutine InflowWind_DestroyParam(ParamData, ErrStat, ErrMsg) type(InflowWind_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_DestroyParam' @@ -1222,8 +1222,8 @@ subroutine InflowWind_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%PositionAvg) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1241,20 +1241,20 @@ subroutine InflowWind_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(InflowWind_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'InflowWind_PackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%RootFileName) call RegPack(Buf, InData%DT) call RegPack(Buf, allocated(InData%WindViXYZprime)) if (allocated(InData%WindViXYZprime)) then - call RegPackBounds(Buf, 2, lbound(InData%WindViXYZprime), ubound(InData%WindViXYZprime)) + call RegPackBounds(Buf, 2, lbound(InData%WindViXYZprime, kind=B8Ki), ubound(InData%WindViXYZprime, kind=B8Ki)) call RegPack(Buf, InData%WindViXYZprime) end if call RegPack(Buf, allocated(InData%WindViXYZ)) if (allocated(InData%WindViXYZ)) then - call RegPackBounds(Buf, 2, lbound(InData%WindViXYZ), ubound(InData%WindViXYZ)) + call RegPackBounds(Buf, 2, lbound(InData%WindViXYZ, kind=B8Ki), ubound(InData%WindViXYZ, kind=B8Ki)) call RegPack(Buf, InData%WindViXYZ) end if call RegPack(Buf, associated(InData%FlowField)) @@ -1266,23 +1266,23 @@ subroutine InflowWind_PackParam(Buf, Indata) end if call RegPack(Buf, allocated(InData%PositionAvg)) if (allocated(InData%PositionAvg)) then - call RegPackBounds(Buf, 2, lbound(InData%PositionAvg), ubound(InData%PositionAvg)) + call RegPackBounds(Buf, 2, lbound(InData%PositionAvg, kind=B8Ki), ubound(InData%PositionAvg, kind=B8Ki)) call RegPack(Buf, InData%PositionAvg) end if call RegPack(Buf, InData%NWindVel) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do end if call RegPack(Buf, allocated(InData%OutParamLinIndx)) if (allocated(InData%OutParamLinIndx)) then - call RegPackBounds(Buf, 2, lbound(InData%OutParamLinIndx), ubound(InData%OutParamLinIndx)) + call RegPackBounds(Buf, 2, lbound(InData%OutParamLinIndx, kind=B8Ki), ubound(InData%OutParamLinIndx, kind=B8Ki)) call RegPack(Buf, InData%OutParamLinIndx) end if call Lidar_PackParam(Buf, InData%lidar) @@ -1294,11 +1294,11 @@ subroutine InflowWind_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%RootFileName) @@ -1411,15 +1411,15 @@ subroutine InflowWind_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%PositionXYZ)) then - LB(1:2) = lbound(SrcInputData%PositionXYZ) - UB(1:2) = ubound(SrcInputData%PositionXYZ) + LB(1:2) = lbound(SrcInputData%PositionXYZ, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%PositionXYZ, kind=B8Ki) if (.not. allocated(DstInputData%PositionXYZ)) then allocate(DstInputData%PositionXYZ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1459,7 +1459,7 @@ subroutine InflowWind_PackInput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%PositionXYZ)) if (allocated(InData%PositionXYZ)) then - call RegPackBounds(Buf, 2, lbound(InData%PositionXYZ), ubound(InData%PositionXYZ)) + call RegPackBounds(Buf, 2, lbound(InData%PositionXYZ, kind=B8Ki), ubound(InData%PositionXYZ, kind=B8Ki)) call RegPack(Buf, InData%PositionXYZ) end if call Lidar_PackInput(Buf, InData%lidar) @@ -1472,7 +1472,7 @@ subroutine InflowWind_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1503,15 +1503,15 @@ subroutine InflowWind_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%VelocityUVW)) then - LB(1:2) = lbound(SrcOutputData%VelocityUVW) - UB(1:2) = ubound(SrcOutputData%VelocityUVW) + LB(1:2) = lbound(SrcOutputData%VelocityUVW, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%VelocityUVW, kind=B8Ki) if (.not. allocated(DstOutputData%VelocityUVW)) then allocate(DstOutputData%VelocityUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1522,8 +1522,8 @@ subroutine InflowWind_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat DstOutputData%VelocityUVW = SrcOutputData%VelocityUVW end if if (allocated(SrcOutputData%AccelUVW)) then - LB(1:2) = lbound(SrcOutputData%AccelUVW) - UB(1:2) = ubound(SrcOutputData%AccelUVW) + LB(1:2) = lbound(SrcOutputData%AccelUVW, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%AccelUVW, kind=B8Ki) if (.not. allocated(DstOutputData%AccelUVW)) then allocate(DstOutputData%AccelUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1534,8 +1534,8 @@ subroutine InflowWind_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat DstOutputData%AccelUVW = SrcOutputData%AccelUVW end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1581,17 +1581,17 @@ subroutine InflowWind_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%VelocityUVW)) if (allocated(InData%VelocityUVW)) then - call RegPackBounds(Buf, 2, lbound(InData%VelocityUVW), ubound(InData%VelocityUVW)) + call RegPackBounds(Buf, 2, lbound(InData%VelocityUVW, kind=B8Ki), ubound(InData%VelocityUVW, kind=B8Ki)) call RegPack(Buf, InData%VelocityUVW) end if call RegPack(Buf, allocated(InData%AccelUVW)) if (allocated(InData%AccelUVW)) then - call RegPackBounds(Buf, 2, lbound(InData%AccelUVW), ubound(InData%AccelUVW)) + call RegPackBounds(Buf, 2, lbound(InData%AccelUVW, kind=B8Ki), ubound(InData%AccelUVW, kind=B8Ki)) call RegPack(Buf, InData%AccelUVW) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, InData%DiskVel) @@ -1604,7 +1604,7 @@ subroutine InflowWind_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1819,15 +1819,15 @@ subroutine InflowWind_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1838,8 +1838,8 @@ subroutine InflowWind_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrM DstMiscData%AllOuts = SrcMiscData%AllOuts end if if (allocated(SrcMiscData%WindViUVW)) then - LB(1:2) = lbound(SrcMiscData%WindViUVW) - UB(1:2) = ubound(SrcMiscData%WindViUVW) + LB(1:2) = lbound(SrcMiscData%WindViUVW, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%WindViUVW, kind=B8Ki) if (.not. allocated(DstMiscData%WindViUVW)) then allocate(DstMiscData%WindViUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1850,8 +1850,8 @@ subroutine InflowWind_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrM DstMiscData%WindViUVW = SrcMiscData%WindViUVW end if if (allocated(SrcMiscData%WindAiUVW)) then - LB(1:2) = lbound(SrcMiscData%WindAiUVW) - UB(1:2) = ubound(SrcMiscData%WindAiUVW) + LB(1:2) = lbound(SrcMiscData%WindAiUVW, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%WindAiUVW, kind=B8Ki) if (.not. allocated(DstMiscData%WindAiUVW)) then allocate(DstMiscData%WindAiUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1910,17 +1910,17 @@ subroutine InflowWind_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, allocated(InData%WindViUVW)) if (allocated(InData%WindViUVW)) then - call RegPackBounds(Buf, 2, lbound(InData%WindViUVW), ubound(InData%WindViUVW)) + call RegPackBounds(Buf, 2, lbound(InData%WindViUVW, kind=B8Ki), ubound(InData%WindViUVW, kind=B8Ki)) call RegPack(Buf, InData%WindViUVW) end if call RegPack(Buf, allocated(InData%WindAiUVW)) if (allocated(InData%WindAiUVW)) then - call RegPackBounds(Buf, 2, lbound(InData%WindAiUVW), ubound(InData%WindAiUVW)) + call RegPackBounds(Buf, 2, lbound(InData%WindAiUVW, kind=B8Ki), ubound(InData%WindAiUVW, kind=B8Ki)) call RegPack(Buf, InData%WindAiUVW) end if call InflowWind_PackInput(Buf, InData%u_Avg) @@ -1934,7 +1934,7 @@ subroutine InflowWind_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackMisc' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/inflowwind/src/Lidar_Types.f90 b/modules/inflowwind/src/Lidar_Types.f90 index a8e83bafe1..9c2eb09d1c 100644 --- a/modules/inflowwind/src/Lidar_Types.f90 +++ b/modules/inflowwind/src/Lidar_Types.f90 @@ -229,7 +229,7 @@ subroutine Lidar_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Lidar_CopyParam' ErrStat = ErrID_None @@ -250,8 +250,8 @@ subroutine Lidar_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%DisplacementLidarZ = SrcParamData%DisplacementLidarZ DstParamData%NumBeam = SrcParamData%NumBeam if (allocated(SrcParamData%FocalDistanceX)) then - LB(1:1) = lbound(SrcParamData%FocalDistanceX) - UB(1:1) = ubound(SrcParamData%FocalDistanceX) + LB(1:1) = lbound(SrcParamData%FocalDistanceX, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FocalDistanceX, kind=B8Ki) if (.not. allocated(DstParamData%FocalDistanceX)) then allocate(DstParamData%FocalDistanceX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -262,8 +262,8 @@ subroutine Lidar_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%FocalDistanceX = SrcParamData%FocalDistanceX end if if (allocated(SrcParamData%FocalDistanceY)) then - LB(1:1) = lbound(SrcParamData%FocalDistanceY) - UB(1:1) = ubound(SrcParamData%FocalDistanceY) + LB(1:1) = lbound(SrcParamData%FocalDistanceY, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FocalDistanceY, kind=B8Ki) if (.not. allocated(DstParamData%FocalDistanceY)) then allocate(DstParamData%FocalDistanceY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -274,8 +274,8 @@ subroutine Lidar_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%FocalDistanceY = SrcParamData%FocalDistanceY end if if (allocated(SrcParamData%FocalDistanceZ)) then - LB(1:1) = lbound(SrcParamData%FocalDistanceZ) - UB(1:1) = ubound(SrcParamData%FocalDistanceZ) + LB(1:1) = lbound(SrcParamData%FocalDistanceZ, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FocalDistanceZ, kind=B8Ki) if (.not. allocated(DstParamData%FocalDistanceZ)) then allocate(DstParamData%FocalDistanceZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -286,8 +286,8 @@ subroutine Lidar_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%FocalDistanceZ = SrcParamData%FocalDistanceZ end if if (allocated(SrcParamData%MsrPosition)) then - LB(1:2) = lbound(SrcParamData%MsrPosition) - UB(1:2) = ubound(SrcParamData%MsrPosition) + LB(1:2) = lbound(SrcParamData%MsrPosition, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%MsrPosition, kind=B8Ki) if (.not. allocated(DstParamData%MsrPosition)) then allocate(DstParamData%MsrPosition(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -347,22 +347,22 @@ subroutine Lidar_PackParam(Buf, Indata) call RegPack(Buf, InData%NumBeam) call RegPack(Buf, allocated(InData%FocalDistanceX)) if (allocated(InData%FocalDistanceX)) then - call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceX), ubound(InData%FocalDistanceX)) + call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceX, kind=B8Ki), ubound(InData%FocalDistanceX, kind=B8Ki)) call RegPack(Buf, InData%FocalDistanceX) end if call RegPack(Buf, allocated(InData%FocalDistanceY)) if (allocated(InData%FocalDistanceY)) then - call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceY), ubound(InData%FocalDistanceY)) + call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceY, kind=B8Ki), ubound(InData%FocalDistanceY, kind=B8Ki)) call RegPack(Buf, InData%FocalDistanceY) end if call RegPack(Buf, allocated(InData%FocalDistanceZ)) if (allocated(InData%FocalDistanceZ)) then - call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceZ), ubound(InData%FocalDistanceZ)) + call RegPackBounds(Buf, 1, lbound(InData%FocalDistanceZ, kind=B8Ki), ubound(InData%FocalDistanceZ, kind=B8Ki)) call RegPack(Buf, InData%FocalDistanceZ) end if call RegPack(Buf, allocated(InData%MsrPosition)) if (allocated(InData%MsrPosition)) then - call RegPackBounds(Buf, 2, lbound(InData%MsrPosition), ubound(InData%MsrPosition)) + call RegPackBounds(Buf, 2, lbound(InData%MsrPosition, kind=B8Ki), ubound(InData%MsrPosition, kind=B8Ki)) call RegPack(Buf, InData%MsrPosition) end if call RegPack(Buf, InData%PulseSpacing) @@ -377,7 +377,7 @@ subroutine Lidar_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Lidar_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Lidar_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -735,14 +735,14 @@ subroutine Lidar_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Lidar_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%LidSpeed)) then - LB(1:1) = lbound(SrcOutputData%LidSpeed) - UB(1:1) = ubound(SrcOutputData%LidSpeed) + LB(1:1) = lbound(SrcOutputData%LidSpeed, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%LidSpeed, kind=B8Ki) if (.not. allocated(DstOutputData%LidSpeed)) then allocate(DstOutputData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -753,8 +753,8 @@ subroutine Lidar_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%LidSpeed = SrcOutputData%LidSpeed end if if (allocated(SrcOutputData%WtTrunc)) then - LB(1:1) = lbound(SrcOutputData%WtTrunc) - UB(1:1) = ubound(SrcOutputData%WtTrunc) + LB(1:1) = lbound(SrcOutputData%WtTrunc, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WtTrunc, kind=B8Ki) if (.not. allocated(DstOutputData%WtTrunc)) then allocate(DstOutputData%WtTrunc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -765,8 +765,8 @@ subroutine Lidar_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%WtTrunc = SrcOutputData%WtTrunc end if if (allocated(SrcOutputData%MsrPositionsX)) then - LB(1:1) = lbound(SrcOutputData%MsrPositionsX) - UB(1:1) = ubound(SrcOutputData%MsrPositionsX) + LB(1:1) = lbound(SrcOutputData%MsrPositionsX, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%MsrPositionsX, kind=B8Ki) if (.not. allocated(DstOutputData%MsrPositionsX)) then allocate(DstOutputData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -777,8 +777,8 @@ subroutine Lidar_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%MsrPositionsX = SrcOutputData%MsrPositionsX end if if (allocated(SrcOutputData%MsrPositionsY)) then - LB(1:1) = lbound(SrcOutputData%MsrPositionsY) - UB(1:1) = ubound(SrcOutputData%MsrPositionsY) + LB(1:1) = lbound(SrcOutputData%MsrPositionsY, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%MsrPositionsY, kind=B8Ki) if (.not. allocated(DstOutputData%MsrPositionsY)) then allocate(DstOutputData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -789,8 +789,8 @@ subroutine Lidar_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%MsrPositionsY = SrcOutputData%MsrPositionsY end if if (allocated(SrcOutputData%MsrPositionsZ)) then - LB(1:1) = lbound(SrcOutputData%MsrPositionsZ) - UB(1:1) = ubound(SrcOutputData%MsrPositionsZ) + LB(1:1) = lbound(SrcOutputData%MsrPositionsZ, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%MsrPositionsZ, kind=B8Ki) if (.not. allocated(DstOutputData%MsrPositionsZ)) then allocate(DstOutputData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -833,27 +833,27 @@ subroutine Lidar_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%LidSpeed)) if (allocated(InData%LidSpeed)) then - call RegPackBounds(Buf, 1, lbound(InData%LidSpeed), ubound(InData%LidSpeed)) + call RegPackBounds(Buf, 1, lbound(InData%LidSpeed, kind=B8Ki), ubound(InData%LidSpeed, kind=B8Ki)) call RegPack(Buf, InData%LidSpeed) end if call RegPack(Buf, allocated(InData%WtTrunc)) if (allocated(InData%WtTrunc)) then - call RegPackBounds(Buf, 1, lbound(InData%WtTrunc), ubound(InData%WtTrunc)) + call RegPackBounds(Buf, 1, lbound(InData%WtTrunc, kind=B8Ki), ubound(InData%WtTrunc, kind=B8Ki)) call RegPack(Buf, InData%WtTrunc) end if call RegPack(Buf, allocated(InData%MsrPositionsX)) if (allocated(InData%MsrPositionsX)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX), ubound(InData%MsrPositionsX)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX, kind=B8Ki), ubound(InData%MsrPositionsX, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsX) end if call RegPack(Buf, allocated(InData%MsrPositionsY)) if (allocated(InData%MsrPositionsY)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY), ubound(InData%MsrPositionsY)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY, kind=B8Ki), ubound(InData%MsrPositionsY, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsY) end if call RegPack(Buf, allocated(InData%MsrPositionsZ)) if (allocated(InData%MsrPositionsZ)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ), ubound(InData%MsrPositionsZ)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ, kind=B8Ki), ubound(InData%MsrPositionsZ, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsZ) end if if (RegCheckErr(Buf, RoutineName)) return @@ -863,7 +863,7 @@ subroutine Lidar_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Lidar_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Lidar_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/map/src/MAP_Fortran_Types.f90 b/modules/map/src/MAP_Fortran_Types.f90 index ac349c062b..25a5ca9be2 100644 --- a/modules/map/src/MAP_Fortran_Types.f90 +++ b/modules/map/src/MAP_Fortran_Types.f90 @@ -99,14 +99,14 @@ subroutine MAP_Fortran_CopyLin_InitOutputType(SrcLin_InitOutputTypeData, DstLin_ integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MAP_Fortran_CopyLin_InitOutputType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcLin_InitOutputTypeData%LinNames_y)) then - LB(1:1) = lbound(SrcLin_InitOutputTypeData%LinNames_y) - UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_y) + LB(1:1) = lbound(SrcLin_InitOutputTypeData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_y, kind=B8Ki) if (.not. allocated(DstLin_InitOutputTypeData%LinNames_y)) then allocate(DstLin_InitOutputTypeData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -117,8 +117,8 @@ subroutine MAP_Fortran_CopyLin_InitOutputType(SrcLin_InitOutputTypeData, DstLin_ DstLin_InitOutputTypeData%LinNames_y = SrcLin_InitOutputTypeData%LinNames_y end if if (allocated(SrcLin_InitOutputTypeData%LinNames_u)) then - LB(1:1) = lbound(SrcLin_InitOutputTypeData%LinNames_u) - UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_u) + LB(1:1) = lbound(SrcLin_InitOutputTypeData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_u, kind=B8Ki) if (.not. allocated(DstLin_InitOutputTypeData%LinNames_u)) then allocate(DstLin_InitOutputTypeData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -129,8 +129,8 @@ subroutine MAP_Fortran_CopyLin_InitOutputType(SrcLin_InitOutputTypeData, DstLin_ DstLin_InitOutputTypeData%LinNames_u = SrcLin_InitOutputTypeData%LinNames_u end if if (allocated(SrcLin_InitOutputTypeData%IsLoad_u)) then - LB(1:1) = lbound(SrcLin_InitOutputTypeData%IsLoad_u) - UB(1:1) = ubound(SrcLin_InitOutputTypeData%IsLoad_u) + LB(1:1) = lbound(SrcLin_InitOutputTypeData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcLin_InitOutputTypeData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstLin_InitOutputTypeData%IsLoad_u)) then allocate(DstLin_InitOutputTypeData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -167,17 +167,17 @@ subroutine MAP_Fortran_PackLin_InitOutputType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if if (RegCheckErr(Buf, RoutineName)) return @@ -187,7 +187,7 @@ subroutine MAP_Fortran_UnPackLin_InitOutputType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Lin_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_Fortran_UnPackLin_InitOutputType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -241,14 +241,14 @@ subroutine MAP_Fortran_CopyLin_ParamType(SrcLin_ParamTypeData, DstLin_ParamTypeD integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MAP_Fortran_CopyLin_ParamType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcLin_ParamTypeData%Jac_u_indx)) then - LB(1:2) = lbound(SrcLin_ParamTypeData%Jac_u_indx) - UB(1:2) = ubound(SrcLin_ParamTypeData%Jac_u_indx) + LB(1:2) = lbound(SrcLin_ParamTypeData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcLin_ParamTypeData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstLin_ParamTypeData%Jac_u_indx)) then allocate(DstLin_ParamTypeData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -281,7 +281,7 @@ subroutine MAP_Fortran_PackLin_ParamType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, InData%du) @@ -293,7 +293,7 @@ subroutine MAP_Fortran_UnPackLin_ParamType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Lin_ParamType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_Fortran_UnPackLin_ParamType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/map/src/MAP_Types.f90 b/modules/map/src/MAP_Types.f90 index 3df4cf9291..a75a018aff 100644 --- a/modules/map/src/MAP_Types.f90 +++ b/modules/map/src/MAP_Types.f90 @@ -409,7 +409,7 @@ subroutine MAP_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MAP_CopyInitOutput' @@ -422,8 +422,8 @@ subroutine MAP_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er DstInitOutputData%compilingData = SrcInitOutputData%compilingData DstInitOutputData%C_obj%compilingData = SrcInitOutputData%C_obj%compilingData if (allocated(SrcInitOutputData%writeOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%writeOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%writeOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%writeOutputHdr)) then allocate(DstInitOutputData%writeOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -434,8 +434,8 @@ subroutine MAP_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er DstInitOutputData%writeOutputHdr = SrcInitOutputData%writeOutputHdr end if if (allocated(SrcInitOutputData%writeOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%writeOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%writeOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%writeOutputUnt)) then allocate(DstInitOutputData%writeOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -488,12 +488,12 @@ subroutine MAP_PackInitOutput(Buf, Indata) call RegPack(Buf, InData%compilingData) call RegPack(Buf, allocated(InData%writeOutputHdr)) if (allocated(InData%writeOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%writeOutputHdr), ubound(InData%writeOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%writeOutputHdr, kind=B8Ki), ubound(InData%writeOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%writeOutputHdr) end if call RegPack(Buf, allocated(InData%writeOutputUnt)) if (allocated(InData%writeOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%writeOutputUnt), ubound(InData%writeOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%writeOutputUnt, kind=B8Ki), ubound(InData%writeOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%writeOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) @@ -505,7 +505,7 @@ subroutine MAP_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MAP_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -758,14 +758,14 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MAP_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcOtherStateData%H)) then - LB(1:1) = lbound(SrcOtherStateData%H) - UB(1:1) = ubound(SrcOtherStateData%H) + LB(1:1) = lbound(SrcOtherStateData%H, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%H, kind=B8Ki) if (.not. associated(DstOtherStateData%H)) then allocate(DstOtherStateData%H(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -779,8 +779,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%H = SrcOtherStateData%H end if if (associated(SrcOtherStateData%V)) then - LB(1:1) = lbound(SrcOtherStateData%V) - UB(1:1) = ubound(SrcOtherStateData%V) + LB(1:1) = lbound(SrcOtherStateData%V, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%V, kind=B8Ki) if (.not. associated(DstOtherStateData%V)) then allocate(DstOtherStateData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -794,8 +794,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%V = SrcOtherStateData%V end if if (associated(SrcOtherStateData%Ha)) then - LB(1:1) = lbound(SrcOtherStateData%Ha) - UB(1:1) = ubound(SrcOtherStateData%Ha) + LB(1:1) = lbound(SrcOtherStateData%Ha, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Ha, kind=B8Ki) if (.not. associated(DstOtherStateData%Ha)) then allocate(DstOtherStateData%Ha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -809,8 +809,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Ha = SrcOtherStateData%Ha end if if (associated(SrcOtherStateData%Va)) then - LB(1:1) = lbound(SrcOtherStateData%Va) - UB(1:1) = ubound(SrcOtherStateData%Va) + LB(1:1) = lbound(SrcOtherStateData%Va, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Va, kind=B8Ki) if (.not. associated(DstOtherStateData%Va)) then allocate(DstOtherStateData%Va(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -824,8 +824,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Va = SrcOtherStateData%Va end if if (associated(SrcOtherStateData%x)) then - LB(1:1) = lbound(SrcOtherStateData%x) - UB(1:1) = ubound(SrcOtherStateData%x) + LB(1:1) = lbound(SrcOtherStateData%x, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%x, kind=B8Ki) if (.not. associated(DstOtherStateData%x)) then allocate(DstOtherStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -839,8 +839,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%x = SrcOtherStateData%x end if if (associated(SrcOtherStateData%y)) then - LB(1:1) = lbound(SrcOtherStateData%y) - UB(1:1) = ubound(SrcOtherStateData%y) + LB(1:1) = lbound(SrcOtherStateData%y, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%y, kind=B8Ki) if (.not. associated(DstOtherStateData%y)) then allocate(DstOtherStateData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -854,8 +854,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%y = SrcOtherStateData%y end if if (associated(SrcOtherStateData%z)) then - LB(1:1) = lbound(SrcOtherStateData%z) - UB(1:1) = ubound(SrcOtherStateData%z) + LB(1:1) = lbound(SrcOtherStateData%z, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%z, kind=B8Ki) if (.not. associated(DstOtherStateData%z)) then allocate(DstOtherStateData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -869,8 +869,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%z = SrcOtherStateData%z end if if (associated(SrcOtherStateData%xa)) then - LB(1:1) = lbound(SrcOtherStateData%xa) - UB(1:1) = ubound(SrcOtherStateData%xa) + LB(1:1) = lbound(SrcOtherStateData%xa, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xa, kind=B8Ki) if (.not. associated(DstOtherStateData%xa)) then allocate(DstOtherStateData%xa(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -884,8 +884,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%xa = SrcOtherStateData%xa end if if (associated(SrcOtherStateData%ya)) then - LB(1:1) = lbound(SrcOtherStateData%ya) - UB(1:1) = ubound(SrcOtherStateData%ya) + LB(1:1) = lbound(SrcOtherStateData%ya, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%ya, kind=B8Ki) if (.not. associated(DstOtherStateData%ya)) then allocate(DstOtherStateData%ya(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -899,8 +899,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%ya = SrcOtherStateData%ya end if if (associated(SrcOtherStateData%za)) then - LB(1:1) = lbound(SrcOtherStateData%za) - UB(1:1) = ubound(SrcOtherStateData%za) + LB(1:1) = lbound(SrcOtherStateData%za, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%za, kind=B8Ki) if (.not. associated(DstOtherStateData%za)) then allocate(DstOtherStateData%za(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -914,8 +914,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%za = SrcOtherStateData%za end if if (associated(SrcOtherStateData%Fx_connect)) then - LB(1:1) = lbound(SrcOtherStateData%Fx_connect) - UB(1:1) = ubound(SrcOtherStateData%Fx_connect) + LB(1:1) = lbound(SrcOtherStateData%Fx_connect, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Fx_connect, kind=B8Ki) if (.not. associated(DstOtherStateData%Fx_connect)) then allocate(DstOtherStateData%Fx_connect(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -929,8 +929,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Fx_connect = SrcOtherStateData%Fx_connect end if if (associated(SrcOtherStateData%Fy_connect)) then - LB(1:1) = lbound(SrcOtherStateData%Fy_connect) - UB(1:1) = ubound(SrcOtherStateData%Fy_connect) + LB(1:1) = lbound(SrcOtherStateData%Fy_connect, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Fy_connect, kind=B8Ki) if (.not. associated(DstOtherStateData%Fy_connect)) then allocate(DstOtherStateData%Fy_connect(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -944,8 +944,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Fy_connect = SrcOtherStateData%Fy_connect end if if (associated(SrcOtherStateData%Fz_connect)) then - LB(1:1) = lbound(SrcOtherStateData%Fz_connect) - UB(1:1) = ubound(SrcOtherStateData%Fz_connect) + LB(1:1) = lbound(SrcOtherStateData%Fz_connect, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Fz_connect, kind=B8Ki) if (.not. associated(DstOtherStateData%Fz_connect)) then allocate(DstOtherStateData%Fz_connect(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -959,8 +959,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Fz_connect = SrcOtherStateData%Fz_connect end if if (associated(SrcOtherStateData%Fx_anchor)) then - LB(1:1) = lbound(SrcOtherStateData%Fx_anchor) - UB(1:1) = ubound(SrcOtherStateData%Fx_anchor) + LB(1:1) = lbound(SrcOtherStateData%Fx_anchor, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Fx_anchor, kind=B8Ki) if (.not. associated(DstOtherStateData%Fx_anchor)) then allocate(DstOtherStateData%Fx_anchor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -974,8 +974,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Fx_anchor = SrcOtherStateData%Fx_anchor end if if (associated(SrcOtherStateData%Fy_anchor)) then - LB(1:1) = lbound(SrcOtherStateData%Fy_anchor) - UB(1:1) = ubound(SrcOtherStateData%Fy_anchor) + LB(1:1) = lbound(SrcOtherStateData%Fy_anchor, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Fy_anchor, kind=B8Ki) if (.not. associated(DstOtherStateData%Fy_anchor)) then allocate(DstOtherStateData%Fy_anchor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -989,8 +989,8 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er DstOtherStateData%Fy_anchor = SrcOtherStateData%Fy_anchor end if if (associated(SrcOtherStateData%Fz_anchor)) then - LB(1:1) = lbound(SrcOtherStateData%Fz_anchor) - UB(1:1) = ubound(SrcOtherStateData%Fz_anchor) + LB(1:1) = lbound(SrcOtherStateData%Fz_anchor, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%Fz_anchor, kind=B8Ki) if (.not. associated(DstOtherStateData%Fz_anchor)) then allocate(DstOtherStateData%Fz_anchor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1122,7 +1122,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%H)) if (associated(InData%H)) then - call RegPackBounds(Buf, 1, lbound(InData%H), ubound(InData%H)) + call RegPackBounds(Buf, 1, lbound(InData%H, kind=B8Ki), ubound(InData%H, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%H), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%H) @@ -1130,7 +1130,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%V)) if (associated(InData%V)) then - call RegPackBounds(Buf, 1, lbound(InData%V), ubound(InData%V)) + call RegPackBounds(Buf, 1, lbound(InData%V, kind=B8Ki), ubound(InData%V, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%V), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%V) @@ -1138,7 +1138,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Ha)) if (associated(InData%Ha)) then - call RegPackBounds(Buf, 1, lbound(InData%Ha), ubound(InData%Ha)) + call RegPackBounds(Buf, 1, lbound(InData%Ha, kind=B8Ki), ubound(InData%Ha, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Ha), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Ha) @@ -1146,7 +1146,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Va)) if (associated(InData%Va)) then - call RegPackBounds(Buf, 1, lbound(InData%Va), ubound(InData%Va)) + call RegPackBounds(Buf, 1, lbound(InData%Va, kind=B8Ki), ubound(InData%Va, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Va), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Va) @@ -1154,7 +1154,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%x)) if (associated(InData%x)) then - call RegPackBounds(Buf, 1, lbound(InData%x), ubound(InData%x)) + call RegPackBounds(Buf, 1, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%x), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%x) @@ -1162,7 +1162,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%y)) if (associated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%y), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%y) @@ -1170,7 +1170,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%z)) if (associated(InData%z)) then - call RegPackBounds(Buf, 1, lbound(InData%z), ubound(InData%z)) + call RegPackBounds(Buf, 1, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%z), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%z) @@ -1178,7 +1178,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%xa)) if (associated(InData%xa)) then - call RegPackBounds(Buf, 1, lbound(InData%xa), ubound(InData%xa)) + call RegPackBounds(Buf, 1, lbound(InData%xa, kind=B8Ki), ubound(InData%xa, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%xa), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%xa) @@ -1186,7 +1186,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%ya)) if (associated(InData%ya)) then - call RegPackBounds(Buf, 1, lbound(InData%ya), ubound(InData%ya)) + call RegPackBounds(Buf, 1, lbound(InData%ya, kind=B8Ki), ubound(InData%ya, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%ya), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%ya) @@ -1194,7 +1194,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%za)) if (associated(InData%za)) then - call RegPackBounds(Buf, 1, lbound(InData%za), ubound(InData%za)) + call RegPackBounds(Buf, 1, lbound(InData%za, kind=B8Ki), ubound(InData%za, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%za), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%za) @@ -1202,7 +1202,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Fx_connect)) if (associated(InData%Fx_connect)) then - call RegPackBounds(Buf, 1, lbound(InData%Fx_connect), ubound(InData%Fx_connect)) + call RegPackBounds(Buf, 1, lbound(InData%Fx_connect, kind=B8Ki), ubound(InData%Fx_connect, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fx_connect), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fx_connect) @@ -1210,7 +1210,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Fy_connect)) if (associated(InData%Fy_connect)) then - call RegPackBounds(Buf, 1, lbound(InData%Fy_connect), ubound(InData%Fy_connect)) + call RegPackBounds(Buf, 1, lbound(InData%Fy_connect, kind=B8Ki), ubound(InData%Fy_connect, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fy_connect), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fy_connect) @@ -1218,7 +1218,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Fz_connect)) if (associated(InData%Fz_connect)) then - call RegPackBounds(Buf, 1, lbound(InData%Fz_connect), ubound(InData%Fz_connect)) + call RegPackBounds(Buf, 1, lbound(InData%Fz_connect, kind=B8Ki), ubound(InData%Fz_connect, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fz_connect), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fz_connect) @@ -1226,7 +1226,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Fx_anchor)) if (associated(InData%Fx_anchor)) then - call RegPackBounds(Buf, 1, lbound(InData%Fx_anchor), ubound(InData%Fx_anchor)) + call RegPackBounds(Buf, 1, lbound(InData%Fx_anchor, kind=B8Ki), ubound(InData%Fx_anchor, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fx_anchor), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fx_anchor) @@ -1234,7 +1234,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Fy_anchor)) if (associated(InData%Fy_anchor)) then - call RegPackBounds(Buf, 1, lbound(InData%Fy_anchor), ubound(InData%Fy_anchor)) + call RegPackBounds(Buf, 1, lbound(InData%Fy_anchor, kind=B8Ki), ubound(InData%Fy_anchor, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fy_anchor), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fy_anchor) @@ -1242,7 +1242,7 @@ subroutine MAP_PackOtherState(Buf, Indata) end if call RegPack(Buf, associated(InData%Fz_anchor)) if (associated(InData%Fz_anchor)) then - call RegPackBounds(Buf, 1, lbound(InData%Fz_anchor), ubound(InData%Fz_anchor)) + call RegPackBounds(Buf, 1, lbound(InData%Fz_anchor, kind=B8Ki), ubound(InData%Fz_anchor, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fz_anchor), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fz_anchor) @@ -1255,10 +1255,10 @@ subroutine MAP_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MAP_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackOtherState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%H)) deallocate(OutData%H) @@ -1864,7 +1864,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%H_Len = SIZE(OtherStateData%H) IF (OtherStateData%C_obj%H_Len > 0) & - OtherStateData%C_obj%H = C_LOC(OtherStateData%H(LBOUND(OtherStateData%H,1))) + OtherStateData%C_obj%H = C_LOC(OtherStateData%H(LBOUND(OtherStateData%H,1, kind=B8Ki))) END IF END IF @@ -1876,7 +1876,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%V_Len = SIZE(OtherStateData%V) IF (OtherStateData%C_obj%V_Len > 0) & - OtherStateData%C_obj%V = C_LOC(OtherStateData%V(LBOUND(OtherStateData%V,1))) + OtherStateData%C_obj%V = C_LOC(OtherStateData%V(LBOUND(OtherStateData%V,1, kind=B8Ki))) END IF END IF @@ -1888,7 +1888,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Ha_Len = SIZE(OtherStateData%Ha) IF (OtherStateData%C_obj%Ha_Len > 0) & - OtherStateData%C_obj%Ha = C_LOC(OtherStateData%Ha(LBOUND(OtherStateData%Ha,1))) + OtherStateData%C_obj%Ha = C_LOC(OtherStateData%Ha(LBOUND(OtherStateData%Ha,1, kind=B8Ki))) END IF END IF @@ -1900,7 +1900,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Va_Len = SIZE(OtherStateData%Va) IF (OtherStateData%C_obj%Va_Len > 0) & - OtherStateData%C_obj%Va = C_LOC(OtherStateData%Va(LBOUND(OtherStateData%Va,1))) + OtherStateData%C_obj%Va = C_LOC(OtherStateData%Va(LBOUND(OtherStateData%Va,1, kind=B8Ki))) END IF END IF @@ -1912,7 +1912,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%x_Len = SIZE(OtherStateData%x) IF (OtherStateData%C_obj%x_Len > 0) & - OtherStateData%C_obj%x = C_LOC(OtherStateData%x(LBOUND(OtherStateData%x,1))) + OtherStateData%C_obj%x = C_LOC(OtherStateData%x(LBOUND(OtherStateData%x,1, kind=B8Ki))) END IF END IF @@ -1924,7 +1924,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%y_Len = SIZE(OtherStateData%y) IF (OtherStateData%C_obj%y_Len > 0) & - OtherStateData%C_obj%y = C_LOC(OtherStateData%y(LBOUND(OtherStateData%y,1))) + OtherStateData%C_obj%y = C_LOC(OtherStateData%y(LBOUND(OtherStateData%y,1, kind=B8Ki))) END IF END IF @@ -1936,7 +1936,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%z_Len = SIZE(OtherStateData%z) IF (OtherStateData%C_obj%z_Len > 0) & - OtherStateData%C_obj%z = C_LOC(OtherStateData%z(LBOUND(OtherStateData%z,1))) + OtherStateData%C_obj%z = C_LOC(OtherStateData%z(LBOUND(OtherStateData%z,1, kind=B8Ki))) END IF END IF @@ -1948,7 +1948,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%xa_Len = SIZE(OtherStateData%xa) IF (OtherStateData%C_obj%xa_Len > 0) & - OtherStateData%C_obj%xa = C_LOC(OtherStateData%xa(LBOUND(OtherStateData%xa,1))) + OtherStateData%C_obj%xa = C_LOC(OtherStateData%xa(LBOUND(OtherStateData%xa,1, kind=B8Ki))) END IF END IF @@ -1960,7 +1960,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%ya_Len = SIZE(OtherStateData%ya) IF (OtherStateData%C_obj%ya_Len > 0) & - OtherStateData%C_obj%ya = C_LOC(OtherStateData%ya(LBOUND(OtherStateData%ya,1))) + OtherStateData%C_obj%ya = C_LOC(OtherStateData%ya(LBOUND(OtherStateData%ya,1, kind=B8Ki))) END IF END IF @@ -1972,7 +1972,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%za_Len = SIZE(OtherStateData%za) IF (OtherStateData%C_obj%za_Len > 0) & - OtherStateData%C_obj%za = C_LOC(OtherStateData%za(LBOUND(OtherStateData%za,1))) + OtherStateData%C_obj%za = C_LOC(OtherStateData%za(LBOUND(OtherStateData%za,1, kind=B8Ki))) END IF END IF @@ -1984,7 +1984,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Fx_connect_Len = SIZE(OtherStateData%Fx_connect) IF (OtherStateData%C_obj%Fx_connect_Len > 0) & - OtherStateData%C_obj%Fx_connect = C_LOC(OtherStateData%Fx_connect(LBOUND(OtherStateData%Fx_connect,1))) + OtherStateData%C_obj%Fx_connect = C_LOC(OtherStateData%Fx_connect(LBOUND(OtherStateData%Fx_connect,1, kind=B8Ki))) END IF END IF @@ -1996,7 +1996,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Fy_connect_Len = SIZE(OtherStateData%Fy_connect) IF (OtherStateData%C_obj%Fy_connect_Len > 0) & - OtherStateData%C_obj%Fy_connect = C_LOC(OtherStateData%Fy_connect(LBOUND(OtherStateData%Fy_connect,1))) + OtherStateData%C_obj%Fy_connect = C_LOC(OtherStateData%Fy_connect(LBOUND(OtherStateData%Fy_connect,1, kind=B8Ki))) END IF END IF @@ -2008,7 +2008,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Fz_connect_Len = SIZE(OtherStateData%Fz_connect) IF (OtherStateData%C_obj%Fz_connect_Len > 0) & - OtherStateData%C_obj%Fz_connect = C_LOC(OtherStateData%Fz_connect(LBOUND(OtherStateData%Fz_connect,1))) + OtherStateData%C_obj%Fz_connect = C_LOC(OtherStateData%Fz_connect(LBOUND(OtherStateData%Fz_connect,1, kind=B8Ki))) END IF END IF @@ -2020,7 +2020,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Fx_anchor_Len = SIZE(OtherStateData%Fx_anchor) IF (OtherStateData%C_obj%Fx_anchor_Len > 0) & - OtherStateData%C_obj%Fx_anchor = C_LOC(OtherStateData%Fx_anchor(LBOUND(OtherStateData%Fx_anchor,1))) + OtherStateData%C_obj%Fx_anchor = C_LOC(OtherStateData%Fx_anchor(LBOUND(OtherStateData%Fx_anchor,1, kind=B8Ki))) END IF END IF @@ -2032,7 +2032,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Fy_anchor_Len = SIZE(OtherStateData%Fy_anchor) IF (OtherStateData%C_obj%Fy_anchor_Len > 0) & - OtherStateData%C_obj%Fy_anchor = C_LOC(OtherStateData%Fy_anchor(LBOUND(OtherStateData%Fy_anchor,1))) + OtherStateData%C_obj%Fy_anchor = C_LOC(OtherStateData%Fy_anchor(LBOUND(OtherStateData%Fy_anchor,1, kind=B8Ki))) END IF END IF @@ -2044,7 +2044,7 @@ SUBROUTINE MAP_F2C_CopyOtherState( OtherStateData, ErrStat, ErrMsg, SkipPointers ELSE OtherStateData%C_obj%Fz_anchor_Len = SIZE(OtherStateData%Fz_anchor) IF (OtherStateData%C_obj%Fz_anchor_Len > 0) & - OtherStateData%C_obj%Fz_anchor = C_LOC(OtherStateData%Fz_anchor(LBOUND(OtherStateData%Fz_anchor,1))) + OtherStateData%C_obj%Fz_anchor = C_LOC(OtherStateData%Fz_anchor(LBOUND(OtherStateData%Fz_anchor,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -2055,14 +2055,14 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MAP_CopyConstrState' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcConstrStateData%H)) then - LB(1:1) = lbound(SrcConstrStateData%H) - UB(1:1) = ubound(SrcConstrStateData%H) + LB(1:1) = lbound(SrcConstrStateData%H, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%H, kind=B8Ki) if (.not. associated(DstConstrStateData%H)) then allocate(DstConstrStateData%H(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2076,8 +2076,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%H = SrcConstrStateData%H end if if (associated(SrcConstrStateData%V)) then - LB(1:1) = lbound(SrcConstrStateData%V) - UB(1:1) = ubound(SrcConstrStateData%V) + LB(1:1) = lbound(SrcConstrStateData%V, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%V, kind=B8Ki) if (.not. associated(DstConstrStateData%V)) then allocate(DstConstrStateData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2091,8 +2091,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%V = SrcConstrStateData%V end if if (associated(SrcConstrStateData%x)) then - LB(1:1) = lbound(SrcConstrStateData%x) - UB(1:1) = ubound(SrcConstrStateData%x) + LB(1:1) = lbound(SrcConstrStateData%x, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%x, kind=B8Ki) if (.not. associated(DstConstrStateData%x)) then allocate(DstConstrStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2106,8 +2106,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%x = SrcConstrStateData%x end if if (associated(SrcConstrStateData%y)) then - LB(1:1) = lbound(SrcConstrStateData%y) - UB(1:1) = ubound(SrcConstrStateData%y) + LB(1:1) = lbound(SrcConstrStateData%y, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%y, kind=B8Ki) if (.not. associated(DstConstrStateData%y)) then allocate(DstConstrStateData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2121,8 +2121,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%y = SrcConstrStateData%y end if if (associated(SrcConstrStateData%z)) then - LB(1:1) = lbound(SrcConstrStateData%z) - UB(1:1) = ubound(SrcConstrStateData%z) + LB(1:1) = lbound(SrcConstrStateData%z, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%z, kind=B8Ki) if (.not. associated(DstConstrStateData%z)) then allocate(DstConstrStateData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2188,7 +2188,7 @@ subroutine MAP_PackConstrState(Buf, Indata) end if call RegPack(Buf, associated(InData%H)) if (associated(InData%H)) then - call RegPackBounds(Buf, 1, lbound(InData%H), ubound(InData%H)) + call RegPackBounds(Buf, 1, lbound(InData%H, kind=B8Ki), ubound(InData%H, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%H), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%H) @@ -2196,7 +2196,7 @@ subroutine MAP_PackConstrState(Buf, Indata) end if call RegPack(Buf, associated(InData%V)) if (associated(InData%V)) then - call RegPackBounds(Buf, 1, lbound(InData%V), ubound(InData%V)) + call RegPackBounds(Buf, 1, lbound(InData%V, kind=B8Ki), ubound(InData%V, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%V), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%V) @@ -2204,7 +2204,7 @@ subroutine MAP_PackConstrState(Buf, Indata) end if call RegPack(Buf, associated(InData%x)) if (associated(InData%x)) then - call RegPackBounds(Buf, 1, lbound(InData%x), ubound(InData%x)) + call RegPackBounds(Buf, 1, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%x), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%x) @@ -2212,7 +2212,7 @@ subroutine MAP_PackConstrState(Buf, Indata) end if call RegPack(Buf, associated(InData%y)) if (associated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%y), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%y) @@ -2220,7 +2220,7 @@ subroutine MAP_PackConstrState(Buf, Indata) end if call RegPack(Buf, associated(InData%z)) if (associated(InData%z)) then - call RegPackBounds(Buf, 1, lbound(InData%z), ubound(InData%z)) + call RegPackBounds(Buf, 1, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%z), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%z) @@ -2233,10 +2233,10 @@ subroutine MAP_UnPackConstrState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MAP_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackConstrState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%H)) deallocate(OutData%H) @@ -2457,7 +2457,7 @@ SUBROUTINE MAP_F2C_CopyConstrState( ConstrStateData, ErrStat, ErrMsg, SkipPointe ELSE ConstrStateData%C_obj%H_Len = SIZE(ConstrStateData%H) IF (ConstrStateData%C_obj%H_Len > 0) & - ConstrStateData%C_obj%H = C_LOC(ConstrStateData%H(LBOUND(ConstrStateData%H,1))) + ConstrStateData%C_obj%H = C_LOC(ConstrStateData%H(LBOUND(ConstrStateData%H,1, kind=B8Ki))) END IF END IF @@ -2469,7 +2469,7 @@ SUBROUTINE MAP_F2C_CopyConstrState( ConstrStateData, ErrStat, ErrMsg, SkipPointe ELSE ConstrStateData%C_obj%V_Len = SIZE(ConstrStateData%V) IF (ConstrStateData%C_obj%V_Len > 0) & - ConstrStateData%C_obj%V = C_LOC(ConstrStateData%V(LBOUND(ConstrStateData%V,1))) + ConstrStateData%C_obj%V = C_LOC(ConstrStateData%V(LBOUND(ConstrStateData%V,1, kind=B8Ki))) END IF END IF @@ -2481,7 +2481,7 @@ SUBROUTINE MAP_F2C_CopyConstrState( ConstrStateData, ErrStat, ErrMsg, SkipPointe ELSE ConstrStateData%C_obj%x_Len = SIZE(ConstrStateData%x) IF (ConstrStateData%C_obj%x_Len > 0) & - ConstrStateData%C_obj%x = C_LOC(ConstrStateData%x(LBOUND(ConstrStateData%x,1))) + ConstrStateData%C_obj%x = C_LOC(ConstrStateData%x(LBOUND(ConstrStateData%x,1, kind=B8Ki))) END IF END IF @@ -2493,7 +2493,7 @@ SUBROUTINE MAP_F2C_CopyConstrState( ConstrStateData, ErrStat, ErrMsg, SkipPointe ELSE ConstrStateData%C_obj%y_Len = SIZE(ConstrStateData%y) IF (ConstrStateData%C_obj%y_Len > 0) & - ConstrStateData%C_obj%y = C_LOC(ConstrStateData%y(LBOUND(ConstrStateData%y,1))) + ConstrStateData%C_obj%y = C_LOC(ConstrStateData%y(LBOUND(ConstrStateData%y,1, kind=B8Ki))) END IF END IF @@ -2505,7 +2505,7 @@ SUBROUTINE MAP_F2C_CopyConstrState( ConstrStateData, ErrStat, ErrMsg, SkipPointe ELSE ConstrStateData%C_obj%z_Len = SIZE(ConstrStateData%z) IF (ConstrStateData%C_obj%z_Len > 0) & - ConstrStateData%C_obj%z = C_LOC(ConstrStateData%z(LBOUND(ConstrStateData%z,1))) + ConstrStateData%C_obj%z = C_LOC(ConstrStateData%z(LBOUND(ConstrStateData%z,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -2648,15 +2648,15 @@ subroutine MAP_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MAP_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcInputData%x)) then - LB(1:1) = lbound(SrcInputData%x) - UB(1:1) = ubound(SrcInputData%x) + LB(1:1) = lbound(SrcInputData%x, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%x, kind=B8Ki) if (.not. associated(DstInputData%x)) then allocate(DstInputData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2670,8 +2670,8 @@ subroutine MAP_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%x = SrcInputData%x end if if (associated(SrcInputData%y)) then - LB(1:1) = lbound(SrcInputData%y) - UB(1:1) = ubound(SrcInputData%y) + LB(1:1) = lbound(SrcInputData%y, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%y, kind=B8Ki) if (.not. associated(DstInputData%y)) then allocate(DstInputData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2685,8 +2685,8 @@ subroutine MAP_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%y = SrcInputData%y end if if (associated(SrcInputData%z)) then - LB(1:1) = lbound(SrcInputData%z) - UB(1:1) = ubound(SrcInputData%z) + LB(1:1) = lbound(SrcInputData%z, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%z, kind=B8Ki) if (.not. associated(DstInputData%z)) then allocate(DstInputData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2747,7 +2747,7 @@ subroutine MAP_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%x)) if (associated(InData%x)) then - call RegPackBounds(Buf, 1, lbound(InData%x), ubound(InData%x)) + call RegPackBounds(Buf, 1, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%x), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%x) @@ -2755,7 +2755,7 @@ subroutine MAP_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%y)) if (associated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%y), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%y) @@ -2763,7 +2763,7 @@ subroutine MAP_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%z)) if (associated(InData%z)) then - call RegPackBounds(Buf, 1, lbound(InData%z), ubound(InData%z)) + call RegPackBounds(Buf, 1, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%z), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%z) @@ -2777,10 +2777,10 @@ subroutine MAP_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MAP_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%x)) deallocate(OutData%x) @@ -2932,7 +2932,7 @@ SUBROUTINE MAP_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%x_Len = SIZE(InputData%x) IF (InputData%C_obj%x_Len > 0) & - InputData%C_obj%x = C_LOC(InputData%x(LBOUND(InputData%x,1))) + InputData%C_obj%x = C_LOC(InputData%x(LBOUND(InputData%x,1, kind=B8Ki))) END IF END IF @@ -2944,7 +2944,7 @@ SUBROUTINE MAP_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%y_Len = SIZE(InputData%y) IF (InputData%C_obj%y_Len > 0) & - InputData%C_obj%y = C_LOC(InputData%y(LBOUND(InputData%y,1))) + InputData%C_obj%y = C_LOC(InputData%y(LBOUND(InputData%y,1, kind=B8Ki))) END IF END IF @@ -2956,7 +2956,7 @@ SUBROUTINE MAP_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%z_Len = SIZE(InputData%z) IF (InputData%C_obj%z_Len > 0) & - InputData%C_obj%z = C_LOC(InputData%z(LBOUND(InputData%z,1))) + InputData%C_obj%z = C_LOC(InputData%z(LBOUND(InputData%z,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -2967,15 +2967,15 @@ subroutine MAP_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MAP_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcOutputData%Fx)) then - LB(1:1) = lbound(SrcOutputData%Fx) - UB(1:1) = ubound(SrcOutputData%Fx) + LB(1:1) = lbound(SrcOutputData%Fx, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Fx, kind=B8Ki) if (.not. associated(DstOutputData%Fx)) then allocate(DstOutputData%Fx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2989,8 +2989,8 @@ subroutine MAP_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%Fx = SrcOutputData%Fx end if if (associated(SrcOutputData%Fy)) then - LB(1:1) = lbound(SrcOutputData%Fy) - UB(1:1) = ubound(SrcOutputData%Fy) + LB(1:1) = lbound(SrcOutputData%Fy, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Fy, kind=B8Ki) if (.not. associated(DstOutputData%Fy)) then allocate(DstOutputData%Fy(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3004,8 +3004,8 @@ subroutine MAP_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%Fy = SrcOutputData%Fy end if if (associated(SrcOutputData%Fz)) then - LB(1:1) = lbound(SrcOutputData%Fz) - UB(1:1) = ubound(SrcOutputData%Fz) + LB(1:1) = lbound(SrcOutputData%Fz, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Fz, kind=B8Ki) if (.not. associated(DstOutputData%Fz)) then allocate(DstOutputData%Fz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3019,8 +3019,8 @@ subroutine MAP_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%Fz = SrcOutputData%Fz end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3031,8 +3031,8 @@ subroutine MAP_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%WriteOutput = SrcOutputData%WriteOutput end if if (associated(SrcOutputData%wrtOutput)) then - LB(1:1) = lbound(SrcOutputData%wrtOutput) - UB(1:1) = ubound(SrcOutputData%wrtOutput) + LB(1:1) = lbound(SrcOutputData%wrtOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%wrtOutput, kind=B8Ki) if (.not. associated(DstOutputData%wrtOutput)) then allocate(DstOutputData%wrtOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3102,7 +3102,7 @@ subroutine MAP_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%Fx)) if (associated(InData%Fx)) then - call RegPackBounds(Buf, 1, lbound(InData%Fx), ubound(InData%Fx)) + call RegPackBounds(Buf, 1, lbound(InData%Fx, kind=B8Ki), ubound(InData%Fx, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fx), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fx) @@ -3110,7 +3110,7 @@ subroutine MAP_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%Fy)) if (associated(InData%Fy)) then - call RegPackBounds(Buf, 1, lbound(InData%Fy), ubound(InData%Fy)) + call RegPackBounds(Buf, 1, lbound(InData%Fy, kind=B8Ki), ubound(InData%Fy, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fy), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fy) @@ -3118,7 +3118,7 @@ subroutine MAP_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%Fz)) if (associated(InData%Fz)) then - call RegPackBounds(Buf, 1, lbound(InData%Fz), ubound(InData%Fz)) + call RegPackBounds(Buf, 1, lbound(InData%Fz, kind=B8Ki), ubound(InData%Fz, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Fz), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Fz) @@ -3126,12 +3126,12 @@ subroutine MAP_PackOutput(Buf, Indata) end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, associated(InData%wrtOutput)) if (associated(InData%wrtOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%wrtOutput), ubound(InData%wrtOutput)) + call RegPackBounds(Buf, 1, lbound(InData%wrtOutput, kind=B8Ki), ubound(InData%wrtOutput, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%wrtOutput), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%wrtOutput) @@ -3145,10 +3145,10 @@ subroutine MAP_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MAP_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%Fx)) deallocate(OutData%Fx) @@ -3349,7 +3349,7 @@ SUBROUTINE MAP_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%Fx_Len = SIZE(OutputData%Fx) IF (OutputData%C_obj%Fx_Len > 0) & - OutputData%C_obj%Fx = C_LOC(OutputData%Fx(LBOUND(OutputData%Fx,1))) + OutputData%C_obj%Fx = C_LOC(OutputData%Fx(LBOUND(OutputData%Fx,1, kind=B8Ki))) END IF END IF @@ -3361,7 +3361,7 @@ SUBROUTINE MAP_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%Fy_Len = SIZE(OutputData%Fy) IF (OutputData%C_obj%Fy_Len > 0) & - OutputData%C_obj%Fy = C_LOC(OutputData%Fy(LBOUND(OutputData%Fy,1))) + OutputData%C_obj%Fy = C_LOC(OutputData%Fy(LBOUND(OutputData%Fy,1, kind=B8Ki))) END IF END IF @@ -3373,7 +3373,7 @@ SUBROUTINE MAP_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%Fz_Len = SIZE(OutputData%Fz) IF (OutputData%C_obj%Fz_Len > 0) & - OutputData%C_obj%Fz = C_LOC(OutputData%Fz(LBOUND(OutputData%Fz,1))) + OutputData%C_obj%Fz = C_LOC(OutputData%Fz(LBOUND(OutputData%Fz,1, kind=B8Ki))) END IF END IF @@ -3385,7 +3385,7 @@ SUBROUTINE MAP_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%wrtOutput_Len = SIZE(OutputData%wrtOutput) IF (OutputData%C_obj%wrtOutput_Len > 0) & - OutputData%C_obj%wrtOutput = C_LOC(OutputData%wrtOutput(LBOUND(OutputData%wrtOutput,1))) + OutputData%C_obj%wrtOutput = C_LOC(OutputData%wrtOutput(LBOUND(OutputData%wrtOutput,1, kind=B8Ki))) END IF END IF END SUBROUTINE diff --git a/modules/moordyn/src/MoorDyn_Types.f90 b/modules/moordyn/src/MoorDyn_Types.f90 index dc15971c83..4d09dee8d2 100644 --- a/modules/moordyn/src/MoorDyn_Types.f90 +++ b/modules/moordyn/src/MoorDyn_Types.f90 @@ -532,7 +532,7 @@ subroutine MD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyInitInput' @@ -542,8 +542,8 @@ subroutine MD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%rhoW = SrcInitInputData%rhoW DstInitInputData%WtrDepth = SrcInitInputData%WtrDepth if (allocated(SrcInitInputData%PtfmInit)) then - LB(1:2) = lbound(SrcInitInputData%PtfmInit) - UB(1:2) = ubound(SrcInitInputData%PtfmInit) + LB(1:2) = lbound(SrcInitInputData%PtfmInit, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%PtfmInit, kind=B8Ki) if (.not. allocated(DstInitInputData%PtfmInit)) then allocate(DstInitInputData%PtfmInit(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -555,8 +555,8 @@ subroutine MD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta end if DstInitInputData%FarmSize = SrcInitInputData%FarmSize if (allocated(SrcInitInputData%TurbineRefPos)) then - LB(1:2) = lbound(SrcInitInputData%TurbineRefPos) - UB(1:2) = ubound(SrcInitInputData%TurbineRefPos) + LB(1:2) = lbound(SrcInitInputData%TurbineRefPos, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%TurbineRefPos, kind=B8Ki) if (.not. allocated(DstInitInputData%TurbineRefPos)) then allocate(DstInitInputData%TurbineRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -575,8 +575,8 @@ subroutine MD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta if (ErrStat >= AbortErrLev) return DstInitInputData%Echo = SrcInitInputData%Echo if (allocated(SrcInitInputData%OutList)) then - LB(1:1) = lbound(SrcInitInputData%OutList) - UB(1:1) = ubound(SrcInitInputData%OutList) + LB(1:1) = lbound(SrcInitInputData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%OutList, kind=B8Ki) if (.not. allocated(DstInitInputData%OutList)) then allocate(DstInitInputData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -622,13 +622,13 @@ subroutine MD_PackInitInput(Buf, Indata) call RegPack(Buf, InData%WtrDepth) call RegPack(Buf, allocated(InData%PtfmInit)) if (allocated(InData%PtfmInit)) then - call RegPackBounds(Buf, 2, lbound(InData%PtfmInit), ubound(InData%PtfmInit)) + call RegPackBounds(Buf, 2, lbound(InData%PtfmInit, kind=B8Ki), ubound(InData%PtfmInit, kind=B8Ki)) call RegPack(Buf, InData%PtfmInit) end if call RegPack(Buf, InData%FarmSize) call RegPack(Buf, allocated(InData%TurbineRefPos)) if (allocated(InData%TurbineRefPos)) then - call RegPackBounds(Buf, 2, lbound(InData%TurbineRefPos), ubound(InData%TurbineRefPos)) + call RegPackBounds(Buf, 2, lbound(InData%TurbineRefPos, kind=B8Ki), ubound(InData%TurbineRefPos, kind=B8Ki)) call RegPack(Buf, InData%TurbineRefPos) end if call RegPack(Buf, InData%Tmax) @@ -639,7 +639,7 @@ subroutine MD_PackInitInput(Buf, Indata) call RegPack(Buf, InData%Echo) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%Linearize) @@ -651,7 +651,7 @@ subroutine MD_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackInitInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1069,7 +1069,7 @@ subroutine MD_CopyPoint(SrcPointData, DstPointData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyPoint' ErrStat = ErrID_None @@ -1095,8 +1095,8 @@ subroutine MD_CopyPoint(SrcPointData, DstPointData, CtrlCode, ErrStat, ErrMsg) DstPointData%Ud = SrcPointData%Ud DstPointData%zeta = SrcPointData%zeta if (allocated(SrcPointData%PDyn)) then - LB(1:1) = lbound(SrcPointData%PDyn) - UB(1:1) = ubound(SrcPointData%PDyn) + LB(1:1) = lbound(SrcPointData%PDyn, kind=B8Ki) + UB(1:1) = ubound(SrcPointData%PDyn, kind=B8Ki) if (.not. allocated(DstPointData%PDyn)) then allocate(DstPointData%PDyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1149,7 +1149,7 @@ subroutine MD_PackPoint(Buf, Indata) call RegPack(Buf, InData%zeta) call RegPack(Buf, allocated(InData%PDyn)) if (allocated(InData%PDyn)) then - call RegPackBounds(Buf, 1, lbound(InData%PDyn), ubound(InData%PDyn)) + call RegPackBounds(Buf, 1, lbound(InData%PDyn, kind=B8Ki), ubound(InData%PDyn, kind=B8Ki)) call RegPack(Buf, InData%PDyn) end if call RegPack(Buf, InData%Fnet) @@ -1161,7 +1161,7 @@ subroutine MD_UnPackPoint(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_Point), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackPoint' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1231,7 +1231,7 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyRod' ErrStat = ErrID_None @@ -1265,8 +1265,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%pitch = SrcRodData%pitch DstRodData%h0 = SrcRodData%h0 if (allocated(SrcRodData%r)) then - LB(1:2) = lbound(SrcRodData%r) - UB(1:2) = ubound(SrcRodData%r) + LB(1:2) = lbound(SrcRodData%r, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%r, kind=B8Ki) if (.not. allocated(DstRodData%r)) then allocate(DstRodData%r(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1277,8 +1277,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%r = SrcRodData%r end if if (allocated(SrcRodData%rd)) then - LB(1:2) = lbound(SrcRodData%rd) - UB(1:2) = ubound(SrcRodData%rd) + LB(1:2) = lbound(SrcRodData%rd, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%rd, kind=B8Ki) if (.not. allocated(DstRodData%rd)) then allocate(DstRodData%rd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1290,8 +1290,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) end if DstRodData%q = SrcRodData%q if (allocated(SrcRodData%l)) then - LB(1:1) = lbound(SrcRodData%l) - UB(1:1) = ubound(SrcRodData%l) + LB(1:1) = lbound(SrcRodData%l, kind=B8Ki) + UB(1:1) = ubound(SrcRodData%l, kind=B8Ki) if (.not. allocated(DstRodData%l)) then allocate(DstRodData%l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1302,8 +1302,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%l = SrcRodData%l end if if (allocated(SrcRodData%V)) then - LB(1:1) = lbound(SrcRodData%V) - UB(1:1) = ubound(SrcRodData%V) + LB(1:1) = lbound(SrcRodData%V, kind=B8Ki) + UB(1:1) = ubound(SrcRodData%V, kind=B8Ki) if (.not. allocated(DstRodData%V)) then allocate(DstRodData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1314,8 +1314,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%V = SrcRodData%V end if if (allocated(SrcRodData%U)) then - LB(1:2) = lbound(SrcRodData%U) - UB(1:2) = ubound(SrcRodData%U) + LB(1:2) = lbound(SrcRodData%U, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%U, kind=B8Ki) if (.not. allocated(DstRodData%U)) then allocate(DstRodData%U(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1326,8 +1326,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%U = SrcRodData%U end if if (allocated(SrcRodData%Ud)) then - LB(1:2) = lbound(SrcRodData%Ud) - UB(1:2) = ubound(SrcRodData%Ud) + LB(1:2) = lbound(SrcRodData%Ud, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Ud, kind=B8Ki) if (.not. allocated(DstRodData%Ud)) then allocate(DstRodData%Ud(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1338,8 +1338,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Ud = SrcRodData%Ud end if if (allocated(SrcRodData%zeta)) then - LB(1:1) = lbound(SrcRodData%zeta) - UB(1:1) = ubound(SrcRodData%zeta) + LB(1:1) = lbound(SrcRodData%zeta, kind=B8Ki) + UB(1:1) = ubound(SrcRodData%zeta, kind=B8Ki) if (.not. allocated(DstRodData%zeta)) then allocate(DstRodData%zeta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1350,8 +1350,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%zeta = SrcRodData%zeta end if if (allocated(SrcRodData%PDyn)) then - LB(1:1) = lbound(SrcRodData%PDyn) - UB(1:1) = ubound(SrcRodData%PDyn) + LB(1:1) = lbound(SrcRodData%PDyn, kind=B8Ki) + UB(1:1) = ubound(SrcRodData%PDyn, kind=B8Ki) if (.not. allocated(DstRodData%PDyn)) then allocate(DstRodData%PDyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1362,8 +1362,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%PDyn = SrcRodData%PDyn end if if (allocated(SrcRodData%W)) then - LB(1:2) = lbound(SrcRodData%W) - UB(1:2) = ubound(SrcRodData%W) + LB(1:2) = lbound(SrcRodData%W, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%W, kind=B8Ki) if (.not. allocated(DstRodData%W)) then allocate(DstRodData%W(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1374,8 +1374,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%W = SrcRodData%W end if if (allocated(SrcRodData%Bo)) then - LB(1:2) = lbound(SrcRodData%Bo) - UB(1:2) = ubound(SrcRodData%Bo) + LB(1:2) = lbound(SrcRodData%Bo, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Bo, kind=B8Ki) if (.not. allocated(DstRodData%Bo)) then allocate(DstRodData%Bo(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1386,8 +1386,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Bo = SrcRodData%Bo end if if (allocated(SrcRodData%Pd)) then - LB(1:2) = lbound(SrcRodData%Pd) - UB(1:2) = ubound(SrcRodData%Pd) + LB(1:2) = lbound(SrcRodData%Pd, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Pd, kind=B8Ki) if (.not. allocated(DstRodData%Pd)) then allocate(DstRodData%Pd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1398,8 +1398,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Pd = SrcRodData%Pd end if if (allocated(SrcRodData%Dp)) then - LB(1:2) = lbound(SrcRodData%Dp) - UB(1:2) = ubound(SrcRodData%Dp) + LB(1:2) = lbound(SrcRodData%Dp, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Dp, kind=B8Ki) if (.not. allocated(DstRodData%Dp)) then allocate(DstRodData%Dp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1410,8 +1410,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Dp = SrcRodData%Dp end if if (allocated(SrcRodData%Dq)) then - LB(1:2) = lbound(SrcRodData%Dq) - UB(1:2) = ubound(SrcRodData%Dq) + LB(1:2) = lbound(SrcRodData%Dq, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Dq, kind=B8Ki) if (.not. allocated(DstRodData%Dq)) then allocate(DstRodData%Dq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1422,8 +1422,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Dq = SrcRodData%Dq end if if (allocated(SrcRodData%Ap)) then - LB(1:2) = lbound(SrcRodData%Ap) - UB(1:2) = ubound(SrcRodData%Ap) + LB(1:2) = lbound(SrcRodData%Ap, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Ap, kind=B8Ki) if (.not. allocated(DstRodData%Ap)) then allocate(DstRodData%Ap(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1434,8 +1434,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Ap = SrcRodData%Ap end if if (allocated(SrcRodData%Aq)) then - LB(1:2) = lbound(SrcRodData%Aq) - UB(1:2) = ubound(SrcRodData%Aq) + LB(1:2) = lbound(SrcRodData%Aq, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Aq, kind=B8Ki) if (.not. allocated(DstRodData%Aq)) then allocate(DstRodData%Aq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1446,8 +1446,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Aq = SrcRodData%Aq end if if (allocated(SrcRodData%B)) then - LB(1:2) = lbound(SrcRodData%B) - UB(1:2) = ubound(SrcRodData%B) + LB(1:2) = lbound(SrcRodData%B, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%B, kind=B8Ki) if (.not. allocated(DstRodData%B)) then allocate(DstRodData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1458,8 +1458,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%B = SrcRodData%B end if if (allocated(SrcRodData%Fnet)) then - LB(1:2) = lbound(SrcRodData%Fnet) - UB(1:2) = ubound(SrcRodData%Fnet) + LB(1:2) = lbound(SrcRodData%Fnet, kind=B8Ki) + UB(1:2) = ubound(SrcRodData%Fnet, kind=B8Ki) if (.not. allocated(DstRodData%Fnet)) then allocate(DstRodData%Fnet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1470,8 +1470,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%Fnet = SrcRodData%Fnet end if if (allocated(SrcRodData%M)) then - LB(1:3) = lbound(SrcRodData%M) - UB(1:3) = ubound(SrcRodData%M) + LB(1:3) = lbound(SrcRodData%M, kind=B8Ki) + UB(1:3) = ubound(SrcRodData%M, kind=B8Ki) if (.not. allocated(DstRodData%M)) then allocate(DstRodData%M(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1492,8 +1492,8 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) DstRodData%OrMat = SrcRodData%OrMat DstRodData%RodUnOut = SrcRodData%RodUnOut if (allocated(SrcRodData%RodWrOutput)) then - LB(1:1) = lbound(SrcRodData%RodWrOutput) - UB(1:1) = ubound(SrcRodData%RodWrOutput) + LB(1:1) = lbound(SrcRodData%RodWrOutput, kind=B8Ki) + UB(1:1) = ubound(SrcRodData%RodWrOutput, kind=B8Ki) if (.not. allocated(DstRodData%RodWrOutput)) then allocate(DstRodData%RodWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1606,93 +1606,93 @@ subroutine MD_PackRod(Buf, Indata) call RegPack(Buf, InData%h0) call RegPack(Buf, allocated(InData%r)) if (allocated(InData%r)) then - call RegPackBounds(Buf, 2, lbound(InData%r), ubound(InData%r)) + call RegPackBounds(Buf, 2, lbound(InData%r, kind=B8Ki), ubound(InData%r, kind=B8Ki)) call RegPack(Buf, InData%r) end if call RegPack(Buf, allocated(InData%rd)) if (allocated(InData%rd)) then - call RegPackBounds(Buf, 2, lbound(InData%rd), ubound(InData%rd)) + call RegPackBounds(Buf, 2, lbound(InData%rd, kind=B8Ki), ubound(InData%rd, kind=B8Ki)) call RegPack(Buf, InData%rd) end if call RegPack(Buf, InData%q) call RegPack(Buf, allocated(InData%l)) if (allocated(InData%l)) then - call RegPackBounds(Buf, 1, lbound(InData%l), ubound(InData%l)) + call RegPackBounds(Buf, 1, lbound(InData%l, kind=B8Ki), ubound(InData%l, kind=B8Ki)) call RegPack(Buf, InData%l) end if call RegPack(Buf, allocated(InData%V)) if (allocated(InData%V)) then - call RegPackBounds(Buf, 1, lbound(InData%V), ubound(InData%V)) + call RegPackBounds(Buf, 1, lbound(InData%V, kind=B8Ki), ubound(InData%V, kind=B8Ki)) call RegPack(Buf, InData%V) end if call RegPack(Buf, allocated(InData%U)) if (allocated(InData%U)) then - call RegPackBounds(Buf, 2, lbound(InData%U), ubound(InData%U)) + call RegPackBounds(Buf, 2, lbound(InData%U, kind=B8Ki), ubound(InData%U, kind=B8Ki)) call RegPack(Buf, InData%U) end if call RegPack(Buf, allocated(InData%Ud)) if (allocated(InData%Ud)) then - call RegPackBounds(Buf, 2, lbound(InData%Ud), ubound(InData%Ud)) + call RegPackBounds(Buf, 2, lbound(InData%Ud, kind=B8Ki), ubound(InData%Ud, kind=B8Ki)) call RegPack(Buf, InData%Ud) end if call RegPack(Buf, allocated(InData%zeta)) if (allocated(InData%zeta)) then - call RegPackBounds(Buf, 1, lbound(InData%zeta), ubound(InData%zeta)) + call RegPackBounds(Buf, 1, lbound(InData%zeta, kind=B8Ki), ubound(InData%zeta, kind=B8Ki)) call RegPack(Buf, InData%zeta) end if call RegPack(Buf, allocated(InData%PDyn)) if (allocated(InData%PDyn)) then - call RegPackBounds(Buf, 1, lbound(InData%PDyn), ubound(InData%PDyn)) + call RegPackBounds(Buf, 1, lbound(InData%PDyn, kind=B8Ki), ubound(InData%PDyn, kind=B8Ki)) call RegPack(Buf, InData%PDyn) end if call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 2, lbound(InData%W), ubound(InData%W)) + call RegPackBounds(Buf, 2, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) call RegPack(Buf, InData%W) end if call RegPack(Buf, allocated(InData%Bo)) if (allocated(InData%Bo)) then - call RegPackBounds(Buf, 2, lbound(InData%Bo), ubound(InData%Bo)) + call RegPackBounds(Buf, 2, lbound(InData%Bo, kind=B8Ki), ubound(InData%Bo, kind=B8Ki)) call RegPack(Buf, InData%Bo) end if call RegPack(Buf, allocated(InData%Pd)) if (allocated(InData%Pd)) then - call RegPackBounds(Buf, 2, lbound(InData%Pd), ubound(InData%Pd)) + call RegPackBounds(Buf, 2, lbound(InData%Pd, kind=B8Ki), ubound(InData%Pd, kind=B8Ki)) call RegPack(Buf, InData%Pd) end if call RegPack(Buf, allocated(InData%Dp)) if (allocated(InData%Dp)) then - call RegPackBounds(Buf, 2, lbound(InData%Dp), ubound(InData%Dp)) + call RegPackBounds(Buf, 2, lbound(InData%Dp, kind=B8Ki), ubound(InData%Dp, kind=B8Ki)) call RegPack(Buf, InData%Dp) end if call RegPack(Buf, allocated(InData%Dq)) if (allocated(InData%Dq)) then - call RegPackBounds(Buf, 2, lbound(InData%Dq), ubound(InData%Dq)) + call RegPackBounds(Buf, 2, lbound(InData%Dq, kind=B8Ki), ubound(InData%Dq, kind=B8Ki)) call RegPack(Buf, InData%Dq) end if call RegPack(Buf, allocated(InData%Ap)) if (allocated(InData%Ap)) then - call RegPackBounds(Buf, 2, lbound(InData%Ap), ubound(InData%Ap)) + call RegPackBounds(Buf, 2, lbound(InData%Ap, kind=B8Ki), ubound(InData%Ap, kind=B8Ki)) call RegPack(Buf, InData%Ap) end if call RegPack(Buf, allocated(InData%Aq)) if (allocated(InData%Aq)) then - call RegPackBounds(Buf, 2, lbound(InData%Aq), ubound(InData%Aq)) + call RegPackBounds(Buf, 2, lbound(InData%Aq, kind=B8Ki), ubound(InData%Aq, kind=B8Ki)) call RegPack(Buf, InData%Aq) end if call RegPack(Buf, allocated(InData%B)) if (allocated(InData%B)) then - call RegPackBounds(Buf, 2, lbound(InData%B), ubound(InData%B)) + call RegPackBounds(Buf, 2, lbound(InData%B, kind=B8Ki), ubound(InData%B, kind=B8Ki)) call RegPack(Buf, InData%B) end if call RegPack(Buf, allocated(InData%Fnet)) if (allocated(InData%Fnet)) then - call RegPackBounds(Buf, 2, lbound(InData%Fnet), ubound(InData%Fnet)) + call RegPackBounds(Buf, 2, lbound(InData%Fnet, kind=B8Ki), ubound(InData%Fnet, kind=B8Ki)) call RegPack(Buf, InData%Fnet) end if call RegPack(Buf, allocated(InData%M)) if (allocated(InData%M)) then - call RegPackBounds(Buf, 3, lbound(InData%M), ubound(InData%M)) + call RegPackBounds(Buf, 3, lbound(InData%M, kind=B8Ki), ubound(InData%M, kind=B8Ki)) call RegPack(Buf, InData%M) end if call RegPack(Buf, InData%FextA) @@ -1707,7 +1707,7 @@ subroutine MD_PackRod(Buf, Indata) call RegPack(Buf, InData%RodUnOut) call RegPack(Buf, allocated(InData%RodWrOutput)) if (allocated(InData%RodWrOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%RodWrOutput), ubound(InData%RodWrOutput)) + call RegPackBounds(Buf, 1, lbound(InData%RodWrOutput, kind=B8Ki), ubound(InData%RodWrOutput, kind=B8Ki)) call RegPack(Buf, InData%RodWrOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1717,7 +1717,7 @@ subroutine MD_UnPackRod(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_Rod), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackRod' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2073,7 +2073,7 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyLine' ErrStat = ErrID_None @@ -2111,8 +2111,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%bstiffYs = SrcLineData%bstiffYs DstLineData%time = SrcLineData%time if (allocated(SrcLineData%r)) then - LB(1:2) = lbound(SrcLineData%r) - UB(1:2) = ubound(SrcLineData%r) + LB(1:2) = lbound(SrcLineData%r, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%r, kind=B8Ki) if (.not. allocated(DstLineData%r)) then allocate(DstLineData%r(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2123,8 +2123,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%r = SrcLineData%r end if if (allocated(SrcLineData%rd)) then - LB(1:2) = lbound(SrcLineData%rd) - UB(1:2) = ubound(SrcLineData%rd) + LB(1:2) = lbound(SrcLineData%rd, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%rd, kind=B8Ki) if (.not. allocated(DstLineData%rd)) then allocate(DstLineData%rd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2135,8 +2135,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%rd = SrcLineData%rd end if if (allocated(SrcLineData%q)) then - LB(1:2) = lbound(SrcLineData%q) - UB(1:2) = ubound(SrcLineData%q) + LB(1:2) = lbound(SrcLineData%q, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%q, kind=B8Ki) if (.not. allocated(DstLineData%q)) then allocate(DstLineData%q(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2147,8 +2147,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%q = SrcLineData%q end if if (allocated(SrcLineData%qs)) then - LB(1:2) = lbound(SrcLineData%qs) - UB(1:2) = ubound(SrcLineData%qs) + LB(1:2) = lbound(SrcLineData%qs, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%qs, kind=B8Ki) if (.not. allocated(DstLineData%qs)) then allocate(DstLineData%qs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2159,8 +2159,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%qs = SrcLineData%qs end if if (allocated(SrcLineData%l)) then - LB(1:1) = lbound(SrcLineData%l) - UB(1:1) = ubound(SrcLineData%l) + LB(1:1) = lbound(SrcLineData%l, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%l, kind=B8Ki) if (.not. allocated(DstLineData%l)) then allocate(DstLineData%l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2171,8 +2171,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%l = SrcLineData%l end if if (allocated(SrcLineData%ld)) then - LB(1:1) = lbound(SrcLineData%ld) - UB(1:1) = ubound(SrcLineData%ld) + LB(1:1) = lbound(SrcLineData%ld, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%ld, kind=B8Ki) if (.not. allocated(DstLineData%ld)) then allocate(DstLineData%ld(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2183,8 +2183,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%ld = SrcLineData%ld end if if (allocated(SrcLineData%lstr)) then - LB(1:1) = lbound(SrcLineData%lstr) - UB(1:1) = ubound(SrcLineData%lstr) + LB(1:1) = lbound(SrcLineData%lstr, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%lstr, kind=B8Ki) if (.not. allocated(DstLineData%lstr)) then allocate(DstLineData%lstr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2195,8 +2195,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%lstr = SrcLineData%lstr end if if (allocated(SrcLineData%lstrd)) then - LB(1:1) = lbound(SrcLineData%lstrd) - UB(1:1) = ubound(SrcLineData%lstrd) + LB(1:1) = lbound(SrcLineData%lstrd, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%lstrd, kind=B8Ki) if (.not. allocated(DstLineData%lstrd)) then allocate(DstLineData%lstrd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2207,8 +2207,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%lstrd = SrcLineData%lstrd end if if (allocated(SrcLineData%Kurv)) then - LB(1:1) = lbound(SrcLineData%Kurv) - UB(1:1) = ubound(SrcLineData%Kurv) + LB(1:1) = lbound(SrcLineData%Kurv, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%Kurv, kind=B8Ki) if (.not. allocated(DstLineData%Kurv)) then allocate(DstLineData%Kurv(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2219,8 +2219,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Kurv = SrcLineData%Kurv end if if (allocated(SrcLineData%dl_1)) then - LB(1:1) = lbound(SrcLineData%dl_1) - UB(1:1) = ubound(SrcLineData%dl_1) + LB(1:1) = lbound(SrcLineData%dl_1, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%dl_1, kind=B8Ki) if (.not. allocated(DstLineData%dl_1)) then allocate(DstLineData%dl_1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2231,8 +2231,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%dl_1 = SrcLineData%dl_1 end if if (allocated(SrcLineData%V)) then - LB(1:1) = lbound(SrcLineData%V) - UB(1:1) = ubound(SrcLineData%V) + LB(1:1) = lbound(SrcLineData%V, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%V, kind=B8Ki) if (.not. allocated(DstLineData%V)) then allocate(DstLineData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2243,8 +2243,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%V = SrcLineData%V end if if (allocated(SrcLineData%U)) then - LB(1:2) = lbound(SrcLineData%U) - UB(1:2) = ubound(SrcLineData%U) + LB(1:2) = lbound(SrcLineData%U, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%U, kind=B8Ki) if (.not. allocated(DstLineData%U)) then allocate(DstLineData%U(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2255,8 +2255,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%U = SrcLineData%U end if if (allocated(SrcLineData%Ud)) then - LB(1:2) = lbound(SrcLineData%Ud) - UB(1:2) = ubound(SrcLineData%Ud) + LB(1:2) = lbound(SrcLineData%Ud, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Ud, kind=B8Ki) if (.not. allocated(DstLineData%Ud)) then allocate(DstLineData%Ud(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2267,8 +2267,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Ud = SrcLineData%Ud end if if (allocated(SrcLineData%zeta)) then - LB(1:1) = lbound(SrcLineData%zeta) - UB(1:1) = ubound(SrcLineData%zeta) + LB(1:1) = lbound(SrcLineData%zeta, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%zeta, kind=B8Ki) if (.not. allocated(DstLineData%zeta)) then allocate(DstLineData%zeta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2279,8 +2279,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%zeta = SrcLineData%zeta end if if (allocated(SrcLineData%PDyn)) then - LB(1:1) = lbound(SrcLineData%PDyn) - UB(1:1) = ubound(SrcLineData%PDyn) + LB(1:1) = lbound(SrcLineData%PDyn, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%PDyn, kind=B8Ki) if (.not. allocated(DstLineData%PDyn)) then allocate(DstLineData%PDyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2291,8 +2291,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%PDyn = SrcLineData%PDyn end if if (allocated(SrcLineData%T)) then - LB(1:2) = lbound(SrcLineData%T) - UB(1:2) = ubound(SrcLineData%T) + LB(1:2) = lbound(SrcLineData%T, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%T, kind=B8Ki) if (.not. allocated(DstLineData%T)) then allocate(DstLineData%T(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2303,8 +2303,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%T = SrcLineData%T end if if (allocated(SrcLineData%Td)) then - LB(1:2) = lbound(SrcLineData%Td) - UB(1:2) = ubound(SrcLineData%Td) + LB(1:2) = lbound(SrcLineData%Td, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Td, kind=B8Ki) if (.not. allocated(DstLineData%Td)) then allocate(DstLineData%Td(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2315,8 +2315,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Td = SrcLineData%Td end if if (allocated(SrcLineData%W)) then - LB(1:2) = lbound(SrcLineData%W) - UB(1:2) = ubound(SrcLineData%W) + LB(1:2) = lbound(SrcLineData%W, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%W, kind=B8Ki) if (.not. allocated(DstLineData%W)) then allocate(DstLineData%W(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2327,8 +2327,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%W = SrcLineData%W end if if (allocated(SrcLineData%Dp)) then - LB(1:2) = lbound(SrcLineData%Dp) - UB(1:2) = ubound(SrcLineData%Dp) + LB(1:2) = lbound(SrcLineData%Dp, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Dp, kind=B8Ki) if (.not. allocated(DstLineData%Dp)) then allocate(DstLineData%Dp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2339,8 +2339,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Dp = SrcLineData%Dp end if if (allocated(SrcLineData%Dq)) then - LB(1:2) = lbound(SrcLineData%Dq) - UB(1:2) = ubound(SrcLineData%Dq) + LB(1:2) = lbound(SrcLineData%Dq, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Dq, kind=B8Ki) if (.not. allocated(DstLineData%Dq)) then allocate(DstLineData%Dq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2351,8 +2351,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Dq = SrcLineData%Dq end if if (allocated(SrcLineData%Ap)) then - LB(1:2) = lbound(SrcLineData%Ap) - UB(1:2) = ubound(SrcLineData%Ap) + LB(1:2) = lbound(SrcLineData%Ap, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Ap, kind=B8Ki) if (.not. allocated(DstLineData%Ap)) then allocate(DstLineData%Ap(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2363,8 +2363,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Ap = SrcLineData%Ap end if if (allocated(SrcLineData%Aq)) then - LB(1:2) = lbound(SrcLineData%Aq) - UB(1:2) = ubound(SrcLineData%Aq) + LB(1:2) = lbound(SrcLineData%Aq, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Aq, kind=B8Ki) if (.not. allocated(DstLineData%Aq)) then allocate(DstLineData%Aq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2375,8 +2375,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Aq = SrcLineData%Aq end if if (allocated(SrcLineData%B)) then - LB(1:2) = lbound(SrcLineData%B) - UB(1:2) = ubound(SrcLineData%B) + LB(1:2) = lbound(SrcLineData%B, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%B, kind=B8Ki) if (.not. allocated(DstLineData%B)) then allocate(DstLineData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2387,8 +2387,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%B = SrcLineData%B end if if (allocated(SrcLineData%Bs)) then - LB(1:2) = lbound(SrcLineData%Bs) - UB(1:2) = ubound(SrcLineData%Bs) + LB(1:2) = lbound(SrcLineData%Bs, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Bs, kind=B8Ki) if (.not. allocated(DstLineData%Bs)) then allocate(DstLineData%Bs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2399,8 +2399,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Bs = SrcLineData%Bs end if if (allocated(SrcLineData%Fnet)) then - LB(1:2) = lbound(SrcLineData%Fnet) - UB(1:2) = ubound(SrcLineData%Fnet) + LB(1:2) = lbound(SrcLineData%Fnet, kind=B8Ki) + UB(1:2) = ubound(SrcLineData%Fnet, kind=B8Ki) if (.not. allocated(DstLineData%Fnet)) then allocate(DstLineData%Fnet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2411,8 +2411,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%Fnet = SrcLineData%Fnet end if if (allocated(SrcLineData%S)) then - LB(1:3) = lbound(SrcLineData%S) - UB(1:3) = ubound(SrcLineData%S) + LB(1:3) = lbound(SrcLineData%S, kind=B8Ki) + UB(1:3) = ubound(SrcLineData%S, kind=B8Ki) if (.not. allocated(DstLineData%S)) then allocate(DstLineData%S(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2423,8 +2423,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%S = SrcLineData%S end if if (allocated(SrcLineData%M)) then - LB(1:3) = lbound(SrcLineData%M) - UB(1:3) = ubound(SrcLineData%M) + LB(1:3) = lbound(SrcLineData%M, kind=B8Ki) + UB(1:3) = ubound(SrcLineData%M, kind=B8Ki) if (.not. allocated(DstLineData%M)) then allocate(DstLineData%M(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2438,8 +2438,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%EndMomentB = SrcLineData%EndMomentB DstLineData%LineUnOut = SrcLineData%LineUnOut if (allocated(SrcLineData%LineWrOutput)) then - LB(1:1) = lbound(SrcLineData%LineWrOutput) - UB(1:1) = ubound(SrcLineData%LineWrOutput) + LB(1:1) = lbound(SrcLineData%LineWrOutput, kind=B8Ki) + UB(1:1) = ubound(SrcLineData%LineWrOutput, kind=B8Ki) if (.not. allocated(DstLineData%LineWrOutput)) then allocate(DstLineData%LineWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2583,137 +2583,137 @@ subroutine MD_PackLine(Buf, Indata) call RegPack(Buf, InData%time) call RegPack(Buf, allocated(InData%r)) if (allocated(InData%r)) then - call RegPackBounds(Buf, 2, lbound(InData%r), ubound(InData%r)) + call RegPackBounds(Buf, 2, lbound(InData%r, kind=B8Ki), ubound(InData%r, kind=B8Ki)) call RegPack(Buf, InData%r) end if call RegPack(Buf, allocated(InData%rd)) if (allocated(InData%rd)) then - call RegPackBounds(Buf, 2, lbound(InData%rd), ubound(InData%rd)) + call RegPackBounds(Buf, 2, lbound(InData%rd, kind=B8Ki), ubound(InData%rd, kind=B8Ki)) call RegPack(Buf, InData%rd) end if call RegPack(Buf, allocated(InData%q)) if (allocated(InData%q)) then - call RegPackBounds(Buf, 2, lbound(InData%q), ubound(InData%q)) + call RegPackBounds(Buf, 2, lbound(InData%q, kind=B8Ki), ubound(InData%q, kind=B8Ki)) call RegPack(Buf, InData%q) end if call RegPack(Buf, allocated(InData%qs)) if (allocated(InData%qs)) then - call RegPackBounds(Buf, 2, lbound(InData%qs), ubound(InData%qs)) + call RegPackBounds(Buf, 2, lbound(InData%qs, kind=B8Ki), ubound(InData%qs, kind=B8Ki)) call RegPack(Buf, InData%qs) end if call RegPack(Buf, allocated(InData%l)) if (allocated(InData%l)) then - call RegPackBounds(Buf, 1, lbound(InData%l), ubound(InData%l)) + call RegPackBounds(Buf, 1, lbound(InData%l, kind=B8Ki), ubound(InData%l, kind=B8Ki)) call RegPack(Buf, InData%l) end if call RegPack(Buf, allocated(InData%ld)) if (allocated(InData%ld)) then - call RegPackBounds(Buf, 1, lbound(InData%ld), ubound(InData%ld)) + call RegPackBounds(Buf, 1, lbound(InData%ld, kind=B8Ki), ubound(InData%ld, kind=B8Ki)) call RegPack(Buf, InData%ld) end if call RegPack(Buf, allocated(InData%lstr)) if (allocated(InData%lstr)) then - call RegPackBounds(Buf, 1, lbound(InData%lstr), ubound(InData%lstr)) + call RegPackBounds(Buf, 1, lbound(InData%lstr, kind=B8Ki), ubound(InData%lstr, kind=B8Ki)) call RegPack(Buf, InData%lstr) end if call RegPack(Buf, allocated(InData%lstrd)) if (allocated(InData%lstrd)) then - call RegPackBounds(Buf, 1, lbound(InData%lstrd), ubound(InData%lstrd)) + call RegPackBounds(Buf, 1, lbound(InData%lstrd, kind=B8Ki), ubound(InData%lstrd, kind=B8Ki)) call RegPack(Buf, InData%lstrd) end if call RegPack(Buf, allocated(InData%Kurv)) if (allocated(InData%Kurv)) then - call RegPackBounds(Buf, 1, lbound(InData%Kurv), ubound(InData%Kurv)) + call RegPackBounds(Buf, 1, lbound(InData%Kurv, kind=B8Ki), ubound(InData%Kurv, kind=B8Ki)) call RegPack(Buf, InData%Kurv) end if call RegPack(Buf, allocated(InData%dl_1)) if (allocated(InData%dl_1)) then - call RegPackBounds(Buf, 1, lbound(InData%dl_1), ubound(InData%dl_1)) + call RegPackBounds(Buf, 1, lbound(InData%dl_1, kind=B8Ki), ubound(InData%dl_1, kind=B8Ki)) call RegPack(Buf, InData%dl_1) end if call RegPack(Buf, allocated(InData%V)) if (allocated(InData%V)) then - call RegPackBounds(Buf, 1, lbound(InData%V), ubound(InData%V)) + call RegPackBounds(Buf, 1, lbound(InData%V, kind=B8Ki), ubound(InData%V, kind=B8Ki)) call RegPack(Buf, InData%V) end if call RegPack(Buf, allocated(InData%U)) if (allocated(InData%U)) then - call RegPackBounds(Buf, 2, lbound(InData%U), ubound(InData%U)) + call RegPackBounds(Buf, 2, lbound(InData%U, kind=B8Ki), ubound(InData%U, kind=B8Ki)) call RegPack(Buf, InData%U) end if call RegPack(Buf, allocated(InData%Ud)) if (allocated(InData%Ud)) then - call RegPackBounds(Buf, 2, lbound(InData%Ud), ubound(InData%Ud)) + call RegPackBounds(Buf, 2, lbound(InData%Ud, kind=B8Ki), ubound(InData%Ud, kind=B8Ki)) call RegPack(Buf, InData%Ud) end if call RegPack(Buf, allocated(InData%zeta)) if (allocated(InData%zeta)) then - call RegPackBounds(Buf, 1, lbound(InData%zeta), ubound(InData%zeta)) + call RegPackBounds(Buf, 1, lbound(InData%zeta, kind=B8Ki), ubound(InData%zeta, kind=B8Ki)) call RegPack(Buf, InData%zeta) end if call RegPack(Buf, allocated(InData%PDyn)) if (allocated(InData%PDyn)) then - call RegPackBounds(Buf, 1, lbound(InData%PDyn), ubound(InData%PDyn)) + call RegPackBounds(Buf, 1, lbound(InData%PDyn, kind=B8Ki), ubound(InData%PDyn, kind=B8Ki)) call RegPack(Buf, InData%PDyn) end if call RegPack(Buf, allocated(InData%T)) if (allocated(InData%T)) then - call RegPackBounds(Buf, 2, lbound(InData%T), ubound(InData%T)) + call RegPackBounds(Buf, 2, lbound(InData%T, kind=B8Ki), ubound(InData%T, kind=B8Ki)) call RegPack(Buf, InData%T) end if call RegPack(Buf, allocated(InData%Td)) if (allocated(InData%Td)) then - call RegPackBounds(Buf, 2, lbound(InData%Td), ubound(InData%Td)) + call RegPackBounds(Buf, 2, lbound(InData%Td, kind=B8Ki), ubound(InData%Td, kind=B8Ki)) call RegPack(Buf, InData%Td) end if call RegPack(Buf, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(Buf, 2, lbound(InData%W), ubound(InData%W)) + call RegPackBounds(Buf, 2, lbound(InData%W, kind=B8Ki), ubound(InData%W, kind=B8Ki)) call RegPack(Buf, InData%W) end if call RegPack(Buf, allocated(InData%Dp)) if (allocated(InData%Dp)) then - call RegPackBounds(Buf, 2, lbound(InData%Dp), ubound(InData%Dp)) + call RegPackBounds(Buf, 2, lbound(InData%Dp, kind=B8Ki), ubound(InData%Dp, kind=B8Ki)) call RegPack(Buf, InData%Dp) end if call RegPack(Buf, allocated(InData%Dq)) if (allocated(InData%Dq)) then - call RegPackBounds(Buf, 2, lbound(InData%Dq), ubound(InData%Dq)) + call RegPackBounds(Buf, 2, lbound(InData%Dq, kind=B8Ki), ubound(InData%Dq, kind=B8Ki)) call RegPack(Buf, InData%Dq) end if call RegPack(Buf, allocated(InData%Ap)) if (allocated(InData%Ap)) then - call RegPackBounds(Buf, 2, lbound(InData%Ap), ubound(InData%Ap)) + call RegPackBounds(Buf, 2, lbound(InData%Ap, kind=B8Ki), ubound(InData%Ap, kind=B8Ki)) call RegPack(Buf, InData%Ap) end if call RegPack(Buf, allocated(InData%Aq)) if (allocated(InData%Aq)) then - call RegPackBounds(Buf, 2, lbound(InData%Aq), ubound(InData%Aq)) + call RegPackBounds(Buf, 2, lbound(InData%Aq, kind=B8Ki), ubound(InData%Aq, kind=B8Ki)) call RegPack(Buf, InData%Aq) end if call RegPack(Buf, allocated(InData%B)) if (allocated(InData%B)) then - call RegPackBounds(Buf, 2, lbound(InData%B), ubound(InData%B)) + call RegPackBounds(Buf, 2, lbound(InData%B, kind=B8Ki), ubound(InData%B, kind=B8Ki)) call RegPack(Buf, InData%B) end if call RegPack(Buf, allocated(InData%Bs)) if (allocated(InData%Bs)) then - call RegPackBounds(Buf, 2, lbound(InData%Bs), ubound(InData%Bs)) + call RegPackBounds(Buf, 2, lbound(InData%Bs, kind=B8Ki), ubound(InData%Bs, kind=B8Ki)) call RegPack(Buf, InData%Bs) end if call RegPack(Buf, allocated(InData%Fnet)) if (allocated(InData%Fnet)) then - call RegPackBounds(Buf, 2, lbound(InData%Fnet), ubound(InData%Fnet)) + call RegPackBounds(Buf, 2, lbound(InData%Fnet, kind=B8Ki), ubound(InData%Fnet, kind=B8Ki)) call RegPack(Buf, InData%Fnet) end if call RegPack(Buf, allocated(InData%S)) if (allocated(InData%S)) then - call RegPackBounds(Buf, 3, lbound(InData%S), ubound(InData%S)) + call RegPackBounds(Buf, 3, lbound(InData%S, kind=B8Ki), ubound(InData%S, kind=B8Ki)) call RegPack(Buf, InData%S) end if call RegPack(Buf, allocated(InData%M)) if (allocated(InData%M)) then - call RegPackBounds(Buf, 3, lbound(InData%M), ubound(InData%M)) + call RegPackBounds(Buf, 3, lbound(InData%M, kind=B8Ki), ubound(InData%M, kind=B8Ki)) call RegPack(Buf, InData%M) end if call RegPack(Buf, InData%EndMomentA) @@ -2721,7 +2721,7 @@ subroutine MD_PackLine(Buf, Indata) call RegPack(Buf, InData%LineUnOut) call RegPack(Buf, allocated(InData%LineWrOutput)) if (allocated(InData%LineWrOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%LineWrOutput), ubound(InData%LineWrOutput)) + call RegPackBounds(Buf, 1, lbound(InData%LineWrOutput, kind=B8Ki), ubound(InData%LineWrOutput, kind=B8Ki)) call RegPack(Buf, InData%LineWrOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2731,7 +2731,7 @@ subroutine MD_UnPackLine(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_Line), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackLine' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3303,14 +3303,14 @@ subroutine MD_CopyVisDiam(SrcVisDiamData, DstVisDiamData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyVisDiam' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcVisDiamData%Diam)) then - LB(1:1) = lbound(SrcVisDiamData%Diam) - UB(1:1) = ubound(SrcVisDiamData%Diam) + LB(1:1) = lbound(SrcVisDiamData%Diam, kind=B8Ki) + UB(1:1) = ubound(SrcVisDiamData%Diam, kind=B8Ki) if (.not. allocated(DstVisDiamData%Diam)) then allocate(DstVisDiamData%Diam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3341,7 +3341,7 @@ subroutine MD_PackVisDiam(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Diam)) if (allocated(InData%Diam)) then - call RegPackBounds(Buf, 1, lbound(InData%Diam), ubound(InData%Diam)) + call RegPackBounds(Buf, 1, lbound(InData%Diam, kind=B8Ki), ubound(InData%Diam, kind=B8Ki)) call RegPack(Buf, InData%Diam) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3351,7 +3351,7 @@ subroutine MD_UnPackVisDiam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(VisDiam), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackVisDiam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3377,15 +3377,15 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%writeOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%writeOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%writeOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%writeOutputHdr)) then allocate(DstInitOutputData%writeOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3396,8 +3396,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%writeOutputHdr = SrcInitOutputData%writeOutputHdr end if if (allocated(SrcInitOutputData%writeOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%writeOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%writeOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%writeOutputUnt)) then allocate(DstInitOutputData%writeOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3411,8 +3411,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%CableCChanRqst)) then - LB(1:1) = lbound(SrcInitOutputData%CableCChanRqst) - UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst) + LB(1:1) = lbound(SrcInitOutputData%CableCChanRqst, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst, kind=B8Ki) if (.not. allocated(DstInitOutputData%CableCChanRqst)) then allocate(DstInitOutputData%CableCChanRqst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3423,8 +3423,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%CableCChanRqst = SrcInitOutputData%CableCChanRqst end if if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3435,8 +3435,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3447,8 +3447,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3459,8 +3459,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3471,8 +3471,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_x)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3483,8 +3483,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_x = SrcInitOutputData%RotFrame_x end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3495,8 +3495,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3507,8 +3507,8 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%IsLoad_u = SrcInitOutputData%IsLoad_u end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3573,58 +3573,58 @@ subroutine MD_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%writeOutputHdr)) if (allocated(InData%writeOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%writeOutputHdr), ubound(InData%writeOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%writeOutputHdr, kind=B8Ki), ubound(InData%writeOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%writeOutputHdr) end if call RegPack(Buf, allocated(InData%writeOutputUnt)) if (allocated(InData%writeOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%writeOutputUnt), ubound(InData%writeOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%writeOutputUnt, kind=B8Ki), ubound(InData%writeOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%writeOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%CableCChanRqst)) if (allocated(InData%CableCChanRqst)) then - call RegPackBounds(Buf, 1, lbound(InData%CableCChanRqst), ubound(InData%CableCChanRqst)) + call RegPackBounds(Buf, 1, lbound(InData%CableCChanRqst, kind=B8Ki), ubound(InData%CableCChanRqst, kind=B8Ki)) call RegPack(Buf, InData%CableCChanRqst) end if call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3634,7 +3634,7 @@ subroutine MD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3801,14 +3801,14 @@ subroutine MD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%states)) then - LB(1:1) = lbound(SrcContStateData%states) - UB(1:1) = ubound(SrcContStateData%states) + LB(1:1) = lbound(SrcContStateData%states, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%states, kind=B8Ki) if (.not. allocated(DstContStateData%states)) then allocate(DstContStateData%states(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3839,7 +3839,7 @@ subroutine MD_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%states)) if (allocated(InData%states)) then - call RegPackBounds(Buf, 1, lbound(InData%states), ubound(InData%states)) + call RegPackBounds(Buf, 1, lbound(InData%states, kind=B8Ki), ubound(InData%states, kind=B8Ki)) call RegPack(Buf, InData%states) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3849,7 +3849,7 @@ subroutine MD_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackContState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3992,16 +3992,16 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%LineTypeList)) then - LB(1:1) = lbound(SrcMiscData%LineTypeList) - UB(1:1) = ubound(SrcMiscData%LineTypeList) + LB(1:1) = lbound(SrcMiscData%LineTypeList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LineTypeList, kind=B8Ki) if (.not. allocated(DstMiscData%LineTypeList)) then allocate(DstMiscData%LineTypeList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4016,8 +4016,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%RodTypeList)) then - LB(1:1) = lbound(SrcMiscData%RodTypeList) - UB(1:1) = ubound(SrcMiscData%RodTypeList) + LB(1:1) = lbound(SrcMiscData%RodTypeList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%RodTypeList, kind=B8Ki) if (.not. allocated(DstMiscData%RodTypeList)) then allocate(DstMiscData%RodTypeList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4035,8 +4035,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%BodyList)) then - LB(1:1) = lbound(SrcMiscData%BodyList) - UB(1:1) = ubound(SrcMiscData%BodyList) + LB(1:1) = lbound(SrcMiscData%BodyList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BodyList, kind=B8Ki) if (.not. allocated(DstMiscData%BodyList)) then allocate(DstMiscData%BodyList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4051,8 +4051,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%RodList)) then - LB(1:1) = lbound(SrcMiscData%RodList) - UB(1:1) = ubound(SrcMiscData%RodList) + LB(1:1) = lbound(SrcMiscData%RodList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%RodList, kind=B8Ki) if (.not. allocated(DstMiscData%RodList)) then allocate(DstMiscData%RodList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4067,8 +4067,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%PointList)) then - LB(1:1) = lbound(SrcMiscData%PointList) - UB(1:1) = ubound(SrcMiscData%PointList) + LB(1:1) = lbound(SrcMiscData%PointList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%PointList, kind=B8Ki) if (.not. allocated(DstMiscData%PointList)) then allocate(DstMiscData%PointList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4083,8 +4083,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%LineList)) then - LB(1:1) = lbound(SrcMiscData%LineList) - UB(1:1) = ubound(SrcMiscData%LineList) + LB(1:1) = lbound(SrcMiscData%LineList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LineList, kind=B8Ki) if (.not. allocated(DstMiscData%LineList)) then allocate(DstMiscData%LineList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4099,8 +4099,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%FailList)) then - LB(1:1) = lbound(SrcMiscData%FailList) - UB(1:1) = ubound(SrcMiscData%FailList) + LB(1:1) = lbound(SrcMiscData%FailList, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FailList, kind=B8Ki) if (.not. allocated(DstMiscData%FailList)) then allocate(DstMiscData%FailList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4115,8 +4115,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%FreePointIs)) then - LB(1:1) = lbound(SrcMiscData%FreePointIs) - UB(1:1) = ubound(SrcMiscData%FreePointIs) + LB(1:1) = lbound(SrcMiscData%FreePointIs, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FreePointIs, kind=B8Ki) if (.not. allocated(DstMiscData%FreePointIs)) then allocate(DstMiscData%FreePointIs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4127,8 +4127,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FreePointIs = SrcMiscData%FreePointIs end if if (allocated(SrcMiscData%CpldPointIs)) then - LB(1:2) = lbound(SrcMiscData%CpldPointIs) - UB(1:2) = ubound(SrcMiscData%CpldPointIs) + LB(1:2) = lbound(SrcMiscData%CpldPointIs, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%CpldPointIs, kind=B8Ki) if (.not. allocated(DstMiscData%CpldPointIs)) then allocate(DstMiscData%CpldPointIs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4139,8 +4139,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%CpldPointIs = SrcMiscData%CpldPointIs end if if (allocated(SrcMiscData%FreeRodIs)) then - LB(1:1) = lbound(SrcMiscData%FreeRodIs) - UB(1:1) = ubound(SrcMiscData%FreeRodIs) + LB(1:1) = lbound(SrcMiscData%FreeRodIs, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FreeRodIs, kind=B8Ki) if (.not. allocated(DstMiscData%FreeRodIs)) then allocate(DstMiscData%FreeRodIs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4151,8 +4151,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FreeRodIs = SrcMiscData%FreeRodIs end if if (allocated(SrcMiscData%CpldRodIs)) then - LB(1:2) = lbound(SrcMiscData%CpldRodIs) - UB(1:2) = ubound(SrcMiscData%CpldRodIs) + LB(1:2) = lbound(SrcMiscData%CpldRodIs, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%CpldRodIs, kind=B8Ki) if (.not. allocated(DstMiscData%CpldRodIs)) then allocate(DstMiscData%CpldRodIs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4163,8 +4163,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%CpldRodIs = SrcMiscData%CpldRodIs end if if (allocated(SrcMiscData%FreeBodyIs)) then - LB(1:1) = lbound(SrcMiscData%FreeBodyIs) - UB(1:1) = ubound(SrcMiscData%FreeBodyIs) + LB(1:1) = lbound(SrcMiscData%FreeBodyIs, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FreeBodyIs, kind=B8Ki) if (.not. allocated(DstMiscData%FreeBodyIs)) then allocate(DstMiscData%FreeBodyIs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4175,8 +4175,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FreeBodyIs = SrcMiscData%FreeBodyIs end if if (allocated(SrcMiscData%CpldBodyIs)) then - LB(1:2) = lbound(SrcMiscData%CpldBodyIs) - UB(1:2) = ubound(SrcMiscData%CpldBodyIs) + LB(1:2) = lbound(SrcMiscData%CpldBodyIs, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%CpldBodyIs, kind=B8Ki) if (.not. allocated(DstMiscData%CpldBodyIs)) then allocate(DstMiscData%CpldBodyIs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4187,8 +4187,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%CpldBodyIs = SrcMiscData%CpldBodyIs end if if (allocated(SrcMiscData%LineStateIs1)) then - LB(1:1) = lbound(SrcMiscData%LineStateIs1) - UB(1:1) = ubound(SrcMiscData%LineStateIs1) + LB(1:1) = lbound(SrcMiscData%LineStateIs1, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LineStateIs1, kind=B8Ki) if (.not. allocated(DstMiscData%LineStateIs1)) then allocate(DstMiscData%LineStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4199,8 +4199,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LineStateIs1 = SrcMiscData%LineStateIs1 end if if (allocated(SrcMiscData%LineStateIsN)) then - LB(1:1) = lbound(SrcMiscData%LineStateIsN) - UB(1:1) = ubound(SrcMiscData%LineStateIsN) + LB(1:1) = lbound(SrcMiscData%LineStateIsN, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%LineStateIsN, kind=B8Ki) if (.not. allocated(DstMiscData%LineStateIsN)) then allocate(DstMiscData%LineStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4211,8 +4211,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LineStateIsN = SrcMiscData%LineStateIsN end if if (allocated(SrcMiscData%PointStateIs1)) then - LB(1:1) = lbound(SrcMiscData%PointStateIs1) - UB(1:1) = ubound(SrcMiscData%PointStateIs1) + LB(1:1) = lbound(SrcMiscData%PointStateIs1, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%PointStateIs1, kind=B8Ki) if (.not. allocated(DstMiscData%PointStateIs1)) then allocate(DstMiscData%PointStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4223,8 +4223,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%PointStateIs1 = SrcMiscData%PointStateIs1 end if if (allocated(SrcMiscData%PointStateIsN)) then - LB(1:1) = lbound(SrcMiscData%PointStateIsN) - UB(1:1) = ubound(SrcMiscData%PointStateIsN) + LB(1:1) = lbound(SrcMiscData%PointStateIsN, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%PointStateIsN, kind=B8Ki) if (.not. allocated(DstMiscData%PointStateIsN)) then allocate(DstMiscData%PointStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4235,8 +4235,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%PointStateIsN = SrcMiscData%PointStateIsN end if if (allocated(SrcMiscData%RodStateIs1)) then - LB(1:1) = lbound(SrcMiscData%RodStateIs1) - UB(1:1) = ubound(SrcMiscData%RodStateIs1) + LB(1:1) = lbound(SrcMiscData%RodStateIs1, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%RodStateIs1, kind=B8Ki) if (.not. allocated(DstMiscData%RodStateIs1)) then allocate(DstMiscData%RodStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4247,8 +4247,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%RodStateIs1 = SrcMiscData%RodStateIs1 end if if (allocated(SrcMiscData%RodStateIsN)) then - LB(1:1) = lbound(SrcMiscData%RodStateIsN) - UB(1:1) = ubound(SrcMiscData%RodStateIsN) + LB(1:1) = lbound(SrcMiscData%RodStateIsN, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%RodStateIsN, kind=B8Ki) if (.not. allocated(DstMiscData%RodStateIsN)) then allocate(DstMiscData%RodStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4259,8 +4259,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%RodStateIsN = SrcMiscData%RodStateIsN end if if (allocated(SrcMiscData%BodyStateIs1)) then - LB(1:1) = lbound(SrcMiscData%BodyStateIs1) - UB(1:1) = ubound(SrcMiscData%BodyStateIs1) + LB(1:1) = lbound(SrcMiscData%BodyStateIs1, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BodyStateIs1, kind=B8Ki) if (.not. allocated(DstMiscData%BodyStateIs1)) then allocate(DstMiscData%BodyStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4271,8 +4271,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BodyStateIs1 = SrcMiscData%BodyStateIs1 end if if (allocated(SrcMiscData%BodyStateIsN)) then - LB(1:1) = lbound(SrcMiscData%BodyStateIsN) - UB(1:1) = ubound(SrcMiscData%BodyStateIsN) + LB(1:1) = lbound(SrcMiscData%BodyStateIsN, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BodyStateIsN, kind=B8Ki) if (.not. allocated(DstMiscData%BodyStateIsN)) then allocate(DstMiscData%BodyStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4292,8 +4292,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) if (ErrStat >= AbortErrLev) return DstMiscData%zeros6 = SrcMiscData%zeros6 if (allocated(SrcMiscData%MDWrOutput)) then - LB(1:1) = lbound(SrcMiscData%MDWrOutput) - UB(1:1) = ubound(SrcMiscData%MDWrOutput) + LB(1:1) = lbound(SrcMiscData%MDWrOutput, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%MDWrOutput, kind=B8Ki) if (.not. allocated(DstMiscData%MDWrOutput)) then allocate(DstMiscData%MDWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4306,8 +4306,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LastOutTime = SrcMiscData%LastOutTime DstMiscData%PtfmInit = SrcMiscData%PtfmInit if (allocated(SrcMiscData%BathymetryGrid)) then - LB(1:2) = lbound(SrcMiscData%BathymetryGrid) - UB(1:2) = ubound(SrcMiscData%BathymetryGrid) + LB(1:2) = lbound(SrcMiscData%BathymetryGrid, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%BathymetryGrid, kind=B8Ki) if (.not. allocated(DstMiscData%BathymetryGrid)) then allocate(DstMiscData%BathymetryGrid(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4318,8 +4318,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BathymetryGrid = SrcMiscData%BathymetryGrid end if if (allocated(SrcMiscData%BathGrid_Xs)) then - LB(1:1) = lbound(SrcMiscData%BathGrid_Xs) - UB(1:1) = ubound(SrcMiscData%BathGrid_Xs) + LB(1:1) = lbound(SrcMiscData%BathGrid_Xs, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BathGrid_Xs, kind=B8Ki) if (.not. allocated(DstMiscData%BathGrid_Xs)) then allocate(DstMiscData%BathGrid_Xs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4330,8 +4330,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BathGrid_Xs = SrcMiscData%BathGrid_Xs end if if (allocated(SrcMiscData%BathGrid_Ys)) then - LB(1:1) = lbound(SrcMiscData%BathGrid_Ys) - UB(1:1) = ubound(SrcMiscData%BathGrid_Ys) + LB(1:1) = lbound(SrcMiscData%BathGrid_Ys, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BathGrid_Ys, kind=B8Ki) if (.not. allocated(DstMiscData%BathGrid_Ys)) then allocate(DstMiscData%BathGrid_Ys(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4342,8 +4342,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%BathGrid_Ys = SrcMiscData%BathGrid_Ys end if if (allocated(SrcMiscData%BathGrid_npoints)) then - LB(1:1) = lbound(SrcMiscData%BathGrid_npoints) - UB(1:1) = ubound(SrcMiscData%BathGrid_npoints) + LB(1:1) = lbound(SrcMiscData%BathGrid_npoints, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BathGrid_npoints, kind=B8Ki) if (.not. allocated(DstMiscData%BathGrid_npoints)) then allocate(DstMiscData%BathGrid_npoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4359,16 +4359,16 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) type(MD_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_DestroyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(MiscData%LineTypeList)) then - LB(1:1) = lbound(MiscData%LineTypeList) - UB(1:1) = ubound(MiscData%LineTypeList) + LB(1:1) = lbound(MiscData%LineTypeList, kind=B8Ki) + UB(1:1) = ubound(MiscData%LineTypeList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyLineProp(MiscData%LineTypeList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4376,8 +4376,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%LineTypeList) end if if (allocated(MiscData%RodTypeList)) then - LB(1:1) = lbound(MiscData%RodTypeList) - UB(1:1) = ubound(MiscData%RodTypeList) + LB(1:1) = lbound(MiscData%RodTypeList, kind=B8Ki) + UB(1:1) = ubound(MiscData%RodTypeList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyRodProp(MiscData%RodTypeList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4387,8 +4387,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) call MD_DestroyBody(MiscData%GroundBody, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MiscData%BodyList)) then - LB(1:1) = lbound(MiscData%BodyList) - UB(1:1) = ubound(MiscData%BodyList) + LB(1:1) = lbound(MiscData%BodyList, kind=B8Ki) + UB(1:1) = ubound(MiscData%BodyList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyBody(MiscData%BodyList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4396,8 +4396,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%BodyList) end if if (allocated(MiscData%RodList)) then - LB(1:1) = lbound(MiscData%RodList) - UB(1:1) = ubound(MiscData%RodList) + LB(1:1) = lbound(MiscData%RodList, kind=B8Ki) + UB(1:1) = ubound(MiscData%RodList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyRod(MiscData%RodList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4405,8 +4405,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%RodList) end if if (allocated(MiscData%PointList)) then - LB(1:1) = lbound(MiscData%PointList) - UB(1:1) = ubound(MiscData%PointList) + LB(1:1) = lbound(MiscData%PointList, kind=B8Ki) + UB(1:1) = ubound(MiscData%PointList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyPoint(MiscData%PointList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4414,8 +4414,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%PointList) end if if (allocated(MiscData%LineList)) then - LB(1:1) = lbound(MiscData%LineList) - UB(1:1) = ubound(MiscData%LineList) + LB(1:1) = lbound(MiscData%LineList, kind=B8Ki) + UB(1:1) = ubound(MiscData%LineList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyLine(MiscData%LineList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4423,8 +4423,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%LineList) end if if (allocated(MiscData%FailList)) then - LB(1:1) = lbound(MiscData%FailList) - UB(1:1) = ubound(MiscData%FailList) + LB(1:1) = lbound(MiscData%FailList, kind=B8Ki) + UB(1:1) = ubound(MiscData%FailList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyFail(MiscData%FailList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4498,23 +4498,23 @@ subroutine MD_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MD_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%LineTypeList)) if (allocated(InData%LineTypeList)) then - call RegPackBounds(Buf, 1, lbound(InData%LineTypeList), ubound(InData%LineTypeList)) - LB(1:1) = lbound(InData%LineTypeList) - UB(1:1) = ubound(InData%LineTypeList) + call RegPackBounds(Buf, 1, lbound(InData%LineTypeList, kind=B8Ki), ubound(InData%LineTypeList, kind=B8Ki)) + LB(1:1) = lbound(InData%LineTypeList, kind=B8Ki) + UB(1:1) = ubound(InData%LineTypeList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackLineProp(Buf, InData%LineTypeList(i1)) end do end if call RegPack(Buf, allocated(InData%RodTypeList)) if (allocated(InData%RodTypeList)) then - call RegPackBounds(Buf, 1, lbound(InData%RodTypeList), ubound(InData%RodTypeList)) - LB(1:1) = lbound(InData%RodTypeList) - UB(1:1) = ubound(InData%RodTypeList) + call RegPackBounds(Buf, 1, lbound(InData%RodTypeList, kind=B8Ki), ubound(InData%RodTypeList, kind=B8Ki)) + LB(1:1) = lbound(InData%RodTypeList, kind=B8Ki) + UB(1:1) = ubound(InData%RodTypeList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackRodProp(Buf, InData%RodTypeList(i1)) end do @@ -4522,117 +4522,117 @@ subroutine MD_PackMisc(Buf, Indata) call MD_PackBody(Buf, InData%GroundBody) call RegPack(Buf, allocated(InData%BodyList)) if (allocated(InData%BodyList)) then - call RegPackBounds(Buf, 1, lbound(InData%BodyList), ubound(InData%BodyList)) - LB(1:1) = lbound(InData%BodyList) - UB(1:1) = ubound(InData%BodyList) + call RegPackBounds(Buf, 1, lbound(InData%BodyList, kind=B8Ki), ubound(InData%BodyList, kind=B8Ki)) + LB(1:1) = lbound(InData%BodyList, kind=B8Ki) + UB(1:1) = ubound(InData%BodyList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackBody(Buf, InData%BodyList(i1)) end do end if call RegPack(Buf, allocated(InData%RodList)) if (allocated(InData%RodList)) then - call RegPackBounds(Buf, 1, lbound(InData%RodList), ubound(InData%RodList)) - LB(1:1) = lbound(InData%RodList) - UB(1:1) = ubound(InData%RodList) + call RegPackBounds(Buf, 1, lbound(InData%RodList, kind=B8Ki), ubound(InData%RodList, kind=B8Ki)) + LB(1:1) = lbound(InData%RodList, kind=B8Ki) + UB(1:1) = ubound(InData%RodList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackRod(Buf, InData%RodList(i1)) end do end if call RegPack(Buf, allocated(InData%PointList)) if (allocated(InData%PointList)) then - call RegPackBounds(Buf, 1, lbound(InData%PointList), ubound(InData%PointList)) - LB(1:1) = lbound(InData%PointList) - UB(1:1) = ubound(InData%PointList) + call RegPackBounds(Buf, 1, lbound(InData%PointList, kind=B8Ki), ubound(InData%PointList, kind=B8Ki)) + LB(1:1) = lbound(InData%PointList, kind=B8Ki) + UB(1:1) = ubound(InData%PointList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackPoint(Buf, InData%PointList(i1)) end do end if call RegPack(Buf, allocated(InData%LineList)) if (allocated(InData%LineList)) then - call RegPackBounds(Buf, 1, lbound(InData%LineList), ubound(InData%LineList)) - LB(1:1) = lbound(InData%LineList) - UB(1:1) = ubound(InData%LineList) + call RegPackBounds(Buf, 1, lbound(InData%LineList, kind=B8Ki), ubound(InData%LineList, kind=B8Ki)) + LB(1:1) = lbound(InData%LineList, kind=B8Ki) + UB(1:1) = ubound(InData%LineList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackLine(Buf, InData%LineList(i1)) end do end if call RegPack(Buf, allocated(InData%FailList)) if (allocated(InData%FailList)) then - call RegPackBounds(Buf, 1, lbound(InData%FailList), ubound(InData%FailList)) - LB(1:1) = lbound(InData%FailList) - UB(1:1) = ubound(InData%FailList) + call RegPackBounds(Buf, 1, lbound(InData%FailList, kind=B8Ki), ubound(InData%FailList, kind=B8Ki)) + LB(1:1) = lbound(InData%FailList, kind=B8Ki) + UB(1:1) = ubound(InData%FailList, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackFail(Buf, InData%FailList(i1)) end do end if call RegPack(Buf, allocated(InData%FreePointIs)) if (allocated(InData%FreePointIs)) then - call RegPackBounds(Buf, 1, lbound(InData%FreePointIs), ubound(InData%FreePointIs)) + call RegPackBounds(Buf, 1, lbound(InData%FreePointIs, kind=B8Ki), ubound(InData%FreePointIs, kind=B8Ki)) call RegPack(Buf, InData%FreePointIs) end if call RegPack(Buf, allocated(InData%CpldPointIs)) if (allocated(InData%CpldPointIs)) then - call RegPackBounds(Buf, 2, lbound(InData%CpldPointIs), ubound(InData%CpldPointIs)) + call RegPackBounds(Buf, 2, lbound(InData%CpldPointIs, kind=B8Ki), ubound(InData%CpldPointIs, kind=B8Ki)) call RegPack(Buf, InData%CpldPointIs) end if call RegPack(Buf, allocated(InData%FreeRodIs)) if (allocated(InData%FreeRodIs)) then - call RegPackBounds(Buf, 1, lbound(InData%FreeRodIs), ubound(InData%FreeRodIs)) + call RegPackBounds(Buf, 1, lbound(InData%FreeRodIs, kind=B8Ki), ubound(InData%FreeRodIs, kind=B8Ki)) call RegPack(Buf, InData%FreeRodIs) end if call RegPack(Buf, allocated(InData%CpldRodIs)) if (allocated(InData%CpldRodIs)) then - call RegPackBounds(Buf, 2, lbound(InData%CpldRodIs), ubound(InData%CpldRodIs)) + call RegPackBounds(Buf, 2, lbound(InData%CpldRodIs, kind=B8Ki), ubound(InData%CpldRodIs, kind=B8Ki)) call RegPack(Buf, InData%CpldRodIs) end if call RegPack(Buf, allocated(InData%FreeBodyIs)) if (allocated(InData%FreeBodyIs)) then - call RegPackBounds(Buf, 1, lbound(InData%FreeBodyIs), ubound(InData%FreeBodyIs)) + call RegPackBounds(Buf, 1, lbound(InData%FreeBodyIs, kind=B8Ki), ubound(InData%FreeBodyIs, kind=B8Ki)) call RegPack(Buf, InData%FreeBodyIs) end if call RegPack(Buf, allocated(InData%CpldBodyIs)) if (allocated(InData%CpldBodyIs)) then - call RegPackBounds(Buf, 2, lbound(InData%CpldBodyIs), ubound(InData%CpldBodyIs)) + call RegPackBounds(Buf, 2, lbound(InData%CpldBodyIs, kind=B8Ki), ubound(InData%CpldBodyIs, kind=B8Ki)) call RegPack(Buf, InData%CpldBodyIs) end if call RegPack(Buf, allocated(InData%LineStateIs1)) if (allocated(InData%LineStateIs1)) then - call RegPackBounds(Buf, 1, lbound(InData%LineStateIs1), ubound(InData%LineStateIs1)) + call RegPackBounds(Buf, 1, lbound(InData%LineStateIs1, kind=B8Ki), ubound(InData%LineStateIs1, kind=B8Ki)) call RegPack(Buf, InData%LineStateIs1) end if call RegPack(Buf, allocated(InData%LineStateIsN)) if (allocated(InData%LineStateIsN)) then - call RegPackBounds(Buf, 1, lbound(InData%LineStateIsN), ubound(InData%LineStateIsN)) + call RegPackBounds(Buf, 1, lbound(InData%LineStateIsN, kind=B8Ki), ubound(InData%LineStateIsN, kind=B8Ki)) call RegPack(Buf, InData%LineStateIsN) end if call RegPack(Buf, allocated(InData%PointStateIs1)) if (allocated(InData%PointStateIs1)) then - call RegPackBounds(Buf, 1, lbound(InData%PointStateIs1), ubound(InData%PointStateIs1)) + call RegPackBounds(Buf, 1, lbound(InData%PointStateIs1, kind=B8Ki), ubound(InData%PointStateIs1, kind=B8Ki)) call RegPack(Buf, InData%PointStateIs1) end if call RegPack(Buf, allocated(InData%PointStateIsN)) if (allocated(InData%PointStateIsN)) then - call RegPackBounds(Buf, 1, lbound(InData%PointStateIsN), ubound(InData%PointStateIsN)) + call RegPackBounds(Buf, 1, lbound(InData%PointStateIsN, kind=B8Ki), ubound(InData%PointStateIsN, kind=B8Ki)) call RegPack(Buf, InData%PointStateIsN) end if call RegPack(Buf, allocated(InData%RodStateIs1)) if (allocated(InData%RodStateIs1)) then - call RegPackBounds(Buf, 1, lbound(InData%RodStateIs1), ubound(InData%RodStateIs1)) + call RegPackBounds(Buf, 1, lbound(InData%RodStateIs1, kind=B8Ki), ubound(InData%RodStateIs1, kind=B8Ki)) call RegPack(Buf, InData%RodStateIs1) end if call RegPack(Buf, allocated(InData%RodStateIsN)) if (allocated(InData%RodStateIsN)) then - call RegPackBounds(Buf, 1, lbound(InData%RodStateIsN), ubound(InData%RodStateIsN)) + call RegPackBounds(Buf, 1, lbound(InData%RodStateIsN, kind=B8Ki), ubound(InData%RodStateIsN, kind=B8Ki)) call RegPack(Buf, InData%RodStateIsN) end if call RegPack(Buf, allocated(InData%BodyStateIs1)) if (allocated(InData%BodyStateIs1)) then - call RegPackBounds(Buf, 1, lbound(InData%BodyStateIs1), ubound(InData%BodyStateIs1)) + call RegPackBounds(Buf, 1, lbound(InData%BodyStateIs1, kind=B8Ki), ubound(InData%BodyStateIs1, kind=B8Ki)) call RegPack(Buf, InData%BodyStateIs1) end if call RegPack(Buf, allocated(InData%BodyStateIsN)) if (allocated(InData%BodyStateIsN)) then - call RegPackBounds(Buf, 1, lbound(InData%BodyStateIsN), ubound(InData%BodyStateIsN)) + call RegPackBounds(Buf, 1, lbound(InData%BodyStateIsN, kind=B8Ki), ubound(InData%BodyStateIsN, kind=B8Ki)) call RegPack(Buf, InData%BodyStateIsN) end if call RegPack(Buf, InData%Nx) @@ -4642,29 +4642,29 @@ subroutine MD_PackMisc(Buf, Indata) call RegPack(Buf, InData%zeros6) call RegPack(Buf, allocated(InData%MDWrOutput)) if (allocated(InData%MDWrOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%MDWrOutput), ubound(InData%MDWrOutput)) + call RegPackBounds(Buf, 1, lbound(InData%MDWrOutput, kind=B8Ki), ubound(InData%MDWrOutput, kind=B8Ki)) call RegPack(Buf, InData%MDWrOutput) end if call RegPack(Buf, InData%LastOutTime) call RegPack(Buf, InData%PtfmInit) call RegPack(Buf, allocated(InData%BathymetryGrid)) if (allocated(InData%BathymetryGrid)) then - call RegPackBounds(Buf, 2, lbound(InData%BathymetryGrid), ubound(InData%BathymetryGrid)) + call RegPackBounds(Buf, 2, lbound(InData%BathymetryGrid, kind=B8Ki), ubound(InData%BathymetryGrid, kind=B8Ki)) call RegPack(Buf, InData%BathymetryGrid) end if call RegPack(Buf, allocated(InData%BathGrid_Xs)) if (allocated(InData%BathGrid_Xs)) then - call RegPackBounds(Buf, 1, lbound(InData%BathGrid_Xs), ubound(InData%BathGrid_Xs)) + call RegPackBounds(Buf, 1, lbound(InData%BathGrid_Xs, kind=B8Ki), ubound(InData%BathGrid_Xs, kind=B8Ki)) call RegPack(Buf, InData%BathGrid_Xs) end if call RegPack(Buf, allocated(InData%BathGrid_Ys)) if (allocated(InData%BathGrid_Ys)) then - call RegPackBounds(Buf, 1, lbound(InData%BathGrid_Ys), ubound(InData%BathGrid_Ys)) + call RegPackBounds(Buf, 1, lbound(InData%BathGrid_Ys, kind=B8Ki), ubound(InData%BathGrid_Ys, kind=B8Ki)) call RegPack(Buf, InData%BathGrid_Ys) end if call RegPack(Buf, allocated(InData%BathGrid_npoints)) if (allocated(InData%BathGrid_npoints)) then - call RegPackBounds(Buf, 1, lbound(InData%BathGrid_npoints), ubound(InData%BathGrid_npoints)) + call RegPackBounds(Buf, 1, lbound(InData%BathGrid_npoints, kind=B8Ki), ubound(InData%BathGrid_npoints, kind=B8Ki)) call RegPack(Buf, InData%BathGrid_npoints) end if if (RegCheckErr(Buf, RoutineName)) return @@ -4674,8 +4674,8 @@ subroutine MD_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5071,8 +5071,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyParam' @@ -5091,8 +5091,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nFreeRods = SrcParamData%nFreeRods DstParamData%nFreePoints = SrcParamData%nFreePoints if (allocated(SrcParamData%nCpldBodies)) then - LB(1:1) = lbound(SrcParamData%nCpldBodies) - UB(1:1) = ubound(SrcParamData%nCpldBodies) + LB(1:1) = lbound(SrcParamData%nCpldBodies, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%nCpldBodies, kind=B8Ki) if (.not. allocated(DstParamData%nCpldBodies)) then allocate(DstParamData%nCpldBodies(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5103,8 +5103,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nCpldBodies = SrcParamData%nCpldBodies end if if (allocated(SrcParamData%nCpldRods)) then - LB(1:1) = lbound(SrcParamData%nCpldRods) - UB(1:1) = ubound(SrcParamData%nCpldRods) + LB(1:1) = lbound(SrcParamData%nCpldRods, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%nCpldRods, kind=B8Ki) if (.not. allocated(DstParamData%nCpldRods)) then allocate(DstParamData%nCpldRods(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5115,8 +5115,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nCpldRods = SrcParamData%nCpldRods end if if (allocated(SrcParamData%nCpldPoints)) then - LB(1:1) = lbound(SrcParamData%nCpldPoints) - UB(1:1) = ubound(SrcParamData%nCpldPoints) + LB(1:1) = lbound(SrcParamData%nCpldPoints, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%nCpldPoints, kind=B8Ki) if (.not. allocated(DstParamData%nCpldPoints)) then allocate(DstParamData%nCpldPoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5140,8 +5140,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%dtOut = SrcParamData%dtOut DstParamData%RootName = SrcParamData%RootName if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5164,8 +5164,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Current = SrcParamData%Current DstParamData%nTurbines = SrcParamData%nTurbines if (allocated(SrcParamData%TurbineRefPos)) then - LB(1:2) = lbound(SrcParamData%TurbineRefPos) - UB(1:2) = ubound(SrcParamData%TurbineRefPos) + LB(1:2) = lbound(SrcParamData%TurbineRefPos, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%TurbineRefPos, kind=B8Ki) if (.not. allocated(DstParamData%TurbineRefPos)) then allocate(DstParamData%TurbineRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5184,8 +5184,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nzWave = SrcParamData%nzWave DstParamData%ntWave = SrcParamData%ntWave if (allocated(SrcParamData%pxWave)) then - LB(1:1) = lbound(SrcParamData%pxWave) - UB(1:1) = ubound(SrcParamData%pxWave) + LB(1:1) = lbound(SrcParamData%pxWave, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%pxWave, kind=B8Ki) if (.not. allocated(DstParamData%pxWave)) then allocate(DstParamData%pxWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5196,8 +5196,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%pxWave = SrcParamData%pxWave end if if (allocated(SrcParamData%pyWave)) then - LB(1:1) = lbound(SrcParamData%pyWave) - UB(1:1) = ubound(SrcParamData%pyWave) + LB(1:1) = lbound(SrcParamData%pyWave, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%pyWave, kind=B8Ki) if (.not. allocated(DstParamData%pyWave)) then allocate(DstParamData%pyWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5208,8 +5208,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%pyWave = SrcParamData%pyWave end if if (allocated(SrcParamData%pzWave)) then - LB(1:1) = lbound(SrcParamData%pzWave) - UB(1:1) = ubound(SrcParamData%pzWave) + LB(1:1) = lbound(SrcParamData%pzWave, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%pzWave, kind=B8Ki) if (.not. allocated(DstParamData%pzWave)) then allocate(DstParamData%pzWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5221,8 +5221,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%dtWave = SrcParamData%dtWave if (allocated(SrcParamData%uxWave)) then - LB(1:4) = lbound(SrcParamData%uxWave) - UB(1:4) = ubound(SrcParamData%uxWave) + LB(1:4) = lbound(SrcParamData%uxWave, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%uxWave, kind=B8Ki) if (.not. allocated(DstParamData%uxWave)) then allocate(DstParamData%uxWave(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5233,8 +5233,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uxWave = SrcParamData%uxWave end if if (allocated(SrcParamData%uyWave)) then - LB(1:4) = lbound(SrcParamData%uyWave) - UB(1:4) = ubound(SrcParamData%uyWave) + LB(1:4) = lbound(SrcParamData%uyWave, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%uyWave, kind=B8Ki) if (.not. allocated(DstParamData%uyWave)) then allocate(DstParamData%uyWave(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5245,8 +5245,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uyWave = SrcParamData%uyWave end if if (allocated(SrcParamData%uzWave)) then - LB(1:4) = lbound(SrcParamData%uzWave) - UB(1:4) = ubound(SrcParamData%uzWave) + LB(1:4) = lbound(SrcParamData%uzWave, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%uzWave, kind=B8Ki) if (.not. allocated(DstParamData%uzWave)) then allocate(DstParamData%uzWave(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5257,8 +5257,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uzWave = SrcParamData%uzWave end if if (allocated(SrcParamData%axWave)) then - LB(1:4) = lbound(SrcParamData%axWave) - UB(1:4) = ubound(SrcParamData%axWave) + LB(1:4) = lbound(SrcParamData%axWave, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%axWave, kind=B8Ki) if (.not. allocated(DstParamData%axWave)) then allocate(DstParamData%axWave(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5269,8 +5269,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%axWave = SrcParamData%axWave end if if (allocated(SrcParamData%ayWave)) then - LB(1:4) = lbound(SrcParamData%ayWave) - UB(1:4) = ubound(SrcParamData%ayWave) + LB(1:4) = lbound(SrcParamData%ayWave, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%ayWave, kind=B8Ki) if (.not. allocated(DstParamData%ayWave)) then allocate(DstParamData%ayWave(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5281,8 +5281,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ayWave = SrcParamData%ayWave end if if (allocated(SrcParamData%azWave)) then - LB(1:4) = lbound(SrcParamData%azWave) - UB(1:4) = ubound(SrcParamData%azWave) + LB(1:4) = lbound(SrcParamData%azWave, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%azWave, kind=B8Ki) if (.not. allocated(DstParamData%azWave)) then allocate(DstParamData%azWave(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5293,8 +5293,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%azWave = SrcParamData%azWave end if if (allocated(SrcParamData%PDyn)) then - LB(1:4) = lbound(SrcParamData%PDyn) - UB(1:4) = ubound(SrcParamData%PDyn) + LB(1:4) = lbound(SrcParamData%PDyn, kind=B8Ki) + UB(1:4) = ubound(SrcParamData%PDyn, kind=B8Ki) if (.not. allocated(DstParamData%PDyn)) then allocate(DstParamData%PDyn(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5305,8 +5305,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PDyn = SrcParamData%PDyn end if if (allocated(SrcParamData%zeta)) then - LB(1:3) = lbound(SrcParamData%zeta) - UB(1:3) = ubound(SrcParamData%zeta) + LB(1:3) = lbound(SrcParamData%zeta, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%zeta, kind=B8Ki) if (.not. allocated(DstParamData%zeta)) then allocate(DstParamData%zeta(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5318,8 +5318,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%nzCurrent = SrcParamData%nzCurrent if (allocated(SrcParamData%pzCurrent)) then - LB(1:1) = lbound(SrcParamData%pzCurrent) - UB(1:1) = ubound(SrcParamData%pzCurrent) + LB(1:1) = lbound(SrcParamData%pzCurrent, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%pzCurrent, kind=B8Ki) if (.not. allocated(DstParamData%pzCurrent)) then allocate(DstParamData%pzCurrent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5330,8 +5330,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%pzCurrent = SrcParamData%pzCurrent end if if (allocated(SrcParamData%uxCurrent)) then - LB(1:1) = lbound(SrcParamData%uxCurrent) - UB(1:1) = ubound(SrcParamData%uxCurrent) + LB(1:1) = lbound(SrcParamData%uxCurrent, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%uxCurrent, kind=B8Ki) if (.not. allocated(DstParamData%uxCurrent)) then allocate(DstParamData%uxCurrent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5342,8 +5342,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uxCurrent = SrcParamData%uxCurrent end if if (allocated(SrcParamData%uyCurrent)) then - LB(1:1) = lbound(SrcParamData%uyCurrent) - UB(1:1) = ubound(SrcParamData%uyCurrent) + LB(1:1) = lbound(SrcParamData%uyCurrent, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%uyCurrent, kind=B8Ki) if (.not. allocated(DstParamData%uyCurrent)) then allocate(DstParamData%uyCurrent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5355,8 +5355,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%Nx0 = SrcParamData%Nx0 if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx) - UB(1:2) = ubound(SrcParamData%Jac_u_indx) + LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_u_indx)) then allocate(DstParamData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5367,8 +5367,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_u_indx = SrcParamData%Jac_u_indx end if if (allocated(SrcParamData%du)) then - LB(1:1) = lbound(SrcParamData%du) - UB(1:1) = ubound(SrcParamData%du) + LB(1:1) = lbound(SrcParamData%du, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5379,8 +5379,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%du = SrcParamData%du end if if (allocated(SrcParamData%dx)) then - LB(1:1) = lbound(SrcParamData%dx) - UB(1:1) = ubound(SrcParamData%dx) + LB(1:1) = lbound(SrcParamData%dx, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5393,8 +5393,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_ny = SrcParamData%Jac_ny DstParamData%Jac_nx = SrcParamData%Jac_nx if (allocated(SrcParamData%dxIdx_map2_xStateIdx)) then - LB(1:1) = lbound(SrcParamData%dxIdx_map2_xStateIdx) - UB(1:1) = ubound(SrcParamData%dxIdx_map2_xStateIdx) + LB(1:1) = lbound(SrcParamData%dxIdx_map2_xStateIdx, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dxIdx_map2_xStateIdx, kind=B8Ki) if (.not. allocated(DstParamData%dxIdx_map2_xStateIdx)) then allocate(DstParamData%dxIdx_map2_xStateIdx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5406,8 +5406,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%VisMeshes = SrcParamData%VisMeshes if (allocated(SrcParamData%VisRodsDiam)) then - LB(1:1) = lbound(SrcParamData%VisRodsDiam) - UB(1:1) = ubound(SrcParamData%VisRodsDiam) + LB(1:1) = lbound(SrcParamData%VisRodsDiam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%VisRodsDiam, kind=B8Ki) if (.not. allocated(DstParamData%VisRodsDiam)) then allocate(DstParamData%VisRodsDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5427,8 +5427,8 @@ subroutine MD_DestroyParam(ParamData, ErrStat, ErrMsg) type(MD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_DestroyParam' @@ -5444,8 +5444,8 @@ subroutine MD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%nCpldPoints) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5510,8 +5510,8 @@ subroutine MD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%dxIdx_map2_xStateIdx) end if if (allocated(ParamData%VisRodsDiam)) then - LB(1:1) = lbound(ParamData%VisRodsDiam) - UB(1:1) = ubound(ParamData%VisRodsDiam) + LB(1:1) = lbound(ParamData%VisRodsDiam, kind=B8Ki) + UB(1:1) = ubound(ParamData%VisRodsDiam, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyVisDiam(ParamData%VisRodsDiam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5524,8 +5524,8 @@ subroutine MD_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackParam' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%nLineTypes) call RegPack(Buf, InData%nRodTypes) @@ -5541,17 +5541,17 @@ subroutine MD_PackParam(Buf, Indata) call RegPack(Buf, InData%nFreePoints) call RegPack(Buf, allocated(InData%nCpldBodies)) if (allocated(InData%nCpldBodies)) then - call RegPackBounds(Buf, 1, lbound(InData%nCpldBodies), ubound(InData%nCpldBodies)) + call RegPackBounds(Buf, 1, lbound(InData%nCpldBodies, kind=B8Ki), ubound(InData%nCpldBodies, kind=B8Ki)) call RegPack(Buf, InData%nCpldBodies) end if call RegPack(Buf, allocated(InData%nCpldRods)) if (allocated(InData%nCpldRods)) then - call RegPackBounds(Buf, 1, lbound(InData%nCpldRods), ubound(InData%nCpldRods)) + call RegPackBounds(Buf, 1, lbound(InData%nCpldRods, kind=B8Ki), ubound(InData%nCpldRods, kind=B8Ki)) call RegPack(Buf, InData%nCpldRods) end if call RegPack(Buf, allocated(InData%nCpldPoints)) if (allocated(InData%nCpldPoints)) then - call RegPackBounds(Buf, 1, lbound(InData%nCpldPoints), ubound(InData%nCpldPoints)) + call RegPackBounds(Buf, 1, lbound(InData%nCpldPoints, kind=B8Ki), ubound(InData%nCpldPoints, kind=B8Ki)) call RegPack(Buf, InData%nCpldPoints) end if call RegPack(Buf, InData%NConns) @@ -5569,9 +5569,9 @@ subroutine MD_PackParam(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -5586,7 +5586,7 @@ subroutine MD_PackParam(Buf, Indata) call RegPack(Buf, InData%nTurbines) call RegPack(Buf, allocated(InData%TurbineRefPos)) if (allocated(InData%TurbineRefPos)) then - call RegPackBounds(Buf, 2, lbound(InData%TurbineRefPos), ubound(InData%TurbineRefPos)) + call RegPackBounds(Buf, 2, lbound(InData%TurbineRefPos, kind=B8Ki), ubound(InData%TurbineRefPos, kind=B8Ki)) call RegPack(Buf, InData%TurbineRefPos) end if call RegPack(Buf, InData%mu_kT) @@ -5599,105 +5599,105 @@ subroutine MD_PackParam(Buf, Indata) call RegPack(Buf, InData%ntWave) call RegPack(Buf, allocated(InData%pxWave)) if (allocated(InData%pxWave)) then - call RegPackBounds(Buf, 1, lbound(InData%pxWave), ubound(InData%pxWave)) + call RegPackBounds(Buf, 1, lbound(InData%pxWave, kind=B8Ki), ubound(InData%pxWave, kind=B8Ki)) call RegPack(Buf, InData%pxWave) end if call RegPack(Buf, allocated(InData%pyWave)) if (allocated(InData%pyWave)) then - call RegPackBounds(Buf, 1, lbound(InData%pyWave), ubound(InData%pyWave)) + call RegPackBounds(Buf, 1, lbound(InData%pyWave, kind=B8Ki), ubound(InData%pyWave, kind=B8Ki)) call RegPack(Buf, InData%pyWave) end if call RegPack(Buf, allocated(InData%pzWave)) if (allocated(InData%pzWave)) then - call RegPackBounds(Buf, 1, lbound(InData%pzWave), ubound(InData%pzWave)) + call RegPackBounds(Buf, 1, lbound(InData%pzWave, kind=B8Ki), ubound(InData%pzWave, kind=B8Ki)) call RegPack(Buf, InData%pzWave) end if call RegPack(Buf, InData%dtWave) call RegPack(Buf, allocated(InData%uxWave)) if (allocated(InData%uxWave)) then - call RegPackBounds(Buf, 4, lbound(InData%uxWave), ubound(InData%uxWave)) + call RegPackBounds(Buf, 4, lbound(InData%uxWave, kind=B8Ki), ubound(InData%uxWave, kind=B8Ki)) call RegPack(Buf, InData%uxWave) end if call RegPack(Buf, allocated(InData%uyWave)) if (allocated(InData%uyWave)) then - call RegPackBounds(Buf, 4, lbound(InData%uyWave), ubound(InData%uyWave)) + call RegPackBounds(Buf, 4, lbound(InData%uyWave, kind=B8Ki), ubound(InData%uyWave, kind=B8Ki)) call RegPack(Buf, InData%uyWave) end if call RegPack(Buf, allocated(InData%uzWave)) if (allocated(InData%uzWave)) then - call RegPackBounds(Buf, 4, lbound(InData%uzWave), ubound(InData%uzWave)) + call RegPackBounds(Buf, 4, lbound(InData%uzWave, kind=B8Ki), ubound(InData%uzWave, kind=B8Ki)) call RegPack(Buf, InData%uzWave) end if call RegPack(Buf, allocated(InData%axWave)) if (allocated(InData%axWave)) then - call RegPackBounds(Buf, 4, lbound(InData%axWave), ubound(InData%axWave)) + call RegPackBounds(Buf, 4, lbound(InData%axWave, kind=B8Ki), ubound(InData%axWave, kind=B8Ki)) call RegPack(Buf, InData%axWave) end if call RegPack(Buf, allocated(InData%ayWave)) if (allocated(InData%ayWave)) then - call RegPackBounds(Buf, 4, lbound(InData%ayWave), ubound(InData%ayWave)) + call RegPackBounds(Buf, 4, lbound(InData%ayWave, kind=B8Ki), ubound(InData%ayWave, kind=B8Ki)) call RegPack(Buf, InData%ayWave) end if call RegPack(Buf, allocated(InData%azWave)) if (allocated(InData%azWave)) then - call RegPackBounds(Buf, 4, lbound(InData%azWave), ubound(InData%azWave)) + call RegPackBounds(Buf, 4, lbound(InData%azWave, kind=B8Ki), ubound(InData%azWave, kind=B8Ki)) call RegPack(Buf, InData%azWave) end if call RegPack(Buf, allocated(InData%PDyn)) if (allocated(InData%PDyn)) then - call RegPackBounds(Buf, 4, lbound(InData%PDyn), ubound(InData%PDyn)) + call RegPackBounds(Buf, 4, lbound(InData%PDyn, kind=B8Ki), ubound(InData%PDyn, kind=B8Ki)) call RegPack(Buf, InData%PDyn) end if call RegPack(Buf, allocated(InData%zeta)) if (allocated(InData%zeta)) then - call RegPackBounds(Buf, 3, lbound(InData%zeta), ubound(InData%zeta)) + call RegPackBounds(Buf, 3, lbound(InData%zeta, kind=B8Ki), ubound(InData%zeta, kind=B8Ki)) call RegPack(Buf, InData%zeta) end if call RegPack(Buf, InData%nzCurrent) call RegPack(Buf, allocated(InData%pzCurrent)) if (allocated(InData%pzCurrent)) then - call RegPackBounds(Buf, 1, lbound(InData%pzCurrent), ubound(InData%pzCurrent)) + call RegPackBounds(Buf, 1, lbound(InData%pzCurrent, kind=B8Ki), ubound(InData%pzCurrent, kind=B8Ki)) call RegPack(Buf, InData%pzCurrent) end if call RegPack(Buf, allocated(InData%uxCurrent)) if (allocated(InData%uxCurrent)) then - call RegPackBounds(Buf, 1, lbound(InData%uxCurrent), ubound(InData%uxCurrent)) + call RegPackBounds(Buf, 1, lbound(InData%uxCurrent, kind=B8Ki), ubound(InData%uxCurrent, kind=B8Ki)) call RegPack(Buf, InData%uxCurrent) end if call RegPack(Buf, allocated(InData%uyCurrent)) if (allocated(InData%uyCurrent)) then - call RegPackBounds(Buf, 1, lbound(InData%uyCurrent), ubound(InData%uyCurrent)) + call RegPackBounds(Buf, 1, lbound(InData%uyCurrent, kind=B8Ki), ubound(InData%uyCurrent, kind=B8Ki)) call RegPack(Buf, InData%uyCurrent) end if call RegPack(Buf, InData%Nx0) call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, allocated(InData%dx)) if (allocated(InData%dx)) then - call RegPackBounds(Buf, 1, lbound(InData%dx), ubound(InData%dx)) + call RegPackBounds(Buf, 1, lbound(InData%dx, kind=B8Ki), ubound(InData%dx, kind=B8Ki)) call RegPack(Buf, InData%dx) end if call RegPack(Buf, InData%Jac_ny) call RegPack(Buf, InData%Jac_nx) call RegPack(Buf, allocated(InData%dxIdx_map2_xStateIdx)) if (allocated(InData%dxIdx_map2_xStateIdx)) then - call RegPackBounds(Buf, 1, lbound(InData%dxIdx_map2_xStateIdx), ubound(InData%dxIdx_map2_xStateIdx)) + call RegPackBounds(Buf, 1, lbound(InData%dxIdx_map2_xStateIdx, kind=B8Ki), ubound(InData%dxIdx_map2_xStateIdx, kind=B8Ki)) call RegPack(Buf, InData%dxIdx_map2_xStateIdx) end if call RegPack(Buf, InData%VisMeshes) call RegPack(Buf, allocated(InData%VisRodsDiam)) if (allocated(InData%VisRodsDiam)) then - call RegPackBounds(Buf, 1, lbound(InData%VisRodsDiam), ubound(InData%VisRodsDiam)) - LB(1:1) = lbound(InData%VisRodsDiam) - UB(1:1) = ubound(InData%VisRodsDiam) + call RegPackBounds(Buf, 1, lbound(InData%VisRodsDiam, kind=B8Ki), ubound(InData%VisRodsDiam, kind=B8Ki)) + LB(1:1) = lbound(InData%VisRodsDiam, kind=B8Ki) + UB(1:1) = ubound(InData%VisRodsDiam, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackVisDiam(Buf, InData%VisRodsDiam(i1)) end do @@ -5709,8 +5709,8 @@ subroutine MD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackParam' - integer(IntKi) :: i1, i2, i3, i4 - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: i1, i2, i3, i4 + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6154,16 +6154,16 @@ subroutine MD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%CoupledKinematics)) then - LB(1:1) = lbound(SrcInputData%CoupledKinematics) - UB(1:1) = ubound(SrcInputData%CoupledKinematics) + LB(1:1) = lbound(SrcInputData%CoupledKinematics, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%CoupledKinematics, kind=B8Ki) if (.not. allocated(DstInputData%CoupledKinematics)) then allocate(DstInputData%CoupledKinematics(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6178,8 +6178,8 @@ subroutine MD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%DeltaL)) then - LB(1:1) = lbound(SrcInputData%DeltaL) - UB(1:1) = ubound(SrcInputData%DeltaL) + LB(1:1) = lbound(SrcInputData%DeltaL, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%DeltaL, kind=B8Ki) if (.not. allocated(DstInputData%DeltaL)) then allocate(DstInputData%DeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6190,8 +6190,8 @@ subroutine MD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%DeltaL = SrcInputData%DeltaL end if if (allocated(SrcInputData%DeltaLdot)) then - LB(1:1) = lbound(SrcInputData%DeltaLdot) - UB(1:1) = ubound(SrcInputData%DeltaLdot) + LB(1:1) = lbound(SrcInputData%DeltaLdot, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%DeltaLdot, kind=B8Ki) if (.not. allocated(DstInputData%DeltaLdot)) then allocate(DstInputData%DeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6207,16 +6207,16 @@ subroutine MD_DestroyInput(InputData, ErrStat, ErrMsg) type(MD_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%CoupledKinematics)) then - LB(1:1) = lbound(InputData%CoupledKinematics) - UB(1:1) = ubound(InputData%CoupledKinematics) + LB(1:1) = lbound(InputData%CoupledKinematics, kind=B8Ki) + UB(1:1) = ubound(InputData%CoupledKinematics, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%CoupledKinematics(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6235,26 +6235,26 @@ subroutine MD_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MD_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%CoupledKinematics)) if (allocated(InData%CoupledKinematics)) then - call RegPackBounds(Buf, 1, lbound(InData%CoupledKinematics), ubound(InData%CoupledKinematics)) - LB(1:1) = lbound(InData%CoupledKinematics) - UB(1:1) = ubound(InData%CoupledKinematics) + call RegPackBounds(Buf, 1, lbound(InData%CoupledKinematics, kind=B8Ki), ubound(InData%CoupledKinematics, kind=B8Ki)) + LB(1:1) = lbound(InData%CoupledKinematics, kind=B8Ki) + UB(1:1) = ubound(InData%CoupledKinematics, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%CoupledKinematics(i1)) end do end if call RegPack(Buf, allocated(InData%DeltaL)) if (allocated(InData%DeltaL)) then - call RegPackBounds(Buf, 1, lbound(InData%DeltaL), ubound(InData%DeltaL)) + call RegPackBounds(Buf, 1, lbound(InData%DeltaL, kind=B8Ki), ubound(InData%DeltaL, kind=B8Ki)) call RegPack(Buf, InData%DeltaL) end if call RegPack(Buf, allocated(InData%DeltaLdot)) if (allocated(InData%DeltaLdot)) then - call RegPackBounds(Buf, 1, lbound(InData%DeltaLdot), ubound(InData%DeltaLdot)) + call RegPackBounds(Buf, 1, lbound(InData%DeltaLdot, kind=B8Ki), ubound(InData%DeltaLdot, kind=B8Ki)) call RegPack(Buf, InData%DeltaLdot) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6264,8 +6264,8 @@ subroutine MD_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackInput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6320,16 +6320,16 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%CoupledLoads)) then - LB(1:1) = lbound(SrcOutputData%CoupledLoads) - UB(1:1) = ubound(SrcOutputData%CoupledLoads) + LB(1:1) = lbound(SrcOutputData%CoupledLoads, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%CoupledLoads, kind=B8Ki) if (.not. allocated(DstOutputData%CoupledLoads)) then allocate(DstOutputData%CoupledLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6344,8 +6344,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6356,8 +6356,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%WriteOutput = SrcOutputData%WriteOutput end if if (allocated(SrcOutputData%VisLinesMesh)) then - LB(1:1) = lbound(SrcOutputData%VisLinesMesh) - UB(1:1) = ubound(SrcOutputData%VisLinesMesh) + LB(1:1) = lbound(SrcOutputData%VisLinesMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%VisLinesMesh, kind=B8Ki) if (.not. allocated(DstOutputData%VisLinesMesh)) then allocate(DstOutputData%VisLinesMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6372,8 +6372,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%VisRodsMesh)) then - LB(1:1) = lbound(SrcOutputData%VisRodsMesh) - UB(1:1) = ubound(SrcOutputData%VisRodsMesh) + LB(1:1) = lbound(SrcOutputData%VisRodsMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%VisRodsMesh, kind=B8Ki) if (.not. allocated(DstOutputData%VisRodsMesh)) then allocate(DstOutputData%VisRodsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6388,8 +6388,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%VisBodiesMesh)) then - LB(1:1) = lbound(SrcOutputData%VisBodiesMesh) - UB(1:1) = ubound(SrcOutputData%VisBodiesMesh) + LB(1:1) = lbound(SrcOutputData%VisBodiesMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%VisBodiesMesh, kind=B8Ki) if (.not. allocated(DstOutputData%VisBodiesMesh)) then allocate(DstOutputData%VisBodiesMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6404,8 +6404,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%VisAnchsMesh)) then - LB(1:1) = lbound(SrcOutputData%VisAnchsMesh) - UB(1:1) = ubound(SrcOutputData%VisAnchsMesh) + LB(1:1) = lbound(SrcOutputData%VisAnchsMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%VisAnchsMesh, kind=B8Ki) if (.not. allocated(DstOutputData%VisAnchsMesh)) then allocate(DstOutputData%VisAnchsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6425,16 +6425,16 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) type(MD_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%CoupledLoads)) then - LB(1:1) = lbound(OutputData%CoupledLoads) - UB(1:1) = ubound(OutputData%CoupledLoads) + LB(1:1) = lbound(OutputData%CoupledLoads, kind=B8Ki) + UB(1:1) = ubound(OutputData%CoupledLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%CoupledLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6445,8 +6445,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%WriteOutput) end if if (allocated(OutputData%VisLinesMesh)) then - LB(1:1) = lbound(OutputData%VisLinesMesh) - UB(1:1) = ubound(OutputData%VisLinesMesh) + LB(1:1) = lbound(OutputData%VisLinesMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%VisLinesMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisLinesMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6454,8 +6454,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%VisLinesMesh) end if if (allocated(OutputData%VisRodsMesh)) then - LB(1:1) = lbound(OutputData%VisRodsMesh) - UB(1:1) = ubound(OutputData%VisRodsMesh) + LB(1:1) = lbound(OutputData%VisRodsMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%VisRodsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisRodsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6463,8 +6463,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%VisRodsMesh) end if if (allocated(OutputData%VisBodiesMesh)) then - LB(1:1) = lbound(OutputData%VisBodiesMesh) - UB(1:1) = ubound(OutputData%VisBodiesMesh) + LB(1:1) = lbound(OutputData%VisBodiesMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%VisBodiesMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisBodiesMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6472,8 +6472,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%VisBodiesMesh) end if if (allocated(OutputData%VisAnchsMesh)) then - LB(1:1) = lbound(OutputData%VisAnchsMesh) - UB(1:1) = ubound(OutputData%VisAnchsMesh) + LB(1:1) = lbound(OutputData%VisAnchsMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%VisAnchsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisAnchsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6486,55 +6486,55 @@ subroutine MD_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MD_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%CoupledLoads)) if (allocated(InData%CoupledLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%CoupledLoads), ubound(InData%CoupledLoads)) - LB(1:1) = lbound(InData%CoupledLoads) - UB(1:1) = ubound(InData%CoupledLoads) + call RegPackBounds(Buf, 1, lbound(InData%CoupledLoads, kind=B8Ki), ubound(InData%CoupledLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%CoupledLoads, kind=B8Ki) + UB(1:1) = ubound(InData%CoupledLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%CoupledLoads(i1)) end do end if call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, allocated(InData%VisLinesMesh)) if (allocated(InData%VisLinesMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%VisLinesMesh), ubound(InData%VisLinesMesh)) - LB(1:1) = lbound(InData%VisLinesMesh) - UB(1:1) = ubound(InData%VisLinesMesh) + call RegPackBounds(Buf, 1, lbound(InData%VisLinesMesh, kind=B8Ki), ubound(InData%VisLinesMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%VisLinesMesh, kind=B8Ki) + UB(1:1) = ubound(InData%VisLinesMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%VisLinesMesh(i1)) end do end if call RegPack(Buf, allocated(InData%VisRodsMesh)) if (allocated(InData%VisRodsMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%VisRodsMesh), ubound(InData%VisRodsMesh)) - LB(1:1) = lbound(InData%VisRodsMesh) - UB(1:1) = ubound(InData%VisRodsMesh) + call RegPackBounds(Buf, 1, lbound(InData%VisRodsMesh, kind=B8Ki), ubound(InData%VisRodsMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%VisRodsMesh, kind=B8Ki) + UB(1:1) = ubound(InData%VisRodsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%VisRodsMesh(i1)) end do end if call RegPack(Buf, allocated(InData%VisBodiesMesh)) if (allocated(InData%VisBodiesMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%VisBodiesMesh), ubound(InData%VisBodiesMesh)) - LB(1:1) = lbound(InData%VisBodiesMesh) - UB(1:1) = ubound(InData%VisBodiesMesh) + call RegPackBounds(Buf, 1, lbound(InData%VisBodiesMesh, kind=B8Ki), ubound(InData%VisBodiesMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%VisBodiesMesh, kind=B8Ki) + UB(1:1) = ubound(InData%VisBodiesMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%VisBodiesMesh(i1)) end do end if call RegPack(Buf, allocated(InData%VisAnchsMesh)) if (allocated(InData%VisAnchsMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%VisAnchsMesh), ubound(InData%VisAnchsMesh)) - LB(1:1) = lbound(InData%VisAnchsMesh) - UB(1:1) = ubound(InData%VisAnchsMesh) + call RegPackBounds(Buf, 1, lbound(InData%VisAnchsMesh, kind=B8Ki), ubound(InData%VisAnchsMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%VisAnchsMesh, kind=B8Ki) + UB(1:1) = ubound(InData%VisAnchsMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%VisAnchsMesh(i1)) end do @@ -6546,8 +6546,8 @@ subroutine MD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackOutput' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6740,7 +6740,7 @@ SUBROUTINE MD_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg ) a2 = t_out/t(2) IF (ALLOCATED(u_out%CoupledKinematics) .AND. ALLOCATED(u1%CoupledKinematics)) THEN - DO i1 = LBOUND(u_out%CoupledKinematics,1),UBOUND(u_out%CoupledKinematics,1) + DO i1 = LBOUND(u_out%CoupledKinematics,1, kind=B8Ki),UBOUND(u_out%CoupledKinematics,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%CoupledKinematics(i1), u2%CoupledKinematics(i1), tin, u_out%CoupledKinematics(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -6809,7 +6809,7 @@ SUBROUTINE MD_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, ErrM a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%CoupledKinematics) .AND. ALLOCATED(u1%CoupledKinematics)) THEN - DO i1 = LBOUND(u_out%CoupledKinematics,1),UBOUND(u_out%CoupledKinematics,1) + DO i1 = LBOUND(u_out%CoupledKinematics,1, kind=B8Ki),UBOUND(u_out%CoupledKinematics,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%CoupledKinematics(i1), u2%CoupledKinematics(i1), u3%CoupledKinematics(i1), tin, u_out%CoupledKinematics(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -6920,7 +6920,7 @@ SUBROUTINE MD_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(y_out%CoupledLoads) .AND. ALLOCATED(y1%CoupledLoads)) THEN - DO i1 = LBOUND(y_out%CoupledLoads,1),UBOUND(y_out%CoupledLoads,1) + DO i1 = LBOUND(y_out%CoupledLoads,1, kind=B8Ki),UBOUND(y_out%CoupledLoads,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%CoupledLoads(i1), y2%CoupledLoads(i1), tin, y_out%CoupledLoads(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -6929,25 +6929,25 @@ SUBROUTINE MD_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg y_out%WriteOutput = a1*y1%WriteOutput + a2*y2%WriteOutput END IF ! check if allocated IF (ALLOCATED(y_out%VisLinesMesh) .AND. ALLOCATED(y1%VisLinesMesh)) THEN - DO i1 = LBOUND(y_out%VisLinesMesh,1),UBOUND(y_out%VisLinesMesh,1) + DO i1 = LBOUND(y_out%VisLinesMesh,1, kind=B8Ki),UBOUND(y_out%VisLinesMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%VisLinesMesh(i1), y2%VisLinesMesh(i1), tin, y_out%VisLinesMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%VisRodsMesh) .AND. ALLOCATED(y1%VisRodsMesh)) THEN - DO i1 = LBOUND(y_out%VisRodsMesh,1),UBOUND(y_out%VisRodsMesh,1) + DO i1 = LBOUND(y_out%VisRodsMesh,1, kind=B8Ki),UBOUND(y_out%VisRodsMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%VisRodsMesh(i1), y2%VisRodsMesh(i1), tin, y_out%VisRodsMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%VisBodiesMesh) .AND. ALLOCATED(y1%VisBodiesMesh)) THEN - DO i1 = LBOUND(y_out%VisBodiesMesh,1),UBOUND(y_out%VisBodiesMesh,1) + DO i1 = LBOUND(y_out%VisBodiesMesh,1, kind=B8Ki),UBOUND(y_out%VisBodiesMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%VisBodiesMesh(i1), y2%VisBodiesMesh(i1), tin, y_out%VisBodiesMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%VisAnchsMesh) .AND. ALLOCATED(y1%VisAnchsMesh)) THEN - DO i1 = LBOUND(y_out%VisAnchsMesh,1),UBOUND(y_out%VisAnchsMesh,1) + DO i1 = LBOUND(y_out%VisAnchsMesh,1, kind=B8Ki),UBOUND(y_out%VisAnchsMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%VisAnchsMesh(i1), y2%VisAnchsMesh(i1), tin, y_out%VisAnchsMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -7010,7 +7010,7 @@ SUBROUTINE MD_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%CoupledLoads) .AND. ALLOCATED(y1%CoupledLoads)) THEN - DO i1 = LBOUND(y_out%CoupledLoads,1),UBOUND(y_out%CoupledLoads,1) + DO i1 = LBOUND(y_out%CoupledLoads,1, kind=B8Ki),UBOUND(y_out%CoupledLoads,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%CoupledLoads(i1), y2%CoupledLoads(i1), y3%CoupledLoads(i1), tin, y_out%CoupledLoads(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -7019,25 +7019,25 @@ SUBROUTINE MD_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err y_out%WriteOutput = a1*y1%WriteOutput + a2*y2%WriteOutput + a3*y3%WriteOutput END IF ! check if allocated IF (ALLOCATED(y_out%VisLinesMesh) .AND. ALLOCATED(y1%VisLinesMesh)) THEN - DO i1 = LBOUND(y_out%VisLinesMesh,1),UBOUND(y_out%VisLinesMesh,1) + DO i1 = LBOUND(y_out%VisLinesMesh,1, kind=B8Ki),UBOUND(y_out%VisLinesMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%VisLinesMesh(i1), y2%VisLinesMesh(i1), y3%VisLinesMesh(i1), tin, y_out%VisLinesMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%VisRodsMesh) .AND. ALLOCATED(y1%VisRodsMesh)) THEN - DO i1 = LBOUND(y_out%VisRodsMesh,1),UBOUND(y_out%VisRodsMesh,1) + DO i1 = LBOUND(y_out%VisRodsMesh,1, kind=B8Ki),UBOUND(y_out%VisRodsMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%VisRodsMesh(i1), y2%VisRodsMesh(i1), y3%VisRodsMesh(i1), tin, y_out%VisRodsMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%VisBodiesMesh) .AND. ALLOCATED(y1%VisBodiesMesh)) THEN - DO i1 = LBOUND(y_out%VisBodiesMesh,1),UBOUND(y_out%VisBodiesMesh,1) + DO i1 = LBOUND(y_out%VisBodiesMesh,1, kind=B8Ki),UBOUND(y_out%VisBodiesMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%VisBodiesMesh(i1), y2%VisBodiesMesh(i1), y3%VisBodiesMesh(i1), tin, y_out%VisBodiesMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%VisAnchsMesh) .AND. ALLOCATED(y1%VisAnchsMesh)) THEN - DO i1 = LBOUND(y_out%VisAnchsMesh,1),UBOUND(y_out%VisAnchsMesh,1) + DO i1 = LBOUND(y_out%VisAnchsMesh,1, kind=B8Ki),UBOUND(y_out%VisAnchsMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%VisAnchsMesh(i1), y2%VisAnchsMesh(i1), y3%VisAnchsMesh(i1), tin, y_out%VisAnchsMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO diff --git a/modules/nwtc-library/CMakeLists.txt b/modules/nwtc-library/CMakeLists.txt index fab4131327..998bb11ec9 100644 --- a/modules/nwtc-library/CMakeLists.txt +++ b/modules/nwtc-library/CMakeLists.txt @@ -14,8 +14,19 @@ # limitations under the License. # +# if (GENERATE_TYPES) +# generate_f90_types(src/Registry_NWTC_Library_typedef_nomesh.txt ${CMAKE_CURRENT_LIST_DIR}/src/NWTC_Library_Types.f90 -noextrap) +# endif() + if (GENERATE_TYPES) - generate_f90_types(src/Registry_NWTC_Library_typedef_nomesh.txt ${CMAKE_CURRENT_LIST_DIR}/src/NWTC_Library_Types.f90 -noextrap) + # Generate Registry_NWTC_Library.txt by concatenating _base.txt and _mesh.txt + set_property(DIRECTORY APPEND PROPERTY CMAKE_CONFIGURE_DEPENDS + src/Registry_NWTC_Library_mesh.txt + src/Registry_NWTC_Library_base.txt) # if these files change, rerun configure + file(READ src/Registry_NWTC_Library_base.txt BASE_CONTENTS) + file(READ src/Registry_NWTC_Library_mesh.txt MESH_CONTENTS) + file(WRITE src/Registry_NWTC_Library.txt "${BASE_CONTENTS}\n${MESH_CONTENTS}") + generate_f90_types(src/Registry_NWTC_Library_base.txt ${CMAKE_CURRENT_LIST_DIR}/src/NWTC_Library_Types.f90 -noextrap) endif() #------------------------------------------------------------------------------- diff --git a/modules/nwtc-library/ModRegGen.py b/modules/nwtc-library/ModRegGen.py index 82ee7d3feb..4af818cc1c 100644 --- a/modules/nwtc-library/ModRegGen.py +++ b/modules/nwtc-library/ModRegGen.py @@ -7,6 +7,7 @@ 'C1': 'character(*)', 'L1': 'logical', 'I4': 'integer(B4Ki)', + 'I8': 'integer(B8Ki)', 'R4': 'real(R4Ki)', 'R8': 'real(R8Ki)', } @@ -20,15 +21,15 @@ private public :: PackBuffer - public :: WritePackBuffer, ReadPackBuffer, InitPackBuffer, RegCheckErr + public :: WritePackBuffer, ReadPackBuffer, InitPackBuffer, DestroyPackBuffer, RegCheckErr public :: RegPack, RegPackBounds, RegPackPointer public :: RegUnpack, RegUnpackBounds, RegUnpackPointer type :: PackBuffer integer(B1Ki), allocatable :: Bytes(:) - integer(IntKi) :: NB + integer(B8Ki) :: NB type(c_ptr), allocatable :: Pointers(:) - integer(IntKi) :: NP + integer(B8Ki) :: NP integer(IntKi) :: ErrStat = ErrID_Fatal character(ErrMsgLen) :: ErrMsg = 'PackBuffer not initialized' end type @@ -42,8 +43,8 @@ character(ErrMsgLen), intent(out) :: ErrMsg character(*), parameter :: RoutineName = "InitPackBuffer" - integer(IntKi), parameter :: NumPointersInit = 128 - integer(IntKi), parameter :: NumBytesInit = 1024 + integer(B8Ki), parameter :: NumPointersInit = 128 + integer(B8Ki), parameter :: NumBytesInit = 1024 integer(IntKi) :: stat ErrStat = ErrID_None @@ -79,6 +80,25 @@ end subroutine + subroutine DestroyPackBuffer(Buf, ErrStat, ErrMsg) + type(PackBuffer), intent(inout) :: Buf + integer(IntKi), intent(out) :: ErrStat + character(ErrMsgLen), intent(out) :: ErrMsg + + character(*), parameter :: RoutineName = "DestroyPackBuffer" + + ErrStat = ErrID_None + ErrMsg = "" + + Buf%ErrStat = ErrID_None + Buf%ErrMsg = "" + Buf%NP = 0 + Buf%NB = 0 + + if (allocated(Buf%Pointers)) deallocate (Buf%Pointers) + if (allocated(Buf%Bytes )) deallocate (Buf%Bytes) + end subroutine + subroutine WritePackBuffer(Buf, Unit, ErrStat, ErrMsg) type(PackBuffer), intent(inout) :: Buf integer(IntKi), intent(in) :: Unit @@ -205,8 +225,8 @@ logical, intent(out) :: Found type(c_ptr), allocatable :: PointersTmp(:) - integer(IntKi) :: NewSize - integer(B4Ki) :: i + integer(B8Ki) :: NewSize + integer(B8Ki) :: i ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -225,7 +245,7 @@ ! If pointer index is full, grow pointer index if (Buf%NP == size(Buf%Pointers)) then - NewSize = int(1.5_R4Ki * real(Buf%NP, R4Ki), IntKi) + NewSize = int(1.5_R8Ki * real(Buf%NP, R8Ki), B8Ki) call move_alloc(Buf%Pointers, PointersTmp) allocate (Buf%Pointers(NewSize), stat=Buf%ErrStat) if (Buf%ErrStat /= ErrID_None) then @@ -249,7 +269,7 @@ subroutine RegUnpackPointer(Buf, Ptr, Idx) type(PackBuffer), intent(inout) :: Buf type(c_ptr), intent(out) :: Ptr - integer(B4Ki), intent(out) :: Idx + integer(B8Ki), intent(out) :: Idx ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -264,7 +284,8 @@ subroutine RegPackBounds(Buf, R, LB, UB) type(PackBuffer), intent(inout) :: Buf - integer(B4Ki), intent(in) :: R, LB(:), UB(:) + integer(B4Ki), intent(in) :: R + integer(B8Ki), intent(in) :: LB(:), UB(:) ! If buffer has an error, return if (Buf%ErrStat /= ErrID_None) return @@ -278,7 +299,7 @@ subroutine RegUnpackBounds(Buf, R, LB, UB) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: R - integer(B4Ki), intent(out) :: LB(:), UB(:) + integer(B8Ki), intent(out) :: LB(:), UB(:) ! If buffer has an error, return if (Buf%ErrStat /= ErrID_None) return @@ -291,10 +312,10 @@ subroutine GrowBuffer(Buf, N) type(PackBuffer), intent(inout) :: Buf - integer(B4Ki), intent(in) :: N + integer(B8Ki), intent(in) :: N integer(B1Ki), allocatable :: BytesTmp(:) - integer(B4Ki) :: NewSize + integer(B8Ki) :: NewSize integer(IntKi) :: stat ! Return if there is a buffer error @@ -304,7 +325,7 @@ if (size(Buf%Bytes) > Buf%NB + N) return ! Calculate new size - NewSize = int(real(Buf%NB + N, R4Ki) * 1.8_R4Ki, IntKi) + NewSize = int(real(Buf%NB + N, R8Ki) * 1.8_R8Ki, B8Ki) ! Move allocation to temporary array and allocate buffer with new size call move_alloc(Buf%Bytes, BytesTmp) @@ -329,7 +350,7 @@ def gen_pack(w, dt, decl, rank): w.write(f'\n\n subroutine {name}(Buf, Data)') w.write(f'\n type(PackBuffer), intent(inout) :: Buf') w.write(f'\n {decl+", intent(in)":<38s} :: Data{dims}') - w.write(f'\n integer(IntKi) :: DataSize') + w.write(f'\n integer(B8Ki) :: DataSize') w.write(f'\n') w.write(f'\n ! If buffer error, return') w.write(f'\n if (Buf%ErrStat /= ErrID_None) return') @@ -368,7 +389,7 @@ def gen_unpack(w, dt, decl, rank): w.write(f'\n subroutine {name}(Buf, Data)') w.write(f'\n type(PackBuffer), intent(inout) :: Buf') w.write(f'\n {decl+", intent(out)":<38s} :: Data{dims}') - w.write(f'\n integer(IntKi) :: DataSize') + w.write(f'\n integer(B8Ki) :: DataSize') w.write(f'\n') w.write(f'\n ! If buffer error, return') w.write(f'\n if (Buf%ErrStat /= ErrID_None) return') @@ -424,7 +445,7 @@ def gen_pack_alloc(w, dt, decl, rank): w.write(f'\n') if rank > 0: w.write(f'\n ! Write array bounds') - w.write(f'\n call RegPackBounds(Buf, {rank}, lbound(Data), ubound(Data))') + w.write(f'\n call RegPackBounds(Buf, {rank}, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki))') w.write(f'\n') w.write(f'\n ! Write data to buffer') w.write(f'\n call RegPack(Buf, Data)') @@ -444,7 +465,7 @@ def gen_unpack_alloc(w, dt, decl, rank): w.write(f'\n integer(IntKi) :: stat') w.write(f'\n logical :: IsAllocated') if rank > 0: - w.write(f'\n integer(IntKi) :: LB({rank}), UB({rank})') + w.write(f'\n integer(B8Ki) :: LB({rank}), UB({rank})') w.write(f'\n') w.write(f'\n ! If buffer error, return') w.write(f'\n if (Buf%ErrStat /= ErrID_None) return') @@ -499,7 +520,7 @@ def gen_pack_ptr(w, dt, decl, rank): if rank > 0: w.write(f'\n') w.write(f'\n ! Write array bounds') - w.write(f'\n call RegPackBounds(Buf, {rank}, lbound(Data), ubound(Data))') + w.write(f'\n call RegPackBounds(Buf, {rank}, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki))') w.write(f'\n') w.write(f'\n ! Write pointer info') w.write(f'\n call RegPackPointer(Buf, c_loc(Data), PtrInIndex)') @@ -520,11 +541,11 @@ def gen_unpack_ptr(w, dt, decl, rank): w.write(f'\n subroutine {name}(Buf, Data)') w.write(f'\n type(PackBuffer), intent(inout) :: Buf') w.write(f'\n {decl+", pointer, intent(out)":<38s} :: Data{dims}') - w.write(f'\n integer(IntKi) :: PtrIdx, stat') + w.write(f'\n integer(B8Ki) :: PtrIdx, stat') w.write(f'\n logical :: IsAssociated') w.write(f'\n type(c_ptr) :: Ptr') if rank > 0: - w.write(f'\n integer(IntKi) :: LB({rank}), UB({rank})') + w.write(f'\n integer(B8Ki) :: LB({rank}), UB({rank})') w.write(f'\n') w.write(f'\n ! If buffer error, return') w.write(f'\n if (Buf%ErrStat /= ErrID_None) return') @@ -594,10 +615,4 @@ def gen_unpack_ptr(w, dt, decl, rank): gen_pack(w, dt, decl, rank) gen_unpack(w, dt, decl, rank) - # gen_pack_alloc(w, dt, decl, rank) - # gen_unpack_alloc(w, dt, decl, rank) - - # gen_pack_ptr(w, dt, decl, rank) - # gen_unpack_ptr(w, dt, decl, rank) - w.write('\nend module') diff --git a/modules/nwtc-library/src/Generate_NWTC_Library_Types.bat b/modules/nwtc-library/src/Generate_NWTC_Library_Types.bat index d6c0ef77f4..020b426a71 100644 --- a/modules/nwtc-library/src/Generate_NWTC_Library_Types.bat +++ b/modules/nwtc-library/src/Generate_NWTC_Library_Types.bat @@ -13,11 +13,11 @@ REM ---------------- RUN THE REGISTRY TO AUTO-GENERATE FILES ------------------- REM ---------------------------------------------------------------------------- ECHO on :mesh -%REGISTRY% Registry_NWTC_Library_typedef_mesh.txt -noextrap +%REGISTRY% Registry_NWTC_Library_mesh.txt -noextrap goto end :nomesh -%REGISTRY% Registry_NWTC_Library_typedef_nomesh.txt -noextrap +%REGISTRY% Registry_NWTC_Library_base.txt -noextrap :end diff --git a/modules/nwtc-library/src/ModMesh_Mapping.f90 b/modules/nwtc-library/src/ModMesh_Mapping.f90 index d2e08297bd..440c8e193a 100644 --- a/modules/nwtc-library/src/ModMesh_Mapping.f90 +++ b/modules/nwtc-library/src/ModMesh_Mapping.f90 @@ -5769,58 +5769,39 @@ END SUBROUTINE WriteMappingTransferToFile ! ! FAST Registry !********************************************************************************************************************************* -SUBROUTINE NWTC_Library_CopyMapType( SrcMapTypeData, DstMapTypeData, CtrlCode, ErrStat, ErrMsg ) - TYPE(MapType), INTENT(IN) :: SrcMapTypeData - TYPE(MapType), INTENT(INOUT) :: DstMapTypeData - INTEGER(IntKi), INTENT(IN ) :: CtrlCode - INTEGER(IntKi), INTENT( OUT) :: ErrStat - CHARACTER(*), INTENT( OUT) :: ErrMsg -! Local - INTEGER(IntKi) :: i,j,k - INTEGER(IntKi) :: i1, i1_l, i1_u ! bounds (upper/lower) for an array dimension 1 - INTEGER(IntKi) :: ErrStat2 - CHARACTER(ErrMsgLen) :: ErrMsg2 - CHARACTER(*), PARAMETER :: RoutineName = 'NWTC_Library_CopyMapType' -! - ErrStat = ErrID_None - ErrMsg = "" - DstMapTypeData%OtherMesh_Element = SrcMapTypeData%OtherMesh_Element - DstMapTypeData%distance = SrcMapTypeData%distance - DstMapTypeData%couple_arm = SrcMapTypeData%couple_arm - DstMapTypeData%shape_fn = SrcMapTypeData%shape_fn - END SUBROUTINE NWTC_Library_CopyMapType - - SUBROUTINE NWTC_Library_DestroyMapType( MapTypeData, ErrStat, ErrMsg ) - TYPE(MapType), INTENT(INOUT) :: MapTypeData - INTEGER(IntKi), INTENT( OUT) :: ErrStat - CHARACTER(*), INTENT( OUT) :: ErrMsg - - INTEGER(IntKi) :: i, i1, i2, i3, i4, i5 - INTEGER(IntKi) :: ErrStat2 - CHARACTER(ErrMsgLen) :: ErrMsg2 - CHARACTER(*), PARAMETER :: RoutineName = 'NWTC_Library_DestroyMapType' - - ErrStat = ErrID_None - ErrMsg = "" - END SUBROUTINE NWTC_Library_DestroyMapType +subroutine NWTC_Library_CopyMapType(SrcMapTypeData, DstMapTypeData, CtrlCode, ErrStat, ErrMsg) + type(MapType), intent(in) :: SrcMapTypeData + type(MapType), intent(inout) :: DstMapTypeData + integer(IntKi), intent(in ) :: CtrlCode + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + character(*), parameter :: RoutineName = 'NWTC_Library_CopyMapType' + ErrStat = ErrID_None + ErrMsg = '' + DstMapTypeData%OtherMesh_Element = SrcMapTypeData%OtherMesh_Element + DstMapTypeData%distance = SrcMapTypeData%distance + DstMapTypeData%couple_arm = SrcMapTypeData%couple_arm + DstMapTypeData%shape_fn = SrcMapTypeData%shape_fn +end subroutine +subroutine NWTC_Library_DestroyMapType(MapTypeData, ErrStat, ErrMsg) + type(MapType), intent(inout) :: MapTypeData + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + character(*), parameter :: RoutineName = 'NWTC_Library_DestroyMapType' + ErrStat = ErrID_None + ErrMsg = '' +end subroutine subroutine NWTC_Library_PackMapType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MapType), intent(in) :: InData character(*), parameter :: RoutineName = 'NWTC_Library_PackMapType' if (Buf%ErrStat >= AbortErrLev) return - ! OtherMesh_Element call RegPack(Buf, InData%OtherMesh_Element) - if (RegCheckErr(Buf, RoutineName)) return - ! distance call RegPack(Buf, InData%distance) - if (RegCheckErr(Buf, RoutineName)) return - ! couple_arm call RegPack(Buf, InData%couple_arm) - if (RegCheckErr(Buf, RoutineName)) return - ! shape_fn call RegPack(Buf, InData%shape_fn) if (RegCheckErr(Buf, RoutineName)) return end subroutine @@ -5830,319 +5811,261 @@ subroutine NWTC_Library_UnPackMapType(Buf, OutData) type(MapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackMapType' if (Buf%ErrStat /= ErrID_None) return - ! OtherMesh_Element call RegUnpack(Buf, OutData%OtherMesh_Element) if (RegCheckErr(Buf, RoutineName)) return - ! distance call RegUnpack(Buf, OutData%distance) if (RegCheckErr(Buf, RoutineName)) return - ! couple_arm call RegUnpack(Buf, OutData%couple_arm) if (RegCheckErr(Buf, RoutineName)) return - ! shape_fn call RegUnpack(Buf, OutData%shape_fn) if (RegCheckErr(Buf, RoutineName)) return end subroutine - SUBROUTINE NWTC_Library_CopyMeshMapLinearizationType( SrcMeshMapLinearizationTypeData, DstMeshMapLinearizationTypeData, CtrlCode, ErrStat, ErrMsg ) - TYPE(MeshMapLinearizationType), INTENT(IN) :: SrcMeshMapLinearizationTypeData - TYPE(MeshMapLinearizationType), INTENT(INOUT) :: DstMeshMapLinearizationTypeData - INTEGER(IntKi), INTENT(IN ) :: CtrlCode - INTEGER(IntKi), INTENT( OUT) :: ErrStat - CHARACTER(*), INTENT( OUT) :: ErrMsg -! Local - INTEGER(IntKi) :: i,j,k - INTEGER(IntKi) :: i1, i1_l, i1_u ! bounds (upper/lower) for an array dimension 1 - INTEGER(IntKi) :: i2, i2_l, i2_u ! bounds (upper/lower) for an array dimension 2 - INTEGER(IntKi) :: ErrStat2 - CHARACTER(ErrMsgLen) :: ErrMsg2 - CHARACTER(*), PARAMETER :: RoutineName = 'NWTC_Library_CopyMeshMapLinearizationType' -! + +subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationTypeData, DstMeshMapLinearizationTypeData, CtrlCode, ErrStat, ErrMsg) + type(MeshMapLinearizationType), intent(in) :: SrcMeshMapLinearizationTypeData + type(MeshMapLinearizationType), intent(inout) :: DstMeshMapLinearizationTypeData + integer(IntKi), intent(in ) :: CtrlCode + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + integer(B8Ki) :: LB(2), UB(2) + integer(IntKi) :: ErrStat2 + character(*), parameter :: RoutineName = 'NWTC_Library_CopyMeshMapLinearizationType' ErrStat = ErrID_None - ErrMsg = "" -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%mi)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%mi,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%mi,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%mi,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%mi,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%mi)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%mi(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%mi.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%mi = SrcMeshMapLinearizationTypeData%mi -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%fx_p)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%fx_p,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%fx_p,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%fx_p,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%fx_p,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%fx_p)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%fx_p(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%fx_p.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%fx_p = SrcMeshMapLinearizationTypeData%fx_p -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%tv_uD)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%tv_uD,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%tv_uD,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%tv_uD,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%tv_uD,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%tv_uD)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%tv_uD(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%tv_uD.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%tv_uD = SrcMeshMapLinearizationTypeData%tv_uD -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%tv_uS)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%tv_uS,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%tv_uS,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%tv_uS,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%tv_uS,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%tv_uS)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%tv_uS(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%tv_uS.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%tv_uS = SrcMeshMapLinearizationTypeData%tv_uS -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%ta_uD)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%ta_uD,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%ta_uD,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%ta_uD,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%ta_uD,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%ta_uD)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%ta_uD(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%ta_uD.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%ta_uD = SrcMeshMapLinearizationTypeData%ta_uD -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%ta_uS)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%ta_uS,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%ta_uS,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%ta_uS,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%ta_uS,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%ta_uS)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%ta_uS(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%ta_uS.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%ta_uS = SrcMeshMapLinearizationTypeData%ta_uS -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%ta_rv)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%ta_rv,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%ta_rv,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%ta_rv,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%ta_rv,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%ta_rv)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%ta_rv(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%ta_rv.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%ta_rv = SrcMeshMapLinearizationTypeData%ta_rv -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%li)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%li,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%li,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%li,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%li,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%li)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%li(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%li.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%li = SrcMeshMapLinearizationTypeData%li -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%M_uS)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%M_uS,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%M_uS,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%M_uS,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%M_uS,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%M_uS)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%M_uS(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%M_uS.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%M_uS = SrcMeshMapLinearizationTypeData%M_uS -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%M_uD)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%M_uD,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%M_uD,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%M_uD,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%M_uD,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%M_uD)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%M_uD(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%M_uD.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%M_uD = SrcMeshMapLinearizationTypeData%M_uD -ENDIF -IF (ALLOCATED(SrcMeshMapLinearizationTypeData%M_f)) THEN - i1_l = LBOUND(SrcMeshMapLinearizationTypeData%M_f,1) - i1_u = UBOUND(SrcMeshMapLinearizationTypeData%M_f,1) - i2_l = LBOUND(SrcMeshMapLinearizationTypeData%M_f,2) - i2_u = UBOUND(SrcMeshMapLinearizationTypeData%M_f,2) - IF (.NOT. ALLOCATED(DstMeshMapLinearizationTypeData%M_f)) THEN - ALLOCATE(DstMeshMapLinearizationTypeData%M_f(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%M_f.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapLinearizationTypeData%M_f = SrcMeshMapLinearizationTypeData%M_f -ENDIF - END SUBROUTINE NWTC_Library_CopyMeshMapLinearizationType - - SUBROUTINE NWTC_Library_DestroyMeshMapLinearizationType( MeshMapLinearizationTypeData, ErrStat, ErrMsg ) - TYPE(MeshMapLinearizationType), INTENT(INOUT) :: MeshMapLinearizationTypeData - INTEGER(IntKi), INTENT( OUT) :: ErrStat - CHARACTER(*), INTENT( OUT) :: ErrMsg - - INTEGER(IntKi) :: i, i1, i2, i3, i4, i5 - INTEGER(IntKi) :: ErrStat2 - CHARACTER(ErrMsgLen) :: ErrMsg2 - CHARACTER(*), PARAMETER :: RoutineName = 'NWTC_Library_DestroyMeshMapLinearizationType' - - ErrStat = ErrID_None - ErrMsg = "" - -IF (ALLOCATED(MeshMapLinearizationTypeData%mi)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%mi) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%fx_p)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%fx_p) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%tv_uD)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%tv_uD) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%tv_uS)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%tv_uS) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%ta_uD)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%ta_uD) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%ta_uS)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%ta_uS) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%ta_rv)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%ta_rv) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%li)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%li) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%M_uS)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%M_uS) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%M_uD)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%M_uD) -ENDIF -IF (ALLOCATED(MeshMapLinearizationTypeData%M_f)) THEN - DEALLOCATE(MeshMapLinearizationTypeData%M_f) -ENDIF - END SUBROUTINE NWTC_Library_DestroyMeshMapLinearizationType + ErrMsg = '' + if (allocated(SrcMeshMapLinearizationTypeData%mi)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%mi, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%mi, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%mi)) then + allocate(DstMeshMapLinearizationTypeData%mi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%mi.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%mi = SrcMeshMapLinearizationTypeData%mi + end if + if (allocated(SrcMeshMapLinearizationTypeData%fx_p)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%fx_p, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%fx_p, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%fx_p)) then + allocate(DstMeshMapLinearizationTypeData%fx_p(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%fx_p.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%fx_p = SrcMeshMapLinearizationTypeData%fx_p + end if + if (allocated(SrcMeshMapLinearizationTypeData%tv_uD)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%tv_uD, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%tv_uD, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%tv_uD)) then + allocate(DstMeshMapLinearizationTypeData%tv_uD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%tv_uD.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%tv_uD = SrcMeshMapLinearizationTypeData%tv_uD + end if + if (allocated(SrcMeshMapLinearizationTypeData%tv_uS)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%tv_uS, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%tv_uS, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%tv_uS)) then + allocate(DstMeshMapLinearizationTypeData%tv_uS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%tv_uS.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%tv_uS = SrcMeshMapLinearizationTypeData%tv_uS + end if + if (allocated(SrcMeshMapLinearizationTypeData%ta_uD)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%ta_uD, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%ta_uD, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%ta_uD)) then + allocate(DstMeshMapLinearizationTypeData%ta_uD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%ta_uD.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%ta_uD = SrcMeshMapLinearizationTypeData%ta_uD + end if + if (allocated(SrcMeshMapLinearizationTypeData%ta_uS)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%ta_uS, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%ta_uS, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%ta_uS)) then + allocate(DstMeshMapLinearizationTypeData%ta_uS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%ta_uS.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%ta_uS = SrcMeshMapLinearizationTypeData%ta_uS + end if + if (allocated(SrcMeshMapLinearizationTypeData%ta_rv)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%ta_rv, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%ta_rv, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%ta_rv)) then + allocate(DstMeshMapLinearizationTypeData%ta_rv(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%ta_rv.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%ta_rv = SrcMeshMapLinearizationTypeData%ta_rv + end if + if (allocated(SrcMeshMapLinearizationTypeData%li)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%li, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%li, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%li)) then + allocate(DstMeshMapLinearizationTypeData%li(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%li.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%li = SrcMeshMapLinearizationTypeData%li + end if + if (allocated(SrcMeshMapLinearizationTypeData%M_uS)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%M_uS, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%M_uS, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%M_uS)) then + allocate(DstMeshMapLinearizationTypeData%M_uS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%M_uS.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%M_uS = SrcMeshMapLinearizationTypeData%M_uS + end if + if (allocated(SrcMeshMapLinearizationTypeData%M_uD)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%M_uD, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%M_uD, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%M_uD)) then + allocate(DstMeshMapLinearizationTypeData%M_uD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%M_uD.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%M_uD = SrcMeshMapLinearizationTypeData%M_uD + end if + if (allocated(SrcMeshMapLinearizationTypeData%M_f)) then + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%M_f, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%M_f, kind=B8Ki) + if (.not. allocated(DstMeshMapLinearizationTypeData%M_f)) then + allocate(DstMeshMapLinearizationTypeData%M_f(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapLinearizationTypeData%M_f.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapLinearizationTypeData%M_f = SrcMeshMapLinearizationTypeData%M_f + end if +end subroutine +subroutine NWTC_Library_DestroyMeshMapLinearizationType(MeshMapLinearizationTypeData, ErrStat, ErrMsg) + type(MeshMapLinearizationType), intent(inout) :: MeshMapLinearizationTypeData + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + character(*), parameter :: RoutineName = 'NWTC_Library_DestroyMeshMapLinearizationType' + ErrStat = ErrID_None + ErrMsg = '' + if (allocated(MeshMapLinearizationTypeData%mi)) then + deallocate(MeshMapLinearizationTypeData%mi) + end if + if (allocated(MeshMapLinearizationTypeData%fx_p)) then + deallocate(MeshMapLinearizationTypeData%fx_p) + end if + if (allocated(MeshMapLinearizationTypeData%tv_uD)) then + deallocate(MeshMapLinearizationTypeData%tv_uD) + end if + if (allocated(MeshMapLinearizationTypeData%tv_uS)) then + deallocate(MeshMapLinearizationTypeData%tv_uS) + end if + if (allocated(MeshMapLinearizationTypeData%ta_uD)) then + deallocate(MeshMapLinearizationTypeData%ta_uD) + end if + if (allocated(MeshMapLinearizationTypeData%ta_uS)) then + deallocate(MeshMapLinearizationTypeData%ta_uS) + end if + if (allocated(MeshMapLinearizationTypeData%ta_rv)) then + deallocate(MeshMapLinearizationTypeData%ta_rv) + end if + if (allocated(MeshMapLinearizationTypeData%li)) then + deallocate(MeshMapLinearizationTypeData%li) + end if + if (allocated(MeshMapLinearizationTypeData%M_uS)) then + deallocate(MeshMapLinearizationTypeData%M_uS) + end if + if (allocated(MeshMapLinearizationTypeData%M_uD)) then + deallocate(MeshMapLinearizationTypeData%M_uD) + end if + if (allocated(MeshMapLinearizationTypeData%M_f)) then + deallocate(MeshMapLinearizationTypeData%M_f) + end if +end subroutine subroutine NWTC_Library_PackMeshMapLinearizationType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MeshMapLinearizationType), intent(in) :: InData character(*), parameter :: RoutineName = 'NWTC_Library_PackMeshMapLinearizationType' if (Buf%ErrStat >= AbortErrLev) return - ! mi call RegPack(Buf, allocated(InData%mi)) if (allocated(InData%mi)) then - call RegPackBounds(Buf, 2, lbound(InData%mi), ubound(InData%mi)) + call RegPackBounds(Buf, 2, lbound(InData%mi, kind=B8Ki), ubound(InData%mi, kind=B8Ki)) call RegPack(Buf, InData%mi) end if - if (RegCheckErr(Buf, RoutineName)) return - ! fx_p call RegPack(Buf, allocated(InData%fx_p)) if (allocated(InData%fx_p)) then - call RegPackBounds(Buf, 2, lbound(InData%fx_p), ubound(InData%fx_p)) + call RegPackBounds(Buf, 2, lbound(InData%fx_p, kind=B8Ki), ubound(InData%fx_p, kind=B8Ki)) call RegPack(Buf, InData%fx_p) end if - if (RegCheckErr(Buf, RoutineName)) return - ! tv_uD call RegPack(Buf, allocated(InData%tv_uD)) if (allocated(InData%tv_uD)) then - call RegPackBounds(Buf, 2, lbound(InData%tv_uD), ubound(InData%tv_uD)) + call RegPackBounds(Buf, 2, lbound(InData%tv_uD, kind=B8Ki), ubound(InData%tv_uD, kind=B8Ki)) call RegPack(Buf, InData%tv_uD) end if - if (RegCheckErr(Buf, RoutineName)) return - ! tv_uS call RegPack(Buf, allocated(InData%tv_uS)) if (allocated(InData%tv_uS)) then - call RegPackBounds(Buf, 2, lbound(InData%tv_uS), ubound(InData%tv_uS)) + call RegPackBounds(Buf, 2, lbound(InData%tv_uS, kind=B8Ki), ubound(InData%tv_uS, kind=B8Ki)) call RegPack(Buf, InData%tv_uS) end if - if (RegCheckErr(Buf, RoutineName)) return - ! ta_uD call RegPack(Buf, allocated(InData%ta_uD)) if (allocated(InData%ta_uD)) then - call RegPackBounds(Buf, 2, lbound(InData%ta_uD), ubound(InData%ta_uD)) + call RegPackBounds(Buf, 2, lbound(InData%ta_uD, kind=B8Ki), ubound(InData%ta_uD, kind=B8Ki)) call RegPack(Buf, InData%ta_uD) end if - if (RegCheckErr(Buf, RoutineName)) return - ! ta_uS call RegPack(Buf, allocated(InData%ta_uS)) if (allocated(InData%ta_uS)) then - call RegPackBounds(Buf, 2, lbound(InData%ta_uS), ubound(InData%ta_uS)) + call RegPackBounds(Buf, 2, lbound(InData%ta_uS, kind=B8Ki), ubound(InData%ta_uS, kind=B8Ki)) call RegPack(Buf, InData%ta_uS) end if - if (RegCheckErr(Buf, RoutineName)) return - ! ta_rv call RegPack(Buf, allocated(InData%ta_rv)) if (allocated(InData%ta_rv)) then - call RegPackBounds(Buf, 2, lbound(InData%ta_rv), ubound(InData%ta_rv)) + call RegPackBounds(Buf, 2, lbound(InData%ta_rv, kind=B8Ki), ubound(InData%ta_rv, kind=B8Ki)) call RegPack(Buf, InData%ta_rv) end if - if (RegCheckErr(Buf, RoutineName)) return - ! li call RegPack(Buf, allocated(InData%li)) if (allocated(InData%li)) then - call RegPackBounds(Buf, 2, lbound(InData%li), ubound(InData%li)) + call RegPackBounds(Buf, 2, lbound(InData%li, kind=B8Ki), ubound(InData%li, kind=B8Ki)) call RegPack(Buf, InData%li) end if - if (RegCheckErr(Buf, RoutineName)) return - ! M_uS call RegPack(Buf, allocated(InData%M_uS)) if (allocated(InData%M_uS)) then - call RegPackBounds(Buf, 2, lbound(InData%M_uS), ubound(InData%M_uS)) + call RegPackBounds(Buf, 2, lbound(InData%M_uS, kind=B8Ki), ubound(InData%M_uS, kind=B8Ki)) call RegPack(Buf, InData%M_uS) end if - if (RegCheckErr(Buf, RoutineName)) return - ! M_uD call RegPack(Buf, allocated(InData%M_uD)) if (allocated(InData%M_uD)) then - call RegPackBounds(Buf, 2, lbound(InData%M_uD), ubound(InData%M_uD)) + call RegPackBounds(Buf, 2, lbound(InData%M_uD, kind=B8Ki), ubound(InData%M_uD, kind=B8Ki)) call RegPack(Buf, InData%M_uD) end if - if (RegCheckErr(Buf, RoutineName)) return - ! M_f call RegPack(Buf, allocated(InData%M_f)) if (allocated(InData%M_f)) then - call RegPackBounds(Buf, 2, lbound(InData%M_f), ubound(InData%M_f)) + call RegPackBounds(Buf, 2, lbound(InData%M_f, kind=B8Ki), ubound(InData%M_f, kind=B8Ki)) call RegPack(Buf, InData%M_f) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6152,11 +6075,10 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MeshMapLinearizationType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackMeshMapLinearizationType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - ! mi if (allocated(OutData%mi)) deallocate(OutData%mi) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6171,7 +6093,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%mi) if (RegCheckErr(Buf, RoutineName)) return end if - ! fx_p if (allocated(OutData%fx_p)) deallocate(OutData%fx_p) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6186,7 +6107,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%fx_p) if (RegCheckErr(Buf, RoutineName)) return end if - ! tv_uD if (allocated(OutData%tv_uD)) deallocate(OutData%tv_uD) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6201,7 +6121,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%tv_uD) if (RegCheckErr(Buf, RoutineName)) return end if - ! tv_uS if (allocated(OutData%tv_uS)) deallocate(OutData%tv_uS) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6216,7 +6135,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%tv_uS) if (RegCheckErr(Buf, RoutineName)) return end if - ! ta_uD if (allocated(OutData%ta_uD)) deallocate(OutData%ta_uD) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6231,7 +6149,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%ta_uD) if (RegCheckErr(Buf, RoutineName)) return end if - ! ta_uS if (allocated(OutData%ta_uS)) deallocate(OutData%ta_uS) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6246,7 +6163,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%ta_uS) if (RegCheckErr(Buf, RoutineName)) return end if - ! ta_rv if (allocated(OutData%ta_rv)) deallocate(OutData%ta_rv) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6261,7 +6177,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%ta_rv) if (RegCheckErr(Buf, RoutineName)) return end if - ! li if (allocated(OutData%li)) deallocate(OutData%li) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6276,7 +6191,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%li) if (RegCheckErr(Buf, RoutineName)) return end if - ! M_uS if (allocated(OutData%M_uS)) deallocate(OutData%M_uS) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6291,7 +6205,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%M_uS) if (RegCheckErr(Buf, RoutineName)) return end if - ! M_uD if (allocated(OutData%M_uD)) deallocate(OutData%M_uD) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6306,7 +6219,6 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) call RegUnpack(Buf, OutData%M_uD) if (RegCheckErr(Buf, RoutineName)) return end if - ! M_f if (allocated(OutData%M_f)) deallocate(OutData%M_f) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6322,292 +6234,261 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(Buf, OutData) if (RegCheckErr(Buf, RoutineName)) return end if end subroutine - SUBROUTINE NWTC_Library_CopyMeshMapType( SrcMeshMapTypeData, DstMeshMapTypeData, CtrlCode, ErrStat, ErrMsg ) - TYPE(MeshMapType), INTENT(INOUT) :: SrcMeshMapTypeData - TYPE(MeshMapType), INTENT(INOUT) :: DstMeshMapTypeData - INTEGER(IntKi), INTENT(IN ) :: CtrlCode - INTEGER(IntKi), INTENT( OUT) :: ErrStat - CHARACTER(*), INTENT( OUT) :: ErrMsg -! Local - INTEGER(IntKi) :: i,j,k - INTEGER(IntKi) :: i1, i1_l, i1_u ! bounds (upper/lower) for an array dimension 1 - INTEGER(IntKi) :: i2, i2_l, i2_u ! bounds (upper/lower) for an array dimension 2 - INTEGER(IntKi) :: i3, i3_l, i3_u ! bounds (upper/lower) for an array dimension 3 - INTEGER(IntKi) :: ErrStat2 - CHARACTER(ErrMsgLen) :: ErrMsg2 - CHARACTER(*), PARAMETER :: RoutineName = 'NWTC_Library_CopyMeshMapType' -! + +subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, CtrlCode, ErrStat, ErrMsg) + type(MeshMapType), intent(inout) :: SrcMeshMapTypeData + type(MeshMapType), intent(inout) :: DstMeshMapTypeData + integer(IntKi), intent(in ) :: CtrlCode + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) + integer(IntKi) :: ErrStat2 + character(ErrMsgLen) :: ErrMsg2 + character(*), parameter :: RoutineName = 'NWTC_Library_CopyMeshMapType' ErrStat = ErrID_None - ErrMsg = "" -IF (ALLOCATED(SrcMeshMapTypeData%MapLoads)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%MapLoads,1) - i1_u = UBOUND(SrcMeshMapTypeData%MapLoads,1) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%MapLoads)) THEN - ALLOCATE(DstMeshMapTypeData%MapLoads(i1_l:i1_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%MapLoads.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DO i1 = LBOUND(SrcMeshMapTypeData%MapLoads,1), UBOUND(SrcMeshMapTypeData%MapLoads,1) - CALL NWTC_Library_Copymaptype( SrcMeshMapTypeData%MapLoads(i1), DstMeshMapTypeData%MapLoads(i1), CtrlCode, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) - IF (ErrStat>=AbortErrLev) RETURN - ENDDO -ENDIF -IF (ALLOCATED(SrcMeshMapTypeData%MapMotions)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%MapMotions,1) - i1_u = UBOUND(SrcMeshMapTypeData%MapMotions,1) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%MapMotions)) THEN - ALLOCATE(DstMeshMapTypeData%MapMotions(i1_l:i1_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%MapMotions.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DO i1 = LBOUND(SrcMeshMapTypeData%MapMotions,1), UBOUND(SrcMeshMapTypeData%MapMotions,1) - CALL NWTC_Library_Copymaptype( SrcMeshMapTypeData%MapMotions(i1), DstMeshMapTypeData%MapMotions(i1), CtrlCode, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) - IF (ErrStat>=AbortErrLev) RETURN - ENDDO -ENDIF -IF (ALLOCATED(SrcMeshMapTypeData%MapSrcToAugmt)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%MapSrcToAugmt,1) - i1_u = UBOUND(SrcMeshMapTypeData%MapSrcToAugmt,1) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%MapSrcToAugmt)) THEN - ALLOCATE(DstMeshMapTypeData%MapSrcToAugmt(i1_l:i1_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%MapSrcToAugmt.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DO i1 = LBOUND(SrcMeshMapTypeData%MapSrcToAugmt,1), UBOUND(SrcMeshMapTypeData%MapSrcToAugmt,1) - CALL NWTC_Library_Copymaptype( SrcMeshMapTypeData%MapSrcToAugmt(i1), DstMeshMapTypeData%MapSrcToAugmt(i1), CtrlCode, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) - IF (ErrStat>=AbortErrLev) RETURN - ENDDO -ENDIF - CALL MeshCopy( SrcMeshMapTypeData%Augmented_Ln2_Src, DstMeshMapTypeData%Augmented_Ln2_Src, CtrlCode, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - IF (ErrStat>=AbortErrLev) RETURN - CALL MeshCopy( SrcMeshMapTypeData%Lumped_Points_Src, DstMeshMapTypeData%Lumped_Points_Src, CtrlCode, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - IF (ErrStat>=AbortErrLev) RETURN -IF (ALLOCATED(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv,1) - i1_u = UBOUND(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv,1) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%LoadLn2_A_Mat_Piv)) THEN - ALLOCATE(DstMeshMapTypeData%LoadLn2_A_Mat_Piv(i1_l:i1_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_A_Mat_Piv.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapTypeData%LoadLn2_A_Mat_Piv = SrcMeshMapTypeData%LoadLn2_A_Mat_Piv -ENDIF -IF (ALLOCATED(SrcMeshMapTypeData%DisplacedPosition)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%DisplacedPosition,1) - i1_u = UBOUND(SrcMeshMapTypeData%DisplacedPosition,1) - i2_l = LBOUND(SrcMeshMapTypeData%DisplacedPosition,2) - i2_u = UBOUND(SrcMeshMapTypeData%DisplacedPosition,2) - i3_l = LBOUND(SrcMeshMapTypeData%DisplacedPosition,3) - i3_u = UBOUND(SrcMeshMapTypeData%DisplacedPosition,3) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%DisplacedPosition)) THEN - ALLOCATE(DstMeshMapTypeData%DisplacedPosition(i1_l:i1_u,i2_l:i2_u,i3_l:i3_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%DisplacedPosition.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapTypeData%DisplacedPosition = SrcMeshMapTypeData%DisplacedPosition -ENDIF -IF (ALLOCATED(SrcMeshMapTypeData%LoadLn2_A_Mat)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%LoadLn2_A_Mat,1) - i1_u = UBOUND(SrcMeshMapTypeData%LoadLn2_A_Mat,1) - i2_l = LBOUND(SrcMeshMapTypeData%LoadLn2_A_Mat,2) - i2_u = UBOUND(SrcMeshMapTypeData%LoadLn2_A_Mat,2) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%LoadLn2_A_Mat)) THEN - ALLOCATE(DstMeshMapTypeData%LoadLn2_A_Mat(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_A_Mat.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapTypeData%LoadLn2_A_Mat = SrcMeshMapTypeData%LoadLn2_A_Mat -ENDIF -IF (ALLOCATED(SrcMeshMapTypeData%LoadLn2_F)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%LoadLn2_F,1) - i1_u = UBOUND(SrcMeshMapTypeData%LoadLn2_F,1) - i2_l = LBOUND(SrcMeshMapTypeData%LoadLn2_F,2) - i2_u = UBOUND(SrcMeshMapTypeData%LoadLn2_F,2) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%LoadLn2_F)) THEN - ALLOCATE(DstMeshMapTypeData%LoadLn2_F(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_F.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapTypeData%LoadLn2_F = SrcMeshMapTypeData%LoadLn2_F -ENDIF -IF (ALLOCATED(SrcMeshMapTypeData%LoadLn2_M)) THEN - i1_l = LBOUND(SrcMeshMapTypeData%LoadLn2_M,1) - i1_u = UBOUND(SrcMeshMapTypeData%LoadLn2_M,1) - i2_l = LBOUND(SrcMeshMapTypeData%LoadLn2_M,2) - i2_u = UBOUND(SrcMeshMapTypeData%LoadLn2_M,2) - IF (.NOT. ALLOCATED(DstMeshMapTypeData%LoadLn2_M)) THEN - ALLOCATE(DstMeshMapTypeData%LoadLn2_M(i1_l:i1_u,i2_l:i2_u),STAT=ErrStat2) - IF (ErrStat2 /= 0) THEN - CALL SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_M.', ErrStat, ErrMsg,RoutineName) - RETURN - END IF - END IF - DstMeshMapTypeData%LoadLn2_M = SrcMeshMapTypeData%LoadLn2_M -ENDIF - CALL NWTC_Library_Copymeshmaplinearizationtype( SrcMeshMapTypeData%dM, DstMeshMapTypeData%dM, CtrlCode, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) - IF (ErrStat>=AbortErrLev) RETURN - END SUBROUTINE NWTC_Library_CopyMeshMapType - - SUBROUTINE NWTC_Library_DestroyMeshMapType( MeshMapTypeData, ErrStat, ErrMsg ) - TYPE(MeshMapType), INTENT(INOUT) :: MeshMapTypeData - INTEGER(IntKi), INTENT( OUT) :: ErrStat - CHARACTER(*), INTENT( OUT) :: ErrMsg - - INTEGER(IntKi) :: i, i1, i2, i3, i4, i5 - INTEGER(IntKi) :: ErrStat2 - CHARACTER(ErrMsgLen) :: ErrMsg2 - CHARACTER(*), PARAMETER :: RoutineName = 'NWTC_Library_DestroyMeshMapType' - - ErrStat = ErrID_None - ErrMsg = "" - -IF (ALLOCATED(MeshMapTypeData%MapLoads)) THEN -DO i1 = LBOUND(MeshMapTypeData%MapLoads,1), UBOUND(MeshMapTypeData%MapLoads,1) - CALL NWTC_Library_DestroyMapType( MeshMapTypeData%MapLoads(i1), ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) -ENDDO - DEALLOCATE(MeshMapTypeData%MapLoads) -ENDIF -IF (ALLOCATED(MeshMapTypeData%MapMotions)) THEN -DO i1 = LBOUND(MeshMapTypeData%MapMotions,1), UBOUND(MeshMapTypeData%MapMotions,1) - CALL NWTC_Library_DestroyMapType( MeshMapTypeData%MapMotions(i1), ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) -ENDDO - DEALLOCATE(MeshMapTypeData%MapMotions) -ENDIF -IF (ALLOCATED(MeshMapTypeData%MapSrcToAugmt)) THEN -DO i1 = LBOUND(MeshMapTypeData%MapSrcToAugmt,1), UBOUND(MeshMapTypeData%MapSrcToAugmt,1) - CALL NWTC_Library_DestroyMapType( MeshMapTypeData%MapSrcToAugmt(i1), ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) -ENDDO - DEALLOCATE(MeshMapTypeData%MapSrcToAugmt) -ENDIF - CALL MeshDestroy( MeshMapTypeData%Augmented_Ln2_Src, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - CALL MeshDestroy( MeshMapTypeData%Lumped_Points_Src, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) -IF (ALLOCATED(MeshMapTypeData%LoadLn2_A_Mat_Piv)) THEN - DEALLOCATE(MeshMapTypeData%LoadLn2_A_Mat_Piv) -ENDIF -IF (ALLOCATED(MeshMapTypeData%DisplacedPosition)) THEN - DEALLOCATE(MeshMapTypeData%DisplacedPosition) -ENDIF -IF (ALLOCATED(MeshMapTypeData%LoadLn2_A_Mat)) THEN - DEALLOCATE(MeshMapTypeData%LoadLn2_A_Mat) -ENDIF -IF (ALLOCATED(MeshMapTypeData%LoadLn2_F)) THEN - DEALLOCATE(MeshMapTypeData%LoadLn2_F) -ENDIF -IF (ALLOCATED(MeshMapTypeData%LoadLn2_M)) THEN - DEALLOCATE(MeshMapTypeData%LoadLn2_M) -ENDIF - CALL NWTC_Library_DestroyMeshMapLinearizationType( MeshMapTypeData%dM, ErrStat2, ErrMsg2 ) - CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - END SUBROUTINE NWTC_Library_DestroyMeshMapType + ErrMsg = '' + if (allocated(SrcMeshMapTypeData%MapLoads)) then + LB(1:1) = lbound(SrcMeshMapTypeData%MapLoads, kind=B8Ki) + UB(1:1) = ubound(SrcMeshMapTypeData%MapLoads, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%MapLoads)) then + allocate(DstMeshMapTypeData%MapLoads(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%MapLoads.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + do i1 = LB(1), UB(1) + call NWTC_Library_CopyMapType(SrcMeshMapTypeData%MapLoads(i1), DstMeshMapTypeData%MapLoads(i1), CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + end do + end if + if (allocated(SrcMeshMapTypeData%MapMotions)) then + LB(1:1) = lbound(SrcMeshMapTypeData%MapMotions, kind=B8Ki) + UB(1:1) = ubound(SrcMeshMapTypeData%MapMotions, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%MapMotions)) then + allocate(DstMeshMapTypeData%MapMotions(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%MapMotions.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + do i1 = LB(1), UB(1) + call NWTC_Library_CopyMapType(SrcMeshMapTypeData%MapMotions(i1), DstMeshMapTypeData%MapMotions(i1), CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + end do + end if + if (allocated(SrcMeshMapTypeData%MapSrcToAugmt)) then + LB(1:1) = lbound(SrcMeshMapTypeData%MapSrcToAugmt, kind=B8Ki) + UB(1:1) = ubound(SrcMeshMapTypeData%MapSrcToAugmt, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%MapSrcToAugmt)) then + allocate(DstMeshMapTypeData%MapSrcToAugmt(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%MapSrcToAugmt.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + do i1 = LB(1), UB(1) + call NWTC_Library_CopyMapType(SrcMeshMapTypeData%MapSrcToAugmt(i1), DstMeshMapTypeData%MapSrcToAugmt(i1), CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + end do + end if + call MeshCopy(SrcMeshMapTypeData%Augmented_Ln2_Src, DstMeshMapTypeData%Augmented_Ln2_Src, CtrlCode, ErrStat2, ErrMsg2 ) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + call MeshCopy(SrcMeshMapTypeData%Lumped_Points_Src, DstMeshMapTypeData%Lumped_Points_Src, CtrlCode, ErrStat2, ErrMsg2 ) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + if (allocated(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv)) then + LB(1:1) = lbound(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv, kind=B8Ki) + UB(1:1) = ubound(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%LoadLn2_A_Mat_Piv)) then + allocate(DstMeshMapTypeData%LoadLn2_A_Mat_Piv(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_A_Mat_Piv.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapTypeData%LoadLn2_A_Mat_Piv = SrcMeshMapTypeData%LoadLn2_A_Mat_Piv + end if + if (allocated(SrcMeshMapTypeData%DisplacedPosition)) then + LB(1:3) = lbound(SrcMeshMapTypeData%DisplacedPosition, kind=B8Ki) + UB(1:3) = ubound(SrcMeshMapTypeData%DisplacedPosition, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%DisplacedPosition)) then + allocate(DstMeshMapTypeData%DisplacedPosition(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%DisplacedPosition.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapTypeData%DisplacedPosition = SrcMeshMapTypeData%DisplacedPosition + end if + if (allocated(SrcMeshMapTypeData%LoadLn2_A_Mat)) then + LB(1:2) = lbound(SrcMeshMapTypeData%LoadLn2_A_Mat, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapTypeData%LoadLn2_A_Mat, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%LoadLn2_A_Mat)) then + allocate(DstMeshMapTypeData%LoadLn2_A_Mat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_A_Mat.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapTypeData%LoadLn2_A_Mat = SrcMeshMapTypeData%LoadLn2_A_Mat + end if + if (allocated(SrcMeshMapTypeData%LoadLn2_F)) then + LB(1:2) = lbound(SrcMeshMapTypeData%LoadLn2_F, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapTypeData%LoadLn2_F, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%LoadLn2_F)) then + allocate(DstMeshMapTypeData%LoadLn2_F(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_F.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapTypeData%LoadLn2_F = SrcMeshMapTypeData%LoadLn2_F + end if + if (allocated(SrcMeshMapTypeData%LoadLn2_M)) then + LB(1:2) = lbound(SrcMeshMapTypeData%LoadLn2_M, kind=B8Ki) + UB(1:2) = ubound(SrcMeshMapTypeData%LoadLn2_M, kind=B8Ki) + if (.not. allocated(DstMeshMapTypeData%LoadLn2_M)) then + allocate(DstMeshMapTypeData%LoadLn2_M(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMeshMapTypeData%LoadLn2_M.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMeshMapTypeData%LoadLn2_M = SrcMeshMapTypeData%LoadLn2_M + end if + call NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapTypeData%dM, DstMeshMapTypeData%dM, CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return +end subroutine +subroutine NWTC_Library_DestroyMeshMapType(MeshMapTypeData, ErrStat, ErrMsg) + type(MeshMapType), intent(inout) :: MeshMapTypeData + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) + integer(IntKi) :: ErrStat2 + character(ErrMsgLen) :: ErrMsg2 + character(*), parameter :: RoutineName = 'NWTC_Library_DestroyMeshMapType' + ErrStat = ErrID_None + ErrMsg = '' + if (allocated(MeshMapTypeData%MapLoads)) then + LB(1:1) = lbound(MeshMapTypeData%MapLoads, kind=B8Ki) + UB(1:1) = ubound(MeshMapTypeData%MapLoads, kind=B8Ki) + do i1 = LB(1), UB(1) + call NWTC_Library_DestroyMapType(MeshMapTypeData%MapLoads(i1), ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + end do + deallocate(MeshMapTypeData%MapLoads) + end if + if (allocated(MeshMapTypeData%MapMotions)) then + LB(1:1) = lbound(MeshMapTypeData%MapMotions, kind=B8Ki) + UB(1:1) = ubound(MeshMapTypeData%MapMotions, kind=B8Ki) + do i1 = LB(1), UB(1) + call NWTC_Library_DestroyMapType(MeshMapTypeData%MapMotions(i1), ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + end do + deallocate(MeshMapTypeData%MapMotions) + end if + if (allocated(MeshMapTypeData%MapSrcToAugmt)) then + LB(1:1) = lbound(MeshMapTypeData%MapSrcToAugmt, kind=B8Ki) + UB(1:1) = ubound(MeshMapTypeData%MapSrcToAugmt, kind=B8Ki) + do i1 = LB(1), UB(1) + call NWTC_Library_DestroyMapType(MeshMapTypeData%MapSrcToAugmt(i1), ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + end do + deallocate(MeshMapTypeData%MapSrcToAugmt) + end if + call MeshDestroy( MeshMapTypeData%Augmented_Ln2_Src, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + call MeshDestroy( MeshMapTypeData%Lumped_Points_Src, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (allocated(MeshMapTypeData%LoadLn2_A_Mat_Piv)) then + deallocate(MeshMapTypeData%LoadLn2_A_Mat_Piv) + end if + if (allocated(MeshMapTypeData%DisplacedPosition)) then + deallocate(MeshMapTypeData%DisplacedPosition) + end if + if (allocated(MeshMapTypeData%LoadLn2_A_Mat)) then + deallocate(MeshMapTypeData%LoadLn2_A_Mat) + end if + if (allocated(MeshMapTypeData%LoadLn2_F)) then + deallocate(MeshMapTypeData%LoadLn2_F) + end if + if (allocated(MeshMapTypeData%LoadLn2_M)) then + deallocate(MeshMapTypeData%LoadLn2_M) + end if + call NWTC_Library_DestroyMeshMapLinearizationType(MeshMapTypeData%dM, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) +end subroutine subroutine NWTC_Library_PackMeshMapType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MeshMapType), intent(in) :: InData character(*), parameter :: RoutineName = 'NWTC_Library_PackMeshMapType' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return - ! MapLoads call RegPack(Buf, allocated(InData%MapLoads)) if (allocated(InData%MapLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%MapLoads), ubound(InData%MapLoads)) - LB(1:1) = lbound(InData%MapLoads) - UB(1:1) = ubound(InData%MapLoads) + call RegPackBounds(Buf, 1, lbound(InData%MapLoads, kind=B8Ki), ubound(InData%MapLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%MapLoads, kind=B8Ki) + UB(1:1) = ubound(InData%MapLoads, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMapType(Buf, InData%MapLoads(i1)) end do end if - if (RegCheckErr(Buf, RoutineName)) return - ! MapMotions call RegPack(Buf, allocated(InData%MapMotions)) if (allocated(InData%MapMotions)) then - call RegPackBounds(Buf, 1, lbound(InData%MapMotions), ubound(InData%MapMotions)) - LB(1:1) = lbound(InData%MapMotions) - UB(1:1) = ubound(InData%MapMotions) + call RegPackBounds(Buf, 1, lbound(InData%MapMotions, kind=B8Ki), ubound(InData%MapMotions, kind=B8Ki)) + LB(1:1) = lbound(InData%MapMotions, kind=B8Ki) + UB(1:1) = ubound(InData%MapMotions, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMapType(Buf, InData%MapMotions(i1)) end do end if - if (RegCheckErr(Buf, RoutineName)) return - ! MapSrcToAugmt call RegPack(Buf, allocated(InData%MapSrcToAugmt)) if (allocated(InData%MapSrcToAugmt)) then - call RegPackBounds(Buf, 1, lbound(InData%MapSrcToAugmt), ubound(InData%MapSrcToAugmt)) - LB(1:1) = lbound(InData%MapSrcToAugmt) - UB(1:1) = ubound(InData%MapSrcToAugmt) + call RegPackBounds(Buf, 1, lbound(InData%MapSrcToAugmt, kind=B8Ki), ubound(InData%MapSrcToAugmt, kind=B8Ki)) + LB(1:1) = lbound(InData%MapSrcToAugmt, kind=B8Ki) + UB(1:1) = ubound(InData%MapSrcToAugmt, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMapType(Buf, InData%MapSrcToAugmt(i1)) end do end if - if (RegCheckErr(Buf, RoutineName)) return - ! Augmented_Ln2_Src call MeshPack(Buf, InData%Augmented_Ln2_Src) - if (RegCheckErr(Buf, RoutineName)) return - ! Lumped_Points_Src call MeshPack(Buf, InData%Lumped_Points_Src) - if (RegCheckErr(Buf, RoutineName)) return - ! LoadLn2_A_Mat_Piv call RegPack(Buf, allocated(InData%LoadLn2_A_Mat_Piv)) if (allocated(InData%LoadLn2_A_Mat_Piv)) then - call RegPackBounds(Buf, 1, lbound(InData%LoadLn2_A_Mat_Piv), ubound(InData%LoadLn2_A_Mat_Piv)) + call RegPackBounds(Buf, 1, lbound(InData%LoadLn2_A_Mat_Piv, kind=B8Ki), ubound(InData%LoadLn2_A_Mat_Piv, kind=B8Ki)) call RegPack(Buf, InData%LoadLn2_A_Mat_Piv) end if - if (RegCheckErr(Buf, RoutineName)) return - ! DisplacedPosition call RegPack(Buf, allocated(InData%DisplacedPosition)) if (allocated(InData%DisplacedPosition)) then - call RegPackBounds(Buf, 3, lbound(InData%DisplacedPosition), ubound(InData%DisplacedPosition)) + call RegPackBounds(Buf, 3, lbound(InData%DisplacedPosition, kind=B8Ki), ubound(InData%DisplacedPosition, kind=B8Ki)) call RegPack(Buf, InData%DisplacedPosition) end if - if (RegCheckErr(Buf, RoutineName)) return - ! LoadLn2_A_Mat call RegPack(Buf, allocated(InData%LoadLn2_A_Mat)) if (allocated(InData%LoadLn2_A_Mat)) then - call RegPackBounds(Buf, 2, lbound(InData%LoadLn2_A_Mat), ubound(InData%LoadLn2_A_Mat)) + call RegPackBounds(Buf, 2, lbound(InData%LoadLn2_A_Mat, kind=B8Ki), ubound(InData%LoadLn2_A_Mat, kind=B8Ki)) call RegPack(Buf, InData%LoadLn2_A_Mat) end if - if (RegCheckErr(Buf, RoutineName)) return - ! LoadLn2_F call RegPack(Buf, allocated(InData%LoadLn2_F)) if (allocated(InData%LoadLn2_F)) then - call RegPackBounds(Buf, 2, lbound(InData%LoadLn2_F), ubound(InData%LoadLn2_F)) + call RegPackBounds(Buf, 2, lbound(InData%LoadLn2_F, kind=B8Ki), ubound(InData%LoadLn2_F, kind=B8Ki)) call RegPack(Buf, InData%LoadLn2_F) end if - if (RegCheckErr(Buf, RoutineName)) return - ! LoadLn2_M call RegPack(Buf, allocated(InData%LoadLn2_M)) if (allocated(InData%LoadLn2_M)) then - call RegPackBounds(Buf, 2, lbound(InData%LoadLn2_M), ubound(InData%LoadLn2_M)) + call RegPackBounds(Buf, 2, lbound(InData%LoadLn2_M, kind=B8Ki), ubound(InData%LoadLn2_M, kind=B8Ki)) call RegPack(Buf, InData%LoadLn2_M) end if - if (RegCheckErr(Buf, RoutineName)) return - ! dM call NWTC_Library_PackMeshMapLinearizationType(Buf, InData%dM) if (RegCheckErr(Buf, RoutineName)) return end subroutine @@ -6616,12 +6497,11 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MeshMapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackMeshMapType' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - ! MapLoads if (allocated(OutData%MapLoads)) deallocate(OutData%MapLoads) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6637,7 +6517,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call NWTC_Library_UnpackMapType(Buf, OutData%MapLoads(i1)) ! MapLoads end do end if - ! MapMotions if (allocated(OutData%MapMotions)) deallocate(OutData%MapMotions) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6653,7 +6532,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call NWTC_Library_UnpackMapType(Buf, OutData%MapMotions(i1)) ! MapMotions end do end if - ! MapSrcToAugmt if (allocated(OutData%MapSrcToAugmt)) deallocate(OutData%MapSrcToAugmt) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6669,11 +6547,8 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call NWTC_Library_UnpackMapType(Buf, OutData%MapSrcToAugmt(i1)) ! MapSrcToAugmt end do end if - ! Augmented_Ln2_Src call MeshUnpack(Buf, OutData%Augmented_Ln2_Src) ! Augmented_Ln2_Src - ! Lumped_Points_Src call MeshUnpack(Buf, OutData%Lumped_Points_Src) ! Lumped_Points_Src - ! LoadLn2_A_Mat_Piv if (allocated(OutData%LoadLn2_A_Mat_Piv)) deallocate(OutData%LoadLn2_A_Mat_Piv) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6688,7 +6563,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call RegUnpack(Buf, OutData%LoadLn2_A_Mat_Piv) if (RegCheckErr(Buf, RoutineName)) return end if - ! DisplacedPosition if (allocated(OutData%DisplacedPosition)) deallocate(OutData%DisplacedPosition) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6703,7 +6577,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call RegUnpack(Buf, OutData%DisplacedPosition) if (RegCheckErr(Buf, RoutineName)) return end if - ! LoadLn2_A_Mat if (allocated(OutData%LoadLn2_A_Mat)) deallocate(OutData%LoadLn2_A_Mat) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6718,7 +6591,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call RegUnpack(Buf, OutData%LoadLn2_A_Mat) if (RegCheckErr(Buf, RoutineName)) return end if - ! LoadLn2_F if (allocated(OutData%LoadLn2_F)) deallocate(OutData%LoadLn2_F) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6733,7 +6605,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call RegUnpack(Buf, OutData%LoadLn2_F) if (RegCheckErr(Buf, RoutineName)) return end if - ! LoadLn2_M if (allocated(OutData%LoadLn2_M)) deallocate(OutData%LoadLn2_M) call RegUnpack(Buf, IsAllocAssoc) if (RegCheckErr(Buf, RoutineName)) return @@ -6748,7 +6619,6 @@ subroutine NWTC_Library_UnPackMeshMapType(Buf, OutData) call RegUnpack(Buf, OutData%LoadLn2_M) if (RegCheckErr(Buf, RoutineName)) return end if - ! dM call NWTC_Library_UnpackMeshMapLinearizationType(Buf, OutData%dM) ! dM end subroutine diff --git a/modules/nwtc-library/src/ModReg.f90 b/modules/nwtc-library/src/ModReg.f90 index 8ba353b4b7..f0ee258bce 100644 --- a/modules/nwtc-library/src/ModReg.f90 +++ b/modules/nwtc-library/src/ModReg.f90 @@ -11,9 +11,9 @@ module ModReg type :: PackBuffer integer(B1Ki), allocatable :: Bytes(:) - integer(IntKi) :: NB + integer(B8Ki) :: NB type(c_ptr), allocatable :: Pointers(:) - integer(IntKi) :: NP + integer(B8Ki) :: NP integer(IntKi) :: ErrStat = ErrID_Fatal character(ErrMsgLen) :: ErrMsg = 'PackBuffer not initialized' end type @@ -23,10 +23,11 @@ module ModReg module procedure Pack_C1, Pack_C1_Rank1, Pack_C1_Rank2, Pack_C1_Rank3, & Pack_C1_Rank4, Pack_C1_Rank5, Pack_L1, Pack_L1_Rank1, Pack_L1_Rank2, & Pack_L1_Rank3, Pack_L1_Rank4, Pack_L1_Rank5, Pack_I4, Pack_I4_Rank1, & - Pack_I4_Rank2, Pack_I4_Rank3, Pack_I4_Rank4, Pack_I4_Rank5, Pack_R4, & - Pack_R4_Rank1, Pack_R4_Rank2, Pack_R4_Rank3, Pack_R4_Rank4, & - Pack_R4_Rank5, Pack_R8, Pack_R8_Rank1, Pack_R8_Rank2, Pack_R8_Rank3, & - Pack_R8_Rank4, Pack_R8_Rank5 + Pack_I4_Rank2, Pack_I4_Rank3, Pack_I4_Rank4, Pack_I4_Rank5, Pack_I8, & + Pack_I8_Rank1, Pack_I8_Rank2, Pack_I8_Rank3, Pack_I8_Rank4, & + Pack_I8_Rank5, Pack_R4, Pack_R4_Rank1, Pack_R4_Rank2, Pack_R4_Rank3, & + Pack_R4_Rank4, Pack_R4_Rank5, Pack_R8, Pack_R8_Rank1, Pack_R8_Rank2, & + Pack_R8_Rank3, Pack_R8_Rank4, Pack_R8_Rank5 end interface interface RegUnpack @@ -34,10 +35,12 @@ module ModReg Unpack_C1_Rank3, Unpack_C1_Rank4, Unpack_C1_Rank5, Unpack_L1, & Unpack_L1_Rank1, Unpack_L1_Rank2, Unpack_L1_Rank3, Unpack_L1_Rank4, & Unpack_L1_Rank5, Unpack_I4, Unpack_I4_Rank1, Unpack_I4_Rank2, & - Unpack_I4_Rank3, Unpack_I4_Rank4, Unpack_I4_Rank5, Unpack_R4, & - Unpack_R4_Rank1, Unpack_R4_Rank2, Unpack_R4_Rank3, Unpack_R4_Rank4, & - Unpack_R4_Rank5, Unpack_R8, Unpack_R8_Rank1, Unpack_R8_Rank2, & - Unpack_R8_Rank3, Unpack_R8_Rank4, Unpack_R8_Rank5 + Unpack_I4_Rank3, Unpack_I4_Rank4, Unpack_I4_Rank5, Unpack_I8, & + Unpack_I8_Rank1, Unpack_I8_Rank2, Unpack_I8_Rank3, Unpack_I8_Rank4, & + Unpack_I8_Rank5, Unpack_R4, Unpack_R4_Rank1, Unpack_R4_Rank2, & + Unpack_R4_Rank3, Unpack_R4_Rank4, Unpack_R4_Rank5, Unpack_R8, & + Unpack_R8_Rank1, Unpack_R8_Rank2, Unpack_R8_Rank3, Unpack_R8_Rank4, & + Unpack_R8_Rank5 end interface contains @@ -48,8 +51,8 @@ subroutine InitPackBuffer(Buf, ErrStat, ErrMsg) character(ErrMsgLen), intent(out) :: ErrMsg character(*), parameter :: RoutineName = "InitPackBuffer" - integer(IntKi), parameter :: NumPointersInit = 128 - integer(IntKi), parameter :: NumBytesInit = 1024 + integer(B8Ki), parameter :: NumPointersInit = 128 + integer(B8Ki), parameter :: NumBytesInit = 1024 integer(IntKi) :: stat ErrStat = ErrID_None @@ -230,8 +233,8 @@ subroutine RegPackPointer(Buf, Ptr, Found) logical, intent(out) :: Found type(c_ptr), allocatable :: PointersTmp(:) - integer(IntKi) :: NewSize - integer(B4Ki) :: i + integer(B8Ki) :: NewSize + integer(B8Ki) :: i ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -250,7 +253,7 @@ subroutine RegPackPointer(Buf, Ptr, Found) ! If pointer index is full, grow pointer index if (Buf%NP == size(Buf%Pointers)) then - NewSize = int(1.5_R4Ki * real(Buf%NP, R4Ki), IntKi) + NewSize = int(1.5_R8Ki * real(Buf%NP, R8Ki), B8Ki) call move_alloc(Buf%Pointers, PointersTmp) allocate (Buf%Pointers(NewSize), stat=Buf%ErrStat) if (Buf%ErrStat /= ErrID_None) then @@ -274,7 +277,7 @@ subroutine RegPackPointer(Buf, Ptr, Found) subroutine RegUnpackPointer(Buf, Ptr, Idx) type(PackBuffer), intent(inout) :: Buf type(c_ptr), intent(out) :: Ptr - integer(B4Ki), intent(out) :: Idx + integer(B8Ki), intent(out) :: Idx ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -289,7 +292,8 @@ subroutine RegUnpackPointer(Buf, Ptr, Idx) subroutine RegPackBounds(Buf, R, LB, UB) type(PackBuffer), intent(inout) :: Buf - integer(B4Ki), intent(in) :: R, LB(:), UB(:) + integer(B4Ki), intent(in) :: R + integer(B8Ki), intent(in) :: LB(:), UB(:) ! If buffer has an error, return if (Buf%ErrStat /= ErrID_None) return @@ -303,7 +307,7 @@ subroutine RegPackBounds(Buf, R, LB, UB) subroutine RegUnpackBounds(Buf, R, LB, UB) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: R - integer(B4Ki), intent(out) :: LB(:), UB(:) + integer(B8Ki), intent(out) :: LB(:), UB(:) ! If buffer has an error, return if (Buf%ErrStat /= ErrID_None) return @@ -316,10 +320,10 @@ subroutine RegUnpackBounds(Buf, R, LB, UB) subroutine GrowBuffer(Buf, N) type(PackBuffer), intent(inout) :: Buf - integer(B4Ki), intent(in) :: N + integer(B8Ki), intent(in) :: N integer(B1Ki), allocatable :: BytesTmp(:) - integer(B4Ki) :: NewSize + integer(B8Ki) :: NewSize integer(IntKi) :: stat ! Return if there is a buffer error @@ -329,7 +333,7 @@ subroutine GrowBuffer(Buf, N) if (size(Buf%Bytes) > Buf%NB + N) return ! Calculate new size - NewSize = int(real(Buf%NB + N, R4Ki) * 1.8_R4Ki, IntKi) + NewSize = int(real(Buf%NB + N, R8Ki) * 1.8_R8Ki, B8Ki) ! Move allocation to temporary array and allocate buffer with new size call move_alloc(Buf%Bytes, BytesTmp) @@ -349,7 +353,7 @@ subroutine GrowBuffer(Buf, N) subroutine Pack_C1(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(in) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -370,7 +374,7 @@ subroutine Pack_C1(Buf, Data) subroutine Unpack_C1(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(out) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -394,7 +398,7 @@ subroutine Unpack_C1(Buf, Data) subroutine Pack_C1_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(in) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -415,7 +419,7 @@ subroutine Pack_C1_Rank1(Buf, Data) subroutine Unpack_C1_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(out) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -439,7 +443,7 @@ subroutine Unpack_C1_Rank1(Buf, Data) subroutine Pack_C1_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(in) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -460,7 +464,7 @@ subroutine Pack_C1_Rank2(Buf, Data) subroutine Unpack_C1_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(out) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -484,7 +488,7 @@ subroutine Unpack_C1_Rank2(Buf, Data) subroutine Pack_C1_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(in) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -505,7 +509,7 @@ subroutine Pack_C1_Rank3(Buf, Data) subroutine Unpack_C1_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(out) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -529,7 +533,7 @@ subroutine Unpack_C1_Rank3(Buf, Data) subroutine Pack_C1_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(in) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -550,7 +554,7 @@ subroutine Pack_C1_Rank4(Buf, Data) subroutine Unpack_C1_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(out) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -574,7 +578,7 @@ subroutine Unpack_C1_Rank4(Buf, Data) subroutine Pack_C1_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(in) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -595,7 +599,7 @@ subroutine Pack_C1_Rank5(Buf, Data) subroutine Unpack_C1_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf character(*), intent(out) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -619,7 +623,7 @@ subroutine Unpack_C1_Rank5(Buf, Data) subroutine Pack_L1(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(in) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -640,7 +644,7 @@ subroutine Pack_L1(Buf, Data) subroutine Unpack_L1(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(out) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -664,7 +668,7 @@ subroutine Unpack_L1(Buf, Data) subroutine Pack_L1_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(in) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -685,7 +689,7 @@ subroutine Pack_L1_Rank1(Buf, Data) subroutine Unpack_L1_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(out) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -709,7 +713,7 @@ subroutine Unpack_L1_Rank1(Buf, Data) subroutine Pack_L1_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(in) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -730,7 +734,7 @@ subroutine Pack_L1_Rank2(Buf, Data) subroutine Unpack_L1_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(out) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -754,7 +758,7 @@ subroutine Unpack_L1_Rank2(Buf, Data) subroutine Pack_L1_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(in) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -775,7 +779,7 @@ subroutine Pack_L1_Rank3(Buf, Data) subroutine Unpack_L1_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(out) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -799,7 +803,7 @@ subroutine Unpack_L1_Rank3(Buf, Data) subroutine Pack_L1_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(in) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -820,7 +824,7 @@ subroutine Pack_L1_Rank4(Buf, Data) subroutine Unpack_L1_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(out) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -844,7 +848,7 @@ subroutine Unpack_L1_Rank4(Buf, Data) subroutine Pack_L1_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(in) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -865,7 +869,7 @@ subroutine Pack_L1_Rank5(Buf, Data) subroutine Unpack_L1_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf logical, intent(out) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -889,7 +893,7 @@ subroutine Unpack_L1_Rank5(Buf, Data) subroutine Pack_I4(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -910,7 +914,7 @@ subroutine Pack_I4(Buf, Data) subroutine Unpack_I4(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(out) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -934,7 +938,7 @@ subroutine Unpack_I4(Buf, Data) subroutine Pack_I4_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -955,7 +959,7 @@ subroutine Pack_I4_Rank1(Buf, Data) subroutine Unpack_I4_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(out) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -979,7 +983,7 @@ subroutine Unpack_I4_Rank1(Buf, Data) subroutine Pack_I4_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1000,7 +1004,7 @@ subroutine Pack_I4_Rank2(Buf, Data) subroutine Unpack_I4_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(out) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1024,7 +1028,7 @@ subroutine Unpack_I4_Rank2(Buf, Data) subroutine Pack_I4_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1045,7 +1049,7 @@ subroutine Pack_I4_Rank3(Buf, Data) subroutine Unpack_I4_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(out) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1069,7 +1073,7 @@ subroutine Unpack_I4_Rank3(Buf, Data) subroutine Pack_I4_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1090,7 +1094,7 @@ subroutine Pack_I4_Rank4(Buf, Data) subroutine Unpack_I4_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(out) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1114,7 +1118,7 @@ subroutine Unpack_I4_Rank4(Buf, Data) subroutine Pack_I4_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(in) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1135,7 +1139,7 @@ subroutine Pack_I4_Rank5(Buf, Data) subroutine Unpack_I4_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf integer(B4Ki), intent(out) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1156,10 +1160,280 @@ subroutine Unpack_I4_Rank5(Buf, Data) end subroutine + subroutine Pack_I8(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(in) :: Data + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8 + + ! Grow buffer to accommodate Data + call GrowBuffer(Buf, DataSize) + if (RegCheckErr(Buf, "Pack_I8")) return + + ! Transfer data to buffer + Buf%Bytes(Buf%NB+1:Buf%NB+DataSize) = transfer(Data, Buf%Bytes) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Unpack_I8(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(out) :: Data + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8 + + ! Check that buffer has sufficient bytes remaining + if (size(Buf%Bytes) < Buf%NB + DataSize) then + Buf%ErrStat = ErrID_Fatal + write(Buf%ErrMsg,*) "Unpack_I8: buffer too small, requested", DataSize, "bytes" + return + end if + + ! Transfer data from buffer + Data = transfer(Buf%Bytes(Buf%NB+1:Buf%NB+DataSize), Data) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Pack_I8_Rank1(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(in) :: Data(:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Grow buffer to accommodate Data + call GrowBuffer(Buf, DataSize) + if (RegCheckErr(Buf, "Pack_I8_Rank1")) return + + ! Transfer data to buffer + Buf%Bytes(Buf%NB+1:Buf%NB+DataSize) = transfer(Data, Buf%Bytes) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Unpack_I8_Rank1(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(out) :: Data(:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Check that buffer has sufficient bytes remaining + if (size(Buf%Bytes) < Buf%NB + DataSize) then + Buf%ErrStat = ErrID_Fatal + write(Buf%ErrMsg,*) "Unpack_I8_Rank1: buffer too small, requested", DataSize, "bytes" + return + end if + + ! Transfer data from buffer + Data = reshape(transfer(Buf%Bytes(Buf%NB+1:Buf%NB+DataSize), Data), shape(Data)) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Pack_I8_Rank2(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(in) :: Data(:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Grow buffer to accommodate Data + call GrowBuffer(Buf, DataSize) + if (RegCheckErr(Buf, "Pack_I8_Rank2")) return + + ! Transfer data to buffer + Buf%Bytes(Buf%NB+1:Buf%NB+DataSize) = transfer(Data, Buf%Bytes) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Unpack_I8_Rank2(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(out) :: Data(:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Check that buffer has sufficient bytes remaining + if (size(Buf%Bytes) < Buf%NB + DataSize) then + Buf%ErrStat = ErrID_Fatal + write(Buf%ErrMsg,*) "Unpack_I8_Rank2: buffer too small, requested", DataSize, "bytes" + return + end if + + ! Transfer data from buffer + Data = reshape(transfer(Buf%Bytes(Buf%NB+1:Buf%NB+DataSize), Data), shape(Data)) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Pack_I8_Rank3(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(in) :: Data(:,:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Grow buffer to accommodate Data + call GrowBuffer(Buf, DataSize) + if (RegCheckErr(Buf, "Pack_I8_Rank3")) return + + ! Transfer data to buffer + Buf%Bytes(Buf%NB+1:Buf%NB+DataSize) = transfer(Data, Buf%Bytes) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Unpack_I8_Rank3(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(out) :: Data(:,:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Check that buffer has sufficient bytes remaining + if (size(Buf%Bytes) < Buf%NB + DataSize) then + Buf%ErrStat = ErrID_Fatal + write(Buf%ErrMsg,*) "Unpack_I8_Rank3: buffer too small, requested", DataSize, "bytes" + return + end if + + ! Transfer data from buffer + Data = reshape(transfer(Buf%Bytes(Buf%NB+1:Buf%NB+DataSize), Data), shape(Data)) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Pack_I8_Rank4(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(in) :: Data(:,:,:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Grow buffer to accommodate Data + call GrowBuffer(Buf, DataSize) + if (RegCheckErr(Buf, "Pack_I8_Rank4")) return + + ! Transfer data to buffer + Buf%Bytes(Buf%NB+1:Buf%NB+DataSize) = transfer(Data, Buf%Bytes) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Unpack_I8_Rank4(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(out) :: Data(:,:,:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Check that buffer has sufficient bytes remaining + if (size(Buf%Bytes) < Buf%NB + DataSize) then + Buf%ErrStat = ErrID_Fatal + write(Buf%ErrMsg,*) "Unpack_I8_Rank4: buffer too small, requested", DataSize, "bytes" + return + end if + + ! Transfer data from buffer + Data = reshape(transfer(Buf%Bytes(Buf%NB+1:Buf%NB+DataSize), Data), shape(Data)) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Pack_I8_Rank5(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(in) :: Data(:,:,:,:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Grow buffer to accommodate Data + call GrowBuffer(Buf, DataSize) + if (RegCheckErr(Buf, "Pack_I8_Rank5")) return + + ! Transfer data to buffer + Buf%Bytes(Buf%NB+1:Buf%NB+DataSize) = transfer(Data, Buf%Bytes) + Buf%NB = Buf%NB + DataSize + + end subroutine + + subroutine Unpack_I8_Rank5(Buf, Data) + type(PackBuffer), intent(inout) :: Buf + integer(B8Ki), intent(out) :: Data(:,:,:,:,:) + integer(B8Ki) :: DataSize + + ! If buffer error, return + if (Buf%ErrStat /= ErrID_None) return + + ! Get size of data in bytes + DataSize = 8*size(Data) + + ! Check that buffer has sufficient bytes remaining + if (size(Buf%Bytes) < Buf%NB + DataSize) then + Buf%ErrStat = ErrID_Fatal + write(Buf%ErrMsg,*) "Unpack_I8_Rank5: buffer too small, requested", DataSize, "bytes" + return + end if + + ! Transfer data from buffer + Data = reshape(transfer(Buf%Bytes(Buf%NB+1:Buf%NB+DataSize), Data), shape(Data)) + Buf%NB = Buf%NB + DataSize + + end subroutine + subroutine Pack_R4(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(in) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1180,7 +1454,7 @@ subroutine Pack_R4(Buf, Data) subroutine Unpack_R4(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(out) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1204,7 +1478,7 @@ subroutine Unpack_R4(Buf, Data) subroutine Pack_R4_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(in) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1225,7 +1499,7 @@ subroutine Pack_R4_Rank1(Buf, Data) subroutine Unpack_R4_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(out) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1249,7 +1523,7 @@ subroutine Unpack_R4_Rank1(Buf, Data) subroutine Pack_R4_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(in) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1270,7 +1544,7 @@ subroutine Pack_R4_Rank2(Buf, Data) subroutine Unpack_R4_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(out) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1294,7 +1568,7 @@ subroutine Unpack_R4_Rank2(Buf, Data) subroutine Pack_R4_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(in) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1315,7 +1589,7 @@ subroutine Pack_R4_Rank3(Buf, Data) subroutine Unpack_R4_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(out) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1339,7 +1613,7 @@ subroutine Unpack_R4_Rank3(Buf, Data) subroutine Pack_R4_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(in) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1360,7 +1634,7 @@ subroutine Pack_R4_Rank4(Buf, Data) subroutine Unpack_R4_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(out) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1384,7 +1658,7 @@ subroutine Unpack_R4_Rank4(Buf, Data) subroutine Pack_R4_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(in) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1405,7 +1679,7 @@ subroutine Pack_R4_Rank5(Buf, Data) subroutine Unpack_R4_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R4Ki), intent(out) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1429,7 +1703,7 @@ subroutine Unpack_R4_Rank5(Buf, Data) subroutine Pack_R8(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(in) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1450,7 +1724,7 @@ subroutine Pack_R8(Buf, Data) subroutine Unpack_R8(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(out) :: Data - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1474,7 +1748,7 @@ subroutine Unpack_R8(Buf, Data) subroutine Pack_R8_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(in) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1495,7 +1769,7 @@ subroutine Pack_R8_Rank1(Buf, Data) subroutine Unpack_R8_Rank1(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(out) :: Data(:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1519,7 +1793,7 @@ subroutine Unpack_R8_Rank1(Buf, Data) subroutine Pack_R8_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(in) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1540,7 +1814,7 @@ subroutine Pack_R8_Rank2(Buf, Data) subroutine Unpack_R8_Rank2(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(out) :: Data(:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1564,7 +1838,7 @@ subroutine Unpack_R8_Rank2(Buf, Data) subroutine Pack_R8_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(in) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1585,7 +1859,7 @@ subroutine Pack_R8_Rank3(Buf, Data) subroutine Unpack_R8_Rank3(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(out) :: Data(:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1609,7 +1883,7 @@ subroutine Unpack_R8_Rank3(Buf, Data) subroutine Pack_R8_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(in) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1630,7 +1904,7 @@ subroutine Pack_R8_Rank4(Buf, Data) subroutine Unpack_R8_Rank4(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(out) :: Data(:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1654,7 +1928,7 @@ subroutine Unpack_R8_Rank4(Buf, Data) subroutine Pack_R8_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(in) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return @@ -1675,7 +1949,7 @@ subroutine Pack_R8_Rank5(Buf, Data) subroutine Unpack_R8_Rank5(Buf, Data) type(PackBuffer), intent(inout) :: Buf real(R8Ki), intent(out) :: Data(:,:,:,:,:) - integer(IntKi) :: DataSize + integer(B8Ki) :: DataSize ! If buffer error, return if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/nwtc-library/src/NWTC_Library_Types.f90 b/modules/nwtc-library/src/NWTC_Library_Types.f90 index 13195434b7..83b2fd1dd0 100644 --- a/modules/nwtc-library/src/NWTC_Library_Types.f90 +++ b/modules/nwtc-library/src/NWTC_Library_Types.f90 @@ -140,7 +140,7 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyFASTdataType' ErrStat = ErrID_None @@ -151,8 +151,8 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat DstFASTdataTypeData%NumRecs = SrcFASTdataTypeData%NumRecs DstFASTdataTypeData%TimeStep = SrcFASTdataTypeData%TimeStep if (allocated(SrcFASTdataTypeData%ChanNames)) then - LB(1:1) = lbound(SrcFASTdataTypeData%ChanNames) - UB(1:1) = ubound(SrcFASTdataTypeData%ChanNames) + LB(1:1) = lbound(SrcFASTdataTypeData%ChanNames, kind=B8Ki) + UB(1:1) = ubound(SrcFASTdataTypeData%ChanNames, kind=B8Ki) if (.not. allocated(DstFASTdataTypeData%ChanNames)) then allocate(DstFASTdataTypeData%ChanNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -163,8 +163,8 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat DstFASTdataTypeData%ChanNames = SrcFASTdataTypeData%ChanNames end if if (allocated(SrcFASTdataTypeData%ChanUnits)) then - LB(1:1) = lbound(SrcFASTdataTypeData%ChanUnits) - UB(1:1) = ubound(SrcFASTdataTypeData%ChanUnits) + LB(1:1) = lbound(SrcFASTdataTypeData%ChanUnits, kind=B8Ki) + UB(1:1) = ubound(SrcFASTdataTypeData%ChanUnits, kind=B8Ki) if (.not. allocated(DstFASTdataTypeData%ChanUnits)) then allocate(DstFASTdataTypeData%ChanUnits(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -175,8 +175,8 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat DstFASTdataTypeData%ChanUnits = SrcFASTdataTypeData%ChanUnits end if if (allocated(SrcFASTdataTypeData%Data)) then - LB(1:2) = lbound(SrcFASTdataTypeData%Data) - UB(1:2) = ubound(SrcFASTdataTypeData%Data) + LB(1:2) = lbound(SrcFASTdataTypeData%Data, kind=B8Ki) + UB(1:2) = ubound(SrcFASTdataTypeData%Data, kind=B8Ki) if (.not. allocated(DstFASTdataTypeData%Data)) then allocate(DstFASTdataTypeData%Data(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -218,17 +218,17 @@ subroutine NWTC_Library_PackFASTdataType(Buf, Indata) call RegPack(Buf, InData%TimeStep) call RegPack(Buf, allocated(InData%ChanNames)) if (allocated(InData%ChanNames)) then - call RegPackBounds(Buf, 1, lbound(InData%ChanNames), ubound(InData%ChanNames)) + call RegPackBounds(Buf, 1, lbound(InData%ChanNames, kind=B8Ki), ubound(InData%ChanNames, kind=B8Ki)) call RegPack(Buf, InData%ChanNames) end if call RegPack(Buf, allocated(InData%ChanUnits)) if (allocated(InData%ChanUnits)) then - call RegPackBounds(Buf, 1, lbound(InData%ChanUnits), ubound(InData%ChanUnits)) + call RegPackBounds(Buf, 1, lbound(InData%ChanUnits, kind=B8Ki), ubound(InData%ChanUnits, kind=B8Ki)) call RegPack(Buf, InData%ChanUnits) end if call RegPack(Buf, allocated(InData%Data)) if (allocated(InData%Data)) then - call RegPackBounds(Buf, 2, lbound(InData%Data), ubound(InData%Data)) + call RegPackBounds(Buf, 2, lbound(InData%Data, kind=B8Ki), ubound(InData%Data, kind=B8Ki)) call RegPack(Buf, InData%Data) end if if (RegCheckErr(Buf, RoutineName)) return @@ -238,7 +238,7 @@ subroutine NWTC_Library_UnPackFASTdataType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FASTdataType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackFASTdataType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -353,7 +353,7 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyFileInfoType' ErrStat = ErrID_None @@ -361,8 +361,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%NumLines = SrcFileInfoTypeData%NumLines DstFileInfoTypeData%NumFiles = SrcFileInfoTypeData%NumFiles if (allocated(SrcFileInfoTypeData%FileLine)) then - LB(1:1) = lbound(SrcFileInfoTypeData%FileLine) - UB(1:1) = ubound(SrcFileInfoTypeData%FileLine) + LB(1:1) = lbound(SrcFileInfoTypeData%FileLine, kind=B8Ki) + UB(1:1) = ubound(SrcFileInfoTypeData%FileLine, kind=B8Ki) if (.not. allocated(DstFileInfoTypeData%FileLine)) then allocate(DstFileInfoTypeData%FileLine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -373,8 +373,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%FileLine = SrcFileInfoTypeData%FileLine end if if (allocated(SrcFileInfoTypeData%FileIndx)) then - LB(1:1) = lbound(SrcFileInfoTypeData%FileIndx) - UB(1:1) = ubound(SrcFileInfoTypeData%FileIndx) + LB(1:1) = lbound(SrcFileInfoTypeData%FileIndx, kind=B8Ki) + UB(1:1) = ubound(SrcFileInfoTypeData%FileIndx, kind=B8Ki) if (.not. allocated(DstFileInfoTypeData%FileIndx)) then allocate(DstFileInfoTypeData%FileIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -385,8 +385,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%FileIndx = SrcFileInfoTypeData%FileIndx end if if (allocated(SrcFileInfoTypeData%FileList)) then - LB(1:1) = lbound(SrcFileInfoTypeData%FileList) - UB(1:1) = ubound(SrcFileInfoTypeData%FileList) + LB(1:1) = lbound(SrcFileInfoTypeData%FileList, kind=B8Ki) + UB(1:1) = ubound(SrcFileInfoTypeData%FileList, kind=B8Ki) if (.not. allocated(DstFileInfoTypeData%FileList)) then allocate(DstFileInfoTypeData%FileList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -397,8 +397,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%FileList = SrcFileInfoTypeData%FileList end if if (allocated(SrcFileInfoTypeData%Lines)) then - LB(1:1) = lbound(SrcFileInfoTypeData%Lines) - UB(1:1) = ubound(SrcFileInfoTypeData%Lines) + LB(1:1) = lbound(SrcFileInfoTypeData%Lines, kind=B8Ki) + UB(1:1) = ubound(SrcFileInfoTypeData%Lines, kind=B8Ki) if (.not. allocated(DstFileInfoTypeData%Lines)) then allocate(DstFileInfoTypeData%Lines(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -440,22 +440,22 @@ subroutine NWTC_Library_PackFileInfoType(Buf, Indata) call RegPack(Buf, InData%NumFiles) call RegPack(Buf, allocated(InData%FileLine)) if (allocated(InData%FileLine)) then - call RegPackBounds(Buf, 1, lbound(InData%FileLine), ubound(InData%FileLine)) + call RegPackBounds(Buf, 1, lbound(InData%FileLine, kind=B8Ki), ubound(InData%FileLine, kind=B8Ki)) call RegPack(Buf, InData%FileLine) end if call RegPack(Buf, allocated(InData%FileIndx)) if (allocated(InData%FileIndx)) then - call RegPackBounds(Buf, 1, lbound(InData%FileIndx), ubound(InData%FileIndx)) + call RegPackBounds(Buf, 1, lbound(InData%FileIndx, kind=B8Ki), ubound(InData%FileIndx, kind=B8Ki)) call RegPack(Buf, InData%FileIndx) end if call RegPack(Buf, allocated(InData%FileList)) if (allocated(InData%FileList)) then - call RegPackBounds(Buf, 1, lbound(InData%FileList), ubound(InData%FileList)) + call RegPackBounds(Buf, 1, lbound(InData%FileList, kind=B8Ki), ubound(InData%FileList, kind=B8Ki)) call RegPack(Buf, InData%FileList) end if call RegPack(Buf, allocated(InData%Lines)) if (allocated(InData%Lines)) then - call RegPackBounds(Buf, 1, lbound(InData%Lines), ubound(InData%Lines)) + call RegPackBounds(Buf, 1, lbound(InData%Lines, kind=B8Ki), ubound(InData%Lines, kind=B8Ki)) call RegPack(Buf, InData%Lines) end if if (RegCheckErr(Buf, RoutineName)) return @@ -465,7 +465,7 @@ subroutine NWTC_Library_UnPackFileInfoType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FileInfoType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackFileInfoType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -580,7 +580,7 @@ subroutine NWTC_Library_CopyNWTC_RandomNumber_ParameterType(SrcNWTC_RandomNumber integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyNWTC_RandomNumber_ParameterType' ErrStat = ErrID_None @@ -588,8 +588,8 @@ subroutine NWTC_Library_CopyNWTC_RandomNumber_ParameterType(SrcNWTC_RandomNumber DstNWTC_RandomNumber_ParameterTypeData%pRNG = SrcNWTC_RandomNumber_ParameterTypeData%pRNG DstNWTC_RandomNumber_ParameterTypeData%RandSeed = SrcNWTC_RandomNumber_ParameterTypeData%RandSeed if (allocated(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry)) then - LB(1:1) = lbound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry) - UB(1:1) = ubound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry) + LB(1:1) = lbound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry, kind=B8Ki) + UB(1:1) = ubound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry, kind=B8Ki) if (.not. allocated(DstNWTC_RandomNumber_ParameterTypeData%RandSeedAry)) then allocate(DstNWTC_RandomNumber_ParameterTypeData%RandSeedAry(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -623,7 +623,7 @@ subroutine NWTC_Library_PackNWTC_RandomNumber_ParameterType(Buf, Indata) call RegPack(Buf, InData%RandSeed) call RegPack(Buf, allocated(InData%RandSeedAry)) if (allocated(InData%RandSeedAry)) then - call RegPackBounds(Buf, 1, lbound(InData%RandSeedAry), ubound(InData%RandSeedAry)) + call RegPackBounds(Buf, 1, lbound(InData%RandSeedAry, kind=B8Ki), ubound(InData%RandSeedAry, kind=B8Ki)) call RegPack(Buf, InData%RandSeedAry) end if call RegPack(Buf, InData%RNG_type) @@ -634,7 +634,7 @@ subroutine NWTC_Library_UnPackNWTC_RandomNumber_ParameterType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(NWTC_RandomNumber_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackNWTC_RandomNumber_ParameterType' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/nwtc-library/src/Registry_NWTC_Library.txt b/modules/nwtc-library/src/Registry_NWTC_Library.txt index a77c60c073..c90cc0224a 100644 --- a/modules/nwtc-library/src/Registry_NWTC_Library.txt +++ b/modules/nwtc-library/src/Registry_NWTC_Library.txt @@ -6,66 +6,76 @@ #............................................................. -usefrom NWTC_Library ProgDesc CHARACTER(99) Name -usefrom ^ ^ CHARACTER(99) Ver -usefrom ^ ^ CHARACTER(24) Date +typedef NWTC_Library ProgDesc CHARACTER(99) Name - - - "Name of the program or module" +typedef ^ ^ CHARACTER(99) Ver - - - "Version number of the program or module" +typedef ^ ^ CHARACTER(24) Date - - - "String containing date module was last updated" -usefrom ^ FASTdataType CHARACTER(1024) File -usefrom ^ ^ CHARACTER(1024) Descr -usefrom ^ ^ IntKi NumChans -usefrom ^ ^ IntKi NumRecs -usefrom ^ ^ DbKi TimeStep -usefrom ^ ^ CHARACTER(ChanLen) ChanNames {:} -usefrom ^ ^ CHARACTER(ChanLen) ChanUnits {:} -usefrom ^ ^ ReKi Data {:}{:} +typedef NWTC_Library FASTdataType CHARACTER(1024) File - - - "Name of the FAST-style binary file" +typedef ^ ^ CHARACTER(1024) Descr - - - "String describing file" +typedef ^ ^ IntKi NumChans - - - "Number of output channels in this binary file (not including the time channel)" +typedef ^ ^ IntKi NumRecs - - - "Number of records (rows) of data in the file" +typedef ^ ^ DbKi TimeStep - - - "Time step for evenly-spaced data in the output file (when NumRecs is not allo" +typedef ^ ^ CHARACTER(ChanLen) ChanNames {:} - - "Strings describing the names of the channels from the binary file (including the time channel)" +typedef ^ ^ CHARACTER(ChanLen) ChanUnits {:} - - "Strings describing the units of the channels from the binary file (including the time channel)" +typedef ^ ^ ReKi Data {:}{:} - - "numeric data (rows and columns) from the binary file, including the time channel" -usefrom NWTC_Library OutParmType IntKi Indx -usefrom ^ ^ CHARACTER(ChanLen) Name -usefrom ^ ^ CHARACTER(ChanLen) Units -usefrom ^ ^ IntKi SignM +typedef NWTC_Library OutParmType IntKi Indx - - - "An index into AllOuts array where this channel is computed/stored" +typedef ^ ^ CHARACTER(ChanLen) Name - - - "Name of the output channel" +typedef ^ ^ CHARACTER(ChanLen) Units - - - "Units this channel is specified in" +typedef ^ ^ IntKi SignM - - - "Multiplier for output channel; usually -1 (minus) or 0 (invalid channel)" -usefrom NWTC_Library FileInfoType IntKi NumLines -usefrom ^ ^ IntKi NumFiles -usefrom ^ ^ IntKi FileLine {:} -usefrom ^ ^ IntKi FileIndx {:} -usefrom ^ ^ CHARACTER(MaxFileInfoLineLen) FileList {:} -usefrom ^ ^ CHARACTER(MaxFileInfoLineLen) Lines {:} +typedef NWTC_Library FileInfoType IntKi NumLines +typedef ^ ^ IntKi NumFiles +typedef ^ ^ IntKi FileLine {:} +typedef ^ ^ IntKi FileIndx {:} +typedef ^ ^ CHARACTER(MaxFileInfoLineLen) FileList {:} +typedef ^ ^ CHARACTER(MaxFileInfoLineLen) Lines {:} + +typedef NWTC_Library Quaternion ReKi q0 +typedef ^ ^ ReKi v {3} + +typedef NWTC_Library NWTC_RandomNumber_ParameterType IntKi pRNG +typedef ^ ^ IntKi RandSeed {3} +typedef ^ ^ IntKi RandSeedAry {:} +typedef ^ ^ CHARACTER(6) RNG_type + +# This file defines types that may be used from the NWTC_Library +# include this into a component registry file if you wish to use these types +# the "usefrom" keyword defines the types for the registry without generating +# a NWTC_Library_Types.f90 file +# +#............................................................. -usefrom NWTC_Library Quaternion ReKi q0 -usefrom ^ ^ ReKi v {3} -usefrom NWTC_Library NWTC_RandomNumber_ParameterType IntKi pRNG -usefrom ^ ^ IntKi RandSeed {3} -usefrom ^ ^ IntKi RandSeedAry {:} -usefrom ^ ^ CHARACTER(6) RNG_type #BJJ: the following three types will actually be placed in the ModMesh_Mapping.f90 file instead of NWTC_Library_Types.f90 -usefrom NWTC_Library MapType IntKi OtherMesh_Element -usefrom ^ ^ R8Ki distance - -usefrom ^ ^ R8Ki couple_arm {3} -usefrom ^ ^ R8Ki shape_fn {2} +typedef NWTC_Library MapType IntKi OtherMesh_Element - - - "Node (for point meshes) or Element (for line2 meshes) number on other mesh; for loads, other mesh is Dest, for motions/scalars, other mesh is Src" +typedef ^ ^ R8Ki distance - - - "Magnitude of couple_arm" m +typedef ^ ^ R8Ki couple_arm {3} - - "Vector between a point and node 1 of an element (p_ODR - p_OSR)" m +typedef ^ ^ R8Ki shape_fn {2} - - "shape functions: 1-D element-level location [0,1] based on closest-line projection of point" - -usefrom NWTC_Library MeshMapLinearizationType R8Ki mi {:}{:} -usefrom ^ ^ R8Ki fx_p {:}{:} -usefrom ^ ^ R8Ki tv_uD {:}{:} -usefrom ^ ^ R8Ki tv_uS {:}{:} -usefrom ^ ^ R8Ki ta_uD {:}{:} -usefrom ^ ^ R8Ki ta_uS {:}{:} -usefrom ^ ^ R8Ki ta_rv {:}{:} -usefrom ^ ^ R8Ki li {:}{:} -usefrom ^ ^ R8Ki M_u {:}{:} -usefrom ^ ^ R8Ki M_t {:}{:} -usefrom ^ ^ R8Ki M_f {:}{:} +typedef NWTC_Library MeshMapLinearizationType R8Ki mi {:}{:} - - "block matrix of motions that reflects identity (i.e., solely the mapping of one quantity to itself on another mesh)" +typedef ^ ^ R8Ki fx_p {:}{:} - - "block matrix of motions that reflects skew-symmetric (cross-product) matrix" +typedef ^ ^ R8Ki tv_uD {:}{:} - - "block matrix of translational velocity that is multiplied by destination translational displacement" +typedef ^ ^ R8Ki tv_uS {:}{:} - - "block matrix of translational velocity that is multiplied by source translational displacement" +typedef ^ ^ R8Ki ta_uD {:}{:} - - "block matrix of translational acceleration that is multiplied by destination translational displacement" +typedef ^ ^ R8Ki ta_uS {:}{:} - - "block matrix of translational acceleration that is multiplied by source translational displacement" +typedef ^ ^ R8Ki ta_rv {:}{:} - - "block matrix of translational acceleration that is multiplied by omega (RotationVel)" +typedef ^ ^ R8Ki li {:}{:} - - "block matrix of loads that reflects identity (i.e., solely the mapping on one quantity to itself on another mesh)" +typedef ^ ^ R8Ki M_uS {:}{:} - - "block matrix of moment that is multiplied by Source u (translationDisp)" +typedef ^ ^ R8Ki M_uD {:}{:} - - "block matrix of moment that is multiplied by Destination u (translationDisp)" +typedef ^ ^ R8Ki M_f {:}{:} - - "block matrix of moment that is multiplied by force" -usefrom NWTC_Library MeshMapType MapType MapLoads {:} -usefrom ^ ^ MapType MapMotions {:} -usefrom ^ ^ MapType MapSrcToAugmt {:} -usefrom ^ ^ MeshType Augmented_Ln2_Src - -usefrom ^ ^ MeshType Lumped_Points_Src - -usefrom ^ ^ INTEGER LoadLn2_A_Mat_Piv {:} -usefrom ^ ^ R8Ki DisplacedPosition {:}{:}{:} -usefrom ^ ^ R8Ki LoadLn2_A_Mat {:}{:} -usefrom ^ ^ R8Ki LoadLn2_F {:}{:} -usefrom ^ ^ R8Ki LoadLn2_M {:}{:} -usefrom ^ ^ MeshMapLinearizationType dM +typedef NWTC_Library MeshMapType MapType MapLoads {:} - - "mapping data structure for load fields on the mesh" +typedef ^ ^ MapType MapMotions {:} - - "mapping data structure for motion and/or scalar fields on the mesh" +typedef ^ ^ MapType MapSrcToAugmt {:} - - "for source line2 loads, we map between source and an augmented source mesh, then between augmented source and destination" +typedef ^ ^ MeshType Augmented_Ln2_Src - - - "temporary mesh for storing augmented line2 source values" +typedef ^ ^ MeshType Lumped_Points_Src - - - "temporary mesh for lumping lines to points, stored here for efficiency" +typedef ^ ^ INTEGER LoadLn2_A_Mat_Piv {:} - - "The pivot values for the factorization of LoadLn2_A_Mat" +typedef ^ ^ R8Ki DisplacedPosition {:}{:}{:} - - "couple_arm +Scr%Disp - Dest%Disp for each mapped node (stored here for efficiency)" m +typedef ^ ^ R8Ki LoadLn2_A_Mat {:}{:} - - "The 3-components of the forces for each node of an element in the point-to-line load mapping (for each element)" +typedef ^ ^ R8Ki LoadLn2_F {:}{:} - - "The 6-by-6 matrix that makes up the diagonal of the [A 0; B A] matrix in the point-to-line load mapping" +typedef ^ ^ R8Ki LoadLn2_M {:}{:} - - "The 3-components of the moments for each node of an element in the point-to-line load mapping (for each element)" +typedef ^ ^ MeshMapLinearizationType dM +#typedef ^ ^ MeshType Lumped_Points_Dest - - - "temporary mesh for debugging the lumped values in the line2-to-line2" diff --git a/modules/nwtc-library/src/Registry_NWTC_Library_typedef_nomesh.txt b/modules/nwtc-library/src/Registry_NWTC_Library_base.txt similarity index 100% rename from modules/nwtc-library/src/Registry_NWTC_Library_typedef_nomesh.txt rename to modules/nwtc-library/src/Registry_NWTC_Library_base.txt diff --git a/modules/nwtc-library/src/Registry_NWTC_Library_typedef_mesh.txt b/modules/nwtc-library/src/Registry_NWTC_Library_mesh.txt similarity index 100% rename from modules/nwtc-library/src/Registry_NWTC_Library_typedef_mesh.txt rename to modules/nwtc-library/src/Registry_NWTC_Library_mesh.txt diff --git a/modules/openfast-library/src/FAST_Types.f90 b/modules/openfast-library/src/FAST_Types.f90 index 5b39daed88..c48b7344d9 100644 --- a/modules/openfast-library/src/FAST_Types.f90 +++ b/modules/openfast-library/src/FAST_Types.f90 @@ -839,14 +839,14 @@ subroutine FAST_CopyVTK_BLSurfaceType(SrcVTK_BLSurfaceTypeData, DstVTK_BLSurface integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyVTK_BLSurfaceType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcVTK_BLSurfaceTypeData%AirfoilCoords)) then - LB(1:3) = lbound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) - UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) + LB(1:3) = lbound(SrcVTK_BLSurfaceTypeData%AirfoilCoords, kind=B8Ki) + UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords, kind=B8Ki) if (.not. allocated(DstVTK_BLSurfaceTypeData%AirfoilCoords)) then allocate(DstVTK_BLSurfaceTypeData%AirfoilCoords(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -877,7 +877,7 @@ subroutine FAST_PackVTK_BLSurfaceType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%AirfoilCoords)) if (allocated(InData%AirfoilCoords)) then - call RegPackBounds(Buf, 3, lbound(InData%AirfoilCoords), ubound(InData%AirfoilCoords)) + call RegPackBounds(Buf, 3, lbound(InData%AirfoilCoords, kind=B8Ki), ubound(InData%AirfoilCoords, kind=B8Ki)) call RegPack(Buf, InData%AirfoilCoords) end if if (RegCheckErr(Buf, RoutineName)) return @@ -887,7 +887,7 @@ subroutine FAST_UnPackVTK_BLSurfaceType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_VTK_BLSurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackVTK_BLSurfaceType' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -913,8 +913,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyVTK_SurfaceType' @@ -925,8 +925,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa DstVTK_SurfaceTypeData%GroundRad = SrcVTK_SurfaceTypeData%GroundRad DstVTK_SurfaceTypeData%NacelleBox = SrcVTK_SurfaceTypeData%NacelleBox if (allocated(SrcVTK_SurfaceTypeData%TowerRad)) then - LB(1:1) = lbound(SrcVTK_SurfaceTypeData%TowerRad) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%TowerRad) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%TowerRad, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%TowerRad, kind=B8Ki) if (.not. allocated(DstVTK_SurfaceTypeData%TowerRad)) then allocate(DstVTK_SurfaceTypeData%TowerRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -938,8 +938,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa end if DstVTK_SurfaceTypeData%NWaveElevPts = SrcVTK_SurfaceTypeData%NWaveElevPts if (allocated(SrcVTK_SurfaceTypeData%WaveElevXY)) then - LB(1:2) = lbound(SrcVTK_SurfaceTypeData%WaveElevXY) - UB(1:2) = ubound(SrcVTK_SurfaceTypeData%WaveElevXY) + LB(1:2) = lbound(SrcVTK_SurfaceTypeData%WaveElevXY, kind=B8Ki) + UB(1:2) = ubound(SrcVTK_SurfaceTypeData%WaveElevXY, kind=B8Ki) if (.not. allocated(DstVTK_SurfaceTypeData%WaveElevXY)) then allocate(DstVTK_SurfaceTypeData%WaveElevXY(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -950,8 +950,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa DstVTK_SurfaceTypeData%WaveElevXY = SrcVTK_SurfaceTypeData%WaveElevXY end if if (allocated(SrcVTK_SurfaceTypeData%WaveElev)) then - LB(1:2) = lbound(SrcVTK_SurfaceTypeData%WaveElev) - UB(1:2) = ubound(SrcVTK_SurfaceTypeData%WaveElev) + LB(1:2) = lbound(SrcVTK_SurfaceTypeData%WaveElev, kind=B8Ki) + UB(1:2) = ubound(SrcVTK_SurfaceTypeData%WaveElev, kind=B8Ki) if (.not. allocated(DstVTK_SurfaceTypeData%WaveElev)) then allocate(DstVTK_SurfaceTypeData%WaveElev(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -962,8 +962,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa DstVTK_SurfaceTypeData%WaveElev = SrcVTK_SurfaceTypeData%WaveElev end if if (allocated(SrcVTK_SurfaceTypeData%BladeShape)) then - LB(1:1) = lbound(SrcVTK_SurfaceTypeData%BladeShape) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%BladeShape) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%BladeShape, kind=B8Ki) if (.not. allocated(DstVTK_SurfaceTypeData%BladeShape)) then allocate(DstVTK_SurfaceTypeData%BladeShape(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -978,8 +978,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa end do end if if (allocated(SrcVTK_SurfaceTypeData%MorisonVisRad)) then - LB(1:1) = lbound(SrcVTK_SurfaceTypeData%MorisonVisRad) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%MorisonVisRad) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%MorisonVisRad, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%MorisonVisRad, kind=B8Ki) if (.not. allocated(DstVTK_SurfaceTypeData%MorisonVisRad)) then allocate(DstVTK_SurfaceTypeData%MorisonVisRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -995,8 +995,8 @@ subroutine FAST_DestroyVTK_SurfaceType(VTK_SurfaceTypeData, ErrStat, ErrMsg) type(FAST_VTK_SurfaceType), intent(inout) :: VTK_SurfaceTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyVTK_SurfaceType' @@ -1012,8 +1012,8 @@ subroutine FAST_DestroyVTK_SurfaceType(VTK_SurfaceTypeData, ErrStat, ErrMsg) deallocate(VTK_SurfaceTypeData%WaveElev) end if if (allocated(VTK_SurfaceTypeData%BladeShape)) then - LB(1:1) = lbound(VTK_SurfaceTypeData%BladeShape) - UB(1:1) = ubound(VTK_SurfaceTypeData%BladeShape) + LB(1:1) = lbound(VTK_SurfaceTypeData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(VTK_SurfaceTypeData%BladeShape, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_DestroyVTK_BLSurfaceType(VTK_SurfaceTypeData%BladeShape(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1029,8 +1029,8 @@ subroutine FAST_PackVTK_SurfaceType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_VTK_SurfaceType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackVTK_SurfaceType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%NumSectors) call RegPack(Buf, InData%HubRad) @@ -1038,32 +1038,32 @@ subroutine FAST_PackVTK_SurfaceType(Buf, Indata) call RegPack(Buf, InData%NacelleBox) call RegPack(Buf, allocated(InData%TowerRad)) if (allocated(InData%TowerRad)) then - call RegPackBounds(Buf, 1, lbound(InData%TowerRad), ubound(InData%TowerRad)) + call RegPackBounds(Buf, 1, lbound(InData%TowerRad, kind=B8Ki), ubound(InData%TowerRad, kind=B8Ki)) call RegPack(Buf, InData%TowerRad) end if call RegPack(Buf, InData%NWaveElevPts) call RegPack(Buf, allocated(InData%WaveElevXY)) if (allocated(InData%WaveElevXY)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveElevXY), ubound(InData%WaveElevXY)) + call RegPackBounds(Buf, 2, lbound(InData%WaveElevXY, kind=B8Ki), ubound(InData%WaveElevXY, kind=B8Ki)) call RegPack(Buf, InData%WaveElevXY) end if call RegPack(Buf, allocated(InData%WaveElev)) if (allocated(InData%WaveElev)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveElev), ubound(InData%WaveElev)) + call RegPackBounds(Buf, 2, lbound(InData%WaveElev, kind=B8Ki), ubound(InData%WaveElev, kind=B8Ki)) call RegPack(Buf, InData%WaveElev) end if call RegPack(Buf, allocated(InData%BladeShape)) if (allocated(InData%BladeShape)) then - call RegPackBounds(Buf, 1, lbound(InData%BladeShape), ubound(InData%BladeShape)) - LB(1:1) = lbound(InData%BladeShape) - UB(1:1) = ubound(InData%BladeShape) + call RegPackBounds(Buf, 1, lbound(InData%BladeShape, kind=B8Ki), ubound(InData%BladeShape, kind=B8Ki)) + LB(1:1) = lbound(InData%BladeShape, kind=B8Ki) + UB(1:1) = ubound(InData%BladeShape, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_PackVTK_BLSurfaceType(Buf, InData%BladeShape(i1)) end do end if call RegPack(Buf, allocated(InData%MorisonVisRad)) if (allocated(InData%MorisonVisRad)) then - call RegPackBounds(Buf, 1, lbound(InData%MorisonVisRad), ubound(InData%MorisonVisRad)) + call RegPackBounds(Buf, 1, lbound(InData%MorisonVisRad, kind=B8Ki), ubound(InData%MorisonVisRad, kind=B8Ki)) call RegPack(Buf, InData%MorisonVisRad) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1073,8 +1073,8 @@ subroutine FAST_UnPackVTK_SurfaceType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_VTK_SurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackVTK_SurfaceType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1167,7 +1167,7 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyVTK_ModeShapeType' ErrStat = ErrID_None @@ -1176,8 +1176,8 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape DstVTK_ModeShapeTypeData%MatlabFileName = SrcVTK_ModeShapeTypeData%MatlabFileName DstVTK_ModeShapeTypeData%VTKLinModes = SrcVTK_ModeShapeTypeData%VTKLinModes if (allocated(SrcVTK_ModeShapeTypeData%VTKModes)) then - LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%VTKModes) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%VTKModes) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%VTKModes, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%VTKModes, kind=B8Ki) if (.not. allocated(DstVTK_ModeShapeTypeData%VTKModes)) then allocate(DstVTK_ModeShapeTypeData%VTKModes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1192,8 +1192,8 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape DstVTK_ModeShapeTypeData%VTKLinScale = SrcVTK_ModeShapeTypeData%VTKLinScale DstVTK_ModeShapeTypeData%VTKLinPhase = SrcVTK_ModeShapeTypeData%VTKLinPhase if (allocated(SrcVTK_ModeShapeTypeData%DampingRatio)) then - LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%DampingRatio) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampingRatio) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%DampingRatio, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampingRatio, kind=B8Ki) if (.not. allocated(DstVTK_ModeShapeTypeData%DampingRatio)) then allocate(DstVTK_ModeShapeTypeData%DampingRatio(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1204,8 +1204,8 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape DstVTK_ModeShapeTypeData%DampingRatio = SrcVTK_ModeShapeTypeData%DampingRatio end if if (allocated(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz)) then - LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz, kind=B8Ki) if (.not. allocated(DstVTK_ModeShapeTypeData%NaturalFreq_Hz)) then allocate(DstVTK_ModeShapeTypeData%NaturalFreq_Hz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1216,8 +1216,8 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape DstVTK_ModeShapeTypeData%NaturalFreq_Hz = SrcVTK_ModeShapeTypeData%NaturalFreq_Hz end if if (allocated(SrcVTK_ModeShapeTypeData%DampedFreq_Hz)) then - LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz, kind=B8Ki) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz, kind=B8Ki) if (.not. allocated(DstVTK_ModeShapeTypeData%DampedFreq_Hz)) then allocate(DstVTK_ModeShapeTypeData%DampedFreq_Hz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1228,8 +1228,8 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape DstVTK_ModeShapeTypeData%DampedFreq_Hz = SrcVTK_ModeShapeTypeData%DampedFreq_Hz end if if (allocated(SrcVTK_ModeShapeTypeData%x_eig_magnitude)) then - LB(1:3) = lbound(SrcVTK_ModeShapeTypeData%x_eig_magnitude) - UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_magnitude) + LB(1:3) = lbound(SrcVTK_ModeShapeTypeData%x_eig_magnitude, kind=B8Ki) + UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_magnitude, kind=B8Ki) if (.not. allocated(DstVTK_ModeShapeTypeData%x_eig_magnitude)) then allocate(DstVTK_ModeShapeTypeData%x_eig_magnitude(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1240,8 +1240,8 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape DstVTK_ModeShapeTypeData%x_eig_magnitude = SrcVTK_ModeShapeTypeData%x_eig_magnitude end if if (allocated(SrcVTK_ModeShapeTypeData%x_eig_phase)) then - LB(1:3) = lbound(SrcVTK_ModeShapeTypeData%x_eig_phase) - UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_phase) + LB(1:3) = lbound(SrcVTK_ModeShapeTypeData%x_eig_phase, kind=B8Ki) + UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_phase, kind=B8Ki) if (.not. allocated(DstVTK_ModeShapeTypeData%x_eig_phase)) then allocate(DstVTK_ModeShapeTypeData%x_eig_phase(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1290,7 +1290,7 @@ subroutine FAST_PackVTK_ModeShapeType(Buf, Indata) call RegPack(Buf, InData%VTKLinModes) call RegPack(Buf, allocated(InData%VTKModes)) if (allocated(InData%VTKModes)) then - call RegPackBounds(Buf, 1, lbound(InData%VTKModes), ubound(InData%VTKModes)) + call RegPackBounds(Buf, 1, lbound(InData%VTKModes, kind=B8Ki), ubound(InData%VTKModes, kind=B8Ki)) call RegPack(Buf, InData%VTKModes) end if call RegPack(Buf, InData%VTKLinTim) @@ -1299,27 +1299,27 @@ subroutine FAST_PackVTK_ModeShapeType(Buf, Indata) call RegPack(Buf, InData%VTKLinPhase) call RegPack(Buf, allocated(InData%DampingRatio)) if (allocated(InData%DampingRatio)) then - call RegPackBounds(Buf, 1, lbound(InData%DampingRatio), ubound(InData%DampingRatio)) + call RegPackBounds(Buf, 1, lbound(InData%DampingRatio, kind=B8Ki), ubound(InData%DampingRatio, kind=B8Ki)) call RegPack(Buf, InData%DampingRatio) end if call RegPack(Buf, allocated(InData%NaturalFreq_Hz)) if (allocated(InData%NaturalFreq_Hz)) then - call RegPackBounds(Buf, 1, lbound(InData%NaturalFreq_Hz), ubound(InData%NaturalFreq_Hz)) + call RegPackBounds(Buf, 1, lbound(InData%NaturalFreq_Hz, kind=B8Ki), ubound(InData%NaturalFreq_Hz, kind=B8Ki)) call RegPack(Buf, InData%NaturalFreq_Hz) end if call RegPack(Buf, allocated(InData%DampedFreq_Hz)) if (allocated(InData%DampedFreq_Hz)) then - call RegPackBounds(Buf, 1, lbound(InData%DampedFreq_Hz), ubound(InData%DampedFreq_Hz)) + call RegPackBounds(Buf, 1, lbound(InData%DampedFreq_Hz, kind=B8Ki), ubound(InData%DampedFreq_Hz, kind=B8Ki)) call RegPack(Buf, InData%DampedFreq_Hz) end if call RegPack(Buf, allocated(InData%x_eig_magnitude)) if (allocated(InData%x_eig_magnitude)) then - call RegPackBounds(Buf, 3, lbound(InData%x_eig_magnitude), ubound(InData%x_eig_magnitude)) + call RegPackBounds(Buf, 3, lbound(InData%x_eig_magnitude, kind=B8Ki), ubound(InData%x_eig_magnitude, kind=B8Ki)) call RegPack(Buf, InData%x_eig_magnitude) end if call RegPack(Buf, allocated(InData%x_eig_phase)) if (allocated(InData%x_eig_phase)) then - call RegPackBounds(Buf, 3, lbound(InData%x_eig_phase), ubound(InData%x_eig_phase)) + call RegPackBounds(Buf, 3, lbound(InData%x_eig_phase, kind=B8Ki), ubound(InData%x_eig_phase, kind=B8Ki)) call RegPack(Buf, InData%x_eig_phase) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1329,7 +1329,7 @@ subroutine FAST_UnPackVTK_ModeShapeType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_VTK_ModeShapeType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackVTK_ModeShapeType' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1490,7 +1490,7 @@ subroutine FAST_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyParam' @@ -1601,8 +1601,8 @@ subroutine FAST_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WindSpeedOrTSR = SrcParamData%WindSpeedOrTSR DstParamData%RotSpeedInit = SrcParamData%RotSpeedInit if (allocated(SrcParamData%RotSpeed)) then - LB(1:1) = lbound(SrcParamData%RotSpeed) - UB(1:1) = ubound(SrcParamData%RotSpeed) + LB(1:1) = lbound(SrcParamData%RotSpeed, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%RotSpeed, kind=B8Ki) if (.not. allocated(DstParamData%RotSpeed)) then allocate(DstParamData%RotSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1613,8 +1613,8 @@ subroutine FAST_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%RotSpeed = SrcParamData%RotSpeed end if if (allocated(SrcParamData%WS_TSR)) then - LB(1:1) = lbound(SrcParamData%WS_TSR) - UB(1:1) = ubound(SrcParamData%WS_TSR) + LB(1:1) = lbound(SrcParamData%WS_TSR, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WS_TSR, kind=B8Ki) if (.not. allocated(DstParamData%WS_TSR)) then allocate(DstParamData%WS_TSR(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1625,8 +1625,8 @@ subroutine FAST_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%WS_TSR = SrcParamData%WS_TSR end if if (allocated(SrcParamData%Pitch)) then - LB(1:1) = lbound(SrcParamData%Pitch) - UB(1:1) = ubound(SrcParamData%Pitch) + LB(1:1) = lbound(SrcParamData%Pitch, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%Pitch, kind=B8Ki) if (.not. allocated(DstParamData%Pitch)) then allocate(DstParamData%Pitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1770,17 +1770,17 @@ subroutine FAST_PackParam(Buf, Indata) call RegPack(Buf, InData%RotSpeedInit) call RegPack(Buf, allocated(InData%RotSpeed)) if (allocated(InData%RotSpeed)) then - call RegPackBounds(Buf, 1, lbound(InData%RotSpeed), ubound(InData%RotSpeed)) + call RegPackBounds(Buf, 1, lbound(InData%RotSpeed, kind=B8Ki), ubound(InData%RotSpeed, kind=B8Ki)) call RegPack(Buf, InData%RotSpeed) end if call RegPack(Buf, allocated(InData%WS_TSR)) if (allocated(InData%WS_TSR)) then - call RegPackBounds(Buf, 1, lbound(InData%WS_TSR), ubound(InData%WS_TSR)) + call RegPackBounds(Buf, 1, lbound(InData%WS_TSR, kind=B8Ki), ubound(InData%WS_TSR, kind=B8Ki)) call RegPack(Buf, InData%WS_TSR) end if call RegPack(Buf, allocated(InData%Pitch)) if (allocated(InData%Pitch)) then - call RegPackBounds(Buf, 1, lbound(InData%Pitch), ubound(InData%Pitch)) + call RegPackBounds(Buf, 1, lbound(InData%Pitch, kind=B8Ki), ubound(InData%Pitch, kind=B8Ki)) call RegPack(Buf, InData%Pitch) end if call RegPack(Buf, InData%GearBox_index) @@ -1791,7 +1791,7 @@ subroutine FAST_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackParam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2045,16 +2045,16 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyLinStateSave' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcLinStateSaveData%x_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%x_IceD) - UB(1:2) = ubound(SrcLinStateSaveData%x_IceD) + LB(1:2) = lbound(SrcLinStateSaveData%x_IceD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%x_IceD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_IceD)) then allocate(DstLinStateSaveData%x_IceD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2071,8 +2071,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%xd_IceD) - UB(1:2) = ubound(SrcLinStateSaveData%xd_IceD) + LB(1:2) = lbound(SrcLinStateSaveData%xd_IceD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%xd_IceD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_IceD)) then allocate(DstLinStateSaveData%xd_IceD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2089,8 +2089,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%z_IceD) - UB(1:2) = ubound(SrcLinStateSaveData%z_IceD) + LB(1:2) = lbound(SrcLinStateSaveData%z_IceD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%z_IceD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_IceD)) then allocate(DstLinStateSaveData%z_IceD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2107,8 +2107,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_IceD) - UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_IceD) + LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_IceD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_IceD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_IceD)) then allocate(DstLinStateSaveData%OtherSt_IceD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2125,8 +2125,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%u_IceD) - UB(1:2) = ubound(SrcLinStateSaveData%u_IceD) + LB(1:2) = lbound(SrcLinStateSaveData%u_IceD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%u_IceD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_IceD)) then allocate(DstLinStateSaveData%u_IceD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2143,8 +2143,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%x_BD) - UB(1:2) = ubound(SrcLinStateSaveData%x_BD) + LB(1:2) = lbound(SrcLinStateSaveData%x_BD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%x_BD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_BD)) then allocate(DstLinStateSaveData%x_BD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2161,8 +2161,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%xd_BD) - UB(1:2) = ubound(SrcLinStateSaveData%xd_BD) + LB(1:2) = lbound(SrcLinStateSaveData%xd_BD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%xd_BD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_BD)) then allocate(DstLinStateSaveData%xd_BD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2179,8 +2179,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%z_BD) - UB(1:2) = ubound(SrcLinStateSaveData%z_BD) + LB(1:2) = lbound(SrcLinStateSaveData%z_BD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%z_BD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_BD)) then allocate(DstLinStateSaveData%z_BD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2197,8 +2197,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_BD) - UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_BD) + LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_BD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_BD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_BD)) then allocate(DstLinStateSaveData%OtherSt_BD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2215,8 +2215,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%u_BD) - UB(1:2) = ubound(SrcLinStateSaveData%u_BD) + LB(1:2) = lbound(SrcLinStateSaveData%u_BD, kind=B8Ki) + UB(1:2) = ubound(SrcLinStateSaveData%u_BD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_BD)) then allocate(DstLinStateSaveData%u_BD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2233,8 +2233,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_ED) - UB(1:1) = ubound(SrcLinStateSaveData%x_ED) + LB(1:1) = lbound(SrcLinStateSaveData%x_ED, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_ED, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_ED)) then allocate(DstLinStateSaveData%x_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2249,8 +2249,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_ED) - UB(1:1) = ubound(SrcLinStateSaveData%xd_ED) + LB(1:1) = lbound(SrcLinStateSaveData%xd_ED, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_ED, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_ED)) then allocate(DstLinStateSaveData%xd_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2265,8 +2265,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_ED) - UB(1:1) = ubound(SrcLinStateSaveData%z_ED) + LB(1:1) = lbound(SrcLinStateSaveData%z_ED, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_ED, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_ED)) then allocate(DstLinStateSaveData%z_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2281,8 +2281,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ED) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ED) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ED, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ED, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_ED)) then allocate(DstLinStateSaveData%OtherSt_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2297,8 +2297,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_ED) - UB(1:1) = ubound(SrcLinStateSaveData%u_ED) + LB(1:1) = lbound(SrcLinStateSaveData%u_ED, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_ED, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_ED)) then allocate(DstLinStateSaveData%u_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2313,8 +2313,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_SrvD) - UB(1:1) = ubound(SrcLinStateSaveData%x_SrvD) + LB(1:1) = lbound(SrcLinStateSaveData%x_SrvD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_SrvD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_SrvD)) then allocate(DstLinStateSaveData%x_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2329,8 +2329,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_SrvD) - UB(1:1) = ubound(SrcLinStateSaveData%xd_SrvD) + LB(1:1) = lbound(SrcLinStateSaveData%xd_SrvD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_SrvD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_SrvD)) then allocate(DstLinStateSaveData%xd_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2345,8 +2345,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_SrvD) - UB(1:1) = ubound(SrcLinStateSaveData%z_SrvD) + LB(1:1) = lbound(SrcLinStateSaveData%z_SrvD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_SrvD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_SrvD)) then allocate(DstLinStateSaveData%z_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2361,8 +2361,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SrvD) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SrvD) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SrvD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SrvD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_SrvD)) then allocate(DstLinStateSaveData%OtherSt_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2377,8 +2377,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_SrvD) - UB(1:1) = ubound(SrcLinStateSaveData%u_SrvD) + LB(1:1) = lbound(SrcLinStateSaveData%u_SrvD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_SrvD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_SrvD)) then allocate(DstLinStateSaveData%u_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2393,8 +2393,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_AD) - UB(1:1) = ubound(SrcLinStateSaveData%x_AD) + LB(1:1) = lbound(SrcLinStateSaveData%x_AD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_AD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_AD)) then allocate(DstLinStateSaveData%x_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2409,8 +2409,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_AD) - UB(1:1) = ubound(SrcLinStateSaveData%xd_AD) + LB(1:1) = lbound(SrcLinStateSaveData%xd_AD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_AD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_AD)) then allocate(DstLinStateSaveData%xd_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2425,8 +2425,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_AD) - UB(1:1) = ubound(SrcLinStateSaveData%z_AD) + LB(1:1) = lbound(SrcLinStateSaveData%z_AD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_AD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_AD)) then allocate(DstLinStateSaveData%z_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2441,8 +2441,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_AD) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_AD) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_AD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_AD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_AD)) then allocate(DstLinStateSaveData%OtherSt_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2457,8 +2457,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_AD) - UB(1:1) = ubound(SrcLinStateSaveData%u_AD) + LB(1:1) = lbound(SrcLinStateSaveData%u_AD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_AD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_AD)) then allocate(DstLinStateSaveData%u_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2473,8 +2473,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_IfW) - UB(1:1) = ubound(SrcLinStateSaveData%x_IfW) + LB(1:1) = lbound(SrcLinStateSaveData%x_IfW, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_IfW, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_IfW)) then allocate(DstLinStateSaveData%x_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2489,8 +2489,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_IfW) - UB(1:1) = ubound(SrcLinStateSaveData%xd_IfW) + LB(1:1) = lbound(SrcLinStateSaveData%xd_IfW, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_IfW, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_IfW)) then allocate(DstLinStateSaveData%xd_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2505,8 +2505,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_IfW) - UB(1:1) = ubound(SrcLinStateSaveData%z_IfW) + LB(1:1) = lbound(SrcLinStateSaveData%z_IfW, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_IfW, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_IfW)) then allocate(DstLinStateSaveData%z_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2521,8 +2521,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IfW) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IfW) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IfW, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IfW, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_IfW)) then allocate(DstLinStateSaveData%OtherSt_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2537,8 +2537,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_IfW) - UB(1:1) = ubound(SrcLinStateSaveData%u_IfW) + LB(1:1) = lbound(SrcLinStateSaveData%u_IfW, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_IfW, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_IfW)) then allocate(DstLinStateSaveData%u_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2553,8 +2553,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_SD) - UB(1:1) = ubound(SrcLinStateSaveData%x_SD) + LB(1:1) = lbound(SrcLinStateSaveData%x_SD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_SD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_SD)) then allocate(DstLinStateSaveData%x_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2569,8 +2569,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_SD) - UB(1:1) = ubound(SrcLinStateSaveData%xd_SD) + LB(1:1) = lbound(SrcLinStateSaveData%xd_SD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_SD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_SD)) then allocate(DstLinStateSaveData%xd_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2585,8 +2585,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_SD) - UB(1:1) = ubound(SrcLinStateSaveData%z_SD) + LB(1:1) = lbound(SrcLinStateSaveData%z_SD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_SD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_SD)) then allocate(DstLinStateSaveData%z_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2601,8 +2601,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SD) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SD) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_SD)) then allocate(DstLinStateSaveData%OtherSt_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2617,8 +2617,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_SD) - UB(1:1) = ubound(SrcLinStateSaveData%u_SD) + LB(1:1) = lbound(SrcLinStateSaveData%u_SD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_SD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_SD)) then allocate(DstLinStateSaveData%u_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2633,8 +2633,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_ExtPtfm) - UB(1:1) = ubound(SrcLinStateSaveData%x_ExtPtfm) + LB(1:1) = lbound(SrcLinStateSaveData%x_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_ExtPtfm, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_ExtPtfm)) then allocate(DstLinStateSaveData%x_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2649,8 +2649,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_ExtPtfm) - UB(1:1) = ubound(SrcLinStateSaveData%xd_ExtPtfm) + LB(1:1) = lbound(SrcLinStateSaveData%xd_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_ExtPtfm, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_ExtPtfm)) then allocate(DstLinStateSaveData%xd_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2665,8 +2665,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_ExtPtfm) - UB(1:1) = ubound(SrcLinStateSaveData%z_ExtPtfm) + LB(1:1) = lbound(SrcLinStateSaveData%z_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_ExtPtfm, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_ExtPtfm)) then allocate(DstLinStateSaveData%z_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2681,8 +2681,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ExtPtfm) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ExtPtfm) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_ExtPtfm)) then allocate(DstLinStateSaveData%OtherSt_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2697,8 +2697,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_ExtPtfm) - UB(1:1) = ubound(SrcLinStateSaveData%u_ExtPtfm) + LB(1:1) = lbound(SrcLinStateSaveData%u_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_ExtPtfm, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_ExtPtfm)) then allocate(DstLinStateSaveData%u_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2713,8 +2713,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_HD) - UB(1:1) = ubound(SrcLinStateSaveData%x_HD) + LB(1:1) = lbound(SrcLinStateSaveData%x_HD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_HD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_HD)) then allocate(DstLinStateSaveData%x_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2729,8 +2729,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_HD) - UB(1:1) = ubound(SrcLinStateSaveData%xd_HD) + LB(1:1) = lbound(SrcLinStateSaveData%xd_HD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_HD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_HD)) then allocate(DstLinStateSaveData%xd_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2745,8 +2745,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_HD) - UB(1:1) = ubound(SrcLinStateSaveData%z_HD) + LB(1:1) = lbound(SrcLinStateSaveData%z_HD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_HD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_HD)) then allocate(DstLinStateSaveData%z_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2761,8 +2761,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_HD) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_HD) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_HD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_HD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_HD)) then allocate(DstLinStateSaveData%OtherSt_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2777,8 +2777,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_HD) - UB(1:1) = ubound(SrcLinStateSaveData%u_HD) + LB(1:1) = lbound(SrcLinStateSaveData%u_HD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_HD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_HD)) then allocate(DstLinStateSaveData%u_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2793,8 +2793,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_IceF) - UB(1:1) = ubound(SrcLinStateSaveData%x_IceF) + LB(1:1) = lbound(SrcLinStateSaveData%x_IceF, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_IceF, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_IceF)) then allocate(DstLinStateSaveData%x_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2809,8 +2809,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_IceF) - UB(1:1) = ubound(SrcLinStateSaveData%xd_IceF) + LB(1:1) = lbound(SrcLinStateSaveData%xd_IceF, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_IceF, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_IceF)) then allocate(DstLinStateSaveData%xd_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2825,8 +2825,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_IceF) - UB(1:1) = ubound(SrcLinStateSaveData%z_IceF) + LB(1:1) = lbound(SrcLinStateSaveData%z_IceF, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_IceF, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_IceF)) then allocate(DstLinStateSaveData%z_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2841,8 +2841,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IceF) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IceF) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IceF, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IceF, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_IceF)) then allocate(DstLinStateSaveData%OtherSt_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2857,8 +2857,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_IceF) - UB(1:1) = ubound(SrcLinStateSaveData%u_IceF) + LB(1:1) = lbound(SrcLinStateSaveData%u_IceF, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_IceF, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_IceF)) then allocate(DstLinStateSaveData%u_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2873,8 +2873,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_MAP) - UB(1:1) = ubound(SrcLinStateSaveData%x_MAP) + LB(1:1) = lbound(SrcLinStateSaveData%x_MAP, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_MAP, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_MAP)) then allocate(DstLinStateSaveData%x_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2889,8 +2889,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_MAP) - UB(1:1) = ubound(SrcLinStateSaveData%xd_MAP) + LB(1:1) = lbound(SrcLinStateSaveData%xd_MAP, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_MAP, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_MAP)) then allocate(DstLinStateSaveData%xd_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2905,8 +2905,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_MAP) - UB(1:1) = ubound(SrcLinStateSaveData%z_MAP) + LB(1:1) = lbound(SrcLinStateSaveData%z_MAP, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_MAP, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_MAP)) then allocate(DstLinStateSaveData%z_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2921,8 +2921,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_MAP) - UB(1:1) = ubound(SrcLinStateSaveData%u_MAP) + LB(1:1) = lbound(SrcLinStateSaveData%u_MAP, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_MAP, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_MAP)) then allocate(DstLinStateSaveData%u_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2937,8 +2937,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_FEAM) - UB(1:1) = ubound(SrcLinStateSaveData%x_FEAM) + LB(1:1) = lbound(SrcLinStateSaveData%x_FEAM, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_FEAM, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_FEAM)) then allocate(DstLinStateSaveData%x_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2953,8 +2953,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_FEAM) - UB(1:1) = ubound(SrcLinStateSaveData%xd_FEAM) + LB(1:1) = lbound(SrcLinStateSaveData%xd_FEAM, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_FEAM, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_FEAM)) then allocate(DstLinStateSaveData%xd_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2969,8 +2969,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_FEAM) - UB(1:1) = ubound(SrcLinStateSaveData%z_FEAM) + LB(1:1) = lbound(SrcLinStateSaveData%z_FEAM, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_FEAM, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_FEAM)) then allocate(DstLinStateSaveData%z_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2985,8 +2985,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_FEAM) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_FEAM) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_FEAM, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_FEAM, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_FEAM)) then allocate(DstLinStateSaveData%OtherSt_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3001,8 +3001,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_FEAM) - UB(1:1) = ubound(SrcLinStateSaveData%u_FEAM) + LB(1:1) = lbound(SrcLinStateSaveData%u_FEAM, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_FEAM, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_FEAM)) then allocate(DstLinStateSaveData%u_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3017,8 +3017,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_MD) - UB(1:1) = ubound(SrcLinStateSaveData%x_MD) + LB(1:1) = lbound(SrcLinStateSaveData%x_MD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%x_MD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%x_MD)) then allocate(DstLinStateSaveData%x_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3033,8 +3033,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_MD) - UB(1:1) = ubound(SrcLinStateSaveData%xd_MD) + LB(1:1) = lbound(SrcLinStateSaveData%xd_MD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%xd_MD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%xd_MD)) then allocate(DstLinStateSaveData%xd_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3049,8 +3049,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_MD) - UB(1:1) = ubound(SrcLinStateSaveData%z_MD) + LB(1:1) = lbound(SrcLinStateSaveData%z_MD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%z_MD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%z_MD)) then allocate(DstLinStateSaveData%z_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3065,8 +3065,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_MD) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_MD) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_MD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_MD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%OtherSt_MD)) then allocate(DstLinStateSaveData%OtherSt_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3081,8 +3081,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_MD) - UB(1:1) = ubound(SrcLinStateSaveData%u_MD) + LB(1:1) = lbound(SrcLinStateSaveData%u_MD, kind=B8Ki) + UB(1:1) = ubound(SrcLinStateSaveData%u_MD, kind=B8Ki) if (.not. allocated(DstLinStateSaveData%u_MD)) then allocate(DstLinStateSaveData%u_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3102,16 +3102,16 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) type(FAST_LinStateSave), intent(inout) :: LinStateSaveData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyLinStateSave' ErrStat = ErrID_None ErrMsg = '' if (allocated(LinStateSaveData%x_IceD)) then - LB(1:2) = lbound(LinStateSaveData%x_IceD) - UB(1:2) = ubound(LinStateSaveData%x_IceD) + LB(1:2) = lbound(LinStateSaveData%x_IceD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%x_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyContState(LinStateSaveData%x_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -3121,8 +3121,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_IceD) end if if (allocated(LinStateSaveData%xd_IceD)) then - LB(1:2) = lbound(LinStateSaveData%xd_IceD) - UB(1:2) = ubound(LinStateSaveData%xd_IceD) + LB(1:2) = lbound(LinStateSaveData%xd_IceD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%xd_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyDiscState(LinStateSaveData%xd_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -3132,8 +3132,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_IceD) end if if (allocated(LinStateSaveData%z_IceD)) then - LB(1:2) = lbound(LinStateSaveData%z_IceD) - UB(1:2) = ubound(LinStateSaveData%z_IceD) + LB(1:2) = lbound(LinStateSaveData%z_IceD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%z_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyConstrState(LinStateSaveData%z_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -3143,8 +3143,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_IceD) end if if (allocated(LinStateSaveData%OtherSt_IceD)) then - LB(1:2) = lbound(LinStateSaveData%OtherSt_IceD) - UB(1:2) = ubound(LinStateSaveData%OtherSt_IceD) + LB(1:2) = lbound(LinStateSaveData%OtherSt_IceD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%OtherSt_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyOtherState(LinStateSaveData%OtherSt_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -3154,8 +3154,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_IceD) end if if (allocated(LinStateSaveData%u_IceD)) then - LB(1:2) = lbound(LinStateSaveData%u_IceD) - UB(1:2) = ubound(LinStateSaveData%u_IceD) + LB(1:2) = lbound(LinStateSaveData%u_IceD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%u_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyInput(LinStateSaveData%u_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -3165,8 +3165,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_IceD) end if if (allocated(LinStateSaveData%x_BD)) then - LB(1:2) = lbound(LinStateSaveData%x_BD) - UB(1:2) = ubound(LinStateSaveData%x_BD) + LB(1:2) = lbound(LinStateSaveData%x_BD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%x_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyContState(LinStateSaveData%x_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3176,8 +3176,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_BD) end if if (allocated(LinStateSaveData%xd_BD)) then - LB(1:2) = lbound(LinStateSaveData%xd_BD) - UB(1:2) = ubound(LinStateSaveData%xd_BD) + LB(1:2) = lbound(LinStateSaveData%xd_BD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%xd_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyDiscState(LinStateSaveData%xd_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3187,8 +3187,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_BD) end if if (allocated(LinStateSaveData%z_BD)) then - LB(1:2) = lbound(LinStateSaveData%z_BD) - UB(1:2) = ubound(LinStateSaveData%z_BD) + LB(1:2) = lbound(LinStateSaveData%z_BD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%z_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyConstrState(LinStateSaveData%z_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3198,8 +3198,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_BD) end if if (allocated(LinStateSaveData%OtherSt_BD)) then - LB(1:2) = lbound(LinStateSaveData%OtherSt_BD) - UB(1:2) = ubound(LinStateSaveData%OtherSt_BD) + LB(1:2) = lbound(LinStateSaveData%OtherSt_BD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%OtherSt_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyOtherState(LinStateSaveData%OtherSt_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3209,8 +3209,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_BD) end if if (allocated(LinStateSaveData%u_BD)) then - LB(1:2) = lbound(LinStateSaveData%u_BD) - UB(1:2) = ubound(LinStateSaveData%u_BD) + LB(1:2) = lbound(LinStateSaveData%u_BD, kind=B8Ki) + UB(1:2) = ubound(LinStateSaveData%u_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyInput(LinStateSaveData%u_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3220,8 +3220,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_BD) end if if (allocated(LinStateSaveData%x_ED)) then - LB(1:1) = lbound(LinStateSaveData%x_ED) - UB(1:1) = ubound(LinStateSaveData%x_ED) + LB(1:1) = lbound(LinStateSaveData%x_ED, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyContState(LinStateSaveData%x_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3229,8 +3229,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_ED) end if if (allocated(LinStateSaveData%xd_ED)) then - LB(1:1) = lbound(LinStateSaveData%xd_ED) - UB(1:1) = ubound(LinStateSaveData%xd_ED) + LB(1:1) = lbound(LinStateSaveData%xd_ED, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyDiscState(LinStateSaveData%xd_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3238,8 +3238,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_ED) end if if (allocated(LinStateSaveData%z_ED)) then - LB(1:1) = lbound(LinStateSaveData%z_ED) - UB(1:1) = ubound(LinStateSaveData%z_ED) + LB(1:1) = lbound(LinStateSaveData%z_ED, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyConstrState(LinStateSaveData%z_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3247,8 +3247,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_ED) end if if (allocated(LinStateSaveData%OtherSt_ED)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_ED) - UB(1:1) = ubound(LinStateSaveData%OtherSt_ED) + LB(1:1) = lbound(LinStateSaveData%OtherSt_ED, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyOtherState(LinStateSaveData%OtherSt_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3256,8 +3256,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_ED) end if if (allocated(LinStateSaveData%u_ED)) then - LB(1:1) = lbound(LinStateSaveData%u_ED) - UB(1:1) = ubound(LinStateSaveData%u_ED) + LB(1:1) = lbound(LinStateSaveData%u_ED, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyInput(LinStateSaveData%u_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3265,8 +3265,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_ED) end if if (allocated(LinStateSaveData%x_SrvD)) then - LB(1:1) = lbound(LinStateSaveData%x_SrvD) - UB(1:1) = ubound(LinStateSaveData%x_SrvD) + LB(1:1) = lbound(LinStateSaveData%x_SrvD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyContState(LinStateSaveData%x_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3274,8 +3274,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_SrvD) end if if (allocated(LinStateSaveData%xd_SrvD)) then - LB(1:1) = lbound(LinStateSaveData%xd_SrvD) - UB(1:1) = ubound(LinStateSaveData%xd_SrvD) + LB(1:1) = lbound(LinStateSaveData%xd_SrvD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyDiscState(LinStateSaveData%xd_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3283,8 +3283,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_SrvD) end if if (allocated(LinStateSaveData%z_SrvD)) then - LB(1:1) = lbound(LinStateSaveData%z_SrvD) - UB(1:1) = ubound(LinStateSaveData%z_SrvD) + LB(1:1) = lbound(LinStateSaveData%z_SrvD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyConstrState(LinStateSaveData%z_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3292,8 +3292,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_SrvD) end if if (allocated(LinStateSaveData%OtherSt_SrvD)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_SrvD) - UB(1:1) = ubound(LinStateSaveData%OtherSt_SrvD) + LB(1:1) = lbound(LinStateSaveData%OtherSt_SrvD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyOtherState(LinStateSaveData%OtherSt_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3301,8 +3301,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_SrvD) end if if (allocated(LinStateSaveData%u_SrvD)) then - LB(1:1) = lbound(LinStateSaveData%u_SrvD) - UB(1:1) = ubound(LinStateSaveData%u_SrvD) + LB(1:1) = lbound(LinStateSaveData%u_SrvD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyInput(LinStateSaveData%u_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3310,8 +3310,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_SrvD) end if if (allocated(LinStateSaveData%x_AD)) then - LB(1:1) = lbound(LinStateSaveData%x_AD) - UB(1:1) = ubound(LinStateSaveData%x_AD) + LB(1:1) = lbound(LinStateSaveData%x_AD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyContState(LinStateSaveData%x_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3319,8 +3319,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_AD) end if if (allocated(LinStateSaveData%xd_AD)) then - LB(1:1) = lbound(LinStateSaveData%xd_AD) - UB(1:1) = ubound(LinStateSaveData%xd_AD) + LB(1:1) = lbound(LinStateSaveData%xd_AD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyDiscState(LinStateSaveData%xd_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3328,8 +3328,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_AD) end if if (allocated(LinStateSaveData%z_AD)) then - LB(1:1) = lbound(LinStateSaveData%z_AD) - UB(1:1) = ubound(LinStateSaveData%z_AD) + LB(1:1) = lbound(LinStateSaveData%z_AD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyConstrState(LinStateSaveData%z_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3337,8 +3337,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_AD) end if if (allocated(LinStateSaveData%OtherSt_AD)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_AD) - UB(1:1) = ubound(LinStateSaveData%OtherSt_AD) + LB(1:1) = lbound(LinStateSaveData%OtherSt_AD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyOtherState(LinStateSaveData%OtherSt_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3346,8 +3346,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_AD) end if if (allocated(LinStateSaveData%u_AD)) then - LB(1:1) = lbound(LinStateSaveData%u_AD) - UB(1:1) = ubound(LinStateSaveData%u_AD) + LB(1:1) = lbound(LinStateSaveData%u_AD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyInput(LinStateSaveData%u_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3355,8 +3355,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_AD) end if if (allocated(LinStateSaveData%x_IfW)) then - LB(1:1) = lbound(LinStateSaveData%x_IfW) - UB(1:1) = ubound(LinStateSaveData%x_IfW) + LB(1:1) = lbound(LinStateSaveData%x_IfW, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyContState(LinStateSaveData%x_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3364,8 +3364,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_IfW) end if if (allocated(LinStateSaveData%xd_IfW)) then - LB(1:1) = lbound(LinStateSaveData%xd_IfW) - UB(1:1) = ubound(LinStateSaveData%xd_IfW) + LB(1:1) = lbound(LinStateSaveData%xd_IfW, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyDiscState(LinStateSaveData%xd_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3373,8 +3373,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_IfW) end if if (allocated(LinStateSaveData%z_IfW)) then - LB(1:1) = lbound(LinStateSaveData%z_IfW) - UB(1:1) = ubound(LinStateSaveData%z_IfW) + LB(1:1) = lbound(LinStateSaveData%z_IfW, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyConstrState(LinStateSaveData%z_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3382,8 +3382,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_IfW) end if if (allocated(LinStateSaveData%OtherSt_IfW)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_IfW) - UB(1:1) = ubound(LinStateSaveData%OtherSt_IfW) + LB(1:1) = lbound(LinStateSaveData%OtherSt_IfW, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyOtherState(LinStateSaveData%OtherSt_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3391,8 +3391,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_IfW) end if if (allocated(LinStateSaveData%u_IfW)) then - LB(1:1) = lbound(LinStateSaveData%u_IfW) - UB(1:1) = ubound(LinStateSaveData%u_IfW) + LB(1:1) = lbound(LinStateSaveData%u_IfW, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyInput(LinStateSaveData%u_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3400,8 +3400,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_IfW) end if if (allocated(LinStateSaveData%x_SD)) then - LB(1:1) = lbound(LinStateSaveData%x_SD) - UB(1:1) = ubound(LinStateSaveData%x_SD) + LB(1:1) = lbound(LinStateSaveData%x_SD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyContState(LinStateSaveData%x_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3409,8 +3409,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_SD) end if if (allocated(LinStateSaveData%xd_SD)) then - LB(1:1) = lbound(LinStateSaveData%xd_SD) - UB(1:1) = ubound(LinStateSaveData%xd_SD) + LB(1:1) = lbound(LinStateSaveData%xd_SD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyDiscState(LinStateSaveData%xd_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3418,8 +3418,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_SD) end if if (allocated(LinStateSaveData%z_SD)) then - LB(1:1) = lbound(LinStateSaveData%z_SD) - UB(1:1) = ubound(LinStateSaveData%z_SD) + LB(1:1) = lbound(LinStateSaveData%z_SD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyConstrState(LinStateSaveData%z_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3427,8 +3427,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_SD) end if if (allocated(LinStateSaveData%OtherSt_SD)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_SD) - UB(1:1) = ubound(LinStateSaveData%OtherSt_SD) + LB(1:1) = lbound(LinStateSaveData%OtherSt_SD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyOtherState(LinStateSaveData%OtherSt_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3436,8 +3436,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_SD) end if if (allocated(LinStateSaveData%u_SD)) then - LB(1:1) = lbound(LinStateSaveData%u_SD) - UB(1:1) = ubound(LinStateSaveData%u_SD) + LB(1:1) = lbound(LinStateSaveData%u_SD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyInput(LinStateSaveData%u_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3445,8 +3445,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_SD) end if if (allocated(LinStateSaveData%x_ExtPtfm)) then - LB(1:1) = lbound(LinStateSaveData%x_ExtPtfm) - UB(1:1) = ubound(LinStateSaveData%x_ExtPtfm) + LB(1:1) = lbound(LinStateSaveData%x_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyContState(LinStateSaveData%x_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3454,8 +3454,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_ExtPtfm) end if if (allocated(LinStateSaveData%xd_ExtPtfm)) then - LB(1:1) = lbound(LinStateSaveData%xd_ExtPtfm) - UB(1:1) = ubound(LinStateSaveData%xd_ExtPtfm) + LB(1:1) = lbound(LinStateSaveData%xd_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyDiscState(LinStateSaveData%xd_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3463,8 +3463,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_ExtPtfm) end if if (allocated(LinStateSaveData%z_ExtPtfm)) then - LB(1:1) = lbound(LinStateSaveData%z_ExtPtfm) - UB(1:1) = ubound(LinStateSaveData%z_ExtPtfm) + LB(1:1) = lbound(LinStateSaveData%z_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyConstrState(LinStateSaveData%z_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3472,8 +3472,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_ExtPtfm) end if if (allocated(LinStateSaveData%OtherSt_ExtPtfm)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_ExtPtfm) - UB(1:1) = ubound(LinStateSaveData%OtherSt_ExtPtfm) + LB(1:1) = lbound(LinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyOtherState(LinStateSaveData%OtherSt_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3481,8 +3481,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_ExtPtfm) end if if (allocated(LinStateSaveData%u_ExtPtfm)) then - LB(1:1) = lbound(LinStateSaveData%u_ExtPtfm) - UB(1:1) = ubound(LinStateSaveData%u_ExtPtfm) + LB(1:1) = lbound(LinStateSaveData%u_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyInput(LinStateSaveData%u_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3490,8 +3490,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_ExtPtfm) end if if (allocated(LinStateSaveData%x_HD)) then - LB(1:1) = lbound(LinStateSaveData%x_HD) - UB(1:1) = ubound(LinStateSaveData%x_HD) + LB(1:1) = lbound(LinStateSaveData%x_HD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyContState(LinStateSaveData%x_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3499,8 +3499,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_HD) end if if (allocated(LinStateSaveData%xd_HD)) then - LB(1:1) = lbound(LinStateSaveData%xd_HD) - UB(1:1) = ubound(LinStateSaveData%xd_HD) + LB(1:1) = lbound(LinStateSaveData%xd_HD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyDiscState(LinStateSaveData%xd_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3508,8 +3508,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_HD) end if if (allocated(LinStateSaveData%z_HD)) then - LB(1:1) = lbound(LinStateSaveData%z_HD) - UB(1:1) = ubound(LinStateSaveData%z_HD) + LB(1:1) = lbound(LinStateSaveData%z_HD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyConstrState(LinStateSaveData%z_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3517,8 +3517,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_HD) end if if (allocated(LinStateSaveData%OtherSt_HD)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_HD) - UB(1:1) = ubound(LinStateSaveData%OtherSt_HD) + LB(1:1) = lbound(LinStateSaveData%OtherSt_HD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyOtherState(LinStateSaveData%OtherSt_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3526,8 +3526,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_HD) end if if (allocated(LinStateSaveData%u_HD)) then - LB(1:1) = lbound(LinStateSaveData%u_HD) - UB(1:1) = ubound(LinStateSaveData%u_HD) + LB(1:1) = lbound(LinStateSaveData%u_HD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyInput(LinStateSaveData%u_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3535,8 +3535,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_HD) end if if (allocated(LinStateSaveData%x_IceF)) then - LB(1:1) = lbound(LinStateSaveData%x_IceF) - UB(1:1) = ubound(LinStateSaveData%x_IceF) + LB(1:1) = lbound(LinStateSaveData%x_IceF, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyContState(LinStateSaveData%x_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3544,8 +3544,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_IceF) end if if (allocated(LinStateSaveData%xd_IceF)) then - LB(1:1) = lbound(LinStateSaveData%xd_IceF) - UB(1:1) = ubound(LinStateSaveData%xd_IceF) + LB(1:1) = lbound(LinStateSaveData%xd_IceF, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyDiscState(LinStateSaveData%xd_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3553,8 +3553,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_IceF) end if if (allocated(LinStateSaveData%z_IceF)) then - LB(1:1) = lbound(LinStateSaveData%z_IceF) - UB(1:1) = ubound(LinStateSaveData%z_IceF) + LB(1:1) = lbound(LinStateSaveData%z_IceF, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyConstrState(LinStateSaveData%z_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3562,8 +3562,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_IceF) end if if (allocated(LinStateSaveData%OtherSt_IceF)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_IceF) - UB(1:1) = ubound(LinStateSaveData%OtherSt_IceF) + LB(1:1) = lbound(LinStateSaveData%OtherSt_IceF, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyOtherState(LinStateSaveData%OtherSt_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3571,8 +3571,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_IceF) end if if (allocated(LinStateSaveData%u_IceF)) then - LB(1:1) = lbound(LinStateSaveData%u_IceF) - UB(1:1) = ubound(LinStateSaveData%u_IceF) + LB(1:1) = lbound(LinStateSaveData%u_IceF, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyInput(LinStateSaveData%u_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3580,8 +3580,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_IceF) end if if (allocated(LinStateSaveData%x_MAP)) then - LB(1:1) = lbound(LinStateSaveData%x_MAP) - UB(1:1) = ubound(LinStateSaveData%x_MAP) + LB(1:1) = lbound(LinStateSaveData%x_MAP, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyContState(LinStateSaveData%x_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3589,8 +3589,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_MAP) end if if (allocated(LinStateSaveData%xd_MAP)) then - LB(1:1) = lbound(LinStateSaveData%xd_MAP) - UB(1:1) = ubound(LinStateSaveData%xd_MAP) + LB(1:1) = lbound(LinStateSaveData%xd_MAP, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyDiscState(LinStateSaveData%xd_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3598,8 +3598,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_MAP) end if if (allocated(LinStateSaveData%z_MAP)) then - LB(1:1) = lbound(LinStateSaveData%z_MAP) - UB(1:1) = ubound(LinStateSaveData%z_MAP) + LB(1:1) = lbound(LinStateSaveData%z_MAP, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyConstrState(LinStateSaveData%z_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3607,8 +3607,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_MAP) end if if (allocated(LinStateSaveData%u_MAP)) then - LB(1:1) = lbound(LinStateSaveData%u_MAP) - UB(1:1) = ubound(LinStateSaveData%u_MAP) + LB(1:1) = lbound(LinStateSaveData%u_MAP, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyInput(LinStateSaveData%u_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3616,8 +3616,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_MAP) end if if (allocated(LinStateSaveData%x_FEAM)) then - LB(1:1) = lbound(LinStateSaveData%x_FEAM) - UB(1:1) = ubound(LinStateSaveData%x_FEAM) + LB(1:1) = lbound(LinStateSaveData%x_FEAM, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyContState(LinStateSaveData%x_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3625,8 +3625,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_FEAM) end if if (allocated(LinStateSaveData%xd_FEAM)) then - LB(1:1) = lbound(LinStateSaveData%xd_FEAM) - UB(1:1) = ubound(LinStateSaveData%xd_FEAM) + LB(1:1) = lbound(LinStateSaveData%xd_FEAM, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyDiscState(LinStateSaveData%xd_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3634,8 +3634,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_FEAM) end if if (allocated(LinStateSaveData%z_FEAM)) then - LB(1:1) = lbound(LinStateSaveData%z_FEAM) - UB(1:1) = ubound(LinStateSaveData%z_FEAM) + LB(1:1) = lbound(LinStateSaveData%z_FEAM, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyConstrState(LinStateSaveData%z_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3643,8 +3643,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_FEAM) end if if (allocated(LinStateSaveData%OtherSt_FEAM)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_FEAM) - UB(1:1) = ubound(LinStateSaveData%OtherSt_FEAM) + LB(1:1) = lbound(LinStateSaveData%OtherSt_FEAM, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyOtherState(LinStateSaveData%OtherSt_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3652,8 +3652,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_FEAM) end if if (allocated(LinStateSaveData%u_FEAM)) then - LB(1:1) = lbound(LinStateSaveData%u_FEAM) - UB(1:1) = ubound(LinStateSaveData%u_FEAM) + LB(1:1) = lbound(LinStateSaveData%u_FEAM, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyInput(LinStateSaveData%u_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3661,8 +3661,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_FEAM) end if if (allocated(LinStateSaveData%x_MD)) then - LB(1:1) = lbound(LinStateSaveData%x_MD) - UB(1:1) = ubound(LinStateSaveData%x_MD) + LB(1:1) = lbound(LinStateSaveData%x_MD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%x_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyContState(LinStateSaveData%x_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3670,8 +3670,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_MD) end if if (allocated(LinStateSaveData%xd_MD)) then - LB(1:1) = lbound(LinStateSaveData%xd_MD) - UB(1:1) = ubound(LinStateSaveData%xd_MD) + LB(1:1) = lbound(LinStateSaveData%xd_MD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%xd_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyDiscState(LinStateSaveData%xd_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3679,8 +3679,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_MD) end if if (allocated(LinStateSaveData%z_MD)) then - LB(1:1) = lbound(LinStateSaveData%z_MD) - UB(1:1) = ubound(LinStateSaveData%z_MD) + LB(1:1) = lbound(LinStateSaveData%z_MD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%z_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyConstrState(LinStateSaveData%z_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3688,8 +3688,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_MD) end if if (allocated(LinStateSaveData%OtherSt_MD)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_MD) - UB(1:1) = ubound(LinStateSaveData%OtherSt_MD) + LB(1:1) = lbound(LinStateSaveData%OtherSt_MD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%OtherSt_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyOtherState(LinStateSaveData%OtherSt_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3697,8 +3697,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_MD) end if if (allocated(LinStateSaveData%u_MD)) then - LB(1:1) = lbound(LinStateSaveData%u_MD) - UB(1:1) = ubound(LinStateSaveData%u_MD) + LB(1:1) = lbound(LinStateSaveData%u_MD, kind=B8Ki) + UB(1:1) = ubound(LinStateSaveData%u_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyInput(LinStateSaveData%u_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3711,14 +3711,14 @@ subroutine FAST_PackLinStateSave(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_LinStateSave), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackLinStateSave' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%x_IceD)) if (allocated(InData%x_IceD)) then - call RegPackBounds(Buf, 2, lbound(InData%x_IceD), ubound(InData%x_IceD)) - LB(1:2) = lbound(InData%x_IceD) - UB(1:2) = ubound(InData%x_IceD) + call RegPackBounds(Buf, 2, lbound(InData%x_IceD, kind=B8Ki), ubound(InData%x_IceD, kind=B8Ki)) + LB(1:2) = lbound(InData%x_IceD, kind=B8Ki) + UB(1:2) = ubound(InData%x_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackContState(Buf, InData%x_IceD(i1,i2)) @@ -3727,9 +3727,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%xd_IceD)) if (allocated(InData%xd_IceD)) then - call RegPackBounds(Buf, 2, lbound(InData%xd_IceD), ubound(InData%xd_IceD)) - LB(1:2) = lbound(InData%xd_IceD) - UB(1:2) = ubound(InData%xd_IceD) + call RegPackBounds(Buf, 2, lbound(InData%xd_IceD, kind=B8Ki), ubound(InData%xd_IceD, kind=B8Ki)) + LB(1:2) = lbound(InData%xd_IceD, kind=B8Ki) + UB(1:2) = ubound(InData%xd_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackDiscState(Buf, InData%xd_IceD(i1,i2)) @@ -3738,9 +3738,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%z_IceD)) if (allocated(InData%z_IceD)) then - call RegPackBounds(Buf, 2, lbound(InData%z_IceD), ubound(InData%z_IceD)) - LB(1:2) = lbound(InData%z_IceD) - UB(1:2) = ubound(InData%z_IceD) + call RegPackBounds(Buf, 2, lbound(InData%z_IceD, kind=B8Ki), ubound(InData%z_IceD, kind=B8Ki)) + LB(1:2) = lbound(InData%z_IceD, kind=B8Ki) + UB(1:2) = ubound(InData%z_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackConstrState(Buf, InData%z_IceD(i1,i2)) @@ -3749,9 +3749,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%OtherSt_IceD)) if (allocated(InData%OtherSt_IceD)) then - call RegPackBounds(Buf, 2, lbound(InData%OtherSt_IceD), ubound(InData%OtherSt_IceD)) - LB(1:2) = lbound(InData%OtherSt_IceD) - UB(1:2) = ubound(InData%OtherSt_IceD) + call RegPackBounds(Buf, 2, lbound(InData%OtherSt_IceD, kind=B8Ki), ubound(InData%OtherSt_IceD, kind=B8Ki)) + LB(1:2) = lbound(InData%OtherSt_IceD, kind=B8Ki) + UB(1:2) = ubound(InData%OtherSt_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackOtherState(Buf, InData%OtherSt_IceD(i1,i2)) @@ -3760,9 +3760,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%u_IceD)) if (allocated(InData%u_IceD)) then - call RegPackBounds(Buf, 2, lbound(InData%u_IceD), ubound(InData%u_IceD)) - LB(1:2) = lbound(InData%u_IceD) - UB(1:2) = ubound(InData%u_IceD) + call RegPackBounds(Buf, 2, lbound(InData%u_IceD, kind=B8Ki), ubound(InData%u_IceD, kind=B8Ki)) + LB(1:2) = lbound(InData%u_IceD, kind=B8Ki) + UB(1:2) = ubound(InData%u_IceD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackInput(Buf, InData%u_IceD(i1,i2)) @@ -3771,9 +3771,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%x_BD)) if (allocated(InData%x_BD)) then - call RegPackBounds(Buf, 2, lbound(InData%x_BD), ubound(InData%x_BD)) - LB(1:2) = lbound(InData%x_BD) - UB(1:2) = ubound(InData%x_BD) + call RegPackBounds(Buf, 2, lbound(InData%x_BD, kind=B8Ki), ubound(InData%x_BD, kind=B8Ki)) + LB(1:2) = lbound(InData%x_BD, kind=B8Ki) + UB(1:2) = ubound(InData%x_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackContState(Buf, InData%x_BD(i1,i2)) @@ -3782,9 +3782,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%xd_BD)) if (allocated(InData%xd_BD)) then - call RegPackBounds(Buf, 2, lbound(InData%xd_BD), ubound(InData%xd_BD)) - LB(1:2) = lbound(InData%xd_BD) - UB(1:2) = ubound(InData%xd_BD) + call RegPackBounds(Buf, 2, lbound(InData%xd_BD, kind=B8Ki), ubound(InData%xd_BD, kind=B8Ki)) + LB(1:2) = lbound(InData%xd_BD, kind=B8Ki) + UB(1:2) = ubound(InData%xd_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackDiscState(Buf, InData%xd_BD(i1,i2)) @@ -3793,9 +3793,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%z_BD)) if (allocated(InData%z_BD)) then - call RegPackBounds(Buf, 2, lbound(InData%z_BD), ubound(InData%z_BD)) - LB(1:2) = lbound(InData%z_BD) - UB(1:2) = ubound(InData%z_BD) + call RegPackBounds(Buf, 2, lbound(InData%z_BD, kind=B8Ki), ubound(InData%z_BD, kind=B8Ki)) + LB(1:2) = lbound(InData%z_BD, kind=B8Ki) + UB(1:2) = ubound(InData%z_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackConstrState(Buf, InData%z_BD(i1,i2)) @@ -3804,9 +3804,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%OtherSt_BD)) if (allocated(InData%OtherSt_BD)) then - call RegPackBounds(Buf, 2, lbound(InData%OtherSt_BD), ubound(InData%OtherSt_BD)) - LB(1:2) = lbound(InData%OtherSt_BD) - UB(1:2) = ubound(InData%OtherSt_BD) + call RegPackBounds(Buf, 2, lbound(InData%OtherSt_BD, kind=B8Ki), ubound(InData%OtherSt_BD, kind=B8Ki)) + LB(1:2) = lbound(InData%OtherSt_BD, kind=B8Ki) + UB(1:2) = ubound(InData%OtherSt_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackOtherState(Buf, InData%OtherSt_BD(i1,i2)) @@ -3815,9 +3815,9 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%u_BD)) if (allocated(InData%u_BD)) then - call RegPackBounds(Buf, 2, lbound(InData%u_BD), ubound(InData%u_BD)) - LB(1:2) = lbound(InData%u_BD) - UB(1:2) = ubound(InData%u_BD) + call RegPackBounds(Buf, 2, lbound(InData%u_BD, kind=B8Ki), ubound(InData%u_BD, kind=B8Ki)) + LB(1:2) = lbound(InData%u_BD, kind=B8Ki) + UB(1:2) = ubound(InData%u_BD, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackInput(Buf, InData%u_BD(i1,i2)) @@ -3826,486 +3826,486 @@ subroutine FAST_PackLinStateSave(Buf, Indata) end if call RegPack(Buf, allocated(InData%x_ED)) if (allocated(InData%x_ED)) then - call RegPackBounds(Buf, 1, lbound(InData%x_ED), ubound(InData%x_ED)) - LB(1:1) = lbound(InData%x_ED) - UB(1:1) = ubound(InData%x_ED) + call RegPackBounds(Buf, 1, lbound(InData%x_ED, kind=B8Ki), ubound(InData%x_ED, kind=B8Ki)) + LB(1:1) = lbound(InData%x_ED, kind=B8Ki) + UB(1:1) = ubound(InData%x_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackContState(Buf, InData%x_ED(i1)) end do end if call RegPack(Buf, allocated(InData%xd_ED)) if (allocated(InData%xd_ED)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_ED), ubound(InData%xd_ED)) - LB(1:1) = lbound(InData%xd_ED) - UB(1:1) = ubound(InData%xd_ED) + call RegPackBounds(Buf, 1, lbound(InData%xd_ED, kind=B8Ki), ubound(InData%xd_ED, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_ED, kind=B8Ki) + UB(1:1) = ubound(InData%xd_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackDiscState(Buf, InData%xd_ED(i1)) end do end if call RegPack(Buf, allocated(InData%z_ED)) if (allocated(InData%z_ED)) then - call RegPackBounds(Buf, 1, lbound(InData%z_ED), ubound(InData%z_ED)) - LB(1:1) = lbound(InData%z_ED) - UB(1:1) = ubound(InData%z_ED) + call RegPackBounds(Buf, 1, lbound(InData%z_ED, kind=B8Ki), ubound(InData%z_ED, kind=B8Ki)) + LB(1:1) = lbound(InData%z_ED, kind=B8Ki) + UB(1:1) = ubound(InData%z_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackConstrState(Buf, InData%z_ED(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_ED)) if (allocated(InData%OtherSt_ED)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_ED), ubound(InData%OtherSt_ED)) - LB(1:1) = lbound(InData%OtherSt_ED) - UB(1:1) = ubound(InData%OtherSt_ED) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_ED, kind=B8Ki), ubound(InData%OtherSt_ED, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_ED, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackOtherState(Buf, InData%OtherSt_ED(i1)) end do end if call RegPack(Buf, allocated(InData%u_ED)) if (allocated(InData%u_ED)) then - call RegPackBounds(Buf, 1, lbound(InData%u_ED), ubound(InData%u_ED)) - LB(1:1) = lbound(InData%u_ED) - UB(1:1) = ubound(InData%u_ED) + call RegPackBounds(Buf, 1, lbound(InData%u_ED, kind=B8Ki), ubound(InData%u_ED, kind=B8Ki)) + LB(1:1) = lbound(InData%u_ED, kind=B8Ki) + UB(1:1) = ubound(InData%u_ED, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackInput(Buf, InData%u_ED(i1)) end do end if call RegPack(Buf, allocated(InData%x_SrvD)) if (allocated(InData%x_SrvD)) then - call RegPackBounds(Buf, 1, lbound(InData%x_SrvD), ubound(InData%x_SrvD)) - LB(1:1) = lbound(InData%x_SrvD) - UB(1:1) = ubound(InData%x_SrvD) + call RegPackBounds(Buf, 1, lbound(InData%x_SrvD, kind=B8Ki), ubound(InData%x_SrvD, kind=B8Ki)) + LB(1:1) = lbound(InData%x_SrvD, kind=B8Ki) + UB(1:1) = ubound(InData%x_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackContState(Buf, InData%x_SrvD(i1)) end do end if call RegPack(Buf, allocated(InData%xd_SrvD)) if (allocated(InData%xd_SrvD)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_SrvD), ubound(InData%xd_SrvD)) - LB(1:1) = lbound(InData%xd_SrvD) - UB(1:1) = ubound(InData%xd_SrvD) + call RegPackBounds(Buf, 1, lbound(InData%xd_SrvD, kind=B8Ki), ubound(InData%xd_SrvD, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_SrvD, kind=B8Ki) + UB(1:1) = ubound(InData%xd_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackDiscState(Buf, InData%xd_SrvD(i1)) end do end if call RegPack(Buf, allocated(InData%z_SrvD)) if (allocated(InData%z_SrvD)) then - call RegPackBounds(Buf, 1, lbound(InData%z_SrvD), ubound(InData%z_SrvD)) - LB(1:1) = lbound(InData%z_SrvD) - UB(1:1) = ubound(InData%z_SrvD) + call RegPackBounds(Buf, 1, lbound(InData%z_SrvD, kind=B8Ki), ubound(InData%z_SrvD, kind=B8Ki)) + LB(1:1) = lbound(InData%z_SrvD, kind=B8Ki) + UB(1:1) = ubound(InData%z_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackConstrState(Buf, InData%z_SrvD(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_SrvD)) if (allocated(InData%OtherSt_SrvD)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_SrvD), ubound(InData%OtherSt_SrvD)) - LB(1:1) = lbound(InData%OtherSt_SrvD) - UB(1:1) = ubound(InData%OtherSt_SrvD) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_SrvD, kind=B8Ki), ubound(InData%OtherSt_SrvD, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_SrvD, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackOtherState(Buf, InData%OtherSt_SrvD(i1)) end do end if call RegPack(Buf, allocated(InData%u_SrvD)) if (allocated(InData%u_SrvD)) then - call RegPackBounds(Buf, 1, lbound(InData%u_SrvD), ubound(InData%u_SrvD)) - LB(1:1) = lbound(InData%u_SrvD) - UB(1:1) = ubound(InData%u_SrvD) + call RegPackBounds(Buf, 1, lbound(InData%u_SrvD, kind=B8Ki), ubound(InData%u_SrvD, kind=B8Ki)) + LB(1:1) = lbound(InData%u_SrvD, kind=B8Ki) + UB(1:1) = ubound(InData%u_SrvD, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackInput(Buf, InData%u_SrvD(i1)) end do end if call RegPack(Buf, allocated(InData%x_AD)) if (allocated(InData%x_AD)) then - call RegPackBounds(Buf, 1, lbound(InData%x_AD), ubound(InData%x_AD)) - LB(1:1) = lbound(InData%x_AD) - UB(1:1) = ubound(InData%x_AD) + call RegPackBounds(Buf, 1, lbound(InData%x_AD, kind=B8Ki), ubound(InData%x_AD, kind=B8Ki)) + LB(1:1) = lbound(InData%x_AD, kind=B8Ki) + UB(1:1) = ubound(InData%x_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackContState(Buf, InData%x_AD(i1)) end do end if call RegPack(Buf, allocated(InData%xd_AD)) if (allocated(InData%xd_AD)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_AD), ubound(InData%xd_AD)) - LB(1:1) = lbound(InData%xd_AD) - UB(1:1) = ubound(InData%xd_AD) + call RegPackBounds(Buf, 1, lbound(InData%xd_AD, kind=B8Ki), ubound(InData%xd_AD, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_AD, kind=B8Ki) + UB(1:1) = ubound(InData%xd_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackDiscState(Buf, InData%xd_AD(i1)) end do end if call RegPack(Buf, allocated(InData%z_AD)) if (allocated(InData%z_AD)) then - call RegPackBounds(Buf, 1, lbound(InData%z_AD), ubound(InData%z_AD)) - LB(1:1) = lbound(InData%z_AD) - UB(1:1) = ubound(InData%z_AD) + call RegPackBounds(Buf, 1, lbound(InData%z_AD, kind=B8Ki), ubound(InData%z_AD, kind=B8Ki)) + LB(1:1) = lbound(InData%z_AD, kind=B8Ki) + UB(1:1) = ubound(InData%z_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackConstrState(Buf, InData%z_AD(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_AD)) if (allocated(InData%OtherSt_AD)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_AD), ubound(InData%OtherSt_AD)) - LB(1:1) = lbound(InData%OtherSt_AD) - UB(1:1) = ubound(InData%OtherSt_AD) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_AD, kind=B8Ki), ubound(InData%OtherSt_AD, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_AD, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackOtherState(Buf, InData%OtherSt_AD(i1)) end do end if call RegPack(Buf, allocated(InData%u_AD)) if (allocated(InData%u_AD)) then - call RegPackBounds(Buf, 1, lbound(InData%u_AD), ubound(InData%u_AD)) - LB(1:1) = lbound(InData%u_AD) - UB(1:1) = ubound(InData%u_AD) + call RegPackBounds(Buf, 1, lbound(InData%u_AD, kind=B8Ki), ubound(InData%u_AD, kind=B8Ki)) + LB(1:1) = lbound(InData%u_AD, kind=B8Ki) + UB(1:1) = ubound(InData%u_AD, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackInput(Buf, InData%u_AD(i1)) end do end if call RegPack(Buf, allocated(InData%x_IfW)) if (allocated(InData%x_IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%x_IfW), ubound(InData%x_IfW)) - LB(1:1) = lbound(InData%x_IfW) - UB(1:1) = ubound(InData%x_IfW) + call RegPackBounds(Buf, 1, lbound(InData%x_IfW, kind=B8Ki), ubound(InData%x_IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%x_IfW, kind=B8Ki) + UB(1:1) = ubound(InData%x_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackContState(Buf, InData%x_IfW(i1)) end do end if call RegPack(Buf, allocated(InData%xd_IfW)) if (allocated(InData%xd_IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_IfW), ubound(InData%xd_IfW)) - LB(1:1) = lbound(InData%xd_IfW) - UB(1:1) = ubound(InData%xd_IfW) + call RegPackBounds(Buf, 1, lbound(InData%xd_IfW, kind=B8Ki), ubound(InData%xd_IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_IfW, kind=B8Ki) + UB(1:1) = ubound(InData%xd_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackDiscState(Buf, InData%xd_IfW(i1)) end do end if call RegPack(Buf, allocated(InData%z_IfW)) if (allocated(InData%z_IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%z_IfW), ubound(InData%z_IfW)) - LB(1:1) = lbound(InData%z_IfW) - UB(1:1) = ubound(InData%z_IfW) + call RegPackBounds(Buf, 1, lbound(InData%z_IfW, kind=B8Ki), ubound(InData%z_IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%z_IfW, kind=B8Ki) + UB(1:1) = ubound(InData%z_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackConstrState(Buf, InData%z_IfW(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_IfW)) if (allocated(InData%OtherSt_IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_IfW), ubound(InData%OtherSt_IfW)) - LB(1:1) = lbound(InData%OtherSt_IfW) - UB(1:1) = ubound(InData%OtherSt_IfW) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_IfW, kind=B8Ki), ubound(InData%OtherSt_IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_IfW, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackOtherState(Buf, InData%OtherSt_IfW(i1)) end do end if call RegPack(Buf, allocated(InData%u_IfW)) if (allocated(InData%u_IfW)) then - call RegPackBounds(Buf, 1, lbound(InData%u_IfW), ubound(InData%u_IfW)) - LB(1:1) = lbound(InData%u_IfW) - UB(1:1) = ubound(InData%u_IfW) + call RegPackBounds(Buf, 1, lbound(InData%u_IfW, kind=B8Ki), ubound(InData%u_IfW, kind=B8Ki)) + LB(1:1) = lbound(InData%u_IfW, kind=B8Ki) + UB(1:1) = ubound(InData%u_IfW, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackInput(Buf, InData%u_IfW(i1)) end do end if call RegPack(Buf, allocated(InData%x_SD)) if (allocated(InData%x_SD)) then - call RegPackBounds(Buf, 1, lbound(InData%x_SD), ubound(InData%x_SD)) - LB(1:1) = lbound(InData%x_SD) - UB(1:1) = ubound(InData%x_SD) + call RegPackBounds(Buf, 1, lbound(InData%x_SD, kind=B8Ki), ubound(InData%x_SD, kind=B8Ki)) + LB(1:1) = lbound(InData%x_SD, kind=B8Ki) + UB(1:1) = ubound(InData%x_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackContState(Buf, InData%x_SD(i1)) end do end if call RegPack(Buf, allocated(InData%xd_SD)) if (allocated(InData%xd_SD)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_SD), ubound(InData%xd_SD)) - LB(1:1) = lbound(InData%xd_SD) - UB(1:1) = ubound(InData%xd_SD) + call RegPackBounds(Buf, 1, lbound(InData%xd_SD, kind=B8Ki), ubound(InData%xd_SD, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_SD, kind=B8Ki) + UB(1:1) = ubound(InData%xd_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackDiscState(Buf, InData%xd_SD(i1)) end do end if call RegPack(Buf, allocated(InData%z_SD)) if (allocated(InData%z_SD)) then - call RegPackBounds(Buf, 1, lbound(InData%z_SD), ubound(InData%z_SD)) - LB(1:1) = lbound(InData%z_SD) - UB(1:1) = ubound(InData%z_SD) + call RegPackBounds(Buf, 1, lbound(InData%z_SD, kind=B8Ki), ubound(InData%z_SD, kind=B8Ki)) + LB(1:1) = lbound(InData%z_SD, kind=B8Ki) + UB(1:1) = ubound(InData%z_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackConstrState(Buf, InData%z_SD(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_SD)) if (allocated(InData%OtherSt_SD)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_SD), ubound(InData%OtherSt_SD)) - LB(1:1) = lbound(InData%OtherSt_SD) - UB(1:1) = ubound(InData%OtherSt_SD) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_SD, kind=B8Ki), ubound(InData%OtherSt_SD, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_SD, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackOtherState(Buf, InData%OtherSt_SD(i1)) end do end if call RegPack(Buf, allocated(InData%u_SD)) if (allocated(InData%u_SD)) then - call RegPackBounds(Buf, 1, lbound(InData%u_SD), ubound(InData%u_SD)) - LB(1:1) = lbound(InData%u_SD) - UB(1:1) = ubound(InData%u_SD) + call RegPackBounds(Buf, 1, lbound(InData%u_SD, kind=B8Ki), ubound(InData%u_SD, kind=B8Ki)) + LB(1:1) = lbound(InData%u_SD, kind=B8Ki) + UB(1:1) = ubound(InData%u_SD, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackInput(Buf, InData%u_SD(i1)) end do end if call RegPack(Buf, allocated(InData%x_ExtPtfm)) if (allocated(InData%x_ExtPtfm)) then - call RegPackBounds(Buf, 1, lbound(InData%x_ExtPtfm), ubound(InData%x_ExtPtfm)) - LB(1:1) = lbound(InData%x_ExtPtfm) - UB(1:1) = ubound(InData%x_ExtPtfm) + call RegPackBounds(Buf, 1, lbound(InData%x_ExtPtfm, kind=B8Ki), ubound(InData%x_ExtPtfm, kind=B8Ki)) + LB(1:1) = lbound(InData%x_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(InData%x_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackContState(Buf, InData%x_ExtPtfm(i1)) end do end if call RegPack(Buf, allocated(InData%xd_ExtPtfm)) if (allocated(InData%xd_ExtPtfm)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_ExtPtfm), ubound(InData%xd_ExtPtfm)) - LB(1:1) = lbound(InData%xd_ExtPtfm) - UB(1:1) = ubound(InData%xd_ExtPtfm) + call RegPackBounds(Buf, 1, lbound(InData%xd_ExtPtfm, kind=B8Ki), ubound(InData%xd_ExtPtfm, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(InData%xd_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackDiscState(Buf, InData%xd_ExtPtfm(i1)) end do end if call RegPack(Buf, allocated(InData%z_ExtPtfm)) if (allocated(InData%z_ExtPtfm)) then - call RegPackBounds(Buf, 1, lbound(InData%z_ExtPtfm), ubound(InData%z_ExtPtfm)) - LB(1:1) = lbound(InData%z_ExtPtfm) - UB(1:1) = ubound(InData%z_ExtPtfm) + call RegPackBounds(Buf, 1, lbound(InData%z_ExtPtfm, kind=B8Ki), ubound(InData%z_ExtPtfm, kind=B8Ki)) + LB(1:1) = lbound(InData%z_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(InData%z_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackConstrState(Buf, InData%z_ExtPtfm(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_ExtPtfm)) if (allocated(InData%OtherSt_ExtPtfm)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_ExtPtfm), ubound(InData%OtherSt_ExtPtfm)) - LB(1:1) = lbound(InData%OtherSt_ExtPtfm) - UB(1:1) = ubound(InData%OtherSt_ExtPtfm) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_ExtPtfm, kind=B8Ki), ubound(InData%OtherSt_ExtPtfm, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackOtherState(Buf, InData%OtherSt_ExtPtfm(i1)) end do end if call RegPack(Buf, allocated(InData%u_ExtPtfm)) if (allocated(InData%u_ExtPtfm)) then - call RegPackBounds(Buf, 1, lbound(InData%u_ExtPtfm), ubound(InData%u_ExtPtfm)) - LB(1:1) = lbound(InData%u_ExtPtfm) - UB(1:1) = ubound(InData%u_ExtPtfm) + call RegPackBounds(Buf, 1, lbound(InData%u_ExtPtfm, kind=B8Ki), ubound(InData%u_ExtPtfm, kind=B8Ki)) + LB(1:1) = lbound(InData%u_ExtPtfm, kind=B8Ki) + UB(1:1) = ubound(InData%u_ExtPtfm, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackInput(Buf, InData%u_ExtPtfm(i1)) end do end if call RegPack(Buf, allocated(InData%x_HD)) if (allocated(InData%x_HD)) then - call RegPackBounds(Buf, 1, lbound(InData%x_HD), ubound(InData%x_HD)) - LB(1:1) = lbound(InData%x_HD) - UB(1:1) = ubound(InData%x_HD) + call RegPackBounds(Buf, 1, lbound(InData%x_HD, kind=B8Ki), ubound(InData%x_HD, kind=B8Ki)) + LB(1:1) = lbound(InData%x_HD, kind=B8Ki) + UB(1:1) = ubound(InData%x_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackContState(Buf, InData%x_HD(i1)) end do end if call RegPack(Buf, allocated(InData%xd_HD)) if (allocated(InData%xd_HD)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_HD), ubound(InData%xd_HD)) - LB(1:1) = lbound(InData%xd_HD) - UB(1:1) = ubound(InData%xd_HD) + call RegPackBounds(Buf, 1, lbound(InData%xd_HD, kind=B8Ki), ubound(InData%xd_HD, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_HD, kind=B8Ki) + UB(1:1) = ubound(InData%xd_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackDiscState(Buf, InData%xd_HD(i1)) end do end if call RegPack(Buf, allocated(InData%z_HD)) if (allocated(InData%z_HD)) then - call RegPackBounds(Buf, 1, lbound(InData%z_HD), ubound(InData%z_HD)) - LB(1:1) = lbound(InData%z_HD) - UB(1:1) = ubound(InData%z_HD) + call RegPackBounds(Buf, 1, lbound(InData%z_HD, kind=B8Ki), ubound(InData%z_HD, kind=B8Ki)) + LB(1:1) = lbound(InData%z_HD, kind=B8Ki) + UB(1:1) = ubound(InData%z_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackConstrState(Buf, InData%z_HD(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_HD)) if (allocated(InData%OtherSt_HD)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_HD), ubound(InData%OtherSt_HD)) - LB(1:1) = lbound(InData%OtherSt_HD) - UB(1:1) = ubound(InData%OtherSt_HD) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_HD, kind=B8Ki), ubound(InData%OtherSt_HD, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_HD, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackOtherState(Buf, InData%OtherSt_HD(i1)) end do end if call RegPack(Buf, allocated(InData%u_HD)) if (allocated(InData%u_HD)) then - call RegPackBounds(Buf, 1, lbound(InData%u_HD), ubound(InData%u_HD)) - LB(1:1) = lbound(InData%u_HD) - UB(1:1) = ubound(InData%u_HD) + call RegPackBounds(Buf, 1, lbound(InData%u_HD, kind=B8Ki), ubound(InData%u_HD, kind=B8Ki)) + LB(1:1) = lbound(InData%u_HD, kind=B8Ki) + UB(1:1) = ubound(InData%u_HD, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackInput(Buf, InData%u_HD(i1)) end do end if call RegPack(Buf, allocated(InData%x_IceF)) if (allocated(InData%x_IceF)) then - call RegPackBounds(Buf, 1, lbound(InData%x_IceF), ubound(InData%x_IceF)) - LB(1:1) = lbound(InData%x_IceF) - UB(1:1) = ubound(InData%x_IceF) + call RegPackBounds(Buf, 1, lbound(InData%x_IceF, kind=B8Ki), ubound(InData%x_IceF, kind=B8Ki)) + LB(1:1) = lbound(InData%x_IceF, kind=B8Ki) + UB(1:1) = ubound(InData%x_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackContState(Buf, InData%x_IceF(i1)) end do end if call RegPack(Buf, allocated(InData%xd_IceF)) if (allocated(InData%xd_IceF)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_IceF), ubound(InData%xd_IceF)) - LB(1:1) = lbound(InData%xd_IceF) - UB(1:1) = ubound(InData%xd_IceF) + call RegPackBounds(Buf, 1, lbound(InData%xd_IceF, kind=B8Ki), ubound(InData%xd_IceF, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_IceF, kind=B8Ki) + UB(1:1) = ubound(InData%xd_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackDiscState(Buf, InData%xd_IceF(i1)) end do end if call RegPack(Buf, allocated(InData%z_IceF)) if (allocated(InData%z_IceF)) then - call RegPackBounds(Buf, 1, lbound(InData%z_IceF), ubound(InData%z_IceF)) - LB(1:1) = lbound(InData%z_IceF) - UB(1:1) = ubound(InData%z_IceF) + call RegPackBounds(Buf, 1, lbound(InData%z_IceF, kind=B8Ki), ubound(InData%z_IceF, kind=B8Ki)) + LB(1:1) = lbound(InData%z_IceF, kind=B8Ki) + UB(1:1) = ubound(InData%z_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackConstrState(Buf, InData%z_IceF(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_IceF)) if (allocated(InData%OtherSt_IceF)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_IceF), ubound(InData%OtherSt_IceF)) - LB(1:1) = lbound(InData%OtherSt_IceF) - UB(1:1) = ubound(InData%OtherSt_IceF) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_IceF, kind=B8Ki), ubound(InData%OtherSt_IceF, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_IceF, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackOtherState(Buf, InData%OtherSt_IceF(i1)) end do end if call RegPack(Buf, allocated(InData%u_IceF)) if (allocated(InData%u_IceF)) then - call RegPackBounds(Buf, 1, lbound(InData%u_IceF), ubound(InData%u_IceF)) - LB(1:1) = lbound(InData%u_IceF) - UB(1:1) = ubound(InData%u_IceF) + call RegPackBounds(Buf, 1, lbound(InData%u_IceF, kind=B8Ki), ubound(InData%u_IceF, kind=B8Ki)) + LB(1:1) = lbound(InData%u_IceF, kind=B8Ki) + UB(1:1) = ubound(InData%u_IceF, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackInput(Buf, InData%u_IceF(i1)) end do end if call RegPack(Buf, allocated(InData%x_MAP)) if (allocated(InData%x_MAP)) then - call RegPackBounds(Buf, 1, lbound(InData%x_MAP), ubound(InData%x_MAP)) - LB(1:1) = lbound(InData%x_MAP) - UB(1:1) = ubound(InData%x_MAP) + call RegPackBounds(Buf, 1, lbound(InData%x_MAP, kind=B8Ki), ubound(InData%x_MAP, kind=B8Ki)) + LB(1:1) = lbound(InData%x_MAP, kind=B8Ki) + UB(1:1) = ubound(InData%x_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackContState(Buf, InData%x_MAP(i1)) end do end if call RegPack(Buf, allocated(InData%xd_MAP)) if (allocated(InData%xd_MAP)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_MAP), ubound(InData%xd_MAP)) - LB(1:1) = lbound(InData%xd_MAP) - UB(1:1) = ubound(InData%xd_MAP) + call RegPackBounds(Buf, 1, lbound(InData%xd_MAP, kind=B8Ki), ubound(InData%xd_MAP, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_MAP, kind=B8Ki) + UB(1:1) = ubound(InData%xd_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackDiscState(Buf, InData%xd_MAP(i1)) end do end if call RegPack(Buf, allocated(InData%z_MAP)) if (allocated(InData%z_MAP)) then - call RegPackBounds(Buf, 1, lbound(InData%z_MAP), ubound(InData%z_MAP)) - LB(1:1) = lbound(InData%z_MAP) - UB(1:1) = ubound(InData%z_MAP) + call RegPackBounds(Buf, 1, lbound(InData%z_MAP, kind=B8Ki), ubound(InData%z_MAP, kind=B8Ki)) + LB(1:1) = lbound(InData%z_MAP, kind=B8Ki) + UB(1:1) = ubound(InData%z_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackConstrState(Buf, InData%z_MAP(i1)) end do end if call RegPack(Buf, allocated(InData%u_MAP)) if (allocated(InData%u_MAP)) then - call RegPackBounds(Buf, 1, lbound(InData%u_MAP), ubound(InData%u_MAP)) - LB(1:1) = lbound(InData%u_MAP) - UB(1:1) = ubound(InData%u_MAP) + call RegPackBounds(Buf, 1, lbound(InData%u_MAP, kind=B8Ki), ubound(InData%u_MAP, kind=B8Ki)) + LB(1:1) = lbound(InData%u_MAP, kind=B8Ki) + UB(1:1) = ubound(InData%u_MAP, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackInput(Buf, InData%u_MAP(i1)) end do end if call RegPack(Buf, allocated(InData%x_FEAM)) if (allocated(InData%x_FEAM)) then - call RegPackBounds(Buf, 1, lbound(InData%x_FEAM), ubound(InData%x_FEAM)) - LB(1:1) = lbound(InData%x_FEAM) - UB(1:1) = ubound(InData%x_FEAM) + call RegPackBounds(Buf, 1, lbound(InData%x_FEAM, kind=B8Ki), ubound(InData%x_FEAM, kind=B8Ki)) + LB(1:1) = lbound(InData%x_FEAM, kind=B8Ki) + UB(1:1) = ubound(InData%x_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackContState(Buf, InData%x_FEAM(i1)) end do end if call RegPack(Buf, allocated(InData%xd_FEAM)) if (allocated(InData%xd_FEAM)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_FEAM), ubound(InData%xd_FEAM)) - LB(1:1) = lbound(InData%xd_FEAM) - UB(1:1) = ubound(InData%xd_FEAM) + call RegPackBounds(Buf, 1, lbound(InData%xd_FEAM, kind=B8Ki), ubound(InData%xd_FEAM, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_FEAM, kind=B8Ki) + UB(1:1) = ubound(InData%xd_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackDiscState(Buf, InData%xd_FEAM(i1)) end do end if call RegPack(Buf, allocated(InData%z_FEAM)) if (allocated(InData%z_FEAM)) then - call RegPackBounds(Buf, 1, lbound(InData%z_FEAM), ubound(InData%z_FEAM)) - LB(1:1) = lbound(InData%z_FEAM) - UB(1:1) = ubound(InData%z_FEAM) + call RegPackBounds(Buf, 1, lbound(InData%z_FEAM, kind=B8Ki), ubound(InData%z_FEAM, kind=B8Ki)) + LB(1:1) = lbound(InData%z_FEAM, kind=B8Ki) + UB(1:1) = ubound(InData%z_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackConstrState(Buf, InData%z_FEAM(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_FEAM)) if (allocated(InData%OtherSt_FEAM)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_FEAM), ubound(InData%OtherSt_FEAM)) - LB(1:1) = lbound(InData%OtherSt_FEAM) - UB(1:1) = ubound(InData%OtherSt_FEAM) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_FEAM, kind=B8Ki), ubound(InData%OtherSt_FEAM, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_FEAM, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackOtherState(Buf, InData%OtherSt_FEAM(i1)) end do end if call RegPack(Buf, allocated(InData%u_FEAM)) if (allocated(InData%u_FEAM)) then - call RegPackBounds(Buf, 1, lbound(InData%u_FEAM), ubound(InData%u_FEAM)) - LB(1:1) = lbound(InData%u_FEAM) - UB(1:1) = ubound(InData%u_FEAM) + call RegPackBounds(Buf, 1, lbound(InData%u_FEAM, kind=B8Ki), ubound(InData%u_FEAM, kind=B8Ki)) + LB(1:1) = lbound(InData%u_FEAM, kind=B8Ki) + UB(1:1) = ubound(InData%u_FEAM, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackInput(Buf, InData%u_FEAM(i1)) end do end if call RegPack(Buf, allocated(InData%x_MD)) if (allocated(InData%x_MD)) then - call RegPackBounds(Buf, 1, lbound(InData%x_MD), ubound(InData%x_MD)) - LB(1:1) = lbound(InData%x_MD) - UB(1:1) = ubound(InData%x_MD) + call RegPackBounds(Buf, 1, lbound(InData%x_MD, kind=B8Ki), ubound(InData%x_MD, kind=B8Ki)) + LB(1:1) = lbound(InData%x_MD, kind=B8Ki) + UB(1:1) = ubound(InData%x_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackContState(Buf, InData%x_MD(i1)) end do end if call RegPack(Buf, allocated(InData%xd_MD)) if (allocated(InData%xd_MD)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_MD), ubound(InData%xd_MD)) - LB(1:1) = lbound(InData%xd_MD) - UB(1:1) = ubound(InData%xd_MD) + call RegPackBounds(Buf, 1, lbound(InData%xd_MD, kind=B8Ki), ubound(InData%xd_MD, kind=B8Ki)) + LB(1:1) = lbound(InData%xd_MD, kind=B8Ki) + UB(1:1) = ubound(InData%xd_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackDiscState(Buf, InData%xd_MD(i1)) end do end if call RegPack(Buf, allocated(InData%z_MD)) if (allocated(InData%z_MD)) then - call RegPackBounds(Buf, 1, lbound(InData%z_MD), ubound(InData%z_MD)) - LB(1:1) = lbound(InData%z_MD) - UB(1:1) = ubound(InData%z_MD) + call RegPackBounds(Buf, 1, lbound(InData%z_MD, kind=B8Ki), ubound(InData%z_MD, kind=B8Ki)) + LB(1:1) = lbound(InData%z_MD, kind=B8Ki) + UB(1:1) = ubound(InData%z_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackConstrState(Buf, InData%z_MD(i1)) end do end if call RegPack(Buf, allocated(InData%OtherSt_MD)) if (allocated(InData%OtherSt_MD)) then - call RegPackBounds(Buf, 1, lbound(InData%OtherSt_MD), ubound(InData%OtherSt_MD)) - LB(1:1) = lbound(InData%OtherSt_MD) - UB(1:1) = ubound(InData%OtherSt_MD) + call RegPackBounds(Buf, 1, lbound(InData%OtherSt_MD, kind=B8Ki), ubound(InData%OtherSt_MD, kind=B8Ki)) + LB(1:1) = lbound(InData%OtherSt_MD, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackOtherState(Buf, InData%OtherSt_MD(i1)) end do end if call RegPack(Buf, allocated(InData%u_MD)) if (allocated(InData%u_MD)) then - call RegPackBounds(Buf, 1, lbound(InData%u_MD), ubound(InData%u_MD)) - LB(1:1) = lbound(InData%u_MD) - UB(1:1) = ubound(InData%u_MD) + call RegPackBounds(Buf, 1, lbound(InData%u_MD, kind=B8Ki), ubound(InData%u_MD, kind=B8Ki)) + LB(1:1) = lbound(InData%u_MD, kind=B8Ki) + UB(1:1) = ubound(InData%u_MD, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackInput(Buf, InData%u_MD(i1)) end do @@ -4317,8 +4317,8 @@ subroutine FAST_UnPackLinStateSave(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_LinStateSave), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackLinStateSave' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5310,14 +5310,14 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyLinType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcLinTypeData%Names_u)) then - LB(1:1) = lbound(SrcLinTypeData%Names_u) - UB(1:1) = ubound(SrcLinTypeData%Names_u) + LB(1:1) = lbound(SrcLinTypeData%Names_u, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Names_u, kind=B8Ki) if (.not. allocated(DstLinTypeData%Names_u)) then allocate(DstLinTypeData%Names_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5328,8 +5328,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Names_u = SrcLinTypeData%Names_u end if if (allocated(SrcLinTypeData%Names_y)) then - LB(1:1) = lbound(SrcLinTypeData%Names_y) - UB(1:1) = ubound(SrcLinTypeData%Names_y) + LB(1:1) = lbound(SrcLinTypeData%Names_y, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Names_y, kind=B8Ki) if (.not. allocated(DstLinTypeData%Names_y)) then allocate(DstLinTypeData%Names_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5340,8 +5340,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Names_y = SrcLinTypeData%Names_y end if if (allocated(SrcLinTypeData%Names_x)) then - LB(1:1) = lbound(SrcLinTypeData%Names_x) - UB(1:1) = ubound(SrcLinTypeData%Names_x) + LB(1:1) = lbound(SrcLinTypeData%Names_x, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Names_x, kind=B8Ki) if (.not. allocated(DstLinTypeData%Names_x)) then allocate(DstLinTypeData%Names_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5352,8 +5352,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Names_x = SrcLinTypeData%Names_x end if if (allocated(SrcLinTypeData%Names_xd)) then - LB(1:1) = lbound(SrcLinTypeData%Names_xd) - UB(1:1) = ubound(SrcLinTypeData%Names_xd) + LB(1:1) = lbound(SrcLinTypeData%Names_xd, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Names_xd, kind=B8Ki) if (.not. allocated(DstLinTypeData%Names_xd)) then allocate(DstLinTypeData%Names_xd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5364,8 +5364,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Names_xd = SrcLinTypeData%Names_xd end if if (allocated(SrcLinTypeData%Names_z)) then - LB(1:1) = lbound(SrcLinTypeData%Names_z) - UB(1:1) = ubound(SrcLinTypeData%Names_z) + LB(1:1) = lbound(SrcLinTypeData%Names_z, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Names_z, kind=B8Ki) if (.not. allocated(DstLinTypeData%Names_z)) then allocate(DstLinTypeData%Names_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5376,8 +5376,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Names_z = SrcLinTypeData%Names_z end if if (allocated(SrcLinTypeData%op_u)) then - LB(1:1) = lbound(SrcLinTypeData%op_u) - UB(1:1) = ubound(SrcLinTypeData%op_u) + LB(1:1) = lbound(SrcLinTypeData%op_u, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_u, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_u)) then allocate(DstLinTypeData%op_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5388,8 +5388,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_u = SrcLinTypeData%op_u end if if (allocated(SrcLinTypeData%op_y)) then - LB(1:1) = lbound(SrcLinTypeData%op_y) - UB(1:1) = ubound(SrcLinTypeData%op_y) + LB(1:1) = lbound(SrcLinTypeData%op_y, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_y, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_y)) then allocate(DstLinTypeData%op_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5400,8 +5400,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_y = SrcLinTypeData%op_y end if if (allocated(SrcLinTypeData%op_x)) then - LB(1:1) = lbound(SrcLinTypeData%op_x) - UB(1:1) = ubound(SrcLinTypeData%op_x) + LB(1:1) = lbound(SrcLinTypeData%op_x, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_x, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_x)) then allocate(DstLinTypeData%op_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5412,8 +5412,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_x = SrcLinTypeData%op_x end if if (allocated(SrcLinTypeData%op_dx)) then - LB(1:1) = lbound(SrcLinTypeData%op_dx) - UB(1:1) = ubound(SrcLinTypeData%op_dx) + LB(1:1) = lbound(SrcLinTypeData%op_dx, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_dx, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_dx)) then allocate(DstLinTypeData%op_dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5424,8 +5424,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_dx = SrcLinTypeData%op_dx end if if (allocated(SrcLinTypeData%op_xd)) then - LB(1:1) = lbound(SrcLinTypeData%op_xd) - UB(1:1) = ubound(SrcLinTypeData%op_xd) + LB(1:1) = lbound(SrcLinTypeData%op_xd, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_xd, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_xd)) then allocate(DstLinTypeData%op_xd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5436,8 +5436,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_xd = SrcLinTypeData%op_xd end if if (allocated(SrcLinTypeData%op_z)) then - LB(1:1) = lbound(SrcLinTypeData%op_z) - UB(1:1) = ubound(SrcLinTypeData%op_z) + LB(1:1) = lbound(SrcLinTypeData%op_z, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_z, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_z)) then allocate(DstLinTypeData%op_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5448,8 +5448,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_z = SrcLinTypeData%op_z end if if (allocated(SrcLinTypeData%op_x_eig_mag)) then - LB(1:1) = lbound(SrcLinTypeData%op_x_eig_mag) - UB(1:1) = ubound(SrcLinTypeData%op_x_eig_mag) + LB(1:1) = lbound(SrcLinTypeData%op_x_eig_mag, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_x_eig_mag, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_x_eig_mag)) then allocate(DstLinTypeData%op_x_eig_mag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5460,8 +5460,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_x_eig_mag = SrcLinTypeData%op_x_eig_mag end if if (allocated(SrcLinTypeData%op_x_eig_phase)) then - LB(1:1) = lbound(SrcLinTypeData%op_x_eig_phase) - UB(1:1) = ubound(SrcLinTypeData%op_x_eig_phase) + LB(1:1) = lbound(SrcLinTypeData%op_x_eig_phase, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%op_x_eig_phase, kind=B8Ki) if (.not. allocated(DstLinTypeData%op_x_eig_phase)) then allocate(DstLinTypeData%op_x_eig_phase(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5472,8 +5472,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%op_x_eig_phase = SrcLinTypeData%op_x_eig_phase end if if (allocated(SrcLinTypeData%Use_u)) then - LB(1:1) = lbound(SrcLinTypeData%Use_u) - UB(1:1) = ubound(SrcLinTypeData%Use_u) + LB(1:1) = lbound(SrcLinTypeData%Use_u, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Use_u, kind=B8Ki) if (.not. allocated(DstLinTypeData%Use_u)) then allocate(DstLinTypeData%Use_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5484,8 +5484,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Use_u = SrcLinTypeData%Use_u end if if (allocated(SrcLinTypeData%Use_y)) then - LB(1:1) = lbound(SrcLinTypeData%Use_y) - UB(1:1) = ubound(SrcLinTypeData%Use_y) + LB(1:1) = lbound(SrcLinTypeData%Use_y, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%Use_y, kind=B8Ki) if (.not. allocated(DstLinTypeData%Use_y)) then allocate(DstLinTypeData%Use_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5496,8 +5496,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%Use_y = SrcLinTypeData%Use_y end if if (allocated(SrcLinTypeData%A)) then - LB(1:2) = lbound(SrcLinTypeData%A) - UB(1:2) = ubound(SrcLinTypeData%A) + LB(1:2) = lbound(SrcLinTypeData%A, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%A, kind=B8Ki) if (.not. allocated(DstLinTypeData%A)) then allocate(DstLinTypeData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5508,8 +5508,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%A = SrcLinTypeData%A end if if (allocated(SrcLinTypeData%B)) then - LB(1:2) = lbound(SrcLinTypeData%B) - UB(1:2) = ubound(SrcLinTypeData%B) + LB(1:2) = lbound(SrcLinTypeData%B, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%B, kind=B8Ki) if (.not. allocated(DstLinTypeData%B)) then allocate(DstLinTypeData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5520,8 +5520,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%B = SrcLinTypeData%B end if if (allocated(SrcLinTypeData%C)) then - LB(1:2) = lbound(SrcLinTypeData%C) - UB(1:2) = ubound(SrcLinTypeData%C) + LB(1:2) = lbound(SrcLinTypeData%C, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%C, kind=B8Ki) if (.not. allocated(DstLinTypeData%C)) then allocate(DstLinTypeData%C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5532,8 +5532,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%C = SrcLinTypeData%C end if if (allocated(SrcLinTypeData%D)) then - LB(1:2) = lbound(SrcLinTypeData%D) - UB(1:2) = ubound(SrcLinTypeData%D) + LB(1:2) = lbound(SrcLinTypeData%D, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%D, kind=B8Ki) if (.not. allocated(DstLinTypeData%D)) then allocate(DstLinTypeData%D(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5544,8 +5544,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%D = SrcLinTypeData%D end if if (allocated(SrcLinTypeData%StateRotation)) then - LB(1:2) = lbound(SrcLinTypeData%StateRotation) - UB(1:2) = ubound(SrcLinTypeData%StateRotation) + LB(1:2) = lbound(SrcLinTypeData%StateRotation, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%StateRotation, kind=B8Ki) if (.not. allocated(DstLinTypeData%StateRotation)) then allocate(DstLinTypeData%StateRotation(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5556,8 +5556,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%StateRotation = SrcLinTypeData%StateRotation end if if (allocated(SrcLinTypeData%StateRel_x)) then - LB(1:2) = lbound(SrcLinTypeData%StateRel_x) - UB(1:2) = ubound(SrcLinTypeData%StateRel_x) + LB(1:2) = lbound(SrcLinTypeData%StateRel_x, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%StateRel_x, kind=B8Ki) if (.not. allocated(DstLinTypeData%StateRel_x)) then allocate(DstLinTypeData%StateRel_x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5568,8 +5568,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%StateRel_x = SrcLinTypeData%StateRel_x end if if (allocated(SrcLinTypeData%StateRel_xdot)) then - LB(1:2) = lbound(SrcLinTypeData%StateRel_xdot) - UB(1:2) = ubound(SrcLinTypeData%StateRel_xdot) + LB(1:2) = lbound(SrcLinTypeData%StateRel_xdot, kind=B8Ki) + UB(1:2) = ubound(SrcLinTypeData%StateRel_xdot, kind=B8Ki) if (.not. allocated(DstLinTypeData%StateRel_xdot)) then allocate(DstLinTypeData%StateRel_xdot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5580,8 +5580,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%StateRel_xdot = SrcLinTypeData%StateRel_xdot end if if (allocated(SrcLinTypeData%IsLoad_u)) then - LB(1:1) = lbound(SrcLinTypeData%IsLoad_u) - UB(1:1) = ubound(SrcLinTypeData%IsLoad_u) + LB(1:1) = lbound(SrcLinTypeData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstLinTypeData%IsLoad_u)) then allocate(DstLinTypeData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5592,8 +5592,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%IsLoad_u = SrcLinTypeData%IsLoad_u end if if (allocated(SrcLinTypeData%RotFrame_u)) then - LB(1:1) = lbound(SrcLinTypeData%RotFrame_u) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_u) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstLinTypeData%RotFrame_u)) then allocate(DstLinTypeData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5604,8 +5604,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%RotFrame_u = SrcLinTypeData%RotFrame_u end if if (allocated(SrcLinTypeData%RotFrame_y)) then - LB(1:1) = lbound(SrcLinTypeData%RotFrame_y) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_y) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstLinTypeData%RotFrame_y)) then allocate(DstLinTypeData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5616,8 +5616,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%RotFrame_y = SrcLinTypeData%RotFrame_y end if if (allocated(SrcLinTypeData%RotFrame_x)) then - LB(1:1) = lbound(SrcLinTypeData%RotFrame_x) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_x) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstLinTypeData%RotFrame_x)) then allocate(DstLinTypeData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5628,8 +5628,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%RotFrame_x = SrcLinTypeData%RotFrame_x end if if (allocated(SrcLinTypeData%RotFrame_z)) then - LB(1:1) = lbound(SrcLinTypeData%RotFrame_z) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_z) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_z, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_z, kind=B8Ki) if (.not. allocated(DstLinTypeData%RotFrame_z)) then allocate(DstLinTypeData%RotFrame_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5640,8 +5640,8 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E DstLinTypeData%RotFrame_z = SrcLinTypeData%RotFrame_z end if if (allocated(SrcLinTypeData%DerivOrder_x)) then - LB(1:1) = lbound(SrcLinTypeData%DerivOrder_x) - UB(1:1) = ubound(SrcLinTypeData%DerivOrder_x) + LB(1:1) = lbound(SrcLinTypeData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcLinTypeData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstLinTypeData%DerivOrder_x)) then allocate(DstLinTypeData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5756,142 +5756,142 @@ subroutine FAST_PackLinType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Names_u)) if (allocated(InData%Names_u)) then - call RegPackBounds(Buf, 1, lbound(InData%Names_u), ubound(InData%Names_u)) + call RegPackBounds(Buf, 1, lbound(InData%Names_u, kind=B8Ki), ubound(InData%Names_u, kind=B8Ki)) call RegPack(Buf, InData%Names_u) end if call RegPack(Buf, allocated(InData%Names_y)) if (allocated(InData%Names_y)) then - call RegPackBounds(Buf, 1, lbound(InData%Names_y), ubound(InData%Names_y)) + call RegPackBounds(Buf, 1, lbound(InData%Names_y, kind=B8Ki), ubound(InData%Names_y, kind=B8Ki)) call RegPack(Buf, InData%Names_y) end if call RegPack(Buf, allocated(InData%Names_x)) if (allocated(InData%Names_x)) then - call RegPackBounds(Buf, 1, lbound(InData%Names_x), ubound(InData%Names_x)) + call RegPackBounds(Buf, 1, lbound(InData%Names_x, kind=B8Ki), ubound(InData%Names_x, kind=B8Ki)) call RegPack(Buf, InData%Names_x) end if call RegPack(Buf, allocated(InData%Names_xd)) if (allocated(InData%Names_xd)) then - call RegPackBounds(Buf, 1, lbound(InData%Names_xd), ubound(InData%Names_xd)) + call RegPackBounds(Buf, 1, lbound(InData%Names_xd, kind=B8Ki), ubound(InData%Names_xd, kind=B8Ki)) call RegPack(Buf, InData%Names_xd) end if call RegPack(Buf, allocated(InData%Names_z)) if (allocated(InData%Names_z)) then - call RegPackBounds(Buf, 1, lbound(InData%Names_z), ubound(InData%Names_z)) + call RegPackBounds(Buf, 1, lbound(InData%Names_z, kind=B8Ki), ubound(InData%Names_z, kind=B8Ki)) call RegPack(Buf, InData%Names_z) end if call RegPack(Buf, allocated(InData%op_u)) if (allocated(InData%op_u)) then - call RegPackBounds(Buf, 1, lbound(InData%op_u), ubound(InData%op_u)) + call RegPackBounds(Buf, 1, lbound(InData%op_u, kind=B8Ki), ubound(InData%op_u, kind=B8Ki)) call RegPack(Buf, InData%op_u) end if call RegPack(Buf, allocated(InData%op_y)) if (allocated(InData%op_y)) then - call RegPackBounds(Buf, 1, lbound(InData%op_y), ubound(InData%op_y)) + call RegPackBounds(Buf, 1, lbound(InData%op_y, kind=B8Ki), ubound(InData%op_y, kind=B8Ki)) call RegPack(Buf, InData%op_y) end if call RegPack(Buf, allocated(InData%op_x)) if (allocated(InData%op_x)) then - call RegPackBounds(Buf, 1, lbound(InData%op_x), ubound(InData%op_x)) + call RegPackBounds(Buf, 1, lbound(InData%op_x, kind=B8Ki), ubound(InData%op_x, kind=B8Ki)) call RegPack(Buf, InData%op_x) end if call RegPack(Buf, allocated(InData%op_dx)) if (allocated(InData%op_dx)) then - call RegPackBounds(Buf, 1, lbound(InData%op_dx), ubound(InData%op_dx)) + call RegPackBounds(Buf, 1, lbound(InData%op_dx, kind=B8Ki), ubound(InData%op_dx, kind=B8Ki)) call RegPack(Buf, InData%op_dx) end if call RegPack(Buf, allocated(InData%op_xd)) if (allocated(InData%op_xd)) then - call RegPackBounds(Buf, 1, lbound(InData%op_xd), ubound(InData%op_xd)) + call RegPackBounds(Buf, 1, lbound(InData%op_xd, kind=B8Ki), ubound(InData%op_xd, kind=B8Ki)) call RegPack(Buf, InData%op_xd) end if call RegPack(Buf, allocated(InData%op_z)) if (allocated(InData%op_z)) then - call RegPackBounds(Buf, 1, lbound(InData%op_z), ubound(InData%op_z)) + call RegPackBounds(Buf, 1, lbound(InData%op_z, kind=B8Ki), ubound(InData%op_z, kind=B8Ki)) call RegPack(Buf, InData%op_z) end if call RegPack(Buf, allocated(InData%op_x_eig_mag)) if (allocated(InData%op_x_eig_mag)) then - call RegPackBounds(Buf, 1, lbound(InData%op_x_eig_mag), ubound(InData%op_x_eig_mag)) + call RegPackBounds(Buf, 1, lbound(InData%op_x_eig_mag, kind=B8Ki), ubound(InData%op_x_eig_mag, kind=B8Ki)) call RegPack(Buf, InData%op_x_eig_mag) end if call RegPack(Buf, allocated(InData%op_x_eig_phase)) if (allocated(InData%op_x_eig_phase)) then - call RegPackBounds(Buf, 1, lbound(InData%op_x_eig_phase), ubound(InData%op_x_eig_phase)) + call RegPackBounds(Buf, 1, lbound(InData%op_x_eig_phase, kind=B8Ki), ubound(InData%op_x_eig_phase, kind=B8Ki)) call RegPack(Buf, InData%op_x_eig_phase) end if call RegPack(Buf, allocated(InData%Use_u)) if (allocated(InData%Use_u)) then - call RegPackBounds(Buf, 1, lbound(InData%Use_u), ubound(InData%Use_u)) + call RegPackBounds(Buf, 1, lbound(InData%Use_u, kind=B8Ki), ubound(InData%Use_u, kind=B8Ki)) call RegPack(Buf, InData%Use_u) end if call RegPack(Buf, allocated(InData%Use_y)) if (allocated(InData%Use_y)) then - call RegPackBounds(Buf, 1, lbound(InData%Use_y), ubound(InData%Use_y)) + call RegPackBounds(Buf, 1, lbound(InData%Use_y, kind=B8Ki), ubound(InData%Use_y, kind=B8Ki)) call RegPack(Buf, InData%Use_y) end if call RegPack(Buf, allocated(InData%A)) if (allocated(InData%A)) then - call RegPackBounds(Buf, 2, lbound(InData%A), ubound(InData%A)) + call RegPackBounds(Buf, 2, lbound(InData%A, kind=B8Ki), ubound(InData%A, kind=B8Ki)) call RegPack(Buf, InData%A) end if call RegPack(Buf, allocated(InData%B)) if (allocated(InData%B)) then - call RegPackBounds(Buf, 2, lbound(InData%B), ubound(InData%B)) + call RegPackBounds(Buf, 2, lbound(InData%B, kind=B8Ki), ubound(InData%B, kind=B8Ki)) call RegPack(Buf, InData%B) end if call RegPack(Buf, allocated(InData%C)) if (allocated(InData%C)) then - call RegPackBounds(Buf, 2, lbound(InData%C), ubound(InData%C)) + call RegPackBounds(Buf, 2, lbound(InData%C, kind=B8Ki), ubound(InData%C, kind=B8Ki)) call RegPack(Buf, InData%C) end if call RegPack(Buf, allocated(InData%D)) if (allocated(InData%D)) then - call RegPackBounds(Buf, 2, lbound(InData%D), ubound(InData%D)) + call RegPackBounds(Buf, 2, lbound(InData%D, kind=B8Ki), ubound(InData%D, kind=B8Ki)) call RegPack(Buf, InData%D) end if call RegPack(Buf, allocated(InData%StateRotation)) if (allocated(InData%StateRotation)) then - call RegPackBounds(Buf, 2, lbound(InData%StateRotation), ubound(InData%StateRotation)) + call RegPackBounds(Buf, 2, lbound(InData%StateRotation, kind=B8Ki), ubound(InData%StateRotation, kind=B8Ki)) call RegPack(Buf, InData%StateRotation) end if call RegPack(Buf, allocated(InData%StateRel_x)) if (allocated(InData%StateRel_x)) then - call RegPackBounds(Buf, 2, lbound(InData%StateRel_x), ubound(InData%StateRel_x)) + call RegPackBounds(Buf, 2, lbound(InData%StateRel_x, kind=B8Ki), ubound(InData%StateRel_x, kind=B8Ki)) call RegPack(Buf, InData%StateRel_x) end if call RegPack(Buf, allocated(InData%StateRel_xdot)) if (allocated(InData%StateRel_xdot)) then - call RegPackBounds(Buf, 2, lbound(InData%StateRel_xdot), ubound(InData%StateRel_xdot)) + call RegPackBounds(Buf, 2, lbound(InData%StateRel_xdot, kind=B8Ki), ubound(InData%StateRel_xdot, kind=B8Ki)) call RegPack(Buf, InData%StateRel_xdot) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_z)) if (allocated(InData%RotFrame_z)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_z), ubound(InData%RotFrame_z)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_z, kind=B8Ki), ubound(InData%RotFrame_z, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_z) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if call RegPack(Buf, InData%SizeLin) @@ -5904,7 +5904,7 @@ subroutine FAST_UnPackLinType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_LinType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackLinType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6314,16 +6314,16 @@ subroutine FAST_CopyModLinType(SrcModLinTypeData, DstModLinTypeData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyModLinType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcModLinTypeData%Instance)) then - LB(1:1) = lbound(SrcModLinTypeData%Instance) - UB(1:1) = ubound(SrcModLinTypeData%Instance) + LB(1:1) = lbound(SrcModLinTypeData%Instance, kind=B8Ki) + UB(1:1) = ubound(SrcModLinTypeData%Instance, kind=B8Ki) if (.not. allocated(DstModLinTypeData%Instance)) then allocate(DstModLinTypeData%Instance(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6343,16 +6343,16 @@ subroutine FAST_DestroyModLinType(ModLinTypeData, ErrStat, ErrMsg) type(FAST_ModLinType), intent(inout) :: ModLinTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyModLinType' ErrStat = ErrID_None ErrMsg = '' if (allocated(ModLinTypeData%Instance)) then - LB(1:1) = lbound(ModLinTypeData%Instance) - UB(1:1) = ubound(ModLinTypeData%Instance) + LB(1:1) = lbound(ModLinTypeData%Instance, kind=B8Ki) + UB(1:1) = ubound(ModLinTypeData%Instance, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_DestroyLinType(ModLinTypeData%Instance(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6365,14 +6365,14 @@ subroutine FAST_PackModLinType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_ModLinType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackModLinType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Instance)) if (allocated(InData%Instance)) then - call RegPackBounds(Buf, 1, lbound(InData%Instance), ubound(InData%Instance)) - LB(1:1) = lbound(InData%Instance) - UB(1:1) = ubound(InData%Instance) + call RegPackBounds(Buf, 1, lbound(InData%Instance, kind=B8Ki), ubound(InData%Instance, kind=B8Ki)) + LB(1:1) = lbound(InData%Instance, kind=B8Ki) + UB(1:1) = ubound(InData%Instance, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_PackLinType(Buf, InData%Instance(i1)) end do @@ -6384,8 +6384,8 @@ subroutine FAST_UnPackModLinType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_ModLinType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackModLinType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6412,15 +6412,15 @@ subroutine FAST_CopyLinFileType(SrcLinFileTypeData, DstLinFileTypeData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyLinFileType' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcLinFileTypeData%Modules) - UB(1:1) = ubound(SrcLinFileTypeData%Modules) + LB(1:1) = lbound(SrcLinFileTypeData%Modules, kind=B8Ki) + UB(1:1) = ubound(SrcLinFileTypeData%Modules, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_CopyModLinType(SrcLinFileTypeData%Modules(i1), DstLinFileTypeData%Modules(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6438,15 +6438,15 @@ subroutine FAST_DestroyLinFileType(LinFileTypeData, ErrStat, ErrMsg) type(FAST_LinFileType), intent(inout) :: LinFileTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyLinFileType' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(LinFileTypeData%Modules) - UB(1:1) = ubound(LinFileTypeData%Modules) + LB(1:1) = lbound(LinFileTypeData%Modules, kind=B8Ki) + UB(1:1) = ubound(LinFileTypeData%Modules, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_DestroyModLinType(LinFileTypeData%Modules(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6459,11 +6459,11 @@ subroutine FAST_PackLinFileType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_LinFileType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackLinFileType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%Modules) - UB(1:1) = ubound(InData%Modules) + LB(1:1) = lbound(InData%Modules, kind=B8Ki) + UB(1:1) = ubound(InData%Modules, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_PackModLinType(Buf, InData%Modules(i1)) end do @@ -6478,11 +6478,11 @@ subroutine FAST_UnPackLinFileType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_LinFileType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackLinFileType' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%Modules) - UB(1:1) = ubound(OutData%Modules) + LB(1:1) = lbound(OutData%Modules, kind=B8Ki) + UB(1:1) = ubound(OutData%Modules, kind=B8Ki) do i1 = LB(1), UB(1) call FAST_UnpackModLinType(Buf, OutData%Modules(i1)) ! Modules end do @@ -6501,14 +6501,14 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyMiscLinType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscLinTypeData%LinTimes)) then - LB(1:1) = lbound(SrcMiscLinTypeData%LinTimes) - UB(1:1) = ubound(SrcMiscLinTypeData%LinTimes) + LB(1:1) = lbound(SrcMiscLinTypeData%LinTimes, kind=B8Ki) + UB(1:1) = ubound(SrcMiscLinTypeData%LinTimes, kind=B8Ki) if (.not. allocated(DstMiscLinTypeData%LinTimes)) then allocate(DstMiscLinTypeData%LinTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6520,8 +6520,8 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode end if DstMiscLinTypeData%CopyOP_CtrlCode = SrcMiscLinTypeData%CopyOP_CtrlCode if (allocated(SrcMiscLinTypeData%AzimTarget)) then - LB(1:1) = lbound(SrcMiscLinTypeData%AzimTarget) - UB(1:1) = ubound(SrcMiscLinTypeData%AzimTarget) + LB(1:1) = lbound(SrcMiscLinTypeData%AzimTarget, kind=B8Ki) + UB(1:1) = ubound(SrcMiscLinTypeData%AzimTarget, kind=B8Ki) if (.not. allocated(DstMiscLinTypeData%AzimTarget)) then allocate(DstMiscLinTypeData%AzimTarget(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6538,8 +6538,8 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode DstMiscLinTypeData%AzimIndx = SrcMiscLinTypeData%AzimIndx DstMiscLinTypeData%NextLinTimeIndx = SrcMiscLinTypeData%NextLinTimeIndx if (allocated(SrcMiscLinTypeData%Psi)) then - LB(1:1) = lbound(SrcMiscLinTypeData%Psi) - UB(1:1) = ubound(SrcMiscLinTypeData%Psi) + LB(1:1) = lbound(SrcMiscLinTypeData%Psi, kind=B8Ki) + UB(1:1) = ubound(SrcMiscLinTypeData%Psi, kind=B8Ki) if (.not. allocated(DstMiscLinTypeData%Psi)) then allocate(DstMiscLinTypeData%Psi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6550,8 +6550,8 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode DstMiscLinTypeData%Psi = SrcMiscLinTypeData%Psi end if if (allocated(SrcMiscLinTypeData%y_interp)) then - LB(1:1) = lbound(SrcMiscLinTypeData%y_interp) - UB(1:1) = ubound(SrcMiscLinTypeData%y_interp) + LB(1:1) = lbound(SrcMiscLinTypeData%y_interp, kind=B8Ki) + UB(1:1) = ubound(SrcMiscLinTypeData%y_interp, kind=B8Ki) if (.not. allocated(DstMiscLinTypeData%y_interp)) then allocate(DstMiscLinTypeData%y_interp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6562,8 +6562,8 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode DstMiscLinTypeData%y_interp = SrcMiscLinTypeData%y_interp end if if (allocated(SrcMiscLinTypeData%y_ref)) then - LB(1:1) = lbound(SrcMiscLinTypeData%y_ref) - UB(1:1) = ubound(SrcMiscLinTypeData%y_ref) + LB(1:1) = lbound(SrcMiscLinTypeData%y_ref, kind=B8Ki) + UB(1:1) = ubound(SrcMiscLinTypeData%y_ref, kind=B8Ki) if (.not. allocated(DstMiscLinTypeData%y_ref)) then allocate(DstMiscLinTypeData%y_ref(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6574,8 +6574,8 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode DstMiscLinTypeData%y_ref = SrcMiscLinTypeData%y_ref end if if (allocated(SrcMiscLinTypeData%Y_prevRot)) then - LB(1:2) = lbound(SrcMiscLinTypeData%Y_prevRot) - UB(1:2) = ubound(SrcMiscLinTypeData%Y_prevRot) + LB(1:2) = lbound(SrcMiscLinTypeData%Y_prevRot, kind=B8Ki) + UB(1:2) = ubound(SrcMiscLinTypeData%Y_prevRot, kind=B8Ki) if (.not. allocated(DstMiscLinTypeData%Y_prevRot)) then allocate(DstMiscLinTypeData%Y_prevRot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6621,13 +6621,13 @@ subroutine FAST_PackMiscLinType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%LinTimes)) if (allocated(InData%LinTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%LinTimes), ubound(InData%LinTimes)) + call RegPackBounds(Buf, 1, lbound(InData%LinTimes, kind=B8Ki), ubound(InData%LinTimes, kind=B8Ki)) call RegPack(Buf, InData%LinTimes) end if call RegPack(Buf, InData%CopyOP_CtrlCode) call RegPack(Buf, allocated(InData%AzimTarget)) if (allocated(InData%AzimTarget)) then - call RegPackBounds(Buf, 1, lbound(InData%AzimTarget), ubound(InData%AzimTarget)) + call RegPackBounds(Buf, 1, lbound(InData%AzimTarget, kind=B8Ki), ubound(InData%AzimTarget, kind=B8Ki)) call RegPack(Buf, InData%AzimTarget) end if call RegPack(Buf, InData%IsConverged) @@ -6638,22 +6638,22 @@ subroutine FAST_PackMiscLinType(Buf, Indata) call RegPack(Buf, InData%NextLinTimeIndx) call RegPack(Buf, allocated(InData%Psi)) if (allocated(InData%Psi)) then - call RegPackBounds(Buf, 1, lbound(InData%Psi), ubound(InData%Psi)) + call RegPackBounds(Buf, 1, lbound(InData%Psi, kind=B8Ki), ubound(InData%Psi, kind=B8Ki)) call RegPack(Buf, InData%Psi) end if call RegPack(Buf, allocated(InData%y_interp)) if (allocated(InData%y_interp)) then - call RegPackBounds(Buf, 1, lbound(InData%y_interp), ubound(InData%y_interp)) + call RegPackBounds(Buf, 1, lbound(InData%y_interp, kind=B8Ki), ubound(InData%y_interp, kind=B8Ki)) call RegPack(Buf, InData%y_interp) end if call RegPack(Buf, allocated(InData%y_ref)) if (allocated(InData%y_ref)) then - call RegPackBounds(Buf, 1, lbound(InData%y_ref), ubound(InData%y_ref)) + call RegPackBounds(Buf, 1, lbound(InData%y_ref, kind=B8Ki), ubound(InData%y_ref, kind=B8Ki)) call RegPack(Buf, InData%y_ref) end if call RegPack(Buf, allocated(InData%Y_prevRot)) if (allocated(InData%Y_prevRot)) then - call RegPackBounds(Buf, 2, lbound(InData%Y_prevRot), ubound(InData%Y_prevRot)) + call RegPackBounds(Buf, 2, lbound(InData%Y_prevRot, kind=B8Ki), ubound(InData%Y_prevRot, kind=B8Ki)) call RegPack(Buf, InData%Y_prevRot) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6663,7 +6663,7 @@ subroutine FAST_UnPackMiscLinType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_MiscLinType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackMiscLinType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6773,16 +6773,16 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyOutputFileType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputFileTypeData%TimeData)) then - LB(1:1) = lbound(SrcOutputFileTypeData%TimeData) - UB(1:1) = ubound(SrcOutputFileTypeData%TimeData) + LB(1:1) = lbound(SrcOutputFileTypeData%TimeData, kind=B8Ki) + UB(1:1) = ubound(SrcOutputFileTypeData%TimeData, kind=B8Ki) if (.not. allocated(DstOutputFileTypeData%TimeData)) then allocate(DstOutputFileTypeData%TimeData(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6793,8 +6793,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, DstOutputFileTypeData%TimeData = SrcOutputFileTypeData%TimeData end if if (allocated(SrcOutputFileTypeData%AllOutData)) then - LB(1:2) = lbound(SrcOutputFileTypeData%AllOutData) - UB(1:2) = ubound(SrcOutputFileTypeData%AllOutData) + LB(1:2) = lbound(SrcOutputFileTypeData%AllOutData, kind=B8Ki) + UB(1:2) = ubound(SrcOutputFileTypeData%AllOutData, kind=B8Ki) if (.not. allocated(DstOutputFileTypeData%AllOutData)) then allocate(DstOutputFileTypeData%AllOutData(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6812,8 +6812,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, DstOutputFileTypeData%UnGra = SrcOutputFileTypeData%UnGra DstOutputFileTypeData%FileDescLines = SrcOutputFileTypeData%FileDescLines if (allocated(SrcOutputFileTypeData%ChannelNames)) then - LB(1:1) = lbound(SrcOutputFileTypeData%ChannelNames) - UB(1:1) = ubound(SrcOutputFileTypeData%ChannelNames) + LB(1:1) = lbound(SrcOutputFileTypeData%ChannelNames, kind=B8Ki) + UB(1:1) = ubound(SrcOutputFileTypeData%ChannelNames, kind=B8Ki) if (.not. allocated(DstOutputFileTypeData%ChannelNames)) then allocate(DstOutputFileTypeData%ChannelNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6824,8 +6824,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, DstOutputFileTypeData%ChannelNames = SrcOutputFileTypeData%ChannelNames end if if (allocated(SrcOutputFileTypeData%ChannelUnits)) then - LB(1:1) = lbound(SrcOutputFileTypeData%ChannelUnits) - UB(1:1) = ubound(SrcOutputFileTypeData%ChannelUnits) + LB(1:1) = lbound(SrcOutputFileTypeData%ChannelUnits, kind=B8Ki) + UB(1:1) = ubound(SrcOutputFileTypeData%ChannelUnits, kind=B8Ki) if (.not. allocated(DstOutputFileTypeData%ChannelUnits)) then allocate(DstOutputFileTypeData%ChannelUnits(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6835,8 +6835,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, end if DstOutputFileTypeData%ChannelUnits = SrcOutputFileTypeData%ChannelUnits end if - LB(1:1) = lbound(SrcOutputFileTypeData%Module_Ver) - UB(1:1) = ubound(SrcOutputFileTypeData%Module_Ver) + LB(1:1) = lbound(SrcOutputFileTypeData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(SrcOutputFileTypeData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_CopyProgDesc(SrcOutputFileTypeData%Module_Ver(i1), DstOutputFileTypeData%Module_Ver(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6860,8 +6860,8 @@ subroutine FAST_DestroyOutputFileType(OutputFileTypeData, ErrStat, ErrMsg) type(FAST_OutputFileType), intent(inout) :: OutputFileTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyOutputFileType' @@ -6879,8 +6879,8 @@ subroutine FAST_DestroyOutputFileType(OutputFileTypeData, ErrStat, ErrMsg) if (allocated(OutputFileTypeData%ChannelUnits)) then deallocate(OutputFileTypeData%ChannelUnits) end if - LB(1:1) = lbound(OutputFileTypeData%Module_Ver) - UB(1:1) = ubound(OutputFileTypeData%Module_Ver) + LB(1:1) = lbound(OutputFileTypeData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(OutputFileTypeData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyProgDesc(OutputFileTypeData%Module_Ver(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6895,17 +6895,17 @@ subroutine FAST_PackOutputFileType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_OutputFileType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackOutputFileType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%TimeData)) if (allocated(InData%TimeData)) then - call RegPackBounds(Buf, 1, lbound(InData%TimeData), ubound(InData%TimeData)) + call RegPackBounds(Buf, 1, lbound(InData%TimeData, kind=B8Ki), ubound(InData%TimeData, kind=B8Ki)) call RegPack(Buf, InData%TimeData) end if call RegPack(Buf, allocated(InData%AllOutData)) if (allocated(InData%AllOutData)) then - call RegPackBounds(Buf, 2, lbound(InData%AllOutData), ubound(InData%AllOutData)) + call RegPackBounds(Buf, 2, lbound(InData%AllOutData, kind=B8Ki), ubound(InData%AllOutData, kind=B8Ki)) call RegPack(Buf, InData%AllOutData) end if call RegPack(Buf, InData%n_Out) @@ -6917,16 +6917,16 @@ subroutine FAST_PackOutputFileType(Buf, Indata) call RegPack(Buf, InData%FileDescLines) call RegPack(Buf, allocated(InData%ChannelNames)) if (allocated(InData%ChannelNames)) then - call RegPackBounds(Buf, 1, lbound(InData%ChannelNames), ubound(InData%ChannelNames)) + call RegPackBounds(Buf, 1, lbound(InData%ChannelNames, kind=B8Ki), ubound(InData%ChannelNames, kind=B8Ki)) call RegPack(Buf, InData%ChannelNames) end if call RegPack(Buf, allocated(InData%ChannelUnits)) if (allocated(InData%ChannelUnits)) then - call RegPackBounds(Buf, 1, lbound(InData%ChannelUnits), ubound(InData%ChannelUnits)) + call RegPackBounds(Buf, 1, lbound(InData%ChannelUnits, kind=B8Ki), ubound(InData%ChannelUnits, kind=B8Ki)) call RegPack(Buf, InData%ChannelUnits) end if - LB(1:1) = lbound(InData%Module_Ver) - UB(1:1) = ubound(InData%Module_Ver) + LB(1:1) = lbound(InData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(InData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackProgDesc(Buf, InData%Module_Ver(i1)) end do @@ -6945,8 +6945,8 @@ subroutine FAST_UnPackOutputFileType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_OutputFileType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackOutputFileType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7020,8 +7020,8 @@ subroutine FAST_UnPackOutputFileType(Buf, OutData) call RegUnpack(Buf, OutData%ChannelUnits) if (RegCheckErr(Buf, RoutineName)) return end if - LB(1:1) = lbound(OutData%Module_Ver) - UB(1:1) = ubound(OutData%Module_Ver) + LB(1:1) = lbound(OutData%Module_Ver, kind=B8Ki) + UB(1:1) = ubound(OutData%Module_Ver, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_UnpackProgDesc(Buf, OutData%Module_Ver(i1)) ! Module_Ver end do @@ -7047,16 +7047,16 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyIceDyn_Data' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcIceDyn_DataData%x)) then - LB(1:2) = lbound(SrcIceDyn_DataData%x) - UB(1:2) = ubound(SrcIceDyn_DataData%x) + LB(1:2) = lbound(SrcIceDyn_DataData%x, kind=B8Ki) + UB(1:2) = ubound(SrcIceDyn_DataData%x, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%x)) then allocate(DstIceDyn_DataData%x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7073,8 +7073,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%xd)) then - LB(1:2) = lbound(SrcIceDyn_DataData%xd) - UB(1:2) = ubound(SrcIceDyn_DataData%xd) + LB(1:2) = lbound(SrcIceDyn_DataData%xd, kind=B8Ki) + UB(1:2) = ubound(SrcIceDyn_DataData%xd, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%xd)) then allocate(DstIceDyn_DataData%xd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7091,8 +7091,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%z)) then - LB(1:2) = lbound(SrcIceDyn_DataData%z) - UB(1:2) = ubound(SrcIceDyn_DataData%z) + LB(1:2) = lbound(SrcIceDyn_DataData%z, kind=B8Ki) + UB(1:2) = ubound(SrcIceDyn_DataData%z, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%z)) then allocate(DstIceDyn_DataData%z(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7109,8 +7109,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%OtherSt)) then - LB(1:2) = lbound(SrcIceDyn_DataData%OtherSt) - UB(1:2) = ubound(SrcIceDyn_DataData%OtherSt) + LB(1:2) = lbound(SrcIceDyn_DataData%OtherSt, kind=B8Ki) + UB(1:2) = ubound(SrcIceDyn_DataData%OtherSt, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%OtherSt)) then allocate(DstIceDyn_DataData%OtherSt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7127,8 +7127,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%p)) then - LB(1:1) = lbound(SrcIceDyn_DataData%p) - UB(1:1) = ubound(SrcIceDyn_DataData%p) + LB(1:1) = lbound(SrcIceDyn_DataData%p, kind=B8Ki) + UB(1:1) = ubound(SrcIceDyn_DataData%p, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%p)) then allocate(DstIceDyn_DataData%p(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7143,8 +7143,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%u)) then - LB(1:1) = lbound(SrcIceDyn_DataData%u) - UB(1:1) = ubound(SrcIceDyn_DataData%u) + LB(1:1) = lbound(SrcIceDyn_DataData%u, kind=B8Ki) + UB(1:1) = ubound(SrcIceDyn_DataData%u, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%u)) then allocate(DstIceDyn_DataData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7159,8 +7159,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%y)) then - LB(1:1) = lbound(SrcIceDyn_DataData%y) - UB(1:1) = ubound(SrcIceDyn_DataData%y) + LB(1:1) = lbound(SrcIceDyn_DataData%y, kind=B8Ki) + UB(1:1) = ubound(SrcIceDyn_DataData%y, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%y)) then allocate(DstIceDyn_DataData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7175,8 +7175,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%m)) then - LB(1:1) = lbound(SrcIceDyn_DataData%m) - UB(1:1) = ubound(SrcIceDyn_DataData%m) + LB(1:1) = lbound(SrcIceDyn_DataData%m, kind=B8Ki) + UB(1:1) = ubound(SrcIceDyn_DataData%m, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%m)) then allocate(DstIceDyn_DataData%m(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7191,8 +7191,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%Input)) then - LB(1:2) = lbound(SrcIceDyn_DataData%Input) - UB(1:2) = ubound(SrcIceDyn_DataData%Input) + LB(1:2) = lbound(SrcIceDyn_DataData%Input, kind=B8Ki) + UB(1:2) = ubound(SrcIceDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%Input)) then allocate(DstIceDyn_DataData%Input(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7209,8 +7209,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%InputTimes)) then - LB(1:2) = lbound(SrcIceDyn_DataData%InputTimes) - UB(1:2) = ubound(SrcIceDyn_DataData%InputTimes) + LB(1:2) = lbound(SrcIceDyn_DataData%InputTimes, kind=B8Ki) + UB(1:2) = ubound(SrcIceDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstIceDyn_DataData%InputTimes)) then allocate(DstIceDyn_DataData%InputTimes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7226,16 +7226,16 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) type(IceDyn_Data), intent(inout) :: IceDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyIceDyn_Data' ErrStat = ErrID_None ErrMsg = '' if (allocated(IceDyn_DataData%x)) then - LB(1:2) = lbound(IceDyn_DataData%x) - UB(1:2) = ubound(IceDyn_DataData%x) + LB(1:2) = lbound(IceDyn_DataData%x, kind=B8Ki) + UB(1:2) = ubound(IceDyn_DataData%x, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyContState(IceDyn_DataData%x(i1,i2), ErrStat2, ErrMsg2) @@ -7245,8 +7245,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%x) end if if (allocated(IceDyn_DataData%xd)) then - LB(1:2) = lbound(IceDyn_DataData%xd) - UB(1:2) = ubound(IceDyn_DataData%xd) + LB(1:2) = lbound(IceDyn_DataData%xd, kind=B8Ki) + UB(1:2) = ubound(IceDyn_DataData%xd, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyDiscState(IceDyn_DataData%xd(i1,i2), ErrStat2, ErrMsg2) @@ -7256,8 +7256,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%xd) end if if (allocated(IceDyn_DataData%z)) then - LB(1:2) = lbound(IceDyn_DataData%z) - UB(1:2) = ubound(IceDyn_DataData%z) + LB(1:2) = lbound(IceDyn_DataData%z, kind=B8Ki) + UB(1:2) = ubound(IceDyn_DataData%z, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyConstrState(IceDyn_DataData%z(i1,i2), ErrStat2, ErrMsg2) @@ -7267,8 +7267,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%z) end if if (allocated(IceDyn_DataData%OtherSt)) then - LB(1:2) = lbound(IceDyn_DataData%OtherSt) - UB(1:2) = ubound(IceDyn_DataData%OtherSt) + LB(1:2) = lbound(IceDyn_DataData%OtherSt, kind=B8Ki) + UB(1:2) = ubound(IceDyn_DataData%OtherSt, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyOtherState(IceDyn_DataData%OtherSt(i1,i2), ErrStat2, ErrMsg2) @@ -7278,8 +7278,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%OtherSt) end if if (allocated(IceDyn_DataData%p)) then - LB(1:1) = lbound(IceDyn_DataData%p) - UB(1:1) = ubound(IceDyn_DataData%p) + LB(1:1) = lbound(IceDyn_DataData%p, kind=B8Ki) + UB(1:1) = ubound(IceDyn_DataData%p, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_DestroyParam(IceDyn_DataData%p(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7287,8 +7287,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%p) end if if (allocated(IceDyn_DataData%u)) then - LB(1:1) = lbound(IceDyn_DataData%u) - UB(1:1) = ubound(IceDyn_DataData%u) + LB(1:1) = lbound(IceDyn_DataData%u, kind=B8Ki) + UB(1:1) = ubound(IceDyn_DataData%u, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_DestroyInput(IceDyn_DataData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7296,8 +7296,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%u) end if if (allocated(IceDyn_DataData%y)) then - LB(1:1) = lbound(IceDyn_DataData%y) - UB(1:1) = ubound(IceDyn_DataData%y) + LB(1:1) = lbound(IceDyn_DataData%y, kind=B8Ki) + UB(1:1) = ubound(IceDyn_DataData%y, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_DestroyOutput(IceDyn_DataData%y(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7305,8 +7305,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%y) end if if (allocated(IceDyn_DataData%m)) then - LB(1:1) = lbound(IceDyn_DataData%m) - UB(1:1) = ubound(IceDyn_DataData%m) + LB(1:1) = lbound(IceDyn_DataData%m, kind=B8Ki) + UB(1:1) = ubound(IceDyn_DataData%m, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_DestroyMisc(IceDyn_DataData%m(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7314,8 +7314,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%m) end if if (allocated(IceDyn_DataData%Input)) then - LB(1:2) = lbound(IceDyn_DataData%Input) - UB(1:2) = ubound(IceDyn_DataData%Input) + LB(1:2) = lbound(IceDyn_DataData%Input, kind=B8Ki) + UB(1:2) = ubound(IceDyn_DataData%Input, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyInput(IceDyn_DataData%Input(i1,i2), ErrStat2, ErrMsg2) @@ -7333,14 +7333,14 @@ subroutine FAST_PackIceDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(IceDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackIceDyn_Data' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(Buf, 2, lbound(InData%x), ubound(InData%x)) - LB(1:2) = lbound(InData%x) - UB(1:2) = ubound(InData%x) + call RegPackBounds(Buf, 2, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) + LB(1:2) = lbound(InData%x, kind=B8Ki) + UB(1:2) = ubound(InData%x, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackContState(Buf, InData%x(i1,i2)) @@ -7349,9 +7349,9 @@ subroutine FAST_PackIceDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%xd)) if (allocated(InData%xd)) then - call RegPackBounds(Buf, 2, lbound(InData%xd), ubound(InData%xd)) - LB(1:2) = lbound(InData%xd) - UB(1:2) = ubound(InData%xd) + call RegPackBounds(Buf, 2, lbound(InData%xd, kind=B8Ki), ubound(InData%xd, kind=B8Ki)) + LB(1:2) = lbound(InData%xd, kind=B8Ki) + UB(1:2) = ubound(InData%xd, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackDiscState(Buf, InData%xd(i1,i2)) @@ -7360,9 +7360,9 @@ subroutine FAST_PackIceDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(Buf, 2, lbound(InData%z), ubound(InData%z)) - LB(1:2) = lbound(InData%z) - UB(1:2) = ubound(InData%z) + call RegPackBounds(Buf, 2, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) + LB(1:2) = lbound(InData%z, kind=B8Ki) + UB(1:2) = ubound(InData%z, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackConstrState(Buf, InData%z(i1,i2)) @@ -7371,9 +7371,9 @@ subroutine FAST_PackIceDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%OtherSt)) if (allocated(InData%OtherSt)) then - call RegPackBounds(Buf, 2, lbound(InData%OtherSt), ubound(InData%OtherSt)) - LB(1:2) = lbound(InData%OtherSt) - UB(1:2) = ubound(InData%OtherSt) + call RegPackBounds(Buf, 2, lbound(InData%OtherSt, kind=B8Ki), ubound(InData%OtherSt, kind=B8Ki)) + LB(1:2) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:2) = ubound(InData%OtherSt, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackOtherState(Buf, InData%OtherSt(i1,i2)) @@ -7382,45 +7382,45 @@ subroutine FAST_PackIceDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%p)) if (allocated(InData%p)) then - call RegPackBounds(Buf, 1, lbound(InData%p), ubound(InData%p)) - LB(1:1) = lbound(InData%p) - UB(1:1) = ubound(InData%p) + call RegPackBounds(Buf, 1, lbound(InData%p, kind=B8Ki), ubound(InData%p, kind=B8Ki)) + LB(1:1) = lbound(InData%p, kind=B8Ki) + UB(1:1) = ubound(InData%p, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_PackParam(Buf, InData%p(i1)) end do end if call RegPack(Buf, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(Buf, 1, lbound(InData%u), ubound(InData%u)) - LB(1:1) = lbound(InData%u) - UB(1:1) = ubound(InData%u) + call RegPackBounds(Buf, 1, lbound(InData%u, kind=B8Ki), ubound(InData%u, kind=B8Ki)) + LB(1:1) = lbound(InData%u, kind=B8Ki) + UB(1:1) = ubound(InData%u, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_PackInput(Buf, InData%u(i1)) end do end if call RegPack(Buf, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) - LB(1:1) = lbound(InData%y) - UB(1:1) = ubound(InData%y) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) + LB(1:1) = lbound(InData%y, kind=B8Ki) + UB(1:1) = ubound(InData%y, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_PackOutput(Buf, InData%y(i1)) end do end if call RegPack(Buf, allocated(InData%m)) if (allocated(InData%m)) then - call RegPackBounds(Buf, 1, lbound(InData%m), ubound(InData%m)) - LB(1:1) = lbound(InData%m) - UB(1:1) = ubound(InData%m) + call RegPackBounds(Buf, 1, lbound(InData%m, kind=B8Ki), ubound(InData%m, kind=B8Ki)) + LB(1:1) = lbound(InData%m, kind=B8Ki) + UB(1:1) = ubound(InData%m, kind=B8Ki) do i1 = LB(1), UB(1) call IceD_PackMisc(Buf, InData%m(i1)) end do end if call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 2, lbound(InData%Input), ubound(InData%Input)) - LB(1:2) = lbound(InData%Input) - UB(1:2) = ubound(InData%Input) + call RegPackBounds(Buf, 2, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:2) = lbound(InData%Input, kind=B8Ki) + UB(1:2) = ubound(InData%Input, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackInput(Buf, InData%Input(i1,i2)) @@ -7429,7 +7429,7 @@ subroutine FAST_PackIceDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 2, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 2, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -7439,8 +7439,8 @@ subroutine FAST_UnPackIceDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackIceDyn_Data' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7611,16 +7611,16 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyBeamDyn_Data' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcBeamDyn_DataData%x)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%x) - UB(1:2) = ubound(SrcBeamDyn_DataData%x) + LB(1:2) = lbound(SrcBeamDyn_DataData%x, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%x, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%x)) then allocate(DstBeamDyn_DataData%x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7637,8 +7637,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%xd)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%xd) - UB(1:2) = ubound(SrcBeamDyn_DataData%xd) + LB(1:2) = lbound(SrcBeamDyn_DataData%xd, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%xd, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%xd)) then allocate(DstBeamDyn_DataData%xd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7655,8 +7655,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%z)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%z) - UB(1:2) = ubound(SrcBeamDyn_DataData%z) + LB(1:2) = lbound(SrcBeamDyn_DataData%z, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%z, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%z)) then allocate(DstBeamDyn_DataData%z(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7673,8 +7673,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%OtherSt)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%OtherSt) - UB(1:2) = ubound(SrcBeamDyn_DataData%OtherSt) + LB(1:2) = lbound(SrcBeamDyn_DataData%OtherSt, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%OtherSt, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%OtherSt)) then allocate(DstBeamDyn_DataData%OtherSt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7691,8 +7691,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%p)) then - LB(1:1) = lbound(SrcBeamDyn_DataData%p) - UB(1:1) = ubound(SrcBeamDyn_DataData%p) + LB(1:1) = lbound(SrcBeamDyn_DataData%p, kind=B8Ki) + UB(1:1) = ubound(SrcBeamDyn_DataData%p, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%p)) then allocate(DstBeamDyn_DataData%p(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7707,8 +7707,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%u)) then - LB(1:1) = lbound(SrcBeamDyn_DataData%u) - UB(1:1) = ubound(SrcBeamDyn_DataData%u) + LB(1:1) = lbound(SrcBeamDyn_DataData%u, kind=B8Ki) + UB(1:1) = ubound(SrcBeamDyn_DataData%u, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%u)) then allocate(DstBeamDyn_DataData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7723,8 +7723,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%y)) then - LB(1:1) = lbound(SrcBeamDyn_DataData%y) - UB(1:1) = ubound(SrcBeamDyn_DataData%y) + LB(1:1) = lbound(SrcBeamDyn_DataData%y, kind=B8Ki) + UB(1:1) = ubound(SrcBeamDyn_DataData%y, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%y)) then allocate(DstBeamDyn_DataData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7739,8 +7739,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%m)) then - LB(1:1) = lbound(SrcBeamDyn_DataData%m) - UB(1:1) = ubound(SrcBeamDyn_DataData%m) + LB(1:1) = lbound(SrcBeamDyn_DataData%m, kind=B8Ki) + UB(1:1) = ubound(SrcBeamDyn_DataData%m, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%m)) then allocate(DstBeamDyn_DataData%m(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7755,8 +7755,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%Output)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%Output) - UB(1:2) = ubound(SrcBeamDyn_DataData%Output) + LB(1:2) = lbound(SrcBeamDyn_DataData%Output, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%Output)) then allocate(DstBeamDyn_DataData%Output(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7773,8 +7773,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%y_interp)) then - LB(1:1) = lbound(SrcBeamDyn_DataData%y_interp) - UB(1:1) = ubound(SrcBeamDyn_DataData%y_interp) + LB(1:1) = lbound(SrcBeamDyn_DataData%y_interp, kind=B8Ki) + UB(1:1) = ubound(SrcBeamDyn_DataData%y_interp, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%y_interp)) then allocate(DstBeamDyn_DataData%y_interp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7789,8 +7789,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%Input)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%Input) - UB(1:2) = ubound(SrcBeamDyn_DataData%Input) + LB(1:2) = lbound(SrcBeamDyn_DataData%Input, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%Input)) then allocate(DstBeamDyn_DataData%Input(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7807,8 +7807,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%InputTimes)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%InputTimes) - UB(1:2) = ubound(SrcBeamDyn_DataData%InputTimes) + LB(1:2) = lbound(SrcBeamDyn_DataData%InputTimes, kind=B8Ki) + UB(1:2) = ubound(SrcBeamDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstBeamDyn_DataData%InputTimes)) then allocate(DstBeamDyn_DataData%InputTimes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7824,16 +7824,16 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) type(BeamDyn_Data), intent(inout) :: BeamDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyBeamDyn_Data' ErrStat = ErrID_None ErrMsg = '' if (allocated(BeamDyn_DataData%x)) then - LB(1:2) = lbound(BeamDyn_DataData%x) - UB(1:2) = ubound(BeamDyn_DataData%x) + LB(1:2) = lbound(BeamDyn_DataData%x, kind=B8Ki) + UB(1:2) = ubound(BeamDyn_DataData%x, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyContState(BeamDyn_DataData%x(i1,i2), ErrStat2, ErrMsg2) @@ -7843,8 +7843,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%x) end if if (allocated(BeamDyn_DataData%xd)) then - LB(1:2) = lbound(BeamDyn_DataData%xd) - UB(1:2) = ubound(BeamDyn_DataData%xd) + LB(1:2) = lbound(BeamDyn_DataData%xd, kind=B8Ki) + UB(1:2) = ubound(BeamDyn_DataData%xd, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyDiscState(BeamDyn_DataData%xd(i1,i2), ErrStat2, ErrMsg2) @@ -7854,8 +7854,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%xd) end if if (allocated(BeamDyn_DataData%z)) then - LB(1:2) = lbound(BeamDyn_DataData%z) - UB(1:2) = ubound(BeamDyn_DataData%z) + LB(1:2) = lbound(BeamDyn_DataData%z, kind=B8Ki) + UB(1:2) = ubound(BeamDyn_DataData%z, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyConstrState(BeamDyn_DataData%z(i1,i2), ErrStat2, ErrMsg2) @@ -7865,8 +7865,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%z) end if if (allocated(BeamDyn_DataData%OtherSt)) then - LB(1:2) = lbound(BeamDyn_DataData%OtherSt) - UB(1:2) = ubound(BeamDyn_DataData%OtherSt) + LB(1:2) = lbound(BeamDyn_DataData%OtherSt, kind=B8Ki) + UB(1:2) = ubound(BeamDyn_DataData%OtherSt, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyOtherState(BeamDyn_DataData%OtherSt(i1,i2), ErrStat2, ErrMsg2) @@ -7876,8 +7876,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%OtherSt) end if if (allocated(BeamDyn_DataData%p)) then - LB(1:1) = lbound(BeamDyn_DataData%p) - UB(1:1) = ubound(BeamDyn_DataData%p) + LB(1:1) = lbound(BeamDyn_DataData%p, kind=B8Ki) + UB(1:1) = ubound(BeamDyn_DataData%p, kind=B8Ki) do i1 = LB(1), UB(1) call BD_DestroyParam(BeamDyn_DataData%p(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7885,8 +7885,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%p) end if if (allocated(BeamDyn_DataData%u)) then - LB(1:1) = lbound(BeamDyn_DataData%u) - UB(1:1) = ubound(BeamDyn_DataData%u) + LB(1:1) = lbound(BeamDyn_DataData%u, kind=B8Ki) + UB(1:1) = ubound(BeamDyn_DataData%u, kind=B8Ki) do i1 = LB(1), UB(1) call BD_DestroyInput(BeamDyn_DataData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7894,8 +7894,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%u) end if if (allocated(BeamDyn_DataData%y)) then - LB(1:1) = lbound(BeamDyn_DataData%y) - UB(1:1) = ubound(BeamDyn_DataData%y) + LB(1:1) = lbound(BeamDyn_DataData%y, kind=B8Ki) + UB(1:1) = ubound(BeamDyn_DataData%y, kind=B8Ki) do i1 = LB(1), UB(1) call BD_DestroyOutput(BeamDyn_DataData%y(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7903,8 +7903,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%y) end if if (allocated(BeamDyn_DataData%m)) then - LB(1:1) = lbound(BeamDyn_DataData%m) - UB(1:1) = ubound(BeamDyn_DataData%m) + LB(1:1) = lbound(BeamDyn_DataData%m, kind=B8Ki) + UB(1:1) = ubound(BeamDyn_DataData%m, kind=B8Ki) do i1 = LB(1), UB(1) call BD_DestroyMisc(BeamDyn_DataData%m(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7912,8 +7912,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%m) end if if (allocated(BeamDyn_DataData%Output)) then - LB(1:2) = lbound(BeamDyn_DataData%Output) - UB(1:2) = ubound(BeamDyn_DataData%Output) + LB(1:2) = lbound(BeamDyn_DataData%Output, kind=B8Ki) + UB(1:2) = ubound(BeamDyn_DataData%Output, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyOutput(BeamDyn_DataData%Output(i1,i2), ErrStat2, ErrMsg2) @@ -7923,8 +7923,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%Output) end if if (allocated(BeamDyn_DataData%y_interp)) then - LB(1:1) = lbound(BeamDyn_DataData%y_interp) - UB(1:1) = ubound(BeamDyn_DataData%y_interp) + LB(1:1) = lbound(BeamDyn_DataData%y_interp, kind=B8Ki) + UB(1:1) = ubound(BeamDyn_DataData%y_interp, kind=B8Ki) do i1 = LB(1), UB(1) call BD_DestroyOutput(BeamDyn_DataData%y_interp(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7932,8 +7932,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%y_interp) end if if (allocated(BeamDyn_DataData%Input)) then - LB(1:2) = lbound(BeamDyn_DataData%Input) - UB(1:2) = ubound(BeamDyn_DataData%Input) + LB(1:2) = lbound(BeamDyn_DataData%Input, kind=B8Ki) + UB(1:2) = ubound(BeamDyn_DataData%Input, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyInput(BeamDyn_DataData%Input(i1,i2), ErrStat2, ErrMsg2) @@ -7951,14 +7951,14 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(BeamDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackBeamDyn_Data' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(Buf, 2, lbound(InData%x), ubound(InData%x)) - LB(1:2) = lbound(InData%x) - UB(1:2) = ubound(InData%x) + call RegPackBounds(Buf, 2, lbound(InData%x, kind=B8Ki), ubound(InData%x, kind=B8Ki)) + LB(1:2) = lbound(InData%x, kind=B8Ki) + UB(1:2) = ubound(InData%x, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackContState(Buf, InData%x(i1,i2)) @@ -7967,9 +7967,9 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%xd)) if (allocated(InData%xd)) then - call RegPackBounds(Buf, 2, lbound(InData%xd), ubound(InData%xd)) - LB(1:2) = lbound(InData%xd) - UB(1:2) = ubound(InData%xd) + call RegPackBounds(Buf, 2, lbound(InData%xd, kind=B8Ki), ubound(InData%xd, kind=B8Ki)) + LB(1:2) = lbound(InData%xd, kind=B8Ki) + UB(1:2) = ubound(InData%xd, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackDiscState(Buf, InData%xd(i1,i2)) @@ -7978,9 +7978,9 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(Buf, 2, lbound(InData%z), ubound(InData%z)) - LB(1:2) = lbound(InData%z) - UB(1:2) = ubound(InData%z) + call RegPackBounds(Buf, 2, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) + LB(1:2) = lbound(InData%z, kind=B8Ki) + UB(1:2) = ubound(InData%z, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackConstrState(Buf, InData%z(i1,i2)) @@ -7989,9 +7989,9 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%OtherSt)) if (allocated(InData%OtherSt)) then - call RegPackBounds(Buf, 2, lbound(InData%OtherSt), ubound(InData%OtherSt)) - LB(1:2) = lbound(InData%OtherSt) - UB(1:2) = ubound(InData%OtherSt) + call RegPackBounds(Buf, 2, lbound(InData%OtherSt, kind=B8Ki), ubound(InData%OtherSt, kind=B8Ki)) + LB(1:2) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:2) = ubound(InData%OtherSt, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackOtherState(Buf, InData%OtherSt(i1,i2)) @@ -8000,45 +8000,45 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%p)) if (allocated(InData%p)) then - call RegPackBounds(Buf, 1, lbound(InData%p), ubound(InData%p)) - LB(1:1) = lbound(InData%p) - UB(1:1) = ubound(InData%p) + call RegPackBounds(Buf, 1, lbound(InData%p, kind=B8Ki), ubound(InData%p, kind=B8Ki)) + LB(1:1) = lbound(InData%p, kind=B8Ki) + UB(1:1) = ubound(InData%p, kind=B8Ki) do i1 = LB(1), UB(1) call BD_PackParam(Buf, InData%p(i1)) end do end if call RegPack(Buf, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(Buf, 1, lbound(InData%u), ubound(InData%u)) - LB(1:1) = lbound(InData%u) - UB(1:1) = ubound(InData%u) + call RegPackBounds(Buf, 1, lbound(InData%u, kind=B8Ki), ubound(InData%u, kind=B8Ki)) + LB(1:1) = lbound(InData%u, kind=B8Ki) + UB(1:1) = ubound(InData%u, kind=B8Ki) do i1 = LB(1), UB(1) call BD_PackInput(Buf, InData%u(i1)) end do end if call RegPack(Buf, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) - LB(1:1) = lbound(InData%y) - UB(1:1) = ubound(InData%y) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) + LB(1:1) = lbound(InData%y, kind=B8Ki) + UB(1:1) = ubound(InData%y, kind=B8Ki) do i1 = LB(1), UB(1) call BD_PackOutput(Buf, InData%y(i1)) end do end if call RegPack(Buf, allocated(InData%m)) if (allocated(InData%m)) then - call RegPackBounds(Buf, 1, lbound(InData%m), ubound(InData%m)) - LB(1:1) = lbound(InData%m) - UB(1:1) = ubound(InData%m) + call RegPackBounds(Buf, 1, lbound(InData%m, kind=B8Ki), ubound(InData%m, kind=B8Ki)) + LB(1:1) = lbound(InData%m, kind=B8Ki) + UB(1:1) = ubound(InData%m, kind=B8Ki) do i1 = LB(1), UB(1) call BD_PackMisc(Buf, InData%m(i1)) end do end if call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 2, lbound(InData%Output), ubound(InData%Output)) - LB(1:2) = lbound(InData%Output) - UB(1:2) = ubound(InData%Output) + call RegPackBounds(Buf, 2, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:2) = lbound(InData%Output, kind=B8Ki) + UB(1:2) = ubound(InData%Output, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackOutput(Buf, InData%Output(i1,i2)) @@ -8047,18 +8047,18 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%y_interp)) if (allocated(InData%y_interp)) then - call RegPackBounds(Buf, 1, lbound(InData%y_interp), ubound(InData%y_interp)) - LB(1:1) = lbound(InData%y_interp) - UB(1:1) = ubound(InData%y_interp) + call RegPackBounds(Buf, 1, lbound(InData%y_interp, kind=B8Ki), ubound(InData%y_interp, kind=B8Ki)) + LB(1:1) = lbound(InData%y_interp, kind=B8Ki) + UB(1:1) = ubound(InData%y_interp, kind=B8Ki) do i1 = LB(1), UB(1) call BD_PackOutput(Buf, InData%y_interp(i1)) end do end if call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 2, lbound(InData%Input), ubound(InData%Input)) - LB(1:2) = lbound(InData%Input) - UB(1:2) = ubound(InData%Input) + call RegPackBounds(Buf, 2, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:2) = lbound(InData%Input, kind=B8Ki) + UB(1:2) = ubound(InData%Input, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackInput(Buf, InData%Input(i1,i2)) @@ -8067,7 +8067,7 @@ subroutine FAST_PackBeamDyn_Data(Buf, Indata) end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 2, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 2, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -8077,8 +8077,8 @@ subroutine FAST_UnPackBeamDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BeamDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackBeamDyn_Data' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -8281,36 +8281,36 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyElastoDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcElastoDyn_DataData%x) - UB(1:1) = ubound(SrcElastoDyn_DataData%x) + LB(1:1) = lbound(SrcElastoDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ED_CopyContState(SrcElastoDyn_DataData%x(i1), DstElastoDyn_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcElastoDyn_DataData%xd) - UB(1:1) = ubound(SrcElastoDyn_DataData%xd) + LB(1:1) = lbound(SrcElastoDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ED_CopyDiscState(SrcElastoDyn_DataData%xd(i1), DstElastoDyn_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcElastoDyn_DataData%z) - UB(1:1) = ubound(SrcElastoDyn_DataData%z) + LB(1:1) = lbound(SrcElastoDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ED_CopyConstrState(SrcElastoDyn_DataData%z(i1), DstElastoDyn_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcElastoDyn_DataData%OtherSt) - UB(1:1) = ubound(SrcElastoDyn_DataData%OtherSt) + LB(1:1) = lbound(SrcElastoDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ED_CopyOtherState(SrcElastoDyn_DataData%OtherSt(i1), DstElastoDyn_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8329,8 +8329,8 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcElastoDyn_DataData%Output)) then - LB(1:1) = lbound(SrcElastoDyn_DataData%Output) - UB(1:1) = ubound(SrcElastoDyn_DataData%Output) + LB(1:1) = lbound(SrcElastoDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstElastoDyn_DataData%Output)) then allocate(DstElastoDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8348,8 +8348,8 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcElastoDyn_DataData%Input)) then - LB(1:1) = lbound(SrcElastoDyn_DataData%Input) - UB(1:1) = ubound(SrcElastoDyn_DataData%Input) + LB(1:1) = lbound(SrcElastoDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstElastoDyn_DataData%Input)) then allocate(DstElastoDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8364,8 +8364,8 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, end do end if if (allocated(SrcElastoDyn_DataData%InputTimes)) then - LB(1:1) = lbound(SrcElastoDyn_DataData%InputTimes) - UB(1:1) = ubound(SrcElastoDyn_DataData%InputTimes) + LB(1:1) = lbound(SrcElastoDyn_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcElastoDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstElastoDyn_DataData%InputTimes)) then allocate(DstElastoDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8381,33 +8381,33 @@ subroutine FAST_DestroyElastoDyn_Data(ElastoDyn_DataData, ErrStat, ErrMsg) type(ElastoDyn_Data), intent(inout) :: ElastoDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyElastoDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(ElastoDyn_DataData%x) - UB(1:1) = ubound(ElastoDyn_DataData%x) + LB(1:1) = lbound(ElastoDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(ElastoDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyContState(ElastoDyn_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ElastoDyn_DataData%xd) - UB(1:1) = ubound(ElastoDyn_DataData%xd) + LB(1:1) = lbound(ElastoDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(ElastoDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyDiscState(ElastoDyn_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ElastoDyn_DataData%z) - UB(1:1) = ubound(ElastoDyn_DataData%z) + LB(1:1) = lbound(ElastoDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(ElastoDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyConstrState(ElastoDyn_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ElastoDyn_DataData%OtherSt) - UB(1:1) = ubound(ElastoDyn_DataData%OtherSt) + LB(1:1) = lbound(ElastoDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(ElastoDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyOtherState(ElastoDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8421,8 +8421,8 @@ subroutine FAST_DestroyElastoDyn_Data(ElastoDyn_DataData, ErrStat, ErrMsg) call ED_DestroyMisc(ElastoDyn_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ElastoDyn_DataData%Output)) then - LB(1:1) = lbound(ElastoDyn_DataData%Output) - UB(1:1) = ubound(ElastoDyn_DataData%Output) + LB(1:1) = lbound(ElastoDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(ElastoDyn_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyOutput(ElastoDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8432,8 +8432,8 @@ subroutine FAST_DestroyElastoDyn_Data(ElastoDyn_DataData, ErrStat, ErrMsg) call ED_DestroyOutput(ElastoDyn_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ElastoDyn_DataData%Input)) then - LB(1:1) = lbound(ElastoDyn_DataData%Input) - UB(1:1) = ubound(ElastoDyn_DataData%Input) + LB(1:1) = lbound(ElastoDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(ElastoDyn_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call ED_DestroyInput(ElastoDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8449,26 +8449,26 @@ subroutine FAST_PackElastoDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ElastoDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackElastoDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -8478,9 +8478,9 @@ subroutine FAST_PackElastoDyn_Data(Buf, Indata) call ED_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackOutput(Buf, InData%Output(i1)) end do @@ -8488,16 +8488,16 @@ subroutine FAST_PackElastoDyn_Data(Buf, Indata) call ED_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call ED_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -8507,28 +8507,28 @@ subroutine FAST_UnPackElastoDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ElastoDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackElastoDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ED_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ED_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ED_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ED_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -8589,36 +8589,36 @@ subroutine FAST_CopyServoDyn_Data(SrcServoDyn_DataData, DstServoDyn_DataData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyServoDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcServoDyn_DataData%x) - UB(1:1) = ubound(SrcServoDyn_DataData%x) + LB(1:1) = lbound(SrcServoDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_CopyContState(SrcServoDyn_DataData%x(i1), DstServoDyn_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcServoDyn_DataData%xd) - UB(1:1) = ubound(SrcServoDyn_DataData%xd) + LB(1:1) = lbound(SrcServoDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_CopyDiscState(SrcServoDyn_DataData%xd(i1), DstServoDyn_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcServoDyn_DataData%z) - UB(1:1) = ubound(SrcServoDyn_DataData%z) + LB(1:1) = lbound(SrcServoDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_CopyConstrState(SrcServoDyn_DataData%z(i1), DstServoDyn_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcServoDyn_DataData%OtherSt) - UB(1:1) = ubound(SrcServoDyn_DataData%OtherSt) + LB(1:1) = lbound(SrcServoDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_CopyOtherState(SrcServoDyn_DataData%OtherSt(i1), DstServoDyn_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8637,8 +8637,8 @@ subroutine FAST_CopyServoDyn_Data(SrcServoDyn_DataData, DstServoDyn_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcServoDyn_DataData%Output)) then - LB(1:1) = lbound(SrcServoDyn_DataData%Output) - UB(1:1) = ubound(SrcServoDyn_DataData%Output) + LB(1:1) = lbound(SrcServoDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstServoDyn_DataData%Output)) then allocate(DstServoDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8656,8 +8656,8 @@ subroutine FAST_CopyServoDyn_Data(SrcServoDyn_DataData, DstServoDyn_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcServoDyn_DataData%Input)) then - LB(1:1) = lbound(SrcServoDyn_DataData%Input) - UB(1:1) = ubound(SrcServoDyn_DataData%Input) + LB(1:1) = lbound(SrcServoDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstServoDyn_DataData%Input)) then allocate(DstServoDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8672,8 +8672,8 @@ subroutine FAST_CopyServoDyn_Data(SrcServoDyn_DataData, DstServoDyn_DataData, Ct end do end if if (allocated(SrcServoDyn_DataData%InputTimes)) then - LB(1:1) = lbound(SrcServoDyn_DataData%InputTimes) - UB(1:1) = ubound(SrcServoDyn_DataData%InputTimes) + LB(1:1) = lbound(SrcServoDyn_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcServoDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstServoDyn_DataData%InputTimes)) then allocate(DstServoDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8689,33 +8689,33 @@ subroutine FAST_DestroyServoDyn_Data(ServoDyn_DataData, ErrStat, ErrMsg) type(ServoDyn_Data), intent(inout) :: ServoDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyServoDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(ServoDyn_DataData%x) - UB(1:1) = ubound(ServoDyn_DataData%x) + LB(1:1) = lbound(ServoDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(ServoDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyContState(ServoDyn_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ServoDyn_DataData%xd) - UB(1:1) = ubound(ServoDyn_DataData%xd) + LB(1:1) = lbound(ServoDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(ServoDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyDiscState(ServoDyn_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ServoDyn_DataData%z) - UB(1:1) = ubound(ServoDyn_DataData%z) + LB(1:1) = lbound(ServoDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(ServoDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyConstrState(ServoDyn_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ServoDyn_DataData%OtherSt) - UB(1:1) = ubound(ServoDyn_DataData%OtherSt) + LB(1:1) = lbound(ServoDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(ServoDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyOtherState(ServoDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8729,8 +8729,8 @@ subroutine FAST_DestroyServoDyn_Data(ServoDyn_DataData, ErrStat, ErrMsg) call SrvD_DestroyMisc(ServoDyn_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ServoDyn_DataData%Output)) then - LB(1:1) = lbound(ServoDyn_DataData%Output) - UB(1:1) = ubound(ServoDyn_DataData%Output) + LB(1:1) = lbound(ServoDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(ServoDyn_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyOutput(ServoDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8740,8 +8740,8 @@ subroutine FAST_DestroyServoDyn_Data(ServoDyn_DataData, ErrStat, ErrMsg) call SrvD_DestroyOutput(ServoDyn_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ServoDyn_DataData%Input)) then - LB(1:1) = lbound(ServoDyn_DataData%Input) - UB(1:1) = ubound(ServoDyn_DataData%Input) + LB(1:1) = lbound(ServoDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(ServoDyn_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_DestroyInput(ServoDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8757,26 +8757,26 @@ subroutine FAST_PackServoDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ServoDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackServoDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -8786,9 +8786,9 @@ subroutine FAST_PackServoDyn_Data(Buf, Indata) call SrvD_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackOutput(Buf, InData%Output(i1)) end do @@ -8796,16 +8796,16 @@ subroutine FAST_PackServoDyn_Data(Buf, Indata) call SrvD_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -8815,28 +8815,28 @@ subroutine FAST_UnPackServoDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ServoDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackServoDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SrvD_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -8897,36 +8897,36 @@ subroutine FAST_CopyAeroDyn14_Data(SrcAeroDyn14_DataData, DstAeroDyn14_DataData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyAeroDyn14_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcAeroDyn14_DataData%x) - UB(1:1) = ubound(SrcAeroDyn14_DataData%x) + LB(1:1) = lbound(SrcAeroDyn14_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn14_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_CopyContState(SrcAeroDyn14_DataData%x(i1), DstAeroDyn14_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDyn14_DataData%xd) - UB(1:1) = ubound(SrcAeroDyn14_DataData%xd) + LB(1:1) = lbound(SrcAeroDyn14_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn14_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_CopyDiscState(SrcAeroDyn14_DataData%xd(i1), DstAeroDyn14_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDyn14_DataData%z) - UB(1:1) = ubound(SrcAeroDyn14_DataData%z) + LB(1:1) = lbound(SrcAeroDyn14_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn14_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_CopyConstrState(SrcAeroDyn14_DataData%z(i1), DstAeroDyn14_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDyn14_DataData%OtherSt) - UB(1:1) = ubound(SrcAeroDyn14_DataData%OtherSt) + LB(1:1) = lbound(SrcAeroDyn14_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn14_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_CopyOtherState(SrcAeroDyn14_DataData%OtherSt(i1), DstAeroDyn14_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8945,8 +8945,8 @@ subroutine FAST_CopyAeroDyn14_Data(SrcAeroDyn14_DataData, DstAeroDyn14_DataData, call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcAeroDyn14_DataData%Input)) then - LB(1:1) = lbound(SrcAeroDyn14_DataData%Input) - UB(1:1) = ubound(SrcAeroDyn14_DataData%Input) + LB(1:1) = lbound(SrcAeroDyn14_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn14_DataData%Input, kind=B8Ki) if (.not. allocated(DstAeroDyn14_DataData%Input)) then allocate(DstAeroDyn14_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8961,8 +8961,8 @@ subroutine FAST_CopyAeroDyn14_Data(SrcAeroDyn14_DataData, DstAeroDyn14_DataData, end do end if if (allocated(SrcAeroDyn14_DataData%InputTimes)) then - LB(1:1) = lbound(SrcAeroDyn14_DataData%InputTimes) - UB(1:1) = ubound(SrcAeroDyn14_DataData%InputTimes) + LB(1:1) = lbound(SrcAeroDyn14_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn14_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstAeroDyn14_DataData%InputTimes)) then allocate(DstAeroDyn14_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8978,33 +8978,33 @@ subroutine FAST_DestroyAeroDyn14_Data(AeroDyn14_DataData, ErrStat, ErrMsg) type(AeroDyn14_Data), intent(inout) :: AeroDyn14_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyAeroDyn14_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(AeroDyn14_DataData%x) - UB(1:1) = ubound(AeroDyn14_DataData%x) + LB(1:1) = lbound(AeroDyn14_DataData%x, kind=B8Ki) + UB(1:1) = ubound(AeroDyn14_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_DestroyContState(AeroDyn14_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDyn14_DataData%xd) - UB(1:1) = ubound(AeroDyn14_DataData%xd) + LB(1:1) = lbound(AeroDyn14_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(AeroDyn14_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_DestroyDiscState(AeroDyn14_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDyn14_DataData%z) - UB(1:1) = ubound(AeroDyn14_DataData%z) + LB(1:1) = lbound(AeroDyn14_DataData%z, kind=B8Ki) + UB(1:1) = ubound(AeroDyn14_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_DestroyConstrState(AeroDyn14_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDyn14_DataData%OtherSt) - UB(1:1) = ubound(AeroDyn14_DataData%OtherSt) + LB(1:1) = lbound(AeroDyn14_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(AeroDyn14_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_DestroyOtherState(AeroDyn14_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9018,8 +9018,8 @@ subroutine FAST_DestroyAeroDyn14_Data(AeroDyn14_DataData, ErrStat, ErrMsg) call AD14_DestroyMisc(AeroDyn14_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(AeroDyn14_DataData%Input)) then - LB(1:1) = lbound(AeroDyn14_DataData%Input) - UB(1:1) = ubound(AeroDyn14_DataData%Input) + LB(1:1) = lbound(AeroDyn14_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(AeroDyn14_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_DestroyInput(AeroDyn14_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9035,26 +9035,26 @@ subroutine FAST_PackAeroDyn14_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AeroDyn14_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackAeroDyn14_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -9064,16 +9064,16 @@ subroutine FAST_PackAeroDyn14_Data(Buf, Indata) call AD14_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -9083,28 +9083,28 @@ subroutine FAST_UnPackAeroDyn14_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AeroDyn14_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackAeroDyn14_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD14_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -9149,36 +9149,36 @@ subroutine FAST_CopyAeroDyn_Data(SrcAeroDyn_DataData, DstAeroDyn_DataData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyAeroDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcAeroDyn_DataData%x) - UB(1:1) = ubound(SrcAeroDyn_DataData%x) + LB(1:1) = lbound(SrcAeroDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD_CopyContState(SrcAeroDyn_DataData%x(i1), DstAeroDyn_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDyn_DataData%xd) - UB(1:1) = ubound(SrcAeroDyn_DataData%xd) + LB(1:1) = lbound(SrcAeroDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD_CopyDiscState(SrcAeroDyn_DataData%xd(i1), DstAeroDyn_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDyn_DataData%z) - UB(1:1) = ubound(SrcAeroDyn_DataData%z) + LB(1:1) = lbound(SrcAeroDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD_CopyConstrState(SrcAeroDyn_DataData%z(i1), DstAeroDyn_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDyn_DataData%OtherSt) - UB(1:1) = ubound(SrcAeroDyn_DataData%OtherSt) + LB(1:1) = lbound(SrcAeroDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD_CopyOtherState(SrcAeroDyn_DataData%OtherSt(i1), DstAeroDyn_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9197,8 +9197,8 @@ subroutine FAST_CopyAeroDyn_Data(SrcAeroDyn_DataData, DstAeroDyn_DataData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcAeroDyn_DataData%Output)) then - LB(1:1) = lbound(SrcAeroDyn_DataData%Output) - UB(1:1) = ubound(SrcAeroDyn_DataData%Output) + LB(1:1) = lbound(SrcAeroDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstAeroDyn_DataData%Output)) then allocate(DstAeroDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9216,8 +9216,8 @@ subroutine FAST_CopyAeroDyn_Data(SrcAeroDyn_DataData, DstAeroDyn_DataData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcAeroDyn_DataData%Input)) then - LB(1:1) = lbound(SrcAeroDyn_DataData%Input) - UB(1:1) = ubound(SrcAeroDyn_DataData%Input) + LB(1:1) = lbound(SrcAeroDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstAeroDyn_DataData%Input)) then allocate(DstAeroDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9232,8 +9232,8 @@ subroutine FAST_CopyAeroDyn_Data(SrcAeroDyn_DataData, DstAeroDyn_DataData, CtrlC end do end if if (allocated(SrcAeroDyn_DataData%InputTimes)) then - LB(1:1) = lbound(SrcAeroDyn_DataData%InputTimes) - UB(1:1) = ubound(SrcAeroDyn_DataData%InputTimes) + LB(1:1) = lbound(SrcAeroDyn_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcAeroDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstAeroDyn_DataData%InputTimes)) then allocate(DstAeroDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9249,33 +9249,33 @@ subroutine FAST_DestroyAeroDyn_Data(AeroDyn_DataData, ErrStat, ErrMsg) type(AeroDyn_Data), intent(inout) :: AeroDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyAeroDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(AeroDyn_DataData%x) - UB(1:1) = ubound(AeroDyn_DataData%x) + LB(1:1) = lbound(AeroDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(AeroDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyContState(AeroDyn_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDyn_DataData%xd) - UB(1:1) = ubound(AeroDyn_DataData%xd) + LB(1:1) = lbound(AeroDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(AeroDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyDiscState(AeroDyn_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDyn_DataData%z) - UB(1:1) = ubound(AeroDyn_DataData%z) + LB(1:1) = lbound(AeroDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(AeroDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyConstrState(AeroDyn_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDyn_DataData%OtherSt) - UB(1:1) = ubound(AeroDyn_DataData%OtherSt) + LB(1:1) = lbound(AeroDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(AeroDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyOtherState(AeroDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9289,8 +9289,8 @@ subroutine FAST_DestroyAeroDyn_Data(AeroDyn_DataData, ErrStat, ErrMsg) call AD_DestroyMisc(AeroDyn_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(AeroDyn_DataData%Output)) then - LB(1:1) = lbound(AeroDyn_DataData%Output) - UB(1:1) = ubound(AeroDyn_DataData%Output) + LB(1:1) = lbound(AeroDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(AeroDyn_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyOutput(AeroDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9300,8 +9300,8 @@ subroutine FAST_DestroyAeroDyn_Data(AeroDyn_DataData, ErrStat, ErrMsg) call AD_DestroyOutput(AeroDyn_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(AeroDyn_DataData%Input)) then - LB(1:1) = lbound(AeroDyn_DataData%Input) - UB(1:1) = ubound(AeroDyn_DataData%Input) + LB(1:1) = lbound(AeroDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(AeroDyn_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call AD_DestroyInput(AeroDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9317,26 +9317,26 @@ subroutine FAST_PackAeroDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(AeroDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackAeroDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -9346,9 +9346,9 @@ subroutine FAST_PackAeroDyn_Data(Buf, Indata) call AD_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackOutput(Buf, InData%Output(i1)) end do @@ -9356,16 +9356,16 @@ subroutine FAST_PackAeroDyn_Data(Buf, Indata) call AD_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call AD_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -9375,28 +9375,28 @@ subroutine FAST_UnPackAeroDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(AeroDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackAeroDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call AD_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call AD_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call AD_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call AD_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -9457,36 +9457,36 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyInflowWind_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcInflowWind_DataData%x) - UB(1:1) = ubound(SrcInflowWind_DataData%x) + LB(1:1) = lbound(SrcInflowWind_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_CopyContState(SrcInflowWind_DataData%x(i1), DstInflowWind_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcInflowWind_DataData%xd) - UB(1:1) = ubound(SrcInflowWind_DataData%xd) + LB(1:1) = lbound(SrcInflowWind_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_CopyDiscState(SrcInflowWind_DataData%xd(i1), DstInflowWind_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcInflowWind_DataData%z) - UB(1:1) = ubound(SrcInflowWind_DataData%z) + LB(1:1) = lbound(SrcInflowWind_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_CopyConstrState(SrcInflowWind_DataData%z(i1), DstInflowWind_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcInflowWind_DataData%OtherSt) - UB(1:1) = ubound(SrcInflowWind_DataData%OtherSt) + LB(1:1) = lbound(SrcInflowWind_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_CopyOtherState(SrcInflowWind_DataData%OtherSt(i1), DstInflowWind_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9505,8 +9505,8 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInflowWind_DataData%Output)) then - LB(1:1) = lbound(SrcInflowWind_DataData%Output) - UB(1:1) = ubound(SrcInflowWind_DataData%Output) + LB(1:1) = lbound(SrcInflowWind_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%Output, kind=B8Ki) if (.not. allocated(DstInflowWind_DataData%Output)) then allocate(DstInflowWind_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9524,8 +9524,8 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInflowWind_DataData%Input)) then - LB(1:1) = lbound(SrcInflowWind_DataData%Input) - UB(1:1) = ubound(SrcInflowWind_DataData%Input) + LB(1:1) = lbound(SrcInflowWind_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%Input, kind=B8Ki) if (.not. allocated(DstInflowWind_DataData%Input)) then allocate(DstInflowWind_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9540,8 +9540,8 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa end do end if if (allocated(SrcInflowWind_DataData%InputTimes)) then - LB(1:1) = lbound(SrcInflowWind_DataData%InputTimes) - UB(1:1) = ubound(SrcInflowWind_DataData%InputTimes) + LB(1:1) = lbound(SrcInflowWind_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcInflowWind_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstInflowWind_DataData%InputTimes)) then allocate(DstInflowWind_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9557,33 +9557,33 @@ subroutine FAST_DestroyInflowWind_Data(InflowWind_DataData, ErrStat, ErrMsg) type(InflowWind_Data), intent(inout) :: InflowWind_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyInflowWind_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(InflowWind_DataData%x) - UB(1:1) = ubound(InflowWind_DataData%x) + LB(1:1) = lbound(InflowWind_DataData%x, kind=B8Ki) + UB(1:1) = ubound(InflowWind_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyContState(InflowWind_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(InflowWind_DataData%xd) - UB(1:1) = ubound(InflowWind_DataData%xd) + LB(1:1) = lbound(InflowWind_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(InflowWind_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyDiscState(InflowWind_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(InflowWind_DataData%z) - UB(1:1) = ubound(InflowWind_DataData%z) + LB(1:1) = lbound(InflowWind_DataData%z, kind=B8Ki) + UB(1:1) = ubound(InflowWind_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyConstrState(InflowWind_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(InflowWind_DataData%OtherSt) - UB(1:1) = ubound(InflowWind_DataData%OtherSt) + LB(1:1) = lbound(InflowWind_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InflowWind_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyOtherState(InflowWind_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9597,8 +9597,8 @@ subroutine FAST_DestroyInflowWind_Data(InflowWind_DataData, ErrStat, ErrMsg) call InflowWind_DestroyMisc(InflowWind_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(InflowWind_DataData%Output)) then - LB(1:1) = lbound(InflowWind_DataData%Output) - UB(1:1) = ubound(InflowWind_DataData%Output) + LB(1:1) = lbound(InflowWind_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(InflowWind_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyOutput(InflowWind_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9608,8 +9608,8 @@ subroutine FAST_DestroyInflowWind_Data(InflowWind_DataData, ErrStat, ErrMsg) call InflowWind_DestroyOutput(InflowWind_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(InflowWind_DataData%Input)) then - LB(1:1) = lbound(InflowWind_DataData%Input) - UB(1:1) = ubound(InflowWind_DataData%Input) + LB(1:1) = lbound(InflowWind_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(InflowWind_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_DestroyInput(InflowWind_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9625,26 +9625,26 @@ subroutine FAST_PackInflowWind_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(InflowWind_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackInflowWind_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -9654,9 +9654,9 @@ subroutine FAST_PackInflowWind_Data(Buf, Indata) call InflowWind_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackOutput(Buf, InData%Output(i1)) end do @@ -9664,16 +9664,16 @@ subroutine FAST_PackInflowWind_Data(Buf, Indata) call InflowWind_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -9683,28 +9683,28 @@ subroutine FAST_UnPackInflowWind_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(InflowWind_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackInflowWind_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call InflowWind_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -9892,36 +9892,36 @@ subroutine FAST_CopySubDyn_Data(SrcSubDyn_DataData, DstSubDyn_DataData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopySubDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcSubDyn_DataData%x) - UB(1:1) = ubound(SrcSubDyn_DataData%x) + LB(1:1) = lbound(SrcSubDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SD_CopyContState(SrcSubDyn_DataData%x(i1), DstSubDyn_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSubDyn_DataData%xd) - UB(1:1) = ubound(SrcSubDyn_DataData%xd) + LB(1:1) = lbound(SrcSubDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SD_CopyDiscState(SrcSubDyn_DataData%xd(i1), DstSubDyn_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSubDyn_DataData%z) - UB(1:1) = ubound(SrcSubDyn_DataData%z) + LB(1:1) = lbound(SrcSubDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SD_CopyConstrState(SrcSubDyn_DataData%z(i1), DstSubDyn_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSubDyn_DataData%OtherSt) - UB(1:1) = ubound(SrcSubDyn_DataData%OtherSt) + LB(1:1) = lbound(SrcSubDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SD_CopyOtherState(SrcSubDyn_DataData%OtherSt(i1), DstSubDyn_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9940,8 +9940,8 @@ subroutine FAST_CopySubDyn_Data(SrcSubDyn_DataData, DstSubDyn_DataData, CtrlCode call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcSubDyn_DataData%Input)) then - LB(1:1) = lbound(SrcSubDyn_DataData%Input) - UB(1:1) = ubound(SrcSubDyn_DataData%Input) + LB(1:1) = lbound(SrcSubDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstSubDyn_DataData%Input)) then allocate(DstSubDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9956,8 +9956,8 @@ subroutine FAST_CopySubDyn_Data(SrcSubDyn_DataData, DstSubDyn_DataData, CtrlCode end do end if if (allocated(SrcSubDyn_DataData%Output)) then - LB(1:1) = lbound(SrcSubDyn_DataData%Output) - UB(1:1) = ubound(SrcSubDyn_DataData%Output) + LB(1:1) = lbound(SrcSubDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstSubDyn_DataData%Output)) then allocate(DstSubDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9975,8 +9975,8 @@ subroutine FAST_CopySubDyn_Data(SrcSubDyn_DataData, DstSubDyn_DataData, CtrlCode call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcSubDyn_DataData%InputTimes)) then - LB(1:1) = lbound(SrcSubDyn_DataData%InputTimes) - UB(1:1) = ubound(SrcSubDyn_DataData%InputTimes) + LB(1:1) = lbound(SrcSubDyn_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcSubDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstSubDyn_DataData%InputTimes)) then allocate(DstSubDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9992,33 +9992,33 @@ subroutine FAST_DestroySubDyn_Data(SubDyn_DataData, ErrStat, ErrMsg) type(SubDyn_Data), intent(inout) :: SubDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroySubDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SubDyn_DataData%x) - UB(1:1) = ubound(SubDyn_DataData%x) + LB(1:1) = lbound(SubDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SubDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyContState(SubDyn_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SubDyn_DataData%xd) - UB(1:1) = ubound(SubDyn_DataData%xd) + LB(1:1) = lbound(SubDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SubDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyDiscState(SubDyn_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SubDyn_DataData%z) - UB(1:1) = ubound(SubDyn_DataData%z) + LB(1:1) = lbound(SubDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SubDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyConstrState(SubDyn_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SubDyn_DataData%OtherSt) - UB(1:1) = ubound(SubDyn_DataData%OtherSt) + LB(1:1) = lbound(SubDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SubDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyOtherState(SubDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10032,8 +10032,8 @@ subroutine FAST_DestroySubDyn_Data(SubDyn_DataData, ErrStat, ErrMsg) call SD_DestroyMisc(SubDyn_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(SubDyn_DataData%Input)) then - LB(1:1) = lbound(SubDyn_DataData%Input) - UB(1:1) = ubound(SubDyn_DataData%Input) + LB(1:1) = lbound(SubDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SubDyn_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyInput(SubDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10041,8 +10041,8 @@ subroutine FAST_DestroySubDyn_Data(SubDyn_DataData, ErrStat, ErrMsg) deallocate(SubDyn_DataData%Input) end if if (allocated(SubDyn_DataData%Output)) then - LB(1:1) = lbound(SubDyn_DataData%Output) - UB(1:1) = ubound(SubDyn_DataData%Output) + LB(1:1) = lbound(SubDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SubDyn_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyOutput(SubDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10060,26 +10060,26 @@ subroutine FAST_PackSubDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SubDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackSubDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -10089,18 +10089,18 @@ subroutine FAST_PackSubDyn_Data(Buf, Indata) call SD_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackOutput(Buf, InData%Output(i1)) end do @@ -10108,7 +10108,7 @@ subroutine FAST_PackSubDyn_Data(Buf, Indata) call SD_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -10118,28 +10118,28 @@ subroutine FAST_UnPackSubDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SubDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackSubDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SD_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SD_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SD_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SD_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -10200,36 +10200,36 @@ subroutine FAST_CopyExtPtfm_Data(SrcExtPtfm_DataData, DstExtPtfm_DataData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyExtPtfm_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcExtPtfm_DataData%x) - UB(1:1) = ubound(SrcExtPtfm_DataData%x) + LB(1:1) = lbound(SrcExtPtfm_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcExtPtfm_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_CopyContState(SrcExtPtfm_DataData%x(i1), DstExtPtfm_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcExtPtfm_DataData%xd) - UB(1:1) = ubound(SrcExtPtfm_DataData%xd) + LB(1:1) = lbound(SrcExtPtfm_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcExtPtfm_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_CopyDiscState(SrcExtPtfm_DataData%xd(i1), DstExtPtfm_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcExtPtfm_DataData%z) - UB(1:1) = ubound(SrcExtPtfm_DataData%z) + LB(1:1) = lbound(SrcExtPtfm_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcExtPtfm_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_CopyConstrState(SrcExtPtfm_DataData%z(i1), DstExtPtfm_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcExtPtfm_DataData%OtherSt) - UB(1:1) = ubound(SrcExtPtfm_DataData%OtherSt) + LB(1:1) = lbound(SrcExtPtfm_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcExtPtfm_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_CopyOtherState(SrcExtPtfm_DataData%OtherSt(i1), DstExtPtfm_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10248,8 +10248,8 @@ subroutine FAST_CopyExtPtfm_Data(SrcExtPtfm_DataData, DstExtPtfm_DataData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcExtPtfm_DataData%Input)) then - LB(1:1) = lbound(SrcExtPtfm_DataData%Input) - UB(1:1) = ubound(SrcExtPtfm_DataData%Input) + LB(1:1) = lbound(SrcExtPtfm_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcExtPtfm_DataData%Input, kind=B8Ki) if (.not. allocated(DstExtPtfm_DataData%Input)) then allocate(DstExtPtfm_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10264,8 +10264,8 @@ subroutine FAST_CopyExtPtfm_Data(SrcExtPtfm_DataData, DstExtPtfm_DataData, CtrlC end do end if if (allocated(SrcExtPtfm_DataData%InputTimes)) then - LB(1:1) = lbound(SrcExtPtfm_DataData%InputTimes) - UB(1:1) = ubound(SrcExtPtfm_DataData%InputTimes) + LB(1:1) = lbound(SrcExtPtfm_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcExtPtfm_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstExtPtfm_DataData%InputTimes)) then allocate(DstExtPtfm_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10281,33 +10281,33 @@ subroutine FAST_DestroyExtPtfm_Data(ExtPtfm_DataData, ErrStat, ErrMsg) type(ExtPtfm_Data), intent(inout) :: ExtPtfm_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyExtPtfm_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(ExtPtfm_DataData%x) - UB(1:1) = ubound(ExtPtfm_DataData%x) + LB(1:1) = lbound(ExtPtfm_DataData%x, kind=B8Ki) + UB(1:1) = ubound(ExtPtfm_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyContState(ExtPtfm_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ExtPtfm_DataData%xd) - UB(1:1) = ubound(ExtPtfm_DataData%xd) + LB(1:1) = lbound(ExtPtfm_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(ExtPtfm_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyDiscState(ExtPtfm_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ExtPtfm_DataData%z) - UB(1:1) = ubound(ExtPtfm_DataData%z) + LB(1:1) = lbound(ExtPtfm_DataData%z, kind=B8Ki) + UB(1:1) = ubound(ExtPtfm_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyConstrState(ExtPtfm_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ExtPtfm_DataData%OtherSt) - UB(1:1) = ubound(ExtPtfm_DataData%OtherSt) + LB(1:1) = lbound(ExtPtfm_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(ExtPtfm_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyOtherState(ExtPtfm_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10321,8 +10321,8 @@ subroutine FAST_DestroyExtPtfm_Data(ExtPtfm_DataData, ErrStat, ErrMsg) call ExtPtfm_DestroyMisc(ExtPtfm_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ExtPtfm_DataData%Input)) then - LB(1:1) = lbound(ExtPtfm_DataData%Input) - UB(1:1) = ubound(ExtPtfm_DataData%Input) + LB(1:1) = lbound(ExtPtfm_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(ExtPtfm_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_DestroyInput(ExtPtfm_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10338,26 +10338,26 @@ subroutine FAST_PackExtPtfm_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackExtPtfm_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -10367,16 +10367,16 @@ subroutine FAST_PackExtPtfm_Data(Buf, Indata) call ExtPtfm_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -10386,28 +10386,28 @@ subroutine FAST_UnPackExtPtfm_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(ExtPtfm_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackExtPtfm_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call ExtPtfm_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -10452,36 +10452,36 @@ subroutine FAST_CopySeaState_Data(SrcSeaState_DataData, DstSeaState_DataData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopySeaState_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcSeaState_DataData%x) - UB(1:1) = ubound(SrcSeaState_DataData%x) + LB(1:1) = lbound(SrcSeaState_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_CopyContState(SrcSeaState_DataData%x(i1), DstSeaState_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSeaState_DataData%xd) - UB(1:1) = ubound(SrcSeaState_DataData%xd) + LB(1:1) = lbound(SrcSeaState_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_CopyDiscState(SrcSeaState_DataData%xd(i1), DstSeaState_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSeaState_DataData%z) - UB(1:1) = ubound(SrcSeaState_DataData%z) + LB(1:1) = lbound(SrcSeaState_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_CopyConstrState(SrcSeaState_DataData%z(i1), DstSeaState_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSeaState_DataData%OtherSt) - UB(1:1) = ubound(SrcSeaState_DataData%OtherSt) + LB(1:1) = lbound(SrcSeaState_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_CopyOtherState(SrcSeaState_DataData%OtherSt(i1), DstSeaState_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10500,8 +10500,8 @@ subroutine FAST_CopySeaState_Data(SrcSeaState_DataData, DstSeaState_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcSeaState_DataData%Input)) then - LB(1:1) = lbound(SrcSeaState_DataData%Input) - UB(1:1) = ubound(SrcSeaState_DataData%Input) + LB(1:1) = lbound(SrcSeaState_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%Input, kind=B8Ki) if (.not. allocated(DstSeaState_DataData%Input)) then allocate(DstSeaState_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10516,8 +10516,8 @@ subroutine FAST_CopySeaState_Data(SrcSeaState_DataData, DstSeaState_DataData, Ct end do end if if (allocated(SrcSeaState_DataData%Output)) then - LB(1:1) = lbound(SrcSeaState_DataData%Output) - UB(1:1) = ubound(SrcSeaState_DataData%Output) + LB(1:1) = lbound(SrcSeaState_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%Output, kind=B8Ki) if (.not. allocated(DstSeaState_DataData%Output)) then allocate(DstSeaState_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10535,8 +10535,8 @@ subroutine FAST_CopySeaState_Data(SrcSeaState_DataData, DstSeaState_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcSeaState_DataData%InputTimes)) then - LB(1:1) = lbound(SrcSeaState_DataData%InputTimes) - UB(1:1) = ubound(SrcSeaState_DataData%InputTimes) + LB(1:1) = lbound(SrcSeaState_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcSeaState_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstSeaState_DataData%InputTimes)) then allocate(DstSeaState_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10552,33 +10552,33 @@ subroutine FAST_DestroySeaState_Data(SeaState_DataData, ErrStat, ErrMsg) type(SeaState_Data), intent(inout) :: SeaState_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroySeaState_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SeaState_DataData%x) - UB(1:1) = ubound(SeaState_DataData%x) + LB(1:1) = lbound(SeaState_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SeaState_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_DestroyContState(SeaState_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SeaState_DataData%xd) - UB(1:1) = ubound(SeaState_DataData%xd) + LB(1:1) = lbound(SeaState_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SeaState_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_DestroyDiscState(SeaState_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SeaState_DataData%z) - UB(1:1) = ubound(SeaState_DataData%z) + LB(1:1) = lbound(SeaState_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SeaState_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_DestroyConstrState(SeaState_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SeaState_DataData%OtherSt) - UB(1:1) = ubound(SeaState_DataData%OtherSt) + LB(1:1) = lbound(SeaState_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SeaState_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_DestroyOtherState(SeaState_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10592,8 +10592,8 @@ subroutine FAST_DestroySeaState_Data(SeaState_DataData, ErrStat, ErrMsg) call SeaSt_DestroyMisc(SeaState_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(SeaState_DataData%Input)) then - LB(1:1) = lbound(SeaState_DataData%Input) - UB(1:1) = ubound(SeaState_DataData%Input) + LB(1:1) = lbound(SeaState_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SeaState_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_DestroyInput(SeaState_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10601,8 +10601,8 @@ subroutine FAST_DestroySeaState_Data(SeaState_DataData, ErrStat, ErrMsg) deallocate(SeaState_DataData%Input) end if if (allocated(SeaState_DataData%Output)) then - LB(1:1) = lbound(SeaState_DataData%Output) - UB(1:1) = ubound(SeaState_DataData%Output) + LB(1:1) = lbound(SeaState_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SeaState_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_DestroyOutput(SeaState_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10620,26 +10620,26 @@ subroutine FAST_PackSeaState_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SeaState_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackSeaState_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -10649,18 +10649,18 @@ subroutine FAST_PackSeaState_Data(Buf, Indata) call SeaSt_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_PackOutput(Buf, InData%Output(i1)) end do @@ -10668,7 +10668,7 @@ subroutine FAST_PackSeaState_Data(Buf, Indata) call SeaSt_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -10678,28 +10678,28 @@ subroutine FAST_UnPackSeaState_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaState_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackSeaState_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call SeaSt_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -10760,36 +10760,36 @@ subroutine FAST_CopyHydroDyn_Data(SrcHydroDyn_DataData, DstHydroDyn_DataData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyHydroDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcHydroDyn_DataData%x) - UB(1:1) = ubound(SrcHydroDyn_DataData%x) + LB(1:1) = lbound(SrcHydroDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_CopyContState(SrcHydroDyn_DataData%x(i1), DstHydroDyn_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcHydroDyn_DataData%xd) - UB(1:1) = ubound(SrcHydroDyn_DataData%xd) + LB(1:1) = lbound(SrcHydroDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_CopyDiscState(SrcHydroDyn_DataData%xd(i1), DstHydroDyn_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcHydroDyn_DataData%z) - UB(1:1) = ubound(SrcHydroDyn_DataData%z) + LB(1:1) = lbound(SrcHydroDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_CopyConstrState(SrcHydroDyn_DataData%z(i1), DstHydroDyn_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcHydroDyn_DataData%OtherSt) - UB(1:1) = ubound(SrcHydroDyn_DataData%OtherSt) + LB(1:1) = lbound(SrcHydroDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_CopyOtherState(SrcHydroDyn_DataData%OtherSt(i1), DstHydroDyn_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10808,8 +10808,8 @@ subroutine FAST_CopyHydroDyn_Data(SrcHydroDyn_DataData, DstHydroDyn_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcHydroDyn_DataData%Output)) then - LB(1:1) = lbound(SrcHydroDyn_DataData%Output) - UB(1:1) = ubound(SrcHydroDyn_DataData%Output) + LB(1:1) = lbound(SrcHydroDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstHydroDyn_DataData%Output)) then allocate(DstHydroDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10827,8 +10827,8 @@ subroutine FAST_CopyHydroDyn_Data(SrcHydroDyn_DataData, DstHydroDyn_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcHydroDyn_DataData%Input)) then - LB(1:1) = lbound(SrcHydroDyn_DataData%Input) - UB(1:1) = ubound(SrcHydroDyn_DataData%Input) + LB(1:1) = lbound(SrcHydroDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstHydroDyn_DataData%Input)) then allocate(DstHydroDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10843,8 +10843,8 @@ subroutine FAST_CopyHydroDyn_Data(SrcHydroDyn_DataData, DstHydroDyn_DataData, Ct end do end if if (allocated(SrcHydroDyn_DataData%InputTimes)) then - LB(1:1) = lbound(SrcHydroDyn_DataData%InputTimes) - UB(1:1) = ubound(SrcHydroDyn_DataData%InputTimes) + LB(1:1) = lbound(SrcHydroDyn_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcHydroDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstHydroDyn_DataData%InputTimes)) then allocate(DstHydroDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10860,33 +10860,33 @@ subroutine FAST_DestroyHydroDyn_Data(HydroDyn_DataData, ErrStat, ErrMsg) type(HydroDyn_Data), intent(inout) :: HydroDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyHydroDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(HydroDyn_DataData%x) - UB(1:1) = ubound(HydroDyn_DataData%x) + LB(1:1) = lbound(HydroDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(HydroDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyContState(HydroDyn_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(HydroDyn_DataData%xd) - UB(1:1) = ubound(HydroDyn_DataData%xd) + LB(1:1) = lbound(HydroDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(HydroDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyDiscState(HydroDyn_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(HydroDyn_DataData%z) - UB(1:1) = ubound(HydroDyn_DataData%z) + LB(1:1) = lbound(HydroDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(HydroDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyConstrState(HydroDyn_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(HydroDyn_DataData%OtherSt) - UB(1:1) = ubound(HydroDyn_DataData%OtherSt) + LB(1:1) = lbound(HydroDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(HydroDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyOtherState(HydroDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10900,8 +10900,8 @@ subroutine FAST_DestroyHydroDyn_Data(HydroDyn_DataData, ErrStat, ErrMsg) call HydroDyn_DestroyMisc(HydroDyn_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(HydroDyn_DataData%Output)) then - LB(1:1) = lbound(HydroDyn_DataData%Output) - UB(1:1) = ubound(HydroDyn_DataData%Output) + LB(1:1) = lbound(HydroDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(HydroDyn_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyOutput(HydroDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10911,8 +10911,8 @@ subroutine FAST_DestroyHydroDyn_Data(HydroDyn_DataData, ErrStat, ErrMsg) call HydroDyn_DestroyOutput(HydroDyn_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(HydroDyn_DataData%Input)) then - LB(1:1) = lbound(HydroDyn_DataData%Input) - UB(1:1) = ubound(HydroDyn_DataData%Input) + LB(1:1) = lbound(HydroDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(HydroDyn_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_DestroyInput(HydroDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10928,26 +10928,26 @@ subroutine FAST_PackHydroDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackHydroDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -10957,9 +10957,9 @@ subroutine FAST_PackHydroDyn_Data(Buf, Indata) call HydroDyn_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackOutput(Buf, InData%Output(i1)) end do @@ -10967,16 +10967,16 @@ subroutine FAST_PackHydroDyn_Data(Buf, Indata) call HydroDyn_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -10986,28 +10986,28 @@ subroutine FAST_UnPackHydroDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(HydroDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackHydroDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call HydroDyn_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -11068,36 +11068,36 @@ subroutine FAST_CopyIceFloe_Data(SrcIceFloe_DataData, DstIceFloe_DataData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyIceFloe_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcIceFloe_DataData%x) - UB(1:1) = ubound(SrcIceFloe_DataData%x) + LB(1:1) = lbound(SrcIceFloe_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcIceFloe_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_CopyContState(SrcIceFloe_DataData%x(i1), DstIceFloe_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcIceFloe_DataData%xd) - UB(1:1) = ubound(SrcIceFloe_DataData%xd) + LB(1:1) = lbound(SrcIceFloe_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcIceFloe_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_CopyDiscState(SrcIceFloe_DataData%xd(i1), DstIceFloe_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcIceFloe_DataData%z) - UB(1:1) = ubound(SrcIceFloe_DataData%z) + LB(1:1) = lbound(SrcIceFloe_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcIceFloe_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_CopyConstrState(SrcIceFloe_DataData%z(i1), DstIceFloe_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcIceFloe_DataData%OtherSt) - UB(1:1) = ubound(SrcIceFloe_DataData%OtherSt) + LB(1:1) = lbound(SrcIceFloe_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcIceFloe_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_CopyOtherState(SrcIceFloe_DataData%OtherSt(i1), DstIceFloe_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11116,8 +11116,8 @@ subroutine FAST_CopyIceFloe_Data(SrcIceFloe_DataData, DstIceFloe_DataData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcIceFloe_DataData%Input)) then - LB(1:1) = lbound(SrcIceFloe_DataData%Input) - UB(1:1) = ubound(SrcIceFloe_DataData%Input) + LB(1:1) = lbound(SrcIceFloe_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcIceFloe_DataData%Input, kind=B8Ki) if (.not. allocated(DstIceFloe_DataData%Input)) then allocate(DstIceFloe_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11132,8 +11132,8 @@ subroutine FAST_CopyIceFloe_Data(SrcIceFloe_DataData, DstIceFloe_DataData, CtrlC end do end if if (allocated(SrcIceFloe_DataData%InputTimes)) then - LB(1:1) = lbound(SrcIceFloe_DataData%InputTimes) - UB(1:1) = ubound(SrcIceFloe_DataData%InputTimes) + LB(1:1) = lbound(SrcIceFloe_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcIceFloe_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstIceFloe_DataData%InputTimes)) then allocate(DstIceFloe_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11149,33 +11149,33 @@ subroutine FAST_DestroyIceFloe_Data(IceFloe_DataData, ErrStat, ErrMsg) type(IceFloe_Data), intent(inout) :: IceFloe_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyIceFloe_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(IceFloe_DataData%x) - UB(1:1) = ubound(IceFloe_DataData%x) + LB(1:1) = lbound(IceFloe_DataData%x, kind=B8Ki) + UB(1:1) = ubound(IceFloe_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyContState(IceFloe_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(IceFloe_DataData%xd) - UB(1:1) = ubound(IceFloe_DataData%xd) + LB(1:1) = lbound(IceFloe_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(IceFloe_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyDiscState(IceFloe_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(IceFloe_DataData%z) - UB(1:1) = ubound(IceFloe_DataData%z) + LB(1:1) = lbound(IceFloe_DataData%z, kind=B8Ki) + UB(1:1) = ubound(IceFloe_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyConstrState(IceFloe_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(IceFloe_DataData%OtherSt) - UB(1:1) = ubound(IceFloe_DataData%OtherSt) + LB(1:1) = lbound(IceFloe_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(IceFloe_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyOtherState(IceFloe_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11189,8 +11189,8 @@ subroutine FAST_DestroyIceFloe_Data(IceFloe_DataData, ErrStat, ErrMsg) call IceFloe_DestroyMisc(IceFloe_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(IceFloe_DataData%Input)) then - LB(1:1) = lbound(IceFloe_DataData%Input) - UB(1:1) = ubound(IceFloe_DataData%Input) + LB(1:1) = lbound(IceFloe_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(IceFloe_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_DestroyInput(IceFloe_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11206,26 +11206,26 @@ subroutine FAST_PackIceFloe_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(IceFloe_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackIceFloe_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -11235,16 +11235,16 @@ subroutine FAST_PackIceFloe_Data(Buf, Indata) call IceFloe_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -11254,28 +11254,28 @@ subroutine FAST_UnPackIceFloe_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IceFloe_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackIceFloe_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call IceFloe_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -11320,29 +11320,29 @@ subroutine FAST_CopyMAP_Data(SrcMAP_DataData, DstMAP_DataData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyMAP_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcMAP_DataData%x) - UB(1:1) = ubound(SrcMAP_DataData%x) + LB(1:1) = lbound(SrcMAP_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcMAP_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_CopyContState(SrcMAP_DataData%x(i1), DstMAP_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcMAP_DataData%xd) - UB(1:1) = ubound(SrcMAP_DataData%xd) + LB(1:1) = lbound(SrcMAP_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcMAP_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_CopyDiscState(SrcMAP_DataData%xd(i1), DstMAP_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcMAP_DataData%z) - UB(1:1) = ubound(SrcMAP_DataData%z) + LB(1:1) = lbound(SrcMAP_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcMAP_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_CopyConstrState(SrcMAP_DataData%z(i1), DstMAP_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11364,8 +11364,8 @@ subroutine FAST_CopyMAP_Data(SrcMAP_DataData, DstMAP_DataData, CtrlCode, ErrStat call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMAP_DataData%Output)) then - LB(1:1) = lbound(SrcMAP_DataData%Output) - UB(1:1) = ubound(SrcMAP_DataData%Output) + LB(1:1) = lbound(SrcMAP_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcMAP_DataData%Output, kind=B8Ki) if (.not. allocated(DstMAP_DataData%Output)) then allocate(DstMAP_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11383,8 +11383,8 @@ subroutine FAST_CopyMAP_Data(SrcMAP_DataData, DstMAP_DataData, CtrlCode, ErrStat call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMAP_DataData%Input)) then - LB(1:1) = lbound(SrcMAP_DataData%Input) - UB(1:1) = ubound(SrcMAP_DataData%Input) + LB(1:1) = lbound(SrcMAP_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcMAP_DataData%Input, kind=B8Ki) if (.not. allocated(DstMAP_DataData%Input)) then allocate(DstMAP_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11399,8 +11399,8 @@ subroutine FAST_CopyMAP_Data(SrcMAP_DataData, DstMAP_DataData, CtrlCode, ErrStat end do end if if (allocated(SrcMAP_DataData%InputTimes)) then - LB(1:1) = lbound(SrcMAP_DataData%InputTimes) - UB(1:1) = ubound(SrcMAP_DataData%InputTimes) + LB(1:1) = lbound(SrcMAP_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcMAP_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstMAP_DataData%InputTimes)) then allocate(DstMAP_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11416,27 +11416,27 @@ subroutine FAST_DestroyMAP_Data(MAP_DataData, ErrStat, ErrMsg) type(MAP_Data), intent(inout) :: MAP_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyMAP_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(MAP_DataData%x) - UB(1:1) = ubound(MAP_DataData%x) + LB(1:1) = lbound(MAP_DataData%x, kind=B8Ki) + UB(1:1) = ubound(MAP_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyContState(MAP_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(MAP_DataData%xd) - UB(1:1) = ubound(MAP_DataData%xd) + LB(1:1) = lbound(MAP_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(MAP_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyDiscState(MAP_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(MAP_DataData%z) - UB(1:1) = ubound(MAP_DataData%z) + LB(1:1) = lbound(MAP_DataData%z, kind=B8Ki) + UB(1:1) = ubound(MAP_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyConstrState(MAP_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11452,8 +11452,8 @@ subroutine FAST_DestroyMAP_Data(MAP_DataData, ErrStat, ErrMsg) call MAP_DestroyOtherState(MAP_DataData%OtherSt_old, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MAP_DataData%Output)) then - LB(1:1) = lbound(MAP_DataData%Output) - UB(1:1) = ubound(MAP_DataData%Output) + LB(1:1) = lbound(MAP_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(MAP_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyOutput(MAP_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11463,8 +11463,8 @@ subroutine FAST_DestroyMAP_Data(MAP_DataData, ErrStat, ErrMsg) call MAP_DestroyOutput(MAP_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MAP_DataData%Input)) then - LB(1:1) = lbound(MAP_DataData%Input) - UB(1:1) = ubound(MAP_DataData%Input) + LB(1:1) = lbound(MAP_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(MAP_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_DestroyInput(MAP_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11480,21 +11480,21 @@ subroutine FAST_PackMAP_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MAP_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackMAP_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackConstrState(Buf, InData%z(i1)) end do @@ -11505,9 +11505,9 @@ subroutine FAST_PackMAP_Data(Buf, Indata) call MAP_PackOtherState(Buf, InData%OtherSt_old) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackOutput(Buf, InData%Output(i1)) end do @@ -11515,16 +11515,16 @@ subroutine FAST_PackMAP_Data(Buf, Indata) call MAP_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -11534,23 +11534,23 @@ subroutine FAST_UnPackMAP_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MAP_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackMAP_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MAP_UnpackConstrState(Buf, OutData%z(i1)) ! z end do @@ -11612,36 +11612,36 @@ subroutine FAST_CopyFEAMooring_Data(SrcFEAMooring_DataData, DstFEAMooring_DataDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyFEAMooring_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcFEAMooring_DataData%x) - UB(1:1) = ubound(SrcFEAMooring_DataData%x) + LB(1:1) = lbound(SrcFEAMooring_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcFEAMooring_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_CopyContState(SrcFEAMooring_DataData%x(i1), DstFEAMooring_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcFEAMooring_DataData%xd) - UB(1:1) = ubound(SrcFEAMooring_DataData%xd) + LB(1:1) = lbound(SrcFEAMooring_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcFEAMooring_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_CopyDiscState(SrcFEAMooring_DataData%xd(i1), DstFEAMooring_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcFEAMooring_DataData%z) - UB(1:1) = ubound(SrcFEAMooring_DataData%z) + LB(1:1) = lbound(SrcFEAMooring_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcFEAMooring_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_CopyConstrState(SrcFEAMooring_DataData%z(i1), DstFEAMooring_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcFEAMooring_DataData%OtherSt) - UB(1:1) = ubound(SrcFEAMooring_DataData%OtherSt) + LB(1:1) = lbound(SrcFEAMooring_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcFEAMooring_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_CopyOtherState(SrcFEAMooring_DataData%OtherSt(i1), DstFEAMooring_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11660,8 +11660,8 @@ subroutine FAST_CopyFEAMooring_Data(SrcFEAMooring_DataData, DstFEAMooring_DataDa call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcFEAMooring_DataData%Input)) then - LB(1:1) = lbound(SrcFEAMooring_DataData%Input) - UB(1:1) = ubound(SrcFEAMooring_DataData%Input) + LB(1:1) = lbound(SrcFEAMooring_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcFEAMooring_DataData%Input, kind=B8Ki) if (.not. allocated(DstFEAMooring_DataData%Input)) then allocate(DstFEAMooring_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11676,8 +11676,8 @@ subroutine FAST_CopyFEAMooring_Data(SrcFEAMooring_DataData, DstFEAMooring_DataDa end do end if if (allocated(SrcFEAMooring_DataData%InputTimes)) then - LB(1:1) = lbound(SrcFEAMooring_DataData%InputTimes) - UB(1:1) = ubound(SrcFEAMooring_DataData%InputTimes) + LB(1:1) = lbound(SrcFEAMooring_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcFEAMooring_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstFEAMooring_DataData%InputTimes)) then allocate(DstFEAMooring_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11693,33 +11693,33 @@ subroutine FAST_DestroyFEAMooring_Data(FEAMooring_DataData, ErrStat, ErrMsg) type(FEAMooring_Data), intent(inout) :: FEAMooring_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyFEAMooring_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(FEAMooring_DataData%x) - UB(1:1) = ubound(FEAMooring_DataData%x) + LB(1:1) = lbound(FEAMooring_DataData%x, kind=B8Ki) + UB(1:1) = ubound(FEAMooring_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyContState(FEAMooring_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(FEAMooring_DataData%xd) - UB(1:1) = ubound(FEAMooring_DataData%xd) + LB(1:1) = lbound(FEAMooring_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(FEAMooring_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyDiscState(FEAMooring_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(FEAMooring_DataData%z) - UB(1:1) = ubound(FEAMooring_DataData%z) + LB(1:1) = lbound(FEAMooring_DataData%z, kind=B8Ki) + UB(1:1) = ubound(FEAMooring_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyConstrState(FEAMooring_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(FEAMooring_DataData%OtherSt) - UB(1:1) = ubound(FEAMooring_DataData%OtherSt) + LB(1:1) = lbound(FEAMooring_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(FEAMooring_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyOtherState(FEAMooring_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11733,8 +11733,8 @@ subroutine FAST_DestroyFEAMooring_Data(FEAMooring_DataData, ErrStat, ErrMsg) call FEAM_DestroyMisc(FEAMooring_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(FEAMooring_DataData%Input)) then - LB(1:1) = lbound(FEAMooring_DataData%Input) - UB(1:1) = ubound(FEAMooring_DataData%Input) + LB(1:1) = lbound(FEAMooring_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(FEAMooring_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_DestroyInput(FEAMooring_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11750,26 +11750,26 @@ subroutine FAST_PackFEAMooring_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FEAMooring_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackFEAMooring_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -11779,16 +11779,16 @@ subroutine FAST_PackFEAMooring_Data(Buf, Indata) call FEAM_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -11798,28 +11798,28 @@ subroutine FAST_UnPackFEAMooring_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FEAMooring_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackFEAMooring_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call FEAM_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -11864,36 +11864,36 @@ subroutine FAST_CopyMoorDyn_Data(SrcMoorDyn_DataData, DstMoorDyn_DataData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyMoorDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcMoorDyn_DataData%x) - UB(1:1) = ubound(SrcMoorDyn_DataData%x) + LB(1:1) = lbound(SrcMoorDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MD_CopyContState(SrcMoorDyn_DataData%x(i1), DstMoorDyn_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcMoorDyn_DataData%xd) - UB(1:1) = ubound(SrcMoorDyn_DataData%xd) + LB(1:1) = lbound(SrcMoorDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MD_CopyDiscState(SrcMoorDyn_DataData%xd(i1), DstMoorDyn_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcMoorDyn_DataData%z) - UB(1:1) = ubound(SrcMoorDyn_DataData%z) + LB(1:1) = lbound(SrcMoorDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MD_CopyConstrState(SrcMoorDyn_DataData%z(i1), DstMoorDyn_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcMoorDyn_DataData%OtherSt) - UB(1:1) = ubound(SrcMoorDyn_DataData%OtherSt) + LB(1:1) = lbound(SrcMoorDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call MD_CopyOtherState(SrcMoorDyn_DataData%OtherSt(i1), DstMoorDyn_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11912,8 +11912,8 @@ subroutine FAST_CopyMoorDyn_Data(SrcMoorDyn_DataData, DstMoorDyn_DataData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMoorDyn_DataData%Output)) then - LB(1:1) = lbound(SrcMoorDyn_DataData%Output) - UB(1:1) = ubound(SrcMoorDyn_DataData%Output) + LB(1:1) = lbound(SrcMoorDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%Output, kind=B8Ki) if (.not. allocated(DstMoorDyn_DataData%Output)) then allocate(DstMoorDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11931,8 +11931,8 @@ subroutine FAST_CopyMoorDyn_Data(SrcMoorDyn_DataData, DstMoorDyn_DataData, CtrlC call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMoorDyn_DataData%Input)) then - LB(1:1) = lbound(SrcMoorDyn_DataData%Input) - UB(1:1) = ubound(SrcMoorDyn_DataData%Input) + LB(1:1) = lbound(SrcMoorDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%Input, kind=B8Ki) if (.not. allocated(DstMoorDyn_DataData%Input)) then allocate(DstMoorDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11947,8 +11947,8 @@ subroutine FAST_CopyMoorDyn_Data(SrcMoorDyn_DataData, DstMoorDyn_DataData, CtrlC end do end if if (allocated(SrcMoorDyn_DataData%InputTimes)) then - LB(1:1) = lbound(SrcMoorDyn_DataData%InputTimes) - UB(1:1) = ubound(SrcMoorDyn_DataData%InputTimes) + LB(1:1) = lbound(SrcMoorDyn_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcMoorDyn_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstMoorDyn_DataData%InputTimes)) then allocate(DstMoorDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11964,33 +11964,33 @@ subroutine FAST_DestroyMoorDyn_Data(MoorDyn_DataData, ErrStat, ErrMsg) type(MoorDyn_Data), intent(inout) :: MoorDyn_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyMoorDyn_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(MoorDyn_DataData%x) - UB(1:1) = ubound(MoorDyn_DataData%x) + LB(1:1) = lbound(MoorDyn_DataData%x, kind=B8Ki) + UB(1:1) = ubound(MoorDyn_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyContState(MoorDyn_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(MoorDyn_DataData%xd) - UB(1:1) = ubound(MoorDyn_DataData%xd) + LB(1:1) = lbound(MoorDyn_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(MoorDyn_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyDiscState(MoorDyn_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(MoorDyn_DataData%z) - UB(1:1) = ubound(MoorDyn_DataData%z) + LB(1:1) = lbound(MoorDyn_DataData%z, kind=B8Ki) + UB(1:1) = ubound(MoorDyn_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyConstrState(MoorDyn_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(MoorDyn_DataData%OtherSt) - UB(1:1) = ubound(MoorDyn_DataData%OtherSt) + LB(1:1) = lbound(MoorDyn_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(MoorDyn_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyOtherState(MoorDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12004,8 +12004,8 @@ subroutine FAST_DestroyMoorDyn_Data(MoorDyn_DataData, ErrStat, ErrMsg) call MD_DestroyMisc(MoorDyn_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MoorDyn_DataData%Output)) then - LB(1:1) = lbound(MoorDyn_DataData%Output) - UB(1:1) = ubound(MoorDyn_DataData%Output) + LB(1:1) = lbound(MoorDyn_DataData%Output, kind=B8Ki) + UB(1:1) = ubound(MoorDyn_DataData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyOutput(MoorDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12015,8 +12015,8 @@ subroutine FAST_DestroyMoorDyn_Data(MoorDyn_DataData, ErrStat, ErrMsg) call MD_DestroyOutput(MoorDyn_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MoorDyn_DataData%Input)) then - LB(1:1) = lbound(MoorDyn_DataData%Input) - UB(1:1) = ubound(MoorDyn_DataData%Input) + LB(1:1) = lbound(MoorDyn_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(MoorDyn_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call MD_DestroyInput(MoorDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12032,26 +12032,26 @@ subroutine FAST_PackMoorDyn_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(MoorDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackMoorDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -12061,9 +12061,9 @@ subroutine FAST_PackMoorDyn_Data(Buf, Indata) call MD_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(Buf, 1, lbound(InData%Output), ubound(InData%Output)) - LB(1:1) = lbound(InData%Output) - UB(1:1) = ubound(InData%Output) + call RegPackBounds(Buf, 1, lbound(InData%Output, kind=B8Ki), ubound(InData%Output, kind=B8Ki)) + LB(1:1) = lbound(InData%Output, kind=B8Ki) + UB(1:1) = ubound(InData%Output, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackOutput(Buf, InData%Output(i1)) end do @@ -12071,16 +12071,16 @@ subroutine FAST_PackMoorDyn_Data(Buf, Indata) call MD_PackOutput(Buf, InData%y_interp) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call MD_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -12090,28 +12090,28 @@ subroutine FAST_UnPackMoorDyn_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MoorDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackMoorDyn_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call MD_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call MD_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call MD_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call MD_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -12172,36 +12172,36 @@ subroutine FAST_CopyOrcaFlex_Data(SrcOrcaFlex_DataData, DstOrcaFlex_DataData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyOrcaFlex_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcOrcaFlex_DataData%x) - UB(1:1) = ubound(SrcOrcaFlex_DataData%x) + LB(1:1) = lbound(SrcOrcaFlex_DataData%x, kind=B8Ki) + UB(1:1) = ubound(SrcOrcaFlex_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_CopyContState(SrcOrcaFlex_DataData%x(i1), DstOrcaFlex_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcOrcaFlex_DataData%xd) - UB(1:1) = ubound(SrcOrcaFlex_DataData%xd) + LB(1:1) = lbound(SrcOrcaFlex_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(SrcOrcaFlex_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_CopyDiscState(SrcOrcaFlex_DataData%xd(i1), DstOrcaFlex_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcOrcaFlex_DataData%z) - UB(1:1) = ubound(SrcOrcaFlex_DataData%z) + LB(1:1) = lbound(SrcOrcaFlex_DataData%z, kind=B8Ki) + UB(1:1) = ubound(SrcOrcaFlex_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_CopyConstrState(SrcOrcaFlex_DataData%z(i1), DstOrcaFlex_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcOrcaFlex_DataData%OtherSt) - UB(1:1) = ubound(SrcOrcaFlex_DataData%OtherSt) + LB(1:1) = lbound(SrcOrcaFlex_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(SrcOrcaFlex_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_CopyOtherState(SrcOrcaFlex_DataData%OtherSt(i1), DstOrcaFlex_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12220,8 +12220,8 @@ subroutine FAST_CopyOrcaFlex_Data(SrcOrcaFlex_DataData, DstOrcaFlex_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOrcaFlex_DataData%Input)) then - LB(1:1) = lbound(SrcOrcaFlex_DataData%Input) - UB(1:1) = ubound(SrcOrcaFlex_DataData%Input) + LB(1:1) = lbound(SrcOrcaFlex_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(SrcOrcaFlex_DataData%Input, kind=B8Ki) if (.not. allocated(DstOrcaFlex_DataData%Input)) then allocate(DstOrcaFlex_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12236,8 +12236,8 @@ subroutine FAST_CopyOrcaFlex_Data(SrcOrcaFlex_DataData, DstOrcaFlex_DataData, Ct end do end if if (allocated(SrcOrcaFlex_DataData%InputTimes)) then - LB(1:1) = lbound(SrcOrcaFlex_DataData%InputTimes) - UB(1:1) = ubound(SrcOrcaFlex_DataData%InputTimes) + LB(1:1) = lbound(SrcOrcaFlex_DataData%InputTimes, kind=B8Ki) + UB(1:1) = ubound(SrcOrcaFlex_DataData%InputTimes, kind=B8Ki) if (.not. allocated(DstOrcaFlex_DataData%InputTimes)) then allocate(DstOrcaFlex_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12253,33 +12253,33 @@ subroutine FAST_DestroyOrcaFlex_Data(OrcaFlex_DataData, ErrStat, ErrMsg) type(OrcaFlex_Data), intent(inout) :: OrcaFlex_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyOrcaFlex_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(OrcaFlex_DataData%x) - UB(1:1) = ubound(OrcaFlex_DataData%x) + LB(1:1) = lbound(OrcaFlex_DataData%x, kind=B8Ki) + UB(1:1) = ubound(OrcaFlex_DataData%x, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_DestroyContState(OrcaFlex_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(OrcaFlex_DataData%xd) - UB(1:1) = ubound(OrcaFlex_DataData%xd) + LB(1:1) = lbound(OrcaFlex_DataData%xd, kind=B8Ki) + UB(1:1) = ubound(OrcaFlex_DataData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_DestroyDiscState(OrcaFlex_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(OrcaFlex_DataData%z) - UB(1:1) = ubound(OrcaFlex_DataData%z) + LB(1:1) = lbound(OrcaFlex_DataData%z, kind=B8Ki) + UB(1:1) = ubound(OrcaFlex_DataData%z, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_DestroyConstrState(OrcaFlex_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(OrcaFlex_DataData%OtherSt) - UB(1:1) = ubound(OrcaFlex_DataData%OtherSt) + LB(1:1) = lbound(OrcaFlex_DataData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OrcaFlex_DataData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_DestroyOtherState(OrcaFlex_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12293,8 +12293,8 @@ subroutine FAST_DestroyOrcaFlex_Data(OrcaFlex_DataData, ErrStat, ErrMsg) call Orca_DestroyMisc(OrcaFlex_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(OrcaFlex_DataData%Input)) then - LB(1:1) = lbound(OrcaFlex_DataData%Input) - UB(1:1) = ubound(OrcaFlex_DataData%Input) + LB(1:1) = lbound(OrcaFlex_DataData%Input, kind=B8Ki) + UB(1:1) = ubound(OrcaFlex_DataData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_DestroyInput(OrcaFlex_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12310,26 +12310,26 @@ subroutine FAST_PackOrcaFlex_Data(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(OrcaFlex_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackOrcaFlex_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x) - UB(1:1) = ubound(InData%x) + LB(1:1) = lbound(InData%x, kind=B8Ki) + UB(1:1) = ubound(InData%x, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_PackContState(Buf, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd) - UB(1:1) = ubound(InData%xd) + LB(1:1) = lbound(InData%xd, kind=B8Ki) + UB(1:1) = ubound(InData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_PackDiscState(Buf, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z) - UB(1:1) = ubound(InData%z) + LB(1:1) = lbound(InData%z, kind=B8Ki) + UB(1:1) = ubound(InData%z, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_PackConstrState(Buf, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt) - UB(1:1) = ubound(InData%OtherSt) + LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_PackOtherState(Buf, InData%OtherSt(i1)) end do @@ -12339,16 +12339,16 @@ subroutine FAST_PackOrcaFlex_Data(Buf, Indata) call Orca_PackMisc(Buf, InData%m) call RegPack(Buf, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(Buf, 1, lbound(InData%Input), ubound(InData%Input)) - LB(1:1) = lbound(InData%Input) - UB(1:1) = ubound(InData%Input) + call RegPackBounds(Buf, 1, lbound(InData%Input, kind=B8Ki), ubound(InData%Input, kind=B8Ki)) + LB(1:1) = lbound(InData%Input, kind=B8Ki) + UB(1:1) = ubound(InData%Input, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_PackInput(Buf, InData%Input(i1)) end do end if call RegPack(Buf, allocated(InData%InputTimes)) if (allocated(InData%InputTimes)) then - call RegPackBounds(Buf, 1, lbound(InData%InputTimes), ubound(InData%InputTimes)) + call RegPackBounds(Buf, 1, lbound(InData%InputTimes, kind=B8Ki), ubound(InData%InputTimes, kind=B8Ki)) call RegPack(Buf, InData%InputTimes) end if if (RegCheckErr(Buf, RoutineName)) return @@ -12358,28 +12358,28 @@ subroutine FAST_UnPackOrcaFlex_Data(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(OrcaFlex_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackOrcaFlex_Data' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x) - UB(1:1) = ubound(OutData%x) + LB(1:1) = lbound(OutData%x, kind=B8Ki) + UB(1:1) = ubound(OutData%x, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_UnpackContState(Buf, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd) - UB(1:1) = ubound(OutData%xd) + LB(1:1) = lbound(OutData%xd, kind=B8Ki) + UB(1:1) = ubound(OutData%xd, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_UnpackDiscState(Buf, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z) - UB(1:1) = ubound(OutData%z) + LB(1:1) = lbound(OutData%z, kind=B8Ki) + UB(1:1) = ubound(OutData%z, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_UnpackConstrState(Buf, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt) - UB(1:1) = ubound(OutData%OtherSt) + LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) + UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) do i1 = LB(1), UB(1) call Orca_UnpackOtherState(Buf, OutData%OtherSt(i1)) ! OtherSt end do @@ -12424,16 +12424,16 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyModuleMapType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcModuleMapTypeData%ED_P_2_BD_P)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_BD_P) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_BD_P, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%ED_P_2_BD_P)) then allocate(DstModuleMapTypeData%ED_P_2_BD_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12448,8 +12448,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%BD_P_2_ED_P)) then - LB(1:1) = lbound(SrcModuleMapTypeData%BD_P_2_ED_P) - UB(1:1) = ubound(SrcModuleMapTypeData%BD_P_2_ED_P) + LB(1:1) = lbound(SrcModuleMapTypeData%BD_P_2_ED_P, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%BD_P_2_ED_P, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BD_P_2_ED_P)) then allocate(DstModuleMapTypeData%BD_P_2_ED_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12464,8 +12464,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%ED_P_2_BD_P_Hub)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%ED_P_2_BD_P_Hub)) then allocate(DstModuleMapTypeData%ED_P_2_BD_P_Hub(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12507,8 +12507,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%ED_P_2_NStC_P_N)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_NStC_P_N) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_NStC_P_N) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_NStC_P_N, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_NStC_P_N, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%ED_P_2_NStC_P_N)) then allocate(DstModuleMapTypeData%ED_P_2_NStC_P_N(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12523,8 +12523,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%NStC_P_2_ED_P_N)) then - LB(1:1) = lbound(SrcModuleMapTypeData%NStC_P_2_ED_P_N) - UB(1:1) = ubound(SrcModuleMapTypeData%NStC_P_2_ED_P_N) + LB(1:1) = lbound(SrcModuleMapTypeData%NStC_P_2_ED_P_N, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%NStC_P_2_ED_P_N, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%NStC_P_2_ED_P_N)) then allocate(DstModuleMapTypeData%NStC_P_2_ED_P_N(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12539,8 +12539,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%ED_L_2_TStC_P_T)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ED_L_2_TStC_P_T) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_L_2_TStC_P_T) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_L_2_TStC_P_T, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_L_2_TStC_P_T, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%ED_L_2_TStC_P_T)) then allocate(DstModuleMapTypeData%ED_L_2_TStC_P_T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12555,8 +12555,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%TStC_P_2_ED_P_T)) then - LB(1:1) = lbound(SrcModuleMapTypeData%TStC_P_2_ED_P_T) - UB(1:1) = ubound(SrcModuleMapTypeData%TStC_P_2_ED_P_T) + LB(1:1) = lbound(SrcModuleMapTypeData%TStC_P_2_ED_P_T, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%TStC_P_2_ED_P_T, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%TStC_P_2_ED_P_T)) then allocate(DstModuleMapTypeData%TStC_P_2_ED_P_T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12571,8 +12571,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%ED_L_2_BStC_P_B)) then - LB(1:2) = lbound(SrcModuleMapTypeData%ED_L_2_BStC_P_B) - UB(1:2) = ubound(SrcModuleMapTypeData%ED_L_2_BStC_P_B) + LB(1:2) = lbound(SrcModuleMapTypeData%ED_L_2_BStC_P_B, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%ED_L_2_BStC_P_B, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%ED_L_2_BStC_P_B)) then allocate(DstModuleMapTypeData%ED_L_2_BStC_P_B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12589,8 +12589,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%BStC_P_2_ED_P_B)) then - LB(1:2) = lbound(SrcModuleMapTypeData%BStC_P_2_ED_P_B) - UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_ED_P_B) + LB(1:2) = lbound(SrcModuleMapTypeData%BStC_P_2_ED_P_B, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_ED_P_B, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BStC_P_2_ED_P_B)) then allocate(DstModuleMapTypeData%BStC_P_2_ED_P_B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12607,8 +12607,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%BD_L_2_BStC_P_B)) then - LB(1:2) = lbound(SrcModuleMapTypeData%BD_L_2_BStC_P_B) - UB(1:2) = ubound(SrcModuleMapTypeData%BD_L_2_BStC_P_B) + LB(1:2) = lbound(SrcModuleMapTypeData%BD_L_2_BStC_P_B, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%BD_L_2_BStC_P_B, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BD_L_2_BStC_P_B)) then allocate(DstModuleMapTypeData%BD_L_2_BStC_P_B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12625,8 +12625,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%BStC_P_2_BD_P_B)) then - LB(1:2) = lbound(SrcModuleMapTypeData%BStC_P_2_BD_P_B) - UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_BD_P_B) + LB(1:2) = lbound(SrcModuleMapTypeData%BStC_P_2_BD_P_B, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_BD_P_B, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BStC_P_2_BD_P_B)) then allocate(DstModuleMapTypeData%BStC_P_2_BD_P_B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12643,8 +12643,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%SStC_P_P_2_SubStructure)) then - LB(1:1) = lbound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure) - UB(1:1) = ubound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure) + LB(1:1) = lbound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%SStC_P_P_2_SubStructure)) then allocate(DstModuleMapTypeData%SStC_P_P_2_SubStructure(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12659,8 +12659,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%SubStructure_2_SStC_P_P)) then - LB(1:1) = lbound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P) - UB(1:1) = ubound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P) + LB(1:1) = lbound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%SubStructure_2_SStC_P_P)) then allocate(DstModuleMapTypeData%SubStructure_2_SStC_P_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12678,8 +12678,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%BDED_L_2_AD_L_B)) then - LB(1:1) = lbound(SrcModuleMapTypeData%BDED_L_2_AD_L_B) - UB(1:1) = ubound(SrcModuleMapTypeData%BDED_L_2_AD_L_B) + LB(1:1) = lbound(SrcModuleMapTypeData%BDED_L_2_AD_L_B, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%BDED_L_2_AD_L_B, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BDED_L_2_AD_L_B)) then allocate(DstModuleMapTypeData%BDED_L_2_AD_L_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12694,8 +12694,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%AD_L_2_BDED_B)) then - LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_BDED_B) - UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_BDED_B) + LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_BDED_B, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_BDED_B, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%AD_L_2_BDED_B)) then allocate(DstModuleMapTypeData%AD_L_2_BDED_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12710,8 +12710,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%BD_L_2_BD_L)) then - LB(1:1) = lbound(SrcModuleMapTypeData%BD_L_2_BD_L) - UB(1:1) = ubound(SrcModuleMapTypeData%BD_L_2_BD_L) + LB(1:1) = lbound(SrcModuleMapTypeData%BD_L_2_BD_L, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%BD_L_2_BD_L, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BD_L_2_BD_L)) then allocate(DstModuleMapTypeData%BD_L_2_BD_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12744,8 +12744,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%ED_P_2_AD_P_R)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_AD_P_R) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_AD_P_R) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_AD_P_R, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_AD_P_R, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%ED_P_2_AD_P_R)) then allocate(DstModuleMapTypeData%ED_P_2_AD_P_R(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12772,8 +12772,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%IceD_P_2_SD_P)) then - LB(1:1) = lbound(SrcModuleMapTypeData%IceD_P_2_SD_P) - UB(1:1) = ubound(SrcModuleMapTypeData%IceD_P_2_SD_P) + LB(1:1) = lbound(SrcModuleMapTypeData%IceD_P_2_SD_P, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%IceD_P_2_SD_P, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%IceD_P_2_SD_P)) then allocate(DstModuleMapTypeData%IceD_P_2_SD_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12788,8 +12788,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%SDy3_P_2_IceD_P)) then - LB(1:1) = lbound(SrcModuleMapTypeData%SDy3_P_2_IceD_P) - UB(1:1) = ubound(SrcModuleMapTypeData%SDy3_P_2_IceD_P) + LB(1:1) = lbound(SrcModuleMapTypeData%SDy3_P_2_IceD_P, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%SDy3_P_2_IceD_P, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%SDy3_P_2_IceD_P)) then allocate(DstModuleMapTypeData%SDy3_P_2_IceD_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12804,8 +12804,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%Jacobian_Opt1)) then - LB(1:2) = lbound(SrcModuleMapTypeData%Jacobian_Opt1) - UB(1:2) = ubound(SrcModuleMapTypeData%Jacobian_Opt1) + LB(1:2) = lbound(SrcModuleMapTypeData%Jacobian_Opt1, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%Jacobian_Opt1, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%Jacobian_Opt1)) then allocate(DstModuleMapTypeData%Jacobian_Opt1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12816,8 +12816,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct DstModuleMapTypeData%Jacobian_Opt1 = SrcModuleMapTypeData%Jacobian_Opt1 end if if (allocated(SrcModuleMapTypeData%Jacobian_pivot)) then - LB(1:1) = lbound(SrcModuleMapTypeData%Jacobian_pivot) - UB(1:1) = ubound(SrcModuleMapTypeData%Jacobian_pivot) + LB(1:1) = lbound(SrcModuleMapTypeData%Jacobian_pivot, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%Jacobian_pivot, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%Jacobian_pivot)) then allocate(DstModuleMapTypeData%Jacobian_pivot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12828,8 +12828,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct DstModuleMapTypeData%Jacobian_pivot = SrcModuleMapTypeData%Jacobian_pivot end if if (allocated(SrcModuleMapTypeData%Jac_u_indx)) then - LB(1:2) = lbound(SrcModuleMapTypeData%Jac_u_indx) - UB(1:2) = ubound(SrcModuleMapTypeData%Jac_u_indx) + LB(1:2) = lbound(SrcModuleMapTypeData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%Jac_u_indx)) then allocate(DstModuleMapTypeData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12861,8 +12861,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%u_ED_BladePtLoads)) then - LB(1:1) = lbound(SrcModuleMapTypeData%u_ED_BladePtLoads) - UB(1:1) = ubound(SrcModuleMapTypeData%u_ED_BladePtLoads) + LB(1:1) = lbound(SrcModuleMapTypeData%u_ED_BladePtLoads, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%u_ED_BladePtLoads, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_ED_BladePtLoads)) then allocate(DstModuleMapTypeData%u_ED_BladePtLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12892,8 +12892,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%u_BD_RootMotion)) then - LB(1:1) = lbound(SrcModuleMapTypeData%u_BD_RootMotion) - UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_RootMotion) + LB(1:1) = lbound(SrcModuleMapTypeData%u_BD_RootMotion, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_RootMotion, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_BD_RootMotion)) then allocate(DstModuleMapTypeData%u_BD_RootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12908,8 +12908,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%y_BD_BldMotion_4Loads)) then - LB(1:1) = lbound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads) - UB(1:1) = ubound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads) + LB(1:1) = lbound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%y_BD_BldMotion_4Loads)) then allocate(DstModuleMapTypeData%y_BD_BldMotion_4Loads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12924,8 +12924,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%u_BD_Distrload)) then - LB(1:1) = lbound(SrcModuleMapTypeData%u_BD_Distrload) - UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_Distrload) + LB(1:1) = lbound(SrcModuleMapTypeData%u_BD_Distrload, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_Distrload, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_BD_Distrload)) then allocate(DstModuleMapTypeData%u_BD_Distrload(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12946,8 +12946,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%HubOrient)) then - LB(1:3) = lbound(SrcModuleMapTypeData%HubOrient) - UB(1:3) = ubound(SrcModuleMapTypeData%HubOrient) + LB(1:3) = lbound(SrcModuleMapTypeData%HubOrient, kind=B8Ki) + UB(1:3) = ubound(SrcModuleMapTypeData%HubOrient, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%HubOrient)) then allocate(DstModuleMapTypeData%HubOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12963,16 +12963,16 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) type(FAST_ModuleMapType), intent(inout) :: ModuleMapTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyModuleMapType' ErrStat = ErrID_None ErrMsg = '' if (allocated(ModuleMapTypeData%ED_P_2_BD_P)) then - LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_BD_P) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_BD_P, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_BD_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12980,8 +12980,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%ED_P_2_BD_P) end if if (allocated(ModuleMapTypeData%BD_P_2_ED_P)) then - LB(1:1) = lbound(ModuleMapTypeData%BD_P_2_ED_P) - UB(1:1) = ubound(ModuleMapTypeData%BD_P_2_ED_P) + LB(1:1) = lbound(ModuleMapTypeData%BD_P_2_ED_P, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%BD_P_2_ED_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BD_P_2_ED_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12989,8 +12989,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BD_P_2_ED_P) end if if (allocated(ModuleMapTypeData%ED_P_2_BD_P_Hub)) then - LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_BD_P_Hub) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P_Hub) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_BD_P_Hub, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P_Hub, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_BD_P_Hub(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13016,8 +13016,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SD_TP_2_ED_P, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%ED_P_2_NStC_P_N)) then - LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_NStC_P_N) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_NStC_P_N) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_NStC_P_N, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_NStC_P_N, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_NStC_P_N(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13025,8 +13025,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%ED_P_2_NStC_P_N) end if if (allocated(ModuleMapTypeData%NStC_P_2_ED_P_N)) then - LB(1:1) = lbound(ModuleMapTypeData%NStC_P_2_ED_P_N) - UB(1:1) = ubound(ModuleMapTypeData%NStC_P_2_ED_P_N) + LB(1:1) = lbound(ModuleMapTypeData%NStC_P_2_ED_P_N, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%NStC_P_2_ED_P_N, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%NStC_P_2_ED_P_N(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13034,8 +13034,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%NStC_P_2_ED_P_N) end if if (allocated(ModuleMapTypeData%ED_L_2_TStC_P_T)) then - LB(1:1) = lbound(ModuleMapTypeData%ED_L_2_TStC_P_T) - UB(1:1) = ubound(ModuleMapTypeData%ED_L_2_TStC_P_T) + LB(1:1) = lbound(ModuleMapTypeData%ED_L_2_TStC_P_T, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%ED_L_2_TStC_P_T, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_L_2_TStC_P_T(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13043,8 +13043,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%ED_L_2_TStC_P_T) end if if (allocated(ModuleMapTypeData%TStC_P_2_ED_P_T)) then - LB(1:1) = lbound(ModuleMapTypeData%TStC_P_2_ED_P_T) - UB(1:1) = ubound(ModuleMapTypeData%TStC_P_2_ED_P_T) + LB(1:1) = lbound(ModuleMapTypeData%TStC_P_2_ED_P_T, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%TStC_P_2_ED_P_T, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%TStC_P_2_ED_P_T(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13052,8 +13052,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%TStC_P_2_ED_P_T) end if if (allocated(ModuleMapTypeData%ED_L_2_BStC_P_B)) then - LB(1:2) = lbound(ModuleMapTypeData%ED_L_2_BStC_P_B) - UB(1:2) = ubound(ModuleMapTypeData%ED_L_2_BStC_P_B) + LB(1:2) = lbound(ModuleMapTypeData%ED_L_2_BStC_P_B, kind=B8Ki) + UB(1:2) = ubound(ModuleMapTypeData%ED_L_2_BStC_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_L_2_BStC_P_B(i1,i2), ErrStat2, ErrMsg2) @@ -13063,8 +13063,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%ED_L_2_BStC_P_B) end if if (allocated(ModuleMapTypeData%BStC_P_2_ED_P_B)) then - LB(1:2) = lbound(ModuleMapTypeData%BStC_P_2_ED_P_B) - UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_ED_P_B) + LB(1:2) = lbound(ModuleMapTypeData%BStC_P_2_ED_P_B, kind=B8Ki) + UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_ED_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BStC_P_2_ED_P_B(i1,i2), ErrStat2, ErrMsg2) @@ -13074,8 +13074,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BStC_P_2_ED_P_B) end if if (allocated(ModuleMapTypeData%BD_L_2_BStC_P_B)) then - LB(1:2) = lbound(ModuleMapTypeData%BD_L_2_BStC_P_B) - UB(1:2) = ubound(ModuleMapTypeData%BD_L_2_BStC_P_B) + LB(1:2) = lbound(ModuleMapTypeData%BD_L_2_BStC_P_B, kind=B8Ki) + UB(1:2) = ubound(ModuleMapTypeData%BD_L_2_BStC_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BD_L_2_BStC_P_B(i1,i2), ErrStat2, ErrMsg2) @@ -13085,8 +13085,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BD_L_2_BStC_P_B) end if if (allocated(ModuleMapTypeData%BStC_P_2_BD_P_B)) then - LB(1:2) = lbound(ModuleMapTypeData%BStC_P_2_BD_P_B) - UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_BD_P_B) + LB(1:2) = lbound(ModuleMapTypeData%BStC_P_2_BD_P_B, kind=B8Ki) + UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_BD_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BStC_P_2_BD_P_B(i1,i2), ErrStat2, ErrMsg2) @@ -13096,8 +13096,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BStC_P_2_BD_P_B) end if if (allocated(ModuleMapTypeData%SStC_P_P_2_SubStructure)) then - LB(1:1) = lbound(ModuleMapTypeData%SStC_P_P_2_SubStructure) - UB(1:1) = ubound(ModuleMapTypeData%SStC_P_P_2_SubStructure) + LB(1:1) = lbound(ModuleMapTypeData%SStC_P_P_2_SubStructure, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%SStC_P_P_2_SubStructure, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SStC_P_P_2_SubStructure(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13105,8 +13105,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%SStC_P_P_2_SubStructure) end if if (allocated(ModuleMapTypeData%SubStructure_2_SStC_P_P)) then - LB(1:1) = lbound(ModuleMapTypeData%SubStructure_2_SStC_P_P) - UB(1:1) = ubound(ModuleMapTypeData%SubStructure_2_SStC_P_P) + LB(1:1) = lbound(ModuleMapTypeData%SubStructure_2_SStC_P_P, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%SubStructure_2_SStC_P_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SubStructure_2_SStC_P_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13116,8 +13116,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_SrvD_P_P, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%BDED_L_2_AD_L_B)) then - LB(1:1) = lbound(ModuleMapTypeData%BDED_L_2_AD_L_B) - UB(1:1) = ubound(ModuleMapTypeData%BDED_L_2_AD_L_B) + LB(1:1) = lbound(ModuleMapTypeData%BDED_L_2_AD_L_B, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%BDED_L_2_AD_L_B, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BDED_L_2_AD_L_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13125,8 +13125,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BDED_L_2_AD_L_B) end if if (allocated(ModuleMapTypeData%AD_L_2_BDED_B)) then - LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_BDED_B) - UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_BDED_B) + LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_BDED_B, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_BDED_B, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%AD_L_2_BDED_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13134,8 +13134,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%AD_L_2_BDED_B) end if if (allocated(ModuleMapTypeData%BD_L_2_BD_L)) then - LB(1:1) = lbound(ModuleMapTypeData%BD_L_2_BD_L) - UB(1:1) = ubound(ModuleMapTypeData%BD_L_2_BD_L) + LB(1:1) = lbound(ModuleMapTypeData%BD_L_2_BD_L, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%BD_L_2_BD_L, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BD_L_2_BD_L(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13155,8 +13155,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%AD_L_2_ED_P_T, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%ED_P_2_AD_P_R)) then - LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_AD_P_R) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_AD_P_R) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_AD_P_R, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_AD_P_R, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_AD_P_R(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13172,8 +13172,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SDy3_P_2_IceF_P, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%IceD_P_2_SD_P)) then - LB(1:1) = lbound(ModuleMapTypeData%IceD_P_2_SD_P) - UB(1:1) = ubound(ModuleMapTypeData%IceD_P_2_SD_P) + LB(1:1) = lbound(ModuleMapTypeData%IceD_P_2_SD_P, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%IceD_P_2_SD_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%IceD_P_2_SD_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13181,8 +13181,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%IceD_P_2_SD_P) end if if (allocated(ModuleMapTypeData%SDy3_P_2_IceD_P)) then - LB(1:1) = lbound(ModuleMapTypeData%SDy3_P_2_IceD_P) - UB(1:1) = ubound(ModuleMapTypeData%SDy3_P_2_IceD_P) + LB(1:1) = lbound(ModuleMapTypeData%SDy3_P_2_IceD_P, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%SDy3_P_2_IceD_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SDy3_P_2_IceD_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13213,8 +13213,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call MeshDestroy( ModuleMapTypeData%u_ED_TowerPtloads, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%u_ED_BladePtLoads)) then - LB(1:1) = lbound(ModuleMapTypeData%u_ED_BladePtLoads) - UB(1:1) = ubound(ModuleMapTypeData%u_ED_BladePtLoads) + LB(1:1) = lbound(ModuleMapTypeData%u_ED_BladePtLoads, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%u_ED_BladePtLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%u_ED_BladePtLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13232,8 +13232,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call MeshDestroy( ModuleMapTypeData%u_ED_HubPtLoad_2, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%u_BD_RootMotion)) then - LB(1:1) = lbound(ModuleMapTypeData%u_BD_RootMotion) - UB(1:1) = ubound(ModuleMapTypeData%u_BD_RootMotion) + LB(1:1) = lbound(ModuleMapTypeData%u_BD_RootMotion, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%u_BD_RootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%u_BD_RootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13241,8 +13241,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%u_BD_RootMotion) end if if (allocated(ModuleMapTypeData%y_BD_BldMotion_4Loads)) then - LB(1:1) = lbound(ModuleMapTypeData%y_BD_BldMotion_4Loads) - UB(1:1) = ubound(ModuleMapTypeData%y_BD_BldMotion_4Loads) + LB(1:1) = lbound(ModuleMapTypeData%y_BD_BldMotion_4Loads, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%y_BD_BldMotion_4Loads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%y_BD_BldMotion_4Loads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13250,8 +13250,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%y_BD_BldMotion_4Loads) end if if (allocated(ModuleMapTypeData%u_BD_Distrload)) then - LB(1:1) = lbound(ModuleMapTypeData%u_BD_Distrload) - UB(1:1) = ubound(ModuleMapTypeData%u_BD_Distrload) + LB(1:1) = lbound(ModuleMapTypeData%u_BD_Distrload, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%u_BD_Distrload, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%u_BD_Distrload(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13271,32 +13271,32 @@ subroutine FAST_PackModuleMapType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_ModuleMapType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackModuleMapType' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%ED_P_2_BD_P)) if (allocated(InData%ED_P_2_BD_P)) then - call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_BD_P), ubound(InData%ED_P_2_BD_P)) - LB(1:1) = lbound(InData%ED_P_2_BD_P) - UB(1:1) = ubound(InData%ED_P_2_BD_P) + call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_BD_P, kind=B8Ki), ubound(InData%ED_P_2_BD_P, kind=B8Ki)) + LB(1:1) = lbound(InData%ED_P_2_BD_P, kind=B8Ki) + UB(1:1) = ubound(InData%ED_P_2_BD_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_BD_P(i1)) end do end if call RegPack(Buf, allocated(InData%BD_P_2_ED_P)) if (allocated(InData%BD_P_2_ED_P)) then - call RegPackBounds(Buf, 1, lbound(InData%BD_P_2_ED_P), ubound(InData%BD_P_2_ED_P)) - LB(1:1) = lbound(InData%BD_P_2_ED_P) - UB(1:1) = ubound(InData%BD_P_2_ED_P) + call RegPackBounds(Buf, 1, lbound(InData%BD_P_2_ED_P, kind=B8Ki), ubound(InData%BD_P_2_ED_P, kind=B8Ki)) + LB(1:1) = lbound(InData%BD_P_2_ED_P, kind=B8Ki) + UB(1:1) = ubound(InData%BD_P_2_ED_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BD_P_2_ED_P(i1)) end do end if call RegPack(Buf, allocated(InData%ED_P_2_BD_P_Hub)) if (allocated(InData%ED_P_2_BD_P_Hub)) then - call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_BD_P_Hub), ubound(InData%ED_P_2_BD_P_Hub)) - LB(1:1) = lbound(InData%ED_P_2_BD_P_Hub) - UB(1:1) = ubound(InData%ED_P_2_BD_P_Hub) + call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_BD_P_Hub, kind=B8Ki), ubound(InData%ED_P_2_BD_P_Hub, kind=B8Ki)) + LB(1:1) = lbound(InData%ED_P_2_BD_P_Hub, kind=B8Ki) + UB(1:1) = ubound(InData%ED_P_2_BD_P_Hub, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_BD_P_Hub(i1)) end do @@ -13312,45 +13312,45 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%SD_TP_2_ED_P) call RegPack(Buf, allocated(InData%ED_P_2_NStC_P_N)) if (allocated(InData%ED_P_2_NStC_P_N)) then - call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_NStC_P_N), ubound(InData%ED_P_2_NStC_P_N)) - LB(1:1) = lbound(InData%ED_P_2_NStC_P_N) - UB(1:1) = ubound(InData%ED_P_2_NStC_P_N) + call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_NStC_P_N, kind=B8Ki), ubound(InData%ED_P_2_NStC_P_N, kind=B8Ki)) + LB(1:1) = lbound(InData%ED_P_2_NStC_P_N, kind=B8Ki) + UB(1:1) = ubound(InData%ED_P_2_NStC_P_N, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_NStC_P_N(i1)) end do end if call RegPack(Buf, allocated(InData%NStC_P_2_ED_P_N)) if (allocated(InData%NStC_P_2_ED_P_N)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC_P_2_ED_P_N), ubound(InData%NStC_P_2_ED_P_N)) - LB(1:1) = lbound(InData%NStC_P_2_ED_P_N) - UB(1:1) = ubound(InData%NStC_P_2_ED_P_N) + call RegPackBounds(Buf, 1, lbound(InData%NStC_P_2_ED_P_N, kind=B8Ki), ubound(InData%NStC_P_2_ED_P_N, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC_P_2_ED_P_N, kind=B8Ki) + UB(1:1) = ubound(InData%NStC_P_2_ED_P_N, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%NStC_P_2_ED_P_N(i1)) end do end if call RegPack(Buf, allocated(InData%ED_L_2_TStC_P_T)) if (allocated(InData%ED_L_2_TStC_P_T)) then - call RegPackBounds(Buf, 1, lbound(InData%ED_L_2_TStC_P_T), ubound(InData%ED_L_2_TStC_P_T)) - LB(1:1) = lbound(InData%ED_L_2_TStC_P_T) - UB(1:1) = ubound(InData%ED_L_2_TStC_P_T) + call RegPackBounds(Buf, 1, lbound(InData%ED_L_2_TStC_P_T, kind=B8Ki), ubound(InData%ED_L_2_TStC_P_T, kind=B8Ki)) + LB(1:1) = lbound(InData%ED_L_2_TStC_P_T, kind=B8Ki) + UB(1:1) = ubound(InData%ED_L_2_TStC_P_T, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_L_2_TStC_P_T(i1)) end do end if call RegPack(Buf, allocated(InData%TStC_P_2_ED_P_T)) if (allocated(InData%TStC_P_2_ED_P_T)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC_P_2_ED_P_T), ubound(InData%TStC_P_2_ED_P_T)) - LB(1:1) = lbound(InData%TStC_P_2_ED_P_T) - UB(1:1) = ubound(InData%TStC_P_2_ED_P_T) + call RegPackBounds(Buf, 1, lbound(InData%TStC_P_2_ED_P_T, kind=B8Ki), ubound(InData%TStC_P_2_ED_P_T, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC_P_2_ED_P_T, kind=B8Ki) + UB(1:1) = ubound(InData%TStC_P_2_ED_P_T, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%TStC_P_2_ED_P_T(i1)) end do end if call RegPack(Buf, allocated(InData%ED_L_2_BStC_P_B)) if (allocated(InData%ED_L_2_BStC_P_B)) then - call RegPackBounds(Buf, 2, lbound(InData%ED_L_2_BStC_P_B), ubound(InData%ED_L_2_BStC_P_B)) - LB(1:2) = lbound(InData%ED_L_2_BStC_P_B) - UB(1:2) = ubound(InData%ED_L_2_BStC_P_B) + call RegPackBounds(Buf, 2, lbound(InData%ED_L_2_BStC_P_B, kind=B8Ki), ubound(InData%ED_L_2_BStC_P_B, kind=B8Ki)) + LB(1:2) = lbound(InData%ED_L_2_BStC_P_B, kind=B8Ki) + UB(1:2) = ubound(InData%ED_L_2_BStC_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_L_2_BStC_P_B(i1,i2)) @@ -13359,9 +13359,9 @@ subroutine FAST_PackModuleMapType(Buf, Indata) end if call RegPack(Buf, allocated(InData%BStC_P_2_ED_P_B)) if (allocated(InData%BStC_P_2_ED_P_B)) then - call RegPackBounds(Buf, 2, lbound(InData%BStC_P_2_ED_P_B), ubound(InData%BStC_P_2_ED_P_B)) - LB(1:2) = lbound(InData%BStC_P_2_ED_P_B) - UB(1:2) = ubound(InData%BStC_P_2_ED_P_B) + call RegPackBounds(Buf, 2, lbound(InData%BStC_P_2_ED_P_B, kind=B8Ki), ubound(InData%BStC_P_2_ED_P_B, kind=B8Ki)) + LB(1:2) = lbound(InData%BStC_P_2_ED_P_B, kind=B8Ki) + UB(1:2) = ubound(InData%BStC_P_2_ED_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BStC_P_2_ED_P_B(i1,i2)) @@ -13370,9 +13370,9 @@ subroutine FAST_PackModuleMapType(Buf, Indata) end if call RegPack(Buf, allocated(InData%BD_L_2_BStC_P_B)) if (allocated(InData%BD_L_2_BStC_P_B)) then - call RegPackBounds(Buf, 2, lbound(InData%BD_L_2_BStC_P_B), ubound(InData%BD_L_2_BStC_P_B)) - LB(1:2) = lbound(InData%BD_L_2_BStC_P_B) - UB(1:2) = ubound(InData%BD_L_2_BStC_P_B) + call RegPackBounds(Buf, 2, lbound(InData%BD_L_2_BStC_P_B, kind=B8Ki), ubound(InData%BD_L_2_BStC_P_B, kind=B8Ki)) + LB(1:2) = lbound(InData%BD_L_2_BStC_P_B, kind=B8Ki) + UB(1:2) = ubound(InData%BD_L_2_BStC_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BD_L_2_BStC_P_B(i1,i2)) @@ -13381,9 +13381,9 @@ subroutine FAST_PackModuleMapType(Buf, Indata) end if call RegPack(Buf, allocated(InData%BStC_P_2_BD_P_B)) if (allocated(InData%BStC_P_2_BD_P_B)) then - call RegPackBounds(Buf, 2, lbound(InData%BStC_P_2_BD_P_B), ubound(InData%BStC_P_2_BD_P_B)) - LB(1:2) = lbound(InData%BStC_P_2_BD_P_B) - UB(1:2) = ubound(InData%BStC_P_2_BD_P_B) + call RegPackBounds(Buf, 2, lbound(InData%BStC_P_2_BD_P_B, kind=B8Ki), ubound(InData%BStC_P_2_BD_P_B, kind=B8Ki)) + LB(1:2) = lbound(InData%BStC_P_2_BD_P_B, kind=B8Ki) + UB(1:2) = ubound(InData%BStC_P_2_BD_P_B, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BStC_P_2_BD_P_B(i1,i2)) @@ -13392,18 +13392,18 @@ subroutine FAST_PackModuleMapType(Buf, Indata) end if call RegPack(Buf, allocated(InData%SStC_P_P_2_SubStructure)) if (allocated(InData%SStC_P_P_2_SubStructure)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC_P_P_2_SubStructure), ubound(InData%SStC_P_P_2_SubStructure)) - LB(1:1) = lbound(InData%SStC_P_P_2_SubStructure) - UB(1:1) = ubound(InData%SStC_P_P_2_SubStructure) + call RegPackBounds(Buf, 1, lbound(InData%SStC_P_P_2_SubStructure, kind=B8Ki), ubound(InData%SStC_P_P_2_SubStructure, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC_P_P_2_SubStructure, kind=B8Ki) + UB(1:1) = ubound(InData%SStC_P_P_2_SubStructure, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%SStC_P_P_2_SubStructure(i1)) end do end if call RegPack(Buf, allocated(InData%SubStructure_2_SStC_P_P)) if (allocated(InData%SubStructure_2_SStC_P_P)) then - call RegPackBounds(Buf, 1, lbound(InData%SubStructure_2_SStC_P_P), ubound(InData%SubStructure_2_SStC_P_P)) - LB(1:1) = lbound(InData%SubStructure_2_SStC_P_P) - UB(1:1) = ubound(InData%SubStructure_2_SStC_P_P) + call RegPackBounds(Buf, 1, lbound(InData%SubStructure_2_SStC_P_P, kind=B8Ki), ubound(InData%SubStructure_2_SStC_P_P, kind=B8Ki)) + LB(1:1) = lbound(InData%SubStructure_2_SStC_P_P, kind=B8Ki) + UB(1:1) = ubound(InData%SubStructure_2_SStC_P_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%SubStructure_2_SStC_P_P(i1)) end do @@ -13411,27 +13411,27 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_SrvD_P_P) call RegPack(Buf, allocated(InData%BDED_L_2_AD_L_B)) if (allocated(InData%BDED_L_2_AD_L_B)) then - call RegPackBounds(Buf, 1, lbound(InData%BDED_L_2_AD_L_B), ubound(InData%BDED_L_2_AD_L_B)) - LB(1:1) = lbound(InData%BDED_L_2_AD_L_B) - UB(1:1) = ubound(InData%BDED_L_2_AD_L_B) + call RegPackBounds(Buf, 1, lbound(InData%BDED_L_2_AD_L_B, kind=B8Ki), ubound(InData%BDED_L_2_AD_L_B, kind=B8Ki)) + LB(1:1) = lbound(InData%BDED_L_2_AD_L_B, kind=B8Ki) + UB(1:1) = ubound(InData%BDED_L_2_AD_L_B, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BDED_L_2_AD_L_B(i1)) end do end if call RegPack(Buf, allocated(InData%AD_L_2_BDED_B)) if (allocated(InData%AD_L_2_BDED_B)) then - call RegPackBounds(Buf, 1, lbound(InData%AD_L_2_BDED_B), ubound(InData%AD_L_2_BDED_B)) - LB(1:1) = lbound(InData%AD_L_2_BDED_B) - UB(1:1) = ubound(InData%AD_L_2_BDED_B) + call RegPackBounds(Buf, 1, lbound(InData%AD_L_2_BDED_B, kind=B8Ki), ubound(InData%AD_L_2_BDED_B, kind=B8Ki)) + LB(1:1) = lbound(InData%AD_L_2_BDED_B, kind=B8Ki) + UB(1:1) = ubound(InData%AD_L_2_BDED_B, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%AD_L_2_BDED_B(i1)) end do end if call RegPack(Buf, allocated(InData%BD_L_2_BD_L)) if (allocated(InData%BD_L_2_BD_L)) then - call RegPackBounds(Buf, 1, lbound(InData%BD_L_2_BD_L), ubound(InData%BD_L_2_BD_L)) - LB(1:1) = lbound(InData%BD_L_2_BD_L) - UB(1:1) = ubound(InData%BD_L_2_BD_L) + call RegPackBounds(Buf, 1, lbound(InData%BD_L_2_BD_L, kind=B8Ki), ubound(InData%BD_L_2_BD_L, kind=B8Ki)) + LB(1:1) = lbound(InData%BD_L_2_BD_L, kind=B8Ki) + UB(1:1) = ubound(InData%BD_L_2_BD_L, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BD_L_2_BD_L(i1)) end do @@ -13444,9 +13444,9 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%AD_L_2_ED_P_T) call RegPack(Buf, allocated(InData%ED_P_2_AD_P_R)) if (allocated(InData%ED_P_2_AD_P_R)) then - call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_AD_P_R), ubound(InData%ED_P_2_AD_P_R)) - LB(1:1) = lbound(InData%ED_P_2_AD_P_R) - UB(1:1) = ubound(InData%ED_P_2_AD_P_R) + call RegPackBounds(Buf, 1, lbound(InData%ED_P_2_AD_P_R, kind=B8Ki), ubound(InData%ED_P_2_AD_P_R, kind=B8Ki)) + LB(1:1) = lbound(InData%ED_P_2_AD_P_R, kind=B8Ki) + UB(1:1) = ubound(InData%ED_P_2_AD_P_R, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%ED_P_2_AD_P_R(i1)) end do @@ -13457,35 +13457,35 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call NWTC_Library_PackMeshMapType(Buf, InData%SDy3_P_2_IceF_P) call RegPack(Buf, allocated(InData%IceD_P_2_SD_P)) if (allocated(InData%IceD_P_2_SD_P)) then - call RegPackBounds(Buf, 1, lbound(InData%IceD_P_2_SD_P), ubound(InData%IceD_P_2_SD_P)) - LB(1:1) = lbound(InData%IceD_P_2_SD_P) - UB(1:1) = ubound(InData%IceD_P_2_SD_P) + call RegPackBounds(Buf, 1, lbound(InData%IceD_P_2_SD_P, kind=B8Ki), ubound(InData%IceD_P_2_SD_P, kind=B8Ki)) + LB(1:1) = lbound(InData%IceD_P_2_SD_P, kind=B8Ki) + UB(1:1) = ubound(InData%IceD_P_2_SD_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%IceD_P_2_SD_P(i1)) end do end if call RegPack(Buf, allocated(InData%SDy3_P_2_IceD_P)) if (allocated(InData%SDy3_P_2_IceD_P)) then - call RegPackBounds(Buf, 1, lbound(InData%SDy3_P_2_IceD_P), ubound(InData%SDy3_P_2_IceD_P)) - LB(1:1) = lbound(InData%SDy3_P_2_IceD_P) - UB(1:1) = ubound(InData%SDy3_P_2_IceD_P) + call RegPackBounds(Buf, 1, lbound(InData%SDy3_P_2_IceD_P, kind=B8Ki), ubound(InData%SDy3_P_2_IceD_P, kind=B8Ki)) + LB(1:1) = lbound(InData%SDy3_P_2_IceD_P, kind=B8Ki) + UB(1:1) = ubound(InData%SDy3_P_2_IceD_P, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%SDy3_P_2_IceD_P(i1)) end do end if call RegPack(Buf, allocated(InData%Jacobian_Opt1)) if (allocated(InData%Jacobian_Opt1)) then - call RegPackBounds(Buf, 2, lbound(InData%Jacobian_Opt1), ubound(InData%Jacobian_Opt1)) + call RegPackBounds(Buf, 2, lbound(InData%Jacobian_Opt1, kind=B8Ki), ubound(InData%Jacobian_Opt1, kind=B8Ki)) call RegPack(Buf, InData%Jacobian_Opt1) end if call RegPack(Buf, allocated(InData%Jacobian_pivot)) if (allocated(InData%Jacobian_pivot)) then - call RegPackBounds(Buf, 1, lbound(InData%Jacobian_pivot), ubound(InData%Jacobian_pivot)) + call RegPackBounds(Buf, 1, lbound(InData%Jacobian_pivot, kind=B8Ki), ubound(InData%Jacobian_pivot, kind=B8Ki)) call RegPack(Buf, InData%Jacobian_pivot) end if call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call MeshPack(Buf, InData%u_ED_NacelleLoads) @@ -13497,9 +13497,9 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call MeshPack(Buf, InData%u_ED_TowerPtloads) call RegPack(Buf, allocated(InData%u_ED_BladePtLoads)) if (allocated(InData%u_ED_BladePtLoads)) then - call RegPackBounds(Buf, 1, lbound(InData%u_ED_BladePtLoads), ubound(InData%u_ED_BladePtLoads)) - LB(1:1) = lbound(InData%u_ED_BladePtLoads) - UB(1:1) = ubound(InData%u_ED_BladePtLoads) + call RegPackBounds(Buf, 1, lbound(InData%u_ED_BladePtLoads, kind=B8Ki), ubound(InData%u_ED_BladePtLoads, kind=B8Ki)) + LB(1:1) = lbound(InData%u_ED_BladePtLoads, kind=B8Ki) + UB(1:1) = ubound(InData%u_ED_BladePtLoads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%u_ED_BladePtLoads(i1)) end do @@ -13511,27 +13511,27 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call MeshPack(Buf, InData%u_ED_HubPtLoad_2) call RegPack(Buf, allocated(InData%u_BD_RootMotion)) if (allocated(InData%u_BD_RootMotion)) then - call RegPackBounds(Buf, 1, lbound(InData%u_BD_RootMotion), ubound(InData%u_BD_RootMotion)) - LB(1:1) = lbound(InData%u_BD_RootMotion) - UB(1:1) = ubound(InData%u_BD_RootMotion) + call RegPackBounds(Buf, 1, lbound(InData%u_BD_RootMotion, kind=B8Ki), ubound(InData%u_BD_RootMotion, kind=B8Ki)) + LB(1:1) = lbound(InData%u_BD_RootMotion, kind=B8Ki) + UB(1:1) = ubound(InData%u_BD_RootMotion, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%u_BD_RootMotion(i1)) end do end if call RegPack(Buf, allocated(InData%y_BD_BldMotion_4Loads)) if (allocated(InData%y_BD_BldMotion_4Loads)) then - call RegPackBounds(Buf, 1, lbound(InData%y_BD_BldMotion_4Loads), ubound(InData%y_BD_BldMotion_4Loads)) - LB(1:1) = lbound(InData%y_BD_BldMotion_4Loads) - UB(1:1) = ubound(InData%y_BD_BldMotion_4Loads) + call RegPackBounds(Buf, 1, lbound(InData%y_BD_BldMotion_4Loads, kind=B8Ki), ubound(InData%y_BD_BldMotion_4Loads, kind=B8Ki)) + LB(1:1) = lbound(InData%y_BD_BldMotion_4Loads, kind=B8Ki) + UB(1:1) = ubound(InData%y_BD_BldMotion_4Loads, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%y_BD_BldMotion_4Loads(i1)) end do end if call RegPack(Buf, allocated(InData%u_BD_Distrload)) if (allocated(InData%u_BD_Distrload)) then - call RegPackBounds(Buf, 1, lbound(InData%u_BD_Distrload), ubound(InData%u_BD_Distrload)) - LB(1:1) = lbound(InData%u_BD_Distrload) - UB(1:1) = ubound(InData%u_BD_Distrload) + call RegPackBounds(Buf, 1, lbound(InData%u_BD_Distrload, kind=B8Ki), ubound(InData%u_BD_Distrload, kind=B8Ki)) + LB(1:1) = lbound(InData%u_BD_Distrload, kind=B8Ki) + UB(1:1) = ubound(InData%u_BD_Distrload, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%u_BD_Distrload(i1)) end do @@ -13540,7 +13540,7 @@ subroutine FAST_PackModuleMapType(Buf, Indata) call MeshPack(Buf, InData%u_ExtPtfm_PtfmMesh) call RegPack(Buf, allocated(InData%HubOrient)) if (allocated(InData%HubOrient)) then - call RegPackBounds(Buf, 3, lbound(InData%HubOrient), ubound(InData%HubOrient)) + call RegPackBounds(Buf, 3, lbound(InData%HubOrient, kind=B8Ki), ubound(InData%HubOrient, kind=B8Ki)) call RegPack(Buf, InData%HubOrient) end if if (RegCheckErr(Buf, RoutineName)) return @@ -13550,8 +13550,8 @@ subroutine FAST_UnPackModuleMapType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_ModuleMapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackModuleMapType' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -14170,8 +14170,8 @@ subroutine FAST_CopyInitData(SrcInitDataData, DstInitDataData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyInitData' @@ -14187,8 +14187,8 @@ subroutine FAST_CopyInitData(SrcInitDataData, DstInitDataData, CtrlCode, ErrStat call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitDataData%OutData_BD)) then - LB(1:1) = lbound(SrcInitDataData%OutData_BD) - UB(1:1) = ubound(SrcInitDataData%OutData_BD) + LB(1:1) = lbound(SrcInitDataData%OutData_BD, kind=B8Ki) + UB(1:1) = ubound(SrcInitDataData%OutData_BD, kind=B8Ki) if (.not. allocated(DstInitDataData%OutData_BD)) then allocate(DstInitDataData%OutData_BD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -14298,8 +14298,8 @@ subroutine FAST_DestroyInitData(InitDataData, ErrStat, ErrMsg) type(FAST_InitData), intent(inout) :: InitDataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyInitData' @@ -14312,8 +14312,8 @@ subroutine FAST_DestroyInitData(InitDataData, ErrStat, ErrMsg) call BD_DestroyInitInput(InitDataData%InData_BD, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(InitDataData%OutData_BD)) then - LB(1:1) = lbound(InitDataData%OutData_BD) - UB(1:1) = ubound(InitDataData%OutData_BD) + LB(1:1) = lbound(InitDataData%OutData_BD, kind=B8Ki) + UB(1:1) = ubound(InitDataData%OutData_BD, kind=B8Ki) do i1 = LB(1), UB(1) call BD_DestroyInitOutput(InitDataData%OutData_BD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -14386,17 +14386,17 @@ subroutine FAST_PackInitData(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(FAST_InitData), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackInitData' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call ED_PackInitInput(Buf, InData%InData_ED) call ED_PackInitOutput(Buf, InData%OutData_ED) call BD_PackInitInput(Buf, InData%InData_BD) call RegPack(Buf, allocated(InData%OutData_BD)) if (allocated(InData%OutData_BD)) then - call RegPackBounds(Buf, 1, lbound(InData%OutData_BD), ubound(InData%OutData_BD)) - LB(1:1) = lbound(InData%OutData_BD) - UB(1:1) = ubound(InData%OutData_BD) + call RegPackBounds(Buf, 1, lbound(InData%OutData_BD, kind=B8Ki), ubound(InData%OutData_BD, kind=B8Ki)) + LB(1:1) = lbound(InData%OutData_BD, kind=B8Ki) + UB(1:1) = ubound(InData%OutData_BD, kind=B8Ki) do i1 = LB(1), UB(1) call BD_PackInitOutput(Buf, InData%OutData_BD(i1)) end do @@ -14438,8 +14438,8 @@ subroutine FAST_UnPackInitData(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_InitData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackInitData' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -14499,7 +14499,7 @@ subroutine FAST_CopyExternInitType(SrcExternInitTypeData, DstExternInitTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyExternInitType' ErrStat = ErrID_None @@ -14514,8 +14514,8 @@ subroutine FAST_CopyExternInitType(SrcExternInitTypeData, DstExternInitTypeData, DstExternInitTypeData%NumSC2Ctrl = SrcExternInitTypeData%NumSC2Ctrl DstExternInitTypeData%NumCtrl2SC = SrcExternInitTypeData%NumCtrl2SC if (allocated(SrcExternInitTypeData%fromSCGlob)) then - LB(1:1) = lbound(SrcExternInitTypeData%fromSCGlob) - UB(1:1) = ubound(SrcExternInitTypeData%fromSCGlob) + LB(1:1) = lbound(SrcExternInitTypeData%fromSCGlob, kind=B8Ki) + UB(1:1) = ubound(SrcExternInitTypeData%fromSCGlob, kind=B8Ki) if (.not. allocated(DstExternInitTypeData%fromSCGlob)) then allocate(DstExternInitTypeData%fromSCGlob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -14526,8 +14526,8 @@ subroutine FAST_CopyExternInitType(SrcExternInitTypeData, DstExternInitTypeData, DstExternInitTypeData%fromSCGlob = SrcExternInitTypeData%fromSCGlob end if if (allocated(SrcExternInitTypeData%fromSC)) then - LB(1:1) = lbound(SrcExternInitTypeData%fromSC) - UB(1:1) = ubound(SrcExternInitTypeData%fromSC) + LB(1:1) = lbound(SrcExternInitTypeData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcExternInitTypeData%fromSC, kind=B8Ki) if (.not. allocated(DstExternInitTypeData%fromSC)) then allocate(DstExternInitTypeData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -14581,12 +14581,12 @@ subroutine FAST_PackExternInitType(Buf, Indata) call RegPack(Buf, InData%NumCtrl2SC) call RegPack(Buf, allocated(InData%fromSCGlob)) if (allocated(InData%fromSCGlob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCGlob), ubound(InData%fromSCGlob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCGlob, kind=B8Ki), ubound(InData%fromSCGlob, kind=B8Ki)) call RegPack(Buf, InData%fromSCGlob) end if call RegPack(Buf, allocated(InData%fromSC)) if (allocated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPack(Buf, InData%fromSC) end if call RegPack(Buf, InData%FarmIntegration) @@ -14595,7 +14595,7 @@ subroutine FAST_PackExternInitType(Buf, Indata) call RegPack(Buf, InData%windGrid_pZero) call RegPack(Buf, associated(InData%windGrid_data)) if (associated(InData%windGrid_data)) then - call RegPackBounds(Buf, 5, lbound(InData%windGrid_data), ubound(InData%windGrid_data)) + call RegPackBounds(Buf, 5, lbound(InData%windGrid_data, kind=B8Ki), ubound(InData%windGrid_data, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%windGrid_data), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%windGrid_data) @@ -14612,10 +14612,10 @@ subroutine FAST_UnPackExternInitType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(FAST_ExternInitType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackExternInitType' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%Tmax) diff --git a/modules/openfast-registry/src/registry_gen_fortran.cpp b/modules/openfast-registry/src/registry_gen_fortran.cpp index 58fb7582f3..8444173d83 100644 --- a/modules/openfast-registry/src/registry_gen_fortran.cpp +++ b/modules/openfast-registry/src/registry_gen_fortran.cpp @@ -337,13 +337,13 @@ void gen_copy(std::ostream &w, const Module &mod, const DataType::Derived &ddt, w << indent << "character(*), intent( out) :: ErrMsg"; if (has_ddt_arr) { - w << indent << "integer(IntKi) :: "; + w << indent << "integer(B8Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; w << ""; } if (has_ddt_arr || has_alloc) - w << indent << "integer(IntKi) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; if (has_ddt || has_alloc) w << indent << "integer(IntKi) :: ErrStat2"; if (has_ddt) @@ -378,8 +378,8 @@ void gen_copy(std::ostream &w, const Module &mod, const DataType::Derived &ddt, std::string dims(""); if (field.rank > 0) { - w << indent << "LB(1:" << field.rank << ") = lbound(" << src << ")"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ")"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << src << ", kind=B8Ki)"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ", kind=B8Ki)"; for (int d = 1; d <= field.rank; d++) dims += ",LB(" + std::to_string(d) + "):UB(" + std::to_string(d) + ")"; dims = "(" + dims.substr(1) + ")"; @@ -420,8 +420,8 @@ void gen_copy(std::ostream &w, const Module &mod, const DataType::Derived &ddt, // Get bounds for non-allocated field if (field.rank > 0 && !field.is_allocatable) { - w << indent << "LB(1:" << field.rank << ") = lbound(" << src << ")"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ")"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << src << ", kind=B8Ki)"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ", kind=B8Ki)"; } for (int d = field.rank; d >= 1; d--) @@ -505,10 +505,10 @@ void gen_destroy(std::ostream &w, const Module &mod, const DataType::Derived &dd w << indent << "character(*), intent( out) :: ErrMsg"; if (has_ddt_arr) { - w << indent << "integer(IntKi) :: "; + w << indent << "integer(B8Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; - w << indent << "integer(IntKi) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; } if (has_ddt) { @@ -548,8 +548,8 @@ void gen_destroy(std::ostream &w, const Module &mod, const DataType::Derived &dd if (field.rank > 0) { - w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ")"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ")"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ", kind=B8Ki)"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ", kind=B8Ki)"; } for (int d = field.rank; d >= 1; d--) { @@ -628,10 +628,10 @@ void gen_pack(std::ostream &w, const Module &mod, const DataType::Derived &ddt, w << indent << "character(*), parameter :: RoutineName = '" << routine_name << "'"; if (has_ddt_arr) { - w << indent << "integer(IntKi) :: "; + w << indent << "integer(B8Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; - w << indent << "integer(IntKi) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; } if (has_ptr) { @@ -663,7 +663,7 @@ void gen_pack(std::ostream &w, const Module &mod, const DataType::Derived &ddt, indent += " "; if (field.rank > 0) { - w << indent << "call RegPackBounds(Buf, " << field.rank << ", lbound(" << var << "), ubound(" << var << "))"; + w << indent << "call RegPackBounds(Buf, " << field.rank << ", lbound(" << var << ", kind=B8Ki), ubound(" << var << ", kind=B8Ki))"; } } if (field.is_pointer) @@ -680,8 +680,8 @@ void gen_pack(std::ostream &w, const Module &mod, const DataType::Derived &ddt, if (field.rank > 0) { - w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ")"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ")"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ", kind=B8Ki)"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ", kind=B8Ki)"; } for (int d = field.rank; d >= 1; d--) @@ -756,14 +756,14 @@ void gen_unpack(std::ostream &w, const Module &mod, const DataType::Derived &ddt w << indent << "character(*), parameter :: RoutineName = '" << routine_name << "'"; if (has_ddt_arr) { - w << indent << "integer(IntKi) :: "; + w << indent << "integer(B8Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; w << ""; } if (has_ddt_arr || has_alloc) { - w << indent << "integer(IntKi) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; } if (has_alloc) { @@ -772,7 +772,7 @@ void gen_unpack(std::ostream &w, const Module &mod, const DataType::Derived &ddt } if (has_ptr) { - w << indent << "integer(IntKi) :: PtrIdx"; + w << indent << "integer(B8Ki) :: PtrIdx"; w << indent << "type(c_ptr) :: Ptr"; } w << indent << "if (Buf%ErrStat /= ErrID_None) return"; @@ -862,8 +862,8 @@ void gen_unpack(std::ostream &w, const Module &mod, const DataType::Derived &ddt // Get bounds for non-allocated field if (field.rank > 0 && !field.is_allocatable) { - w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ")"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ")"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ", kind=B8Ki)"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ", kind=B8Ki)"; } for (int d = field.rank; d >= 1; d--) @@ -978,7 +978,7 @@ void gen_extint_order(std::ostream &w, const Module &mod, std::string uy, const for (int j = field.rank; j > 0; j--) { - w << indent << "DO i" << recurse_level << j << " = LBOUND(" << uy << "_out" << field_var << "," << j << "),UBOUND(" << uy << "_out" << field_var << "," << j << ")"; + w << indent << "DO i" << recurse_level << j << " = LBOUND(" << uy << "_out" << field_var << "," << j << ", kind=B8Ki),UBOUND(" << uy << "_out" << field_var << "," << j << ", kind=B8Ki)"; indent += " "; } @@ -1007,7 +1007,7 @@ void gen_extint_order(std::ostream &w, const Module &mod, std::string uy, const { for (int j = field.rank; j > 0; j--) { - w << indent << "DO i" << j << " = LBOUND(" << vout << "," << j << "),UBOUND(" << vout << "," << j << ")"; + w << indent << "DO i" << j << " = LBOUND(" << vout << "," << j << ", kind=B8Ki),UBOUND(" << vout << "," << j << ", kind=B8Ki)"; indent += " "; } @@ -1074,7 +1074,7 @@ void gen_extint_order(std::ostream &w, const Module &mod, std::string uy, const { for (int j = field.rank; j > 0; j--) { - w << indent << "DO i" << j << " = LBOUND(" << vout << "," << j << "),UBOUND(" << vout << "," << j << ")"; + w << indent << "DO i" << j << " = LBOUND(" << vout << "," << j << ", kind=B8Ki),UBOUND(" << vout << "," << j << ", kind=B8Ki)"; indent += " "; } } @@ -1539,7 +1539,7 @@ void gen_copy_f2c(std::ostream &w, const Module &mod, const DataType::Derived &d { std::string dims; for (int d = 1; d <= field.rank; d++) - dims += std::string(d > 1 ? "," : "") + "LBOUND(" + var_f + "," + std::to_string(d) + ")"; + dims += std::string(d > 1 ? "," : "") + "LBOUND(" + var_f + "," + std::to_string(d) + ", kind=B8Ki)"; w << indent; w << indent << "! -- " << field.name << " " << ddt.name_short << " Data fields"; w << indent << "IF (.NOT. SkipPointers_local ) THEN"; diff --git a/modules/orcaflex-interface/src/OrcaFlexInterface_Types.f90 b/modules/orcaflex-interface/src/OrcaFlexInterface_Types.f90 index f2c1cc1ea3..0252be5e3f 100644 --- a/modules/orcaflex-interface/src/OrcaFlexInterface_Types.f90 +++ b/modules/orcaflex-interface/src/OrcaFlexInterface_Types.f90 @@ -161,7 +161,7 @@ subroutine Orca_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_CopyInitOutput' @@ -171,8 +171,8 @@ subroutine Orca_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -183,8 +183,8 @@ subroutine Orca_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -223,12 +223,12 @@ subroutine Orca_PackInitOutput(Buf, Indata) call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -238,7 +238,7 @@ subroutine Orca_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Orca_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -373,7 +373,7 @@ subroutine Orca_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Orca_CopyMisc' ErrStat = ErrID_None @@ -382,8 +382,8 @@ subroutine Orca_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%PtfmFt = SrcMiscData%PtfmFt DstMiscData%F_PtfmAM = SrcMiscData%F_PtfmAM if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -418,7 +418,7 @@ subroutine Orca_PackMisc(Buf, Indata) call RegPack(Buf, InData%F_PtfmAM) call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, InData%LastTimeStep) @@ -429,7 +429,7 @@ subroutine Orca_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Orca_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackMisc' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -463,8 +463,8 @@ subroutine Orca_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_CopyParam' @@ -476,8 +476,8 @@ subroutine Orca_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%SimNamePathLen = SrcParamData%SimNamePathLen DstParamData%NumOuts = SrcParamData%NumOuts if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -497,8 +497,8 @@ subroutine Orca_DestroyParam(ParamData, ErrStat, ErrMsg) type(Orca_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_DestroyParam' @@ -507,8 +507,8 @@ subroutine Orca_DestroyParam(ParamData, ErrStat, ErrMsg) call FreeDynamicLib( ParamData%DLL_Orca, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -521,8 +521,8 @@ subroutine Orca_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(Orca_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'Orca_PackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) call DLLTypePack(Buf, InData%DLL_Orca) @@ -531,9 +531,9 @@ subroutine Orca_PackParam(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -545,8 +545,8 @@ subroutine Orca_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Orca_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -628,7 +628,7 @@ subroutine Orca_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_CopyOutput' @@ -638,8 +638,8 @@ subroutine Orca_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -675,7 +675,7 @@ subroutine Orca_PackOutput(Buf, Indata) call MeshPack(Buf, InData%PtfmMesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -685,7 +685,7 @@ subroutine Orca_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Orca_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/Current_Types.f90 b/modules/seastate/src/Current_Types.f90 index e0893fc9ac..02e3286938 100644 --- a/modules/seastate/src/Current_Types.f90 +++ b/modules/seastate/src/Current_Types.f90 @@ -66,7 +66,7 @@ subroutine Current_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Current_CopyInitInput' ErrStat = ErrID_None @@ -82,8 +82,8 @@ subroutine Current_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E DstInitInputData%CurrMod = SrcInitInputData%CurrMod DstInitInputData%EffWtrDpth = SrcInitInputData%EffWtrDpth if (allocated(SrcInitInputData%WaveKinGridzi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridzi)) then allocate(DstInitInputData%WaveKinGridzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -126,7 +126,7 @@ subroutine Current_PackInitInput(Buf, Indata) call RegPack(Buf, InData%EffWtrDpth) call RegPack(Buf, allocated(InData%WaveKinGridzi)) if (allocated(InData%WaveKinGridzi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridzi), ubound(InData%WaveKinGridzi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridzi, kind=B8Ki), ubound(InData%WaveKinGridzi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridzi) end if call RegPack(Buf, InData%NGridPts) @@ -138,7 +138,7 @@ subroutine Current_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Current_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Current_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -188,14 +188,14 @@ subroutine Current_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Current_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%CurrVxi)) then - LB(1:1) = lbound(SrcInitOutputData%CurrVxi) - UB(1:1) = ubound(SrcInitOutputData%CurrVxi) + LB(1:1) = lbound(SrcInitOutputData%CurrVxi, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%CurrVxi, kind=B8Ki) if (.not. allocated(DstInitOutputData%CurrVxi)) then allocate(DstInitOutputData%CurrVxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -206,8 +206,8 @@ subroutine Current_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%CurrVxi = SrcInitOutputData%CurrVxi end if if (allocated(SrcInitOutputData%CurrVyi)) then - LB(1:1) = lbound(SrcInitOutputData%CurrVyi) - UB(1:1) = ubound(SrcInitOutputData%CurrVyi) + LB(1:1) = lbound(SrcInitOutputData%CurrVyi, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%CurrVyi, kind=B8Ki) if (.not. allocated(DstInitOutputData%CurrVyi)) then allocate(DstInitOutputData%CurrVyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -243,12 +243,12 @@ subroutine Current_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%CurrVxi)) if (allocated(InData%CurrVxi)) then - call RegPackBounds(Buf, 1, lbound(InData%CurrVxi), ubound(InData%CurrVxi)) + call RegPackBounds(Buf, 1, lbound(InData%CurrVxi, kind=B8Ki), ubound(InData%CurrVxi, kind=B8Ki)) call RegPack(Buf, InData%CurrVxi) end if call RegPack(Buf, allocated(InData%CurrVyi)) if (allocated(InData%CurrVyi)) then - call RegPackBounds(Buf, 1, lbound(InData%CurrVyi), ubound(InData%CurrVyi)) + call RegPackBounds(Buf, 1, lbound(InData%CurrVyi, kind=B8Ki), ubound(InData%CurrVyi, kind=B8Ki)) call RegPack(Buf, InData%CurrVyi) end if call RegPack(Buf, InData%PCurrVxiPz0) @@ -260,7 +260,7 @@ subroutine Current_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Current_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Current_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/SeaSt_WaveField_Types.f90 b/modules/seastate/src/SeaSt_WaveField_Types.f90 index a6d6262c06..10331b864d 100644 --- a/modules/seastate/src/SeaSt_WaveField_Types.f90 +++ b/modules/seastate/src/SeaSt_WaveField_Types.f90 @@ -94,15 +94,15 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_WaveField_CopySeaSt_WaveFieldType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcSeaSt_WaveFieldTypeData%WaveTime)) then - LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveTime) - UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveTime) + LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveTime, kind=B8Ki) + UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveTime, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveTime)) then allocate(DstSeaSt_WaveFieldTypeData%WaveTime(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -113,8 +113,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveTime = SrcSeaSt_WaveFieldTypeData%WaveTime end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveDynP)) then - LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%WaveDynP) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDynP) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%WaveDynP, kind=B8Ki) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDynP, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveDynP)) then allocate(DstSeaSt_WaveFieldTypeData%WaveDynP(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -125,8 +125,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveDynP = SrcSeaSt_WaveFieldTypeData%WaveDynP end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveAcc)) then - LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveAcc) - UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAcc) + LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveAcc, kind=B8Ki) + UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAcc, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveAcc)) then allocate(DstSeaSt_WaveFieldTypeData%WaveAcc(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -137,8 +137,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveAcc = SrcSeaSt_WaveFieldTypeData%WaveAcc end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveAccMCF)) then - LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF) - UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF) + LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF, kind=B8Ki) + UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveAccMCF)) then allocate(DstSeaSt_WaveFieldTypeData%WaveAccMCF(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -149,8 +149,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveAccMCF = SrcSeaSt_WaveFieldTypeData%WaveAccMCF end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveVel)) then - LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveVel) - UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveVel) + LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveVel, kind=B8Ki) + UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveVel, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveVel)) then allocate(DstSeaSt_WaveFieldTypeData%WaveVel(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -161,8 +161,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveVel = SrcSeaSt_WaveFieldTypeData%WaveVel end if if (allocated(SrcSeaSt_WaveFieldTypeData%PWaveDynP0)) then - LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0, kind=B8Ki) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%PWaveDynP0)) then allocate(DstSeaSt_WaveFieldTypeData%PWaveDynP0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -173,8 +173,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%PWaveDynP0 = SrcSeaSt_WaveFieldTypeData%PWaveDynP0 end if if (allocated(SrcSeaSt_WaveFieldTypeData%PWaveAcc0)) then - LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0, kind=B8Ki) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%PWaveAcc0)) then allocate(DstSeaSt_WaveFieldTypeData%PWaveAcc0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -185,8 +185,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%PWaveAcc0 = SrcSeaSt_WaveFieldTypeData%PWaveAcc0 end if if (allocated(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0)) then - LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0, kind=B8Ki) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%PWaveAccMCF0)) then allocate(DstSeaSt_WaveFieldTypeData%PWaveAccMCF0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -197,8 +197,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%PWaveAccMCF0 = SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0 end if if (allocated(SrcSeaSt_WaveFieldTypeData%PWaveVel0)) then - LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveVel0) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveVel0) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveVel0, kind=B8Ki) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveVel0, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%PWaveVel0)) then allocate(DstSeaSt_WaveFieldTypeData%PWaveVel0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -209,8 +209,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%PWaveVel0 = SrcSeaSt_WaveFieldTypeData%PWaveVel0 end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveElev0)) then - LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev0) - UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev0) + LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev0, kind=B8Ki) + UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev0, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveElev0)) then allocate(DstSeaSt_WaveFieldTypeData%WaveElev0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -221,8 +221,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveElev0 = SrcSeaSt_WaveFieldTypeData%WaveElev0 end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveElev1)) then - LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev1) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev1) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev1, kind=B8Ki) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev1, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveElev1)) then allocate(DstSeaSt_WaveFieldTypeData%WaveElev1(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -233,8 +233,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveElev1 = SrcSeaSt_WaveFieldTypeData%WaveElev1 end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveElev2)) then - LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev2) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev2) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev2, kind=B8Ki) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev2, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveElev2)) then allocate(DstSeaSt_WaveFieldTypeData%WaveElev2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -251,8 +251,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%EffWtrDpth = SrcSeaSt_WaveFieldTypeData%EffWtrDpth DstSeaSt_WaveFieldTypeData%MSL2SWL = SrcSeaSt_WaveFieldTypeData%MSL2SWL if (allocated(SrcSeaSt_WaveFieldTypeData%WaveElevC)) then - LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElevC) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElevC, kind=B8Ki) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveElevC)) then allocate(DstSeaSt_WaveFieldTypeData%WaveElevC(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -263,8 +263,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveElevC = SrcSeaSt_WaveFieldTypeData%WaveElevC end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveElevC0)) then - LB(1:2) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElevC0) - UB(1:2) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC0) + LB(1:2) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElevC0, kind=B8Ki) + UB(1:2) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC0, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveElevC0)) then allocate(DstSeaSt_WaveFieldTypeData%WaveElevC0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -275,8 +275,8 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D DstSeaSt_WaveFieldTypeData%WaveElevC0 = SrcSeaSt_WaveFieldTypeData%WaveElevC0 end if if (allocated(SrcSeaSt_WaveFieldTypeData%WaveDirArr)) then - LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveDirArr) - UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDirArr) + LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveDirArr, kind=B8Ki) + UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDirArr, kind=B8Ki) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveDirArr)) then allocate(DstSeaSt_WaveFieldTypeData%WaveDirArr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -371,62 +371,62 @@ subroutine SeaSt_WaveField_PackSeaSt_WaveFieldType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WaveTime)) if (allocated(InData%WaveTime)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveTime), ubound(InData%WaveTime)) + call RegPackBounds(Buf, 1, lbound(InData%WaveTime, kind=B8Ki), ubound(InData%WaveTime, kind=B8Ki)) call RegPack(Buf, InData%WaveTime) end if call RegPack(Buf, allocated(InData%WaveDynP)) if (allocated(InData%WaveDynP)) then - call RegPackBounds(Buf, 4, lbound(InData%WaveDynP), ubound(InData%WaveDynP)) + call RegPackBounds(Buf, 4, lbound(InData%WaveDynP, kind=B8Ki), ubound(InData%WaveDynP, kind=B8Ki)) call RegPack(Buf, InData%WaveDynP) end if call RegPack(Buf, allocated(InData%WaveAcc)) if (allocated(InData%WaveAcc)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveAcc), ubound(InData%WaveAcc)) + call RegPackBounds(Buf, 5, lbound(InData%WaveAcc, kind=B8Ki), ubound(InData%WaveAcc, kind=B8Ki)) call RegPack(Buf, InData%WaveAcc) end if call RegPack(Buf, allocated(InData%WaveAccMCF)) if (allocated(InData%WaveAccMCF)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveAccMCF), ubound(InData%WaveAccMCF)) + call RegPackBounds(Buf, 5, lbound(InData%WaveAccMCF, kind=B8Ki), ubound(InData%WaveAccMCF, kind=B8Ki)) call RegPack(Buf, InData%WaveAccMCF) end if call RegPack(Buf, allocated(InData%WaveVel)) if (allocated(InData%WaveVel)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveVel), ubound(InData%WaveVel)) + call RegPackBounds(Buf, 5, lbound(InData%WaveVel, kind=B8Ki), ubound(InData%WaveVel, kind=B8Ki)) call RegPack(Buf, InData%WaveVel) end if call RegPack(Buf, allocated(InData%PWaveDynP0)) if (allocated(InData%PWaveDynP0)) then - call RegPackBounds(Buf, 3, lbound(InData%PWaveDynP0), ubound(InData%PWaveDynP0)) + call RegPackBounds(Buf, 3, lbound(InData%PWaveDynP0, kind=B8Ki), ubound(InData%PWaveDynP0, kind=B8Ki)) call RegPack(Buf, InData%PWaveDynP0) end if call RegPack(Buf, allocated(InData%PWaveAcc0)) if (allocated(InData%PWaveAcc0)) then - call RegPackBounds(Buf, 4, lbound(InData%PWaveAcc0), ubound(InData%PWaveAcc0)) + call RegPackBounds(Buf, 4, lbound(InData%PWaveAcc0, kind=B8Ki), ubound(InData%PWaveAcc0, kind=B8Ki)) call RegPack(Buf, InData%PWaveAcc0) end if call RegPack(Buf, allocated(InData%PWaveAccMCF0)) if (allocated(InData%PWaveAccMCF0)) then - call RegPackBounds(Buf, 4, lbound(InData%PWaveAccMCF0), ubound(InData%PWaveAccMCF0)) + call RegPackBounds(Buf, 4, lbound(InData%PWaveAccMCF0, kind=B8Ki), ubound(InData%PWaveAccMCF0, kind=B8Ki)) call RegPack(Buf, InData%PWaveAccMCF0) end if call RegPack(Buf, allocated(InData%PWaveVel0)) if (allocated(InData%PWaveVel0)) then - call RegPackBounds(Buf, 4, lbound(InData%PWaveVel0), ubound(InData%PWaveVel0)) + call RegPackBounds(Buf, 4, lbound(InData%PWaveVel0, kind=B8Ki), ubound(InData%PWaveVel0, kind=B8Ki)) call RegPack(Buf, InData%PWaveVel0) end if call RegPack(Buf, allocated(InData%WaveElev0)) if (allocated(InData%WaveElev0)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElev0), ubound(InData%WaveElev0)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElev0, kind=B8Ki), ubound(InData%WaveElev0, kind=B8Ki)) call RegPack(Buf, InData%WaveElev0) end if call RegPack(Buf, allocated(InData%WaveElev1)) if (allocated(InData%WaveElev1)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveElev1), ubound(InData%WaveElev1)) + call RegPackBounds(Buf, 3, lbound(InData%WaveElev1, kind=B8Ki), ubound(InData%WaveElev1, kind=B8Ki)) call RegPack(Buf, InData%WaveElev1) end if call RegPack(Buf, allocated(InData%WaveElev2)) if (allocated(InData%WaveElev2)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveElev2), ubound(InData%WaveElev2)) + call RegPackBounds(Buf, 3, lbound(InData%WaveElev2, kind=B8Ki), ubound(InData%WaveElev2, kind=B8Ki)) call RegPack(Buf, InData%WaveElev2) end if call SeaSt_Interp_PackParam(Buf, InData%SeaSt_Interp_p) @@ -435,17 +435,17 @@ subroutine SeaSt_WaveField_PackSeaSt_WaveFieldType(Buf, Indata) call RegPack(Buf, InData%MSL2SWL) call RegPack(Buf, allocated(InData%WaveElevC)) if (allocated(InData%WaveElevC)) then - call RegPackBounds(Buf, 3, lbound(InData%WaveElevC), ubound(InData%WaveElevC)) + call RegPackBounds(Buf, 3, lbound(InData%WaveElevC, kind=B8Ki), ubound(InData%WaveElevC, kind=B8Ki)) call RegPack(Buf, InData%WaveElevC) end if call RegPack(Buf, allocated(InData%WaveElevC0)) if (allocated(InData%WaveElevC0)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveElevC0), ubound(InData%WaveElevC0)) + call RegPackBounds(Buf, 2, lbound(InData%WaveElevC0, kind=B8Ki), ubound(InData%WaveElevC0, kind=B8Ki)) call RegPack(Buf, InData%WaveElevC0) end if call RegPack(Buf, allocated(InData%WaveDirArr)) if (allocated(InData%WaveDirArr)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveDirArr), ubound(InData%WaveDirArr)) + call RegPackBounds(Buf, 1, lbound(InData%WaveDirArr, kind=B8Ki), ubound(InData%WaveDirArr, kind=B8Ki)) call RegPack(Buf, InData%WaveDirArr) end if call RegPack(Buf, InData%WtrDpth) @@ -473,7 +473,7 @@ subroutine SeaSt_WaveField_UnPackSeaSt_WaveFieldType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaSt_WaveFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_WaveField_UnPackSeaSt_WaveFieldType' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/SeaState_Types.f90 b/modules/seastate/src/SeaState_Types.f90 index f0a1d2bf70..78b2a16e84 100644 --- a/modules/seastate/src/SeaState_Types.f90 +++ b/modules/seastate/src/SeaState_Types.f90 @@ -183,7 +183,7 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyInputFile' @@ -209,8 +209,8 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err DstInputFileData%Echo = SrcInputFileData%Echo DstInputFileData%NWaveElev = SrcInputFileData%NWaveElev if (allocated(SrcInputFileData%WaveElevxi)) then - LB(1:1) = lbound(SrcInputFileData%WaveElevxi) - UB(1:1) = ubound(SrcInputFileData%WaveElevxi) + LB(1:1) = lbound(SrcInputFileData%WaveElevxi, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WaveElevxi, kind=B8Ki) if (.not. allocated(DstInputFileData%WaveElevxi)) then allocate(DstInputFileData%WaveElevxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -221,8 +221,8 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err DstInputFileData%WaveElevxi = SrcInputFileData%WaveElevxi end if if (allocated(SrcInputFileData%WaveElevyi)) then - LB(1:1) = lbound(SrcInputFileData%WaveElevyi) - UB(1:1) = ubound(SrcInputFileData%WaveElevyi) + LB(1:1) = lbound(SrcInputFileData%WaveElevyi, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WaveElevyi, kind=B8Ki) if (.not. allocated(DstInputFileData%WaveElevyi)) then allocate(DstInputFileData%WaveElevyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -234,8 +234,8 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err end if DstInputFileData%NWaveKin = SrcInputFileData%NWaveKin if (allocated(SrcInputFileData%WaveKinxi)) then - LB(1:1) = lbound(SrcInputFileData%WaveKinxi) - UB(1:1) = ubound(SrcInputFileData%WaveKinxi) + LB(1:1) = lbound(SrcInputFileData%WaveKinxi, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WaveKinxi, kind=B8Ki) if (.not. allocated(DstInputFileData%WaveKinxi)) then allocate(DstInputFileData%WaveKinxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -246,8 +246,8 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err DstInputFileData%WaveKinxi = SrcInputFileData%WaveKinxi end if if (allocated(SrcInputFileData%WaveKinyi)) then - LB(1:1) = lbound(SrcInputFileData%WaveKinyi) - UB(1:1) = ubound(SrcInputFileData%WaveKinyi) + LB(1:1) = lbound(SrcInputFileData%WaveKinyi, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WaveKinyi, kind=B8Ki) if (.not. allocated(DstInputFileData%WaveKinyi)) then allocate(DstInputFileData%WaveKinyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -258,8 +258,8 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err DstInputFileData%WaveKinyi = SrcInputFileData%WaveKinyi end if if (allocated(SrcInputFileData%WaveKinzi)) then - LB(1:1) = lbound(SrcInputFileData%WaveKinzi) - UB(1:1) = ubound(SrcInputFileData%WaveKinzi) + LB(1:1) = lbound(SrcInputFileData%WaveKinzi, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%WaveKinzi, kind=B8Ki) if (.not. allocated(DstInputFileData%WaveKinzi)) then allocate(DstInputFileData%WaveKinzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -273,8 +273,8 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err DstInputFileData%OutAll = SrcInputFileData%OutAll DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -359,28 +359,28 @@ subroutine SeaSt_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NWaveElev) call RegPack(Buf, allocated(InData%WaveElevxi)) if (allocated(InData%WaveElevxi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElevxi), ubound(InData%WaveElevxi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElevxi, kind=B8Ki), ubound(InData%WaveElevxi, kind=B8Ki)) call RegPack(Buf, InData%WaveElevxi) end if call RegPack(Buf, allocated(InData%WaveElevyi)) if (allocated(InData%WaveElevyi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElevyi), ubound(InData%WaveElevyi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElevyi, kind=B8Ki), ubound(InData%WaveElevyi, kind=B8Ki)) call RegPack(Buf, InData%WaveElevyi) end if call RegPack(Buf, InData%NWaveKin) call RegPack(Buf, allocated(InData%WaveKinxi)) if (allocated(InData%WaveKinxi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinxi), ubound(InData%WaveKinxi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinxi, kind=B8Ki), ubound(InData%WaveKinxi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinxi) end if call RegPack(Buf, allocated(InData%WaveKinyi)) if (allocated(InData%WaveKinyi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinyi), ubound(InData%WaveKinyi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinyi, kind=B8Ki), ubound(InData%WaveKinyi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinyi) end if call RegPack(Buf, allocated(InData%WaveKinzi)) if (allocated(InData%WaveKinzi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinzi), ubound(InData%WaveKinzi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinzi, kind=B8Ki), ubound(InData%WaveKinzi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinzi) end if call RegPack(Buf, InData%OutSwtch) @@ -388,7 +388,7 @@ subroutine SeaSt_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%SeaStSum) @@ -416,7 +416,7 @@ subroutine SeaSt_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaSt_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackInputFile' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -579,7 +579,7 @@ subroutine SeaSt_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyInitInput' @@ -597,8 +597,8 @@ subroutine SeaSt_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%defMSL2SWL = SrcInitInputData%defMSL2SWL DstInitInputData%TMax = SrcInitInputData%TMax if (allocated(SrcInitInputData%WaveElevXY)) then - LB(1:2) = lbound(SrcInitInputData%WaveElevXY) - UB(1:2) = ubound(SrcInitInputData%WaveElevXY) + LB(1:2) = lbound(SrcInitInputData%WaveElevXY, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%WaveElevXY, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveElevXY)) then allocate(DstInitInputData%WaveElevXY(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -648,7 +648,7 @@ subroutine SeaSt_PackInitInput(Buf, Indata) call RegPack(Buf, InData%TMax) call RegPack(Buf, allocated(InData%WaveElevXY)) if (allocated(InData%WaveElevXY)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveElevXY), ubound(InData%WaveElevXY)) + call RegPackBounds(Buf, 2, lbound(InData%WaveElevXY, kind=B8Ki), ubound(InData%WaveElevXY, kind=B8Ki)) call RegPack(Buf, InData%WaveElevXY) end if call RegPack(Buf, InData%WaveFieldMod) @@ -664,7 +664,7 @@ subroutine SeaSt_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaSt_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackInitInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -719,15 +719,15 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -738,8 +738,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -754,8 +754,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, if (ErrStat >= AbortErrLev) return DstInitOutputData%InvalidWithSSExctn = SrcInitOutputData%InvalidWithSSExctn if (allocated(SrcInitOutputData%WaveElevSeries)) then - LB(1:2) = lbound(SrcInitOutputData%WaveElevSeries) - UB(1:2) = ubound(SrcInitOutputData%WaveElevSeries) + LB(1:2) = lbound(SrcInitOutputData%WaveElevSeries, kind=B8Ki) + UB(1:2) = ubound(SrcInitOutputData%WaveElevSeries, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveElevSeries)) then allocate(DstInitOutputData%WaveElevSeries(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -799,19 +799,19 @@ subroutine SeaSt_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, InData%InvalidWithSSExctn) call RegPack(Buf, allocated(InData%WaveElevSeries)) if (allocated(InData%WaveElevSeries)) then - call RegPackBounds(Buf, 2, lbound(InData%WaveElevSeries), ubound(InData%WaveElevSeries)) + call RegPackBounds(Buf, 2, lbound(InData%WaveElevSeries, kind=B8Ki), ubound(InData%WaveElevSeries, kind=B8Ki)) call RegPack(Buf, InData%WaveElevSeries) end if call RegPack(Buf, associated(InData%WaveField)) @@ -828,10 +828,10 @@ subroutine SeaSt_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaSt_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackInitOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (allocated(OutData%WriteOutputHdr)) deallocate(OutData%WriteOutputHdr) @@ -1121,8 +1121,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyParam' @@ -1134,8 +1134,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%deltaGrid = SrcParamData%deltaGrid DstParamData%NWaveElev = SrcParamData%NWaveElev if (allocated(SrcParamData%WaveElevxi)) then - LB(1:1) = lbound(SrcParamData%WaveElevxi) - UB(1:1) = ubound(SrcParamData%WaveElevxi) + LB(1:1) = lbound(SrcParamData%WaveElevxi, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WaveElevxi, kind=B8Ki) if (.not. allocated(DstParamData%WaveElevxi)) then allocate(DstParamData%WaveElevxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1146,8 +1146,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%WaveElevxi = SrcParamData%WaveElevxi end if if (allocated(SrcParamData%WaveElevyi)) then - LB(1:1) = lbound(SrcParamData%WaveElevyi) - UB(1:1) = ubound(SrcParamData%WaveElevyi) + LB(1:1) = lbound(SrcParamData%WaveElevyi, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WaveElevyi, kind=B8Ki) if (.not. allocated(DstParamData%WaveElevyi)) then allocate(DstParamData%WaveElevyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1159,8 +1159,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg end if DstParamData%NWaveKin = SrcParamData%NWaveKin if (allocated(SrcParamData%WaveKinxi)) then - LB(1:1) = lbound(SrcParamData%WaveKinxi) - UB(1:1) = ubound(SrcParamData%WaveKinxi) + LB(1:1) = lbound(SrcParamData%WaveKinxi, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WaveKinxi, kind=B8Ki) if (.not. allocated(DstParamData%WaveKinxi)) then allocate(DstParamData%WaveKinxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1171,8 +1171,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%WaveKinxi = SrcParamData%WaveKinxi end if if (allocated(SrcParamData%WaveKinyi)) then - LB(1:1) = lbound(SrcParamData%WaveKinyi) - UB(1:1) = ubound(SrcParamData%WaveKinyi) + LB(1:1) = lbound(SrcParamData%WaveKinyi, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WaveKinyi, kind=B8Ki) if (.not. allocated(DstParamData%WaveKinyi)) then allocate(DstParamData%WaveKinyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1183,8 +1183,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%WaveKinyi = SrcParamData%WaveKinyi end if if (allocated(SrcParamData%WaveKinzi)) then - LB(1:1) = lbound(SrcParamData%WaveKinzi) - UB(1:1) = ubound(SrcParamData%WaveKinzi) + LB(1:1) = lbound(SrcParamData%WaveKinzi, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%WaveKinzi, kind=B8Ki) if (.not. allocated(DstParamData%WaveKinzi)) then allocate(DstParamData%WaveKinzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1195,8 +1195,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%WaveKinzi = SrcParamData%WaveKinzi end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1235,8 +1235,8 @@ subroutine SeaSt_DestroyParam(ParamData, ErrStat, ErrMsg) type(SeaSt_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_DestroyParam' @@ -1258,8 +1258,8 @@ subroutine SeaSt_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WaveKinzi) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1278,8 +1278,8 @@ subroutine SeaSt_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SeaSt_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SeaSt_PackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) logical :: PtrInIndex if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%WaveDT) @@ -1289,35 +1289,35 @@ subroutine SeaSt_PackParam(Buf, Indata) call RegPack(Buf, InData%NWaveElev) call RegPack(Buf, allocated(InData%WaveElevxi)) if (allocated(InData%WaveElevxi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElevxi), ubound(InData%WaveElevxi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElevxi, kind=B8Ki), ubound(InData%WaveElevxi, kind=B8Ki)) call RegPack(Buf, InData%WaveElevxi) end if call RegPack(Buf, allocated(InData%WaveElevyi)) if (allocated(InData%WaveElevyi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveElevyi), ubound(InData%WaveElevyi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveElevyi, kind=B8Ki), ubound(InData%WaveElevyi, kind=B8Ki)) call RegPack(Buf, InData%WaveElevyi) end if call RegPack(Buf, InData%NWaveKin) call RegPack(Buf, allocated(InData%WaveKinxi)) if (allocated(InData%WaveKinxi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinxi), ubound(InData%WaveKinxi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinxi, kind=B8Ki), ubound(InData%WaveKinxi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinxi) end if call RegPack(Buf, allocated(InData%WaveKinyi)) if (allocated(InData%WaveKinyi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinyi), ubound(InData%WaveKinyi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinyi, kind=B8Ki), ubound(InData%WaveKinyi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinyi) end if call RegPack(Buf, allocated(InData%WaveKinzi)) if (allocated(InData%WaveKinzi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinzi), ubound(InData%WaveKinzi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinzi, kind=B8Ki), ubound(InData%WaveKinzi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinzi) end if call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -1343,11 +1343,11 @@ subroutine SeaSt_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaSt_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackParam' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%WaveDT) @@ -1528,14 +1528,14 @@ subroutine SeaSt_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SeaSt_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1566,7 +1566,7 @@ subroutine SeaSt_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1576,7 +1576,7 @@ subroutine SeaSt_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SeaSt_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/Waves2_Types.f90 b/modules/seastate/src/Waves2_Types.f90 index ee5d2ba6c1..0fdde7f505 100644 --- a/modules/seastate/src/Waves2_Types.f90 +++ b/modules/seastate/src/Waves2_Types.f90 @@ -64,7 +64,7 @@ subroutine Waves2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Waves2_CopyInitInput' ErrStat = ErrID_None @@ -74,8 +74,8 @@ subroutine Waves2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%NWaveElevGrid = SrcInitInputData%NWaveElevGrid DstInitInputData%NWaveKinGrid = SrcInitInputData%NWaveKinGrid if (allocated(SrcInitInputData%WaveKinGridxi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridxi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridxi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridxi)) then allocate(DstInitInputData%WaveKinGridxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -86,8 +86,8 @@ subroutine Waves2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%WaveKinGridxi = SrcInitInputData%WaveKinGridxi end if if (allocated(SrcInitInputData%WaveKinGridyi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridyi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridyi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridyi)) then allocate(DstInitInputData%WaveKinGridyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -98,8 +98,8 @@ subroutine Waves2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er DstInitInputData%WaveKinGridyi = SrcInitInputData%WaveKinGridyi end if if (allocated(SrcInitInputData%WaveKinGridzi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridzi)) then allocate(DstInitInputData%WaveKinGridzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -142,17 +142,17 @@ subroutine Waves2_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NWaveKinGrid) call RegPack(Buf, allocated(InData%WaveKinGridxi)) if (allocated(InData%WaveKinGridxi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridxi), ubound(InData%WaveKinGridxi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridxi, kind=B8Ki), ubound(InData%WaveKinGridxi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridxi) end if call RegPack(Buf, allocated(InData%WaveKinGridyi)) if (allocated(InData%WaveKinGridyi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridyi), ubound(InData%WaveKinGridyi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridyi, kind=B8Ki), ubound(InData%WaveKinGridyi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridyi) end if call RegPack(Buf, allocated(InData%WaveKinGridzi)) if (allocated(InData%WaveKinGridzi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridzi), ubound(InData%WaveKinGridzi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridzi, kind=B8Ki), ubound(InData%WaveKinGridzi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridzi) end if call RegPack(Buf, InData%WvDiffQTFF) @@ -164,7 +164,7 @@ subroutine Waves2_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Waves2_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Waves2_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -230,14 +230,14 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Waves2_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WaveAcc2D)) then - LB(1:5) = lbound(SrcInitOutputData%WaveAcc2D) - UB(1:5) = ubound(SrcInitOutputData%WaveAcc2D) + LB(1:5) = lbound(SrcInitOutputData%WaveAcc2D, kind=B8Ki) + UB(1:5) = ubound(SrcInitOutputData%WaveAcc2D, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveAcc2D)) then allocate(DstInitOutputData%WaveAcc2D(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -248,8 +248,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveAcc2D = SrcInitOutputData%WaveAcc2D end if if (allocated(SrcInitOutputData%WaveDynP2D)) then - LB(1:4) = lbound(SrcInitOutputData%WaveDynP2D) - UB(1:4) = ubound(SrcInitOutputData%WaveDynP2D) + LB(1:4) = lbound(SrcInitOutputData%WaveDynP2D, kind=B8Ki) + UB(1:4) = ubound(SrcInitOutputData%WaveDynP2D, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveDynP2D)) then allocate(DstInitOutputData%WaveDynP2D(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -260,8 +260,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveDynP2D = SrcInitOutputData%WaveDynP2D end if if (allocated(SrcInitOutputData%WaveAcc2S)) then - LB(1:5) = lbound(SrcInitOutputData%WaveAcc2S) - UB(1:5) = ubound(SrcInitOutputData%WaveAcc2S) + LB(1:5) = lbound(SrcInitOutputData%WaveAcc2S, kind=B8Ki) + UB(1:5) = ubound(SrcInitOutputData%WaveAcc2S, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveAcc2S)) then allocate(DstInitOutputData%WaveAcc2S(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -272,8 +272,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveAcc2S = SrcInitOutputData%WaveAcc2S end if if (allocated(SrcInitOutputData%WaveDynP2S)) then - LB(1:4) = lbound(SrcInitOutputData%WaveDynP2S) - UB(1:4) = ubound(SrcInitOutputData%WaveDynP2S) + LB(1:4) = lbound(SrcInitOutputData%WaveDynP2S, kind=B8Ki) + UB(1:4) = ubound(SrcInitOutputData%WaveDynP2S, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveDynP2S)) then allocate(DstInitOutputData%WaveDynP2S(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -284,8 +284,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveDynP2S = SrcInitOutputData%WaveDynP2S end if if (allocated(SrcInitOutputData%WaveVel2D)) then - LB(1:5) = lbound(SrcInitOutputData%WaveVel2D) - UB(1:5) = ubound(SrcInitOutputData%WaveVel2D) + LB(1:5) = lbound(SrcInitOutputData%WaveVel2D, kind=B8Ki) + UB(1:5) = ubound(SrcInitOutputData%WaveVel2D, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveVel2D)) then allocate(DstInitOutputData%WaveVel2D(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -296,8 +296,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveVel2D = SrcInitOutputData%WaveVel2D end if if (allocated(SrcInitOutputData%WaveVel2S)) then - LB(1:5) = lbound(SrcInitOutputData%WaveVel2S) - UB(1:5) = ubound(SrcInitOutputData%WaveVel2S) + LB(1:5) = lbound(SrcInitOutputData%WaveVel2S, kind=B8Ki) + UB(1:5) = ubound(SrcInitOutputData%WaveVel2S, kind=B8Ki) if (.not. allocated(DstInitOutputData%WaveVel2S)) then allocate(DstInitOutputData%WaveVel2S(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -343,32 +343,32 @@ subroutine Waves2_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WaveAcc2D)) if (allocated(InData%WaveAcc2D)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveAcc2D), ubound(InData%WaveAcc2D)) + call RegPackBounds(Buf, 5, lbound(InData%WaveAcc2D, kind=B8Ki), ubound(InData%WaveAcc2D, kind=B8Ki)) call RegPack(Buf, InData%WaveAcc2D) end if call RegPack(Buf, allocated(InData%WaveDynP2D)) if (allocated(InData%WaveDynP2D)) then - call RegPackBounds(Buf, 4, lbound(InData%WaveDynP2D), ubound(InData%WaveDynP2D)) + call RegPackBounds(Buf, 4, lbound(InData%WaveDynP2D, kind=B8Ki), ubound(InData%WaveDynP2D, kind=B8Ki)) call RegPack(Buf, InData%WaveDynP2D) end if call RegPack(Buf, allocated(InData%WaveAcc2S)) if (allocated(InData%WaveAcc2S)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveAcc2S), ubound(InData%WaveAcc2S)) + call RegPackBounds(Buf, 5, lbound(InData%WaveAcc2S, kind=B8Ki), ubound(InData%WaveAcc2S, kind=B8Ki)) call RegPack(Buf, InData%WaveAcc2S) end if call RegPack(Buf, allocated(InData%WaveDynP2S)) if (allocated(InData%WaveDynP2S)) then - call RegPackBounds(Buf, 4, lbound(InData%WaveDynP2S), ubound(InData%WaveDynP2S)) + call RegPackBounds(Buf, 4, lbound(InData%WaveDynP2S, kind=B8Ki), ubound(InData%WaveDynP2S, kind=B8Ki)) call RegPack(Buf, InData%WaveDynP2S) end if call RegPack(Buf, allocated(InData%WaveVel2D)) if (allocated(InData%WaveVel2D)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveVel2D), ubound(InData%WaveVel2D)) + call RegPackBounds(Buf, 5, lbound(InData%WaveVel2D, kind=B8Ki), ubound(InData%WaveVel2D, kind=B8Ki)) call RegPack(Buf, InData%WaveVel2D) end if call RegPack(Buf, allocated(InData%WaveVel2S)) if (allocated(InData%WaveVel2S)) then - call RegPackBounds(Buf, 5, lbound(InData%WaveVel2S), ubound(InData%WaveVel2S)) + call RegPackBounds(Buf, 5, lbound(InData%WaveVel2S, kind=B8Ki), ubound(InData%WaveVel2S, kind=B8Ki)) call RegPack(Buf, InData%WaveVel2S) end if if (RegCheckErr(Buf, RoutineName)) return @@ -378,7 +378,7 @@ subroutine Waves2_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Waves2_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Waves2_UnPackInitOutput' - integer(IntKi) :: LB(5), UB(5) + integer(B8Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/Waves_Types.f90 b/modules/seastate/src/Waves_Types.f90 index 00cfd710db..4b465fc3a9 100644 --- a/modules/seastate/src/Waves_Types.f90 +++ b/modules/seastate/src/Waves_Types.f90 @@ -84,7 +84,7 @@ subroutine Waves_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Waves_CopyInitInput' @@ -108,8 +108,8 @@ subroutine Waves_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%NWaveElevGrid = SrcInitInputData%NWaveElevGrid DstInitInputData%NWaveKinGrid = SrcInitInputData%NWaveKinGrid if (allocated(SrcInitInputData%WaveKinGridxi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridxi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridxi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridxi)) then allocate(DstInitInputData%WaveKinGridxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -120,8 +120,8 @@ subroutine Waves_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%WaveKinGridxi = SrcInitInputData%WaveKinGridxi end if if (allocated(SrcInitInputData%WaveKinGridyi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridyi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridyi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridyi)) then allocate(DstInitInputData%WaveKinGridyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -132,8 +132,8 @@ subroutine Waves_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%WaveKinGridyi = SrcInitInputData%WaveKinGridyi end if if (allocated(SrcInitInputData%WaveKinGridzi)) then - LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) if (.not. allocated(DstInitInputData%WaveKinGridzi)) then allocate(DstInitInputData%WaveKinGridzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -144,8 +144,8 @@ subroutine Waves_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%WaveKinGridzi = SrcInitInputData%WaveKinGridzi end if if (allocated(SrcInitInputData%CurrVxi)) then - LB(1:1) = lbound(SrcInitInputData%CurrVxi) - UB(1:1) = ubound(SrcInitInputData%CurrVxi) + LB(1:1) = lbound(SrcInitInputData%CurrVxi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%CurrVxi, kind=B8Ki) if (.not. allocated(DstInitInputData%CurrVxi)) then allocate(DstInitInputData%CurrVxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -156,8 +156,8 @@ subroutine Waves_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%CurrVxi = SrcInitInputData%CurrVxi end if if (allocated(SrcInitInputData%CurrVyi)) then - LB(1:1) = lbound(SrcInitInputData%CurrVyi) - UB(1:1) = ubound(SrcInitInputData%CurrVyi) + LB(1:1) = lbound(SrcInitInputData%CurrVyi, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%CurrVyi, kind=B8Ki) if (.not. allocated(DstInitInputData%CurrVyi)) then allocate(DstInitInputData%CurrVyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -234,27 +234,27 @@ subroutine Waves_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NWaveKinGrid) call RegPack(Buf, allocated(InData%WaveKinGridxi)) if (allocated(InData%WaveKinGridxi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridxi), ubound(InData%WaveKinGridxi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridxi, kind=B8Ki), ubound(InData%WaveKinGridxi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridxi) end if call RegPack(Buf, allocated(InData%WaveKinGridyi)) if (allocated(InData%WaveKinGridyi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridyi), ubound(InData%WaveKinGridyi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridyi, kind=B8Ki), ubound(InData%WaveKinGridyi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridyi) end if call RegPack(Buf, allocated(InData%WaveKinGridzi)) if (allocated(InData%WaveKinGridzi)) then - call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridzi), ubound(InData%WaveKinGridzi)) + call RegPackBounds(Buf, 1, lbound(InData%WaveKinGridzi, kind=B8Ki), ubound(InData%WaveKinGridzi, kind=B8Ki)) call RegPack(Buf, InData%WaveKinGridzi) end if call RegPack(Buf, allocated(InData%CurrVxi)) if (allocated(InData%CurrVxi)) then - call RegPackBounds(Buf, 1, lbound(InData%CurrVxi), ubound(InData%CurrVxi)) + call RegPackBounds(Buf, 1, lbound(InData%CurrVxi, kind=B8Ki), ubound(InData%CurrVxi, kind=B8Ki)) call RegPack(Buf, InData%CurrVxi) end if call RegPack(Buf, allocated(InData%CurrVyi)) if (allocated(InData%CurrVyi)) then - call RegPackBounds(Buf, 1, lbound(InData%CurrVyi), ubound(InData%CurrVyi)) + call RegPackBounds(Buf, 1, lbound(InData%CurrVyi, kind=B8Ki), ubound(InData%CurrVyi, kind=B8Ki)) call RegPack(Buf, InData%CurrVyi) end if call RegPack(Buf, InData%PCurrVxiPz0) @@ -275,7 +275,7 @@ subroutine Waves_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(Waves_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Waves_UnPackInitInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/servodyn/src/ServoDyn_Types.f90 b/modules/servodyn/src/ServoDyn_Types.f90 index 59e61da949..cc7445e5d0 100644 --- a/modules/servodyn/src/ServoDyn_Types.f90 +++ b/modules/servodyn/src/ServoDyn_Types.f90 @@ -584,7 +584,7 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyInitInput' @@ -595,8 +595,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%NumBl = SrcInitInputData%NumBl DstInitInputData%RootName = SrcInitInputData%RootName if (allocated(SrcInitInputData%BlPitchInit)) then - LB(1:1) = lbound(SrcInitInputData%BlPitchInit) - UB(1:1) = ubound(SrcInitInputData%BlPitchInit) + LB(1:1) = lbound(SrcInitInputData%BlPitchInit, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%BlPitchInit, kind=B8Ki) if (.not. allocated(DstInitInputData%BlPitchInit)) then allocate(DstInitInputData%BlPitchInit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -629,8 +629,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%TrimGain = SrcInitInputData%TrimGain DstInitInputData%RotSpeedRef = SrcInitInputData%RotSpeedRef if (allocated(SrcInitInputData%BladeRootRefPos)) then - LB(1:2) = lbound(SrcInitInputData%BladeRootRefPos) - UB(1:2) = ubound(SrcInitInputData%BladeRootRefPos) + LB(1:2) = lbound(SrcInitInputData%BladeRootRefPos, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%BladeRootRefPos, kind=B8Ki) if (.not. allocated(DstInitInputData%BladeRootRefPos)) then allocate(DstInitInputData%BladeRootRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -641,8 +641,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%BladeRootRefPos = SrcInitInputData%BladeRootRefPos end if if (allocated(SrcInitInputData%BladeRootTransDisp)) then - LB(1:2) = lbound(SrcInitInputData%BladeRootTransDisp) - UB(1:2) = ubound(SrcInitInputData%BladeRootTransDisp) + LB(1:2) = lbound(SrcInitInputData%BladeRootTransDisp, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%BladeRootTransDisp, kind=B8Ki) if (.not. allocated(DstInitInputData%BladeRootTransDisp)) then allocate(DstInitInputData%BladeRootTransDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -653,8 +653,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%BladeRootTransDisp = SrcInitInputData%BladeRootTransDisp end if if (allocated(SrcInitInputData%BladeRootOrient)) then - LB(1:3) = lbound(SrcInitInputData%BladeRootOrient) - UB(1:3) = ubound(SrcInitInputData%BladeRootOrient) + LB(1:3) = lbound(SrcInitInputData%BladeRootOrient, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%BladeRootOrient, kind=B8Ki) if (.not. allocated(DstInitInputData%BladeRootOrient)) then allocate(DstInitInputData%BladeRootOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -665,8 +665,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%BladeRootOrient = SrcInitInputData%BladeRootOrient end if if (allocated(SrcInitInputData%BladeRootRefOrient)) then - LB(1:3) = lbound(SrcInitInputData%BladeRootRefOrient) - UB(1:3) = ubound(SrcInitInputData%BladeRootRefOrient) + LB(1:3) = lbound(SrcInitInputData%BladeRootRefOrient, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%BladeRootRefOrient, kind=B8Ki) if (.not. allocated(DstInitInputData%BladeRootRefOrient)) then allocate(DstInitInputData%BladeRootRefOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -682,8 +682,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS if (ErrStat >= AbortErrLev) return DstInitInputData%NumCableControl = SrcInitInputData%NumCableControl if (allocated(SrcInitInputData%CableControlRequestor)) then - LB(1:1) = lbound(SrcInitInputData%CableControlRequestor) - UB(1:1) = ubound(SrcInitInputData%CableControlRequestor) + LB(1:1) = lbound(SrcInitInputData%CableControlRequestor, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%CableControlRequestor, kind=B8Ki) if (.not. allocated(DstInitInputData%CableControlRequestor)) then allocate(DstInitInputData%CableControlRequestor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -695,8 +695,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS end if DstInitInputData%InterpOrder = SrcInitInputData%InterpOrder if (allocated(SrcInitInputData%fromSCGlob)) then - LB(1:1) = lbound(SrcInitInputData%fromSCGlob) - UB(1:1) = ubound(SrcInitInputData%fromSCGlob) + LB(1:1) = lbound(SrcInitInputData%fromSCGlob, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%fromSCGlob, kind=B8Ki) if (.not. allocated(DstInitInputData%fromSCGlob)) then allocate(DstInitInputData%fromSCGlob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -707,8 +707,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%fromSCGlob = SrcInitInputData%fromSCGlob end if if (allocated(SrcInitInputData%fromSC)) then - LB(1:1) = lbound(SrcInitInputData%fromSC) - UB(1:1) = ubound(SrcInitInputData%fromSC) + LB(1:1) = lbound(SrcInitInputData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%fromSC, kind=B8Ki) if (.not. allocated(DstInitInputData%fromSC)) then allocate(DstInitInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -719,8 +719,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%fromSC = SrcInitInputData%fromSC end if if (allocated(SrcInitInputData%LidSpeed)) then - LB(1:1) = lbound(SrcInitInputData%LidSpeed) - UB(1:1) = ubound(SrcInitInputData%LidSpeed) + LB(1:1) = lbound(SrcInitInputData%LidSpeed, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%LidSpeed, kind=B8Ki) if (.not. allocated(DstInitInputData%LidSpeed)) then allocate(DstInitInputData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -731,8 +731,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%LidSpeed = SrcInitInputData%LidSpeed end if if (allocated(SrcInitInputData%MsrPositionsX)) then - LB(1:1) = lbound(SrcInitInputData%MsrPositionsX) - UB(1:1) = ubound(SrcInitInputData%MsrPositionsX) + LB(1:1) = lbound(SrcInitInputData%MsrPositionsX, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%MsrPositionsX, kind=B8Ki) if (.not. allocated(DstInitInputData%MsrPositionsX)) then allocate(DstInitInputData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -743,8 +743,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%MsrPositionsX = SrcInitInputData%MsrPositionsX end if if (allocated(SrcInitInputData%MsrPositionsY)) then - LB(1:1) = lbound(SrcInitInputData%MsrPositionsY) - UB(1:1) = ubound(SrcInitInputData%MsrPositionsY) + LB(1:1) = lbound(SrcInitInputData%MsrPositionsY, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%MsrPositionsY, kind=B8Ki) if (.not. allocated(DstInitInputData%MsrPositionsY)) then allocate(DstInitInputData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -755,8 +755,8 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS DstInitInputData%MsrPositionsY = SrcInitInputData%MsrPositionsY end if if (allocated(SrcInitInputData%MsrPositionsZ)) then - LB(1:1) = lbound(SrcInitInputData%MsrPositionsZ) - UB(1:1) = ubound(SrcInitInputData%MsrPositionsZ) + LB(1:1) = lbound(SrcInitInputData%MsrPositionsZ, kind=B8Ki) + UB(1:1) = ubound(SrcInitInputData%MsrPositionsZ, kind=B8Ki) if (.not. allocated(DstInitInputData%MsrPositionsZ)) then allocate(DstInitInputData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -833,7 +833,7 @@ subroutine SrvD_PackInitInput(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%BlPitchInit)) if (allocated(InData%BlPitchInit)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchInit), ubound(InData%BlPitchInit)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchInit, kind=B8Ki), ubound(InData%BlPitchInit, kind=B8Ki)) call RegPack(Buf, InData%BlPitchInit) end if call RegPack(Buf, InData%Gravity) @@ -860,22 +860,22 @@ subroutine SrvD_PackInitInput(Buf, Indata) call RegPack(Buf, InData%RotSpeedRef) call RegPack(Buf, allocated(InData%BladeRootRefPos)) if (allocated(InData%BladeRootRefPos)) then - call RegPackBounds(Buf, 2, lbound(InData%BladeRootRefPos), ubound(InData%BladeRootRefPos)) + call RegPackBounds(Buf, 2, lbound(InData%BladeRootRefPos, kind=B8Ki), ubound(InData%BladeRootRefPos, kind=B8Ki)) call RegPack(Buf, InData%BladeRootRefPos) end if call RegPack(Buf, allocated(InData%BladeRootTransDisp)) if (allocated(InData%BladeRootTransDisp)) then - call RegPackBounds(Buf, 2, lbound(InData%BladeRootTransDisp), ubound(InData%BladeRootTransDisp)) + call RegPackBounds(Buf, 2, lbound(InData%BladeRootTransDisp, kind=B8Ki), ubound(InData%BladeRootTransDisp, kind=B8Ki)) call RegPack(Buf, InData%BladeRootTransDisp) end if call RegPack(Buf, allocated(InData%BladeRootOrient)) if (allocated(InData%BladeRootOrient)) then - call RegPackBounds(Buf, 3, lbound(InData%BladeRootOrient), ubound(InData%BladeRootOrient)) + call RegPackBounds(Buf, 3, lbound(InData%BladeRootOrient, kind=B8Ki), ubound(InData%BladeRootOrient, kind=B8Ki)) call RegPack(Buf, InData%BladeRootOrient) end if call RegPack(Buf, allocated(InData%BladeRootRefOrient)) if (allocated(InData%BladeRootRefOrient)) then - call RegPackBounds(Buf, 3, lbound(InData%BladeRootRefOrient), ubound(InData%BladeRootRefOrient)) + call RegPackBounds(Buf, 3, lbound(InData%BladeRootRefOrient, kind=B8Ki), ubound(InData%BladeRootRefOrient, kind=B8Ki)) call RegPack(Buf, InData%BladeRootRefOrient) end if call RegPack(Buf, InData%UseInputFile) @@ -883,38 +883,38 @@ subroutine SrvD_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NumCableControl) call RegPack(Buf, allocated(InData%CableControlRequestor)) if (allocated(InData%CableControlRequestor)) then - call RegPackBounds(Buf, 1, lbound(InData%CableControlRequestor), ubound(InData%CableControlRequestor)) + call RegPackBounds(Buf, 1, lbound(InData%CableControlRequestor, kind=B8Ki), ubound(InData%CableControlRequestor, kind=B8Ki)) call RegPack(Buf, InData%CableControlRequestor) end if call RegPack(Buf, InData%InterpOrder) call RegPack(Buf, allocated(InData%fromSCGlob)) if (allocated(InData%fromSCGlob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCGlob), ubound(InData%fromSCGlob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCGlob, kind=B8Ki), ubound(InData%fromSCGlob, kind=B8Ki)) call RegPack(Buf, InData%fromSCGlob) end if call RegPack(Buf, allocated(InData%fromSC)) if (allocated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPack(Buf, InData%fromSC) end if call RegPack(Buf, allocated(InData%LidSpeed)) if (allocated(InData%LidSpeed)) then - call RegPackBounds(Buf, 1, lbound(InData%LidSpeed), ubound(InData%LidSpeed)) + call RegPackBounds(Buf, 1, lbound(InData%LidSpeed, kind=B8Ki), ubound(InData%LidSpeed, kind=B8Ki)) call RegPack(Buf, InData%LidSpeed) end if call RegPack(Buf, allocated(InData%MsrPositionsX)) if (allocated(InData%MsrPositionsX)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX), ubound(InData%MsrPositionsX)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX, kind=B8Ki), ubound(InData%MsrPositionsX, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsX) end if call RegPack(Buf, allocated(InData%MsrPositionsY)) if (allocated(InData%MsrPositionsY)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY), ubound(InData%MsrPositionsY)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY, kind=B8Ki), ubound(InData%MsrPositionsY, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsY) end if call RegPack(Buf, allocated(InData%MsrPositionsZ)) if (allocated(InData%MsrPositionsZ)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ), ubound(InData%MsrPositionsZ)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ, kind=B8Ki), ubound(InData%MsrPositionsZ, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsZ) end if call RegPack(Buf, InData%SensorType) @@ -929,7 +929,7 @@ subroutine SrvD_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInitInput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1178,15 +1178,15 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1197,8 +1197,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1214,8 +1214,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%CouplingScheme = SrcInitOutputData%CouplingScheme DstInitOutputData%UseHSSBrake = SrcInitOutputData%UseHSSBrake if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1226,8 +1226,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1238,8 +1238,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1250,8 +1250,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1262,8 +1262,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_x)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1274,8 +1274,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%RotFrame_x = SrcInitOutputData%RotFrame_x end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1286,8 +1286,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1298,8 +1298,8 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%IsLoad_u = SrcInitOutputData%IsLoad_u end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1361,12 +1361,12 @@ subroutine SrvD_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) @@ -1374,42 +1374,42 @@ subroutine SrvD_PackInitOutput(Buf, Indata) call RegPack(Buf, InData%UseHSSBrake) call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1419,7 +1419,7 @@ subroutine SrvD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1576,7 +1576,7 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SrvD_CopyInputFile' ErrStat = ErrID_None @@ -1631,8 +1631,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%Tstart = SrcInputFileData%Tstart DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList) - UB(1:1) = ubound(SrcInputFileData%OutList) + LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1663,8 +1663,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%GenPwr_Dem = SrcInputFileData%GenPwr_Dem DstInputFileData%DLL_NumTrq = SrcInputFileData%DLL_NumTrq if (allocated(SrcInputFileData%GenSpd_TLU)) then - LB(1:1) = lbound(SrcInputFileData%GenSpd_TLU) - UB(1:1) = ubound(SrcInputFileData%GenSpd_TLU) + LB(1:1) = lbound(SrcInputFileData%GenSpd_TLU, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%GenSpd_TLU, kind=B8Ki) if (.not. allocated(DstInputFileData%GenSpd_TLU)) then allocate(DstInputFileData%GenSpd_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1675,8 +1675,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%GenSpd_TLU = SrcInputFileData%GenSpd_TLU end if if (allocated(SrcInputFileData%GenTrq_TLU)) then - LB(1:1) = lbound(SrcInputFileData%GenTrq_TLU) - UB(1:1) = ubound(SrcInputFileData%GenTrq_TLU) + LB(1:1) = lbound(SrcInputFileData%GenTrq_TLU, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%GenTrq_TLU, kind=B8Ki) if (.not. allocated(DstInputFileData%GenTrq_TLU)) then allocate(DstInputFileData%GenTrq_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1689,8 +1689,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%UseLegacyInterface = SrcInputFileData%UseLegacyInterface DstInputFileData%NumBStC = SrcInputFileData%NumBStC if (allocated(SrcInputFileData%BStCfiles)) then - LB(1:1) = lbound(SrcInputFileData%BStCfiles) - UB(1:1) = ubound(SrcInputFileData%BStCfiles) + LB(1:1) = lbound(SrcInputFileData%BStCfiles, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%BStCfiles, kind=B8Ki) if (.not. allocated(DstInputFileData%BStCfiles)) then allocate(DstInputFileData%BStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1702,8 +1702,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS end if DstInputFileData%NumNStC = SrcInputFileData%NumNStC if (allocated(SrcInputFileData%NStCfiles)) then - LB(1:1) = lbound(SrcInputFileData%NStCfiles) - UB(1:1) = ubound(SrcInputFileData%NStCfiles) + LB(1:1) = lbound(SrcInputFileData%NStCfiles, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%NStCfiles, kind=B8Ki) if (.not. allocated(DstInputFileData%NStCfiles)) then allocate(DstInputFileData%NStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1715,8 +1715,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS end if DstInputFileData%NumTStC = SrcInputFileData%NumTStC if (allocated(SrcInputFileData%TStCfiles)) then - LB(1:1) = lbound(SrcInputFileData%TStCfiles) - UB(1:1) = ubound(SrcInputFileData%TStCfiles) + LB(1:1) = lbound(SrcInputFileData%TStCfiles, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%TStCfiles, kind=B8Ki) if (.not. allocated(DstInputFileData%TStCfiles)) then allocate(DstInputFileData%TStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1728,8 +1728,8 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS end if DstInputFileData%NumSStC = SrcInputFileData%NumSStC if (allocated(SrcInputFileData%SStCfiles)) then - LB(1:1) = lbound(SrcInputFileData%SStCfiles) - UB(1:1) = ubound(SrcInputFileData%SStCfiles) + LB(1:1) = lbound(SrcInputFileData%SStCfiles, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%SStCfiles, kind=B8Ki) if (.not. allocated(DstInputFileData%SStCfiles)) then allocate(DstInputFileData%SStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1833,7 +1833,7 @@ subroutine SrvD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%NumOuts) call RegPack(Buf, allocated(InData%OutList)) if (allocated(InData%OutList)) then - call RegPackBounds(Buf, 1, lbound(InData%OutList), ubound(InData%OutList)) + call RegPackBounds(Buf, 1, lbound(InData%OutList, kind=B8Ki), ubound(InData%OutList, kind=B8Ki)) call RegPack(Buf, InData%OutList) end if call RegPack(Buf, InData%DLL_FileName) @@ -1858,37 +1858,37 @@ subroutine SrvD_PackInputFile(Buf, Indata) call RegPack(Buf, InData%DLL_NumTrq) call RegPack(Buf, allocated(InData%GenSpd_TLU)) if (allocated(InData%GenSpd_TLU)) then - call RegPackBounds(Buf, 1, lbound(InData%GenSpd_TLU), ubound(InData%GenSpd_TLU)) + call RegPackBounds(Buf, 1, lbound(InData%GenSpd_TLU, kind=B8Ki), ubound(InData%GenSpd_TLU, kind=B8Ki)) call RegPack(Buf, InData%GenSpd_TLU) end if call RegPack(Buf, allocated(InData%GenTrq_TLU)) if (allocated(InData%GenTrq_TLU)) then - call RegPackBounds(Buf, 1, lbound(InData%GenTrq_TLU), ubound(InData%GenTrq_TLU)) + call RegPackBounds(Buf, 1, lbound(InData%GenTrq_TLU, kind=B8Ki), ubound(InData%GenTrq_TLU, kind=B8Ki)) call RegPack(Buf, InData%GenTrq_TLU) end if call RegPack(Buf, InData%UseLegacyInterface) call RegPack(Buf, InData%NumBStC) call RegPack(Buf, allocated(InData%BStCfiles)) if (allocated(InData%BStCfiles)) then - call RegPackBounds(Buf, 1, lbound(InData%BStCfiles), ubound(InData%BStCfiles)) + call RegPackBounds(Buf, 1, lbound(InData%BStCfiles, kind=B8Ki), ubound(InData%BStCfiles, kind=B8Ki)) call RegPack(Buf, InData%BStCfiles) end if call RegPack(Buf, InData%NumNStC) call RegPack(Buf, allocated(InData%NStCfiles)) if (allocated(InData%NStCfiles)) then - call RegPackBounds(Buf, 1, lbound(InData%NStCfiles), ubound(InData%NStCfiles)) + call RegPackBounds(Buf, 1, lbound(InData%NStCfiles, kind=B8Ki), ubound(InData%NStCfiles, kind=B8Ki)) call RegPack(Buf, InData%NStCfiles) end if call RegPack(Buf, InData%NumTStC) call RegPack(Buf, allocated(InData%TStCfiles)) if (allocated(InData%TStCfiles)) then - call RegPackBounds(Buf, 1, lbound(InData%TStCfiles), ubound(InData%TStCfiles)) + call RegPackBounds(Buf, 1, lbound(InData%TStCfiles, kind=B8Ki), ubound(InData%TStCfiles, kind=B8Ki)) call RegPack(Buf, InData%TStCfiles) end if call RegPack(Buf, InData%NumSStC) call RegPack(Buf, allocated(InData%SStCfiles)) if (allocated(InData%SStCfiles)) then - call RegPackBounds(Buf, 1, lbound(InData%SStCfiles), ubound(InData%SStCfiles)) + call RegPackBounds(Buf, 1, lbound(InData%SStCfiles, kind=B8Ki), ubound(InData%SStCfiles, kind=B8Ki)) call RegPack(Buf, InData%SStCfiles) end if call RegPack(Buf, InData%AfCmode) @@ -1904,7 +1904,7 @@ subroutine SrvD_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInputFile' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2174,16 +2174,16 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyBladedDLLType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcBladedDLLTypeData%avrSWAP)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%avrSWAP) - UB(1:1) = ubound(SrcBladedDLLTypeData%avrSWAP) + LB(1:1) = lbound(SrcBladedDLLTypeData%avrSWAP, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%avrSWAP, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%avrSWAP)) then allocate(DstBladedDLLTypeData%avrSWAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2204,8 +2204,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%ElecPwr_prev = SrcBladedDLLTypeData%ElecPwr_prev DstBladedDLLTypeData%GenTrq_prev = SrcBladedDLLTypeData%GenTrq_prev if (allocated(SrcBladedDLLTypeData%toSC)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%toSC) - UB(1:1) = ubound(SrcBladedDLLTypeData%toSC) + LB(1:1) = lbound(SrcBladedDLLTypeData%toSC, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%toSC, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%toSC)) then allocate(DstBladedDLLTypeData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2218,8 +2218,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%initialized = SrcBladedDLLTypeData%initialized DstBladedDLLTypeData%NumLogChannels = SrcBladedDLLTypeData%NumLogChannels if (allocated(SrcBladedDLLTypeData%LogChannels_OutParam)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels_OutParam) - UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels_OutParam) + LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels_OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels_OutParam, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%LogChannels_OutParam)) then allocate(DstBladedDLLTypeData%LogChannels_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2234,8 +2234,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct end do end if if (allocated(SrcBladedDLLTypeData%LogChannels)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels) - UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels) + LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%LogChannels)) then allocate(DstBladedDLLTypeData%LogChannels(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2256,8 +2256,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%OverrideYawRateWithTorque = SrcBladedDLLTypeData%OverrideYawRateWithTorque DstBladedDLLTypeData%YawTorqueDemand = SrcBladedDLLTypeData%YawTorqueDemand if (allocated(SrcBladedDLLTypeData%BlPitchInput)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%BlPitchInput) - UB(1:1) = ubound(SrcBladedDLLTypeData%BlPitchInput) + LB(1:1) = lbound(SrcBladedDLLTypeData%BlPitchInput, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%BlPitchInput, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%BlPitchInput)) then allocate(DstBladedDLLTypeData%BlPitchInput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2294,8 +2294,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%LSShftFys = SrcBladedDLLTypeData%LSShftFys DstBladedDLLTypeData%LSShftFzs = SrcBladedDLLTypeData%LSShftFzs if (allocated(SrcBladedDLLTypeData%LidSpeed)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%LidSpeed) - UB(1:1) = ubound(SrcBladedDLLTypeData%LidSpeed) + LB(1:1) = lbound(SrcBladedDLLTypeData%LidSpeed, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%LidSpeed, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%LidSpeed)) then allocate(DstBladedDLLTypeData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2306,8 +2306,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%LidSpeed = SrcBladedDLLTypeData%LidSpeed end if if (allocated(SrcBladedDLLTypeData%MsrPositionsX)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsX) - UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsX) + LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsX, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsX, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%MsrPositionsX)) then allocate(DstBladedDLLTypeData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2318,8 +2318,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%MsrPositionsX = SrcBladedDLLTypeData%MsrPositionsX end if if (allocated(SrcBladedDLLTypeData%MsrPositionsY)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsY) - UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsY) + LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsY, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsY, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%MsrPositionsY)) then allocate(DstBladedDLLTypeData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2330,8 +2330,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%MsrPositionsY = SrcBladedDLLTypeData%MsrPositionsY end if if (allocated(SrcBladedDLLTypeData%MsrPositionsZ)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsZ) - UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsZ) + LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsZ, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsZ, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%MsrPositionsZ)) then allocate(DstBladedDLLTypeData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2363,8 +2363,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%Ptch_Cntrl = SrcBladedDLLTypeData%Ptch_Cntrl DstBladedDLLTypeData%DLL_NumTrq = SrcBladedDLLTypeData%DLL_NumTrq if (allocated(SrcBladedDLLTypeData%GenSpd_TLU)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%GenSpd_TLU) - UB(1:1) = ubound(SrcBladedDLLTypeData%GenSpd_TLU) + LB(1:1) = lbound(SrcBladedDLLTypeData%GenSpd_TLU, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%GenSpd_TLU, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%GenSpd_TLU)) then allocate(DstBladedDLLTypeData%GenSpd_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2375,8 +2375,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%GenSpd_TLU = SrcBladedDLLTypeData%GenSpd_TLU end if if (allocated(SrcBladedDLLTypeData%GenTrq_TLU)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%GenTrq_TLU) - UB(1:1) = ubound(SrcBladedDLLTypeData%GenTrq_TLU) + LB(1:1) = lbound(SrcBladedDLLTypeData%GenTrq_TLU, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%GenTrq_TLU, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%GenTrq_TLU)) then allocate(DstBladedDLLTypeData%GenTrq_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2388,8 +2388,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct end if DstBladedDLLTypeData%Yaw_Cntrl = SrcBladedDLLTypeData%Yaw_Cntrl if (allocated(SrcBladedDLLTypeData%PrevCableDeltaL)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaL) - UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaL) + LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaL, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaL, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%PrevCableDeltaL)) then allocate(DstBladedDLLTypeData%PrevCableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2400,8 +2400,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevCableDeltaL = SrcBladedDLLTypeData%PrevCableDeltaL end if if (allocated(SrcBladedDLLTypeData%PrevCableDeltaLdot)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaLdot) - UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaLdot) + LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaLdot, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaLdot, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%PrevCableDeltaLdot)) then allocate(DstBladedDLLTypeData%PrevCableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2412,8 +2412,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevCableDeltaLdot = SrcBladedDLLTypeData%PrevCableDeltaLdot end if if (allocated(SrcBladedDLLTypeData%CableDeltaL)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaL) - UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaL) + LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaL, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaL, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%CableDeltaL)) then allocate(DstBladedDLLTypeData%CableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2424,8 +2424,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%CableDeltaL = SrcBladedDLLTypeData%CableDeltaL end if if (allocated(SrcBladedDLLTypeData%CableDeltaLdot)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaLdot) - UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaLdot) + LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaLdot, kind=B8Ki) + UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaLdot, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%CableDeltaLdot)) then allocate(DstBladedDLLTypeData%CableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2436,8 +2436,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%CableDeltaLdot = SrcBladedDLLTypeData%CableDeltaLdot end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdStiff)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdStiff) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdStiff) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdStiff, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdStiff, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdStiff)) then allocate(DstBladedDLLTypeData%PrevStCCmdStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2448,8 +2448,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdStiff = SrcBladedDLLTypeData%PrevStCCmdStiff end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdDamp)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdDamp) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdDamp) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdDamp, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdDamp, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdDamp)) then allocate(DstBladedDLLTypeData%PrevStCCmdDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2460,8 +2460,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdDamp = SrcBladedDLLTypeData%PrevStCCmdDamp end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdBrake)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdBrake) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdBrake) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdBrake, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdBrake, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdBrake)) then allocate(DstBladedDLLTypeData%PrevStCCmdBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2472,8 +2472,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdBrake = SrcBladedDLLTypeData%PrevStCCmdBrake end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdForce)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdForce) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdForce) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdForce, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdForce, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdForce)) then allocate(DstBladedDLLTypeData%PrevStCCmdForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2484,8 +2484,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdForce = SrcBladedDLLTypeData%PrevStCCmdForce end if if (allocated(SrcBladedDLLTypeData%StCCmdStiff)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdStiff) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdStiff) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdStiff, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdStiff, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%StCCmdStiff)) then allocate(DstBladedDLLTypeData%StCCmdStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2496,8 +2496,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdStiff = SrcBladedDLLTypeData%StCCmdStiff end if if (allocated(SrcBladedDLLTypeData%StCCmdDamp)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdDamp) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdDamp) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdDamp, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdDamp, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%StCCmdDamp)) then allocate(DstBladedDLLTypeData%StCCmdDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2508,8 +2508,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdDamp = SrcBladedDLLTypeData%StCCmdDamp end if if (allocated(SrcBladedDLLTypeData%StCCmdBrake)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdBrake) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdBrake) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdBrake, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdBrake, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%StCCmdBrake)) then allocate(DstBladedDLLTypeData%StCCmdBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2520,8 +2520,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdBrake = SrcBladedDLLTypeData%StCCmdBrake end if if (allocated(SrcBladedDLLTypeData%StCCmdForce)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdForce) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdForce) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdForce, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdForce, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%StCCmdForce)) then allocate(DstBladedDLLTypeData%StCCmdForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2532,8 +2532,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdForce = SrcBladedDLLTypeData%StCCmdForce end if if (allocated(SrcBladedDLLTypeData%StCMeasDisp)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasDisp) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasDisp) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasDisp, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasDisp, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%StCMeasDisp)) then allocate(DstBladedDLLTypeData%StCMeasDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2544,8 +2544,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCMeasDisp = SrcBladedDLLTypeData%StCMeasDisp end if if (allocated(SrcBladedDLLTypeData%StCMeasVel)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasVel) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasVel) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasVel, kind=B8Ki) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasVel, kind=B8Ki) if (.not. allocated(DstBladedDLLTypeData%StCMeasVel)) then allocate(DstBladedDLLTypeData%StCMeasVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2561,8 +2561,8 @@ subroutine SrvD_DestroyBladedDLLType(BladedDLLTypeData, ErrStat, ErrMsg) type(BladedDLLType), intent(inout) :: BladedDLLTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyBladedDLLType' @@ -2575,8 +2575,8 @@ subroutine SrvD_DestroyBladedDLLType(BladedDLLTypeData, ErrStat, ErrMsg) deallocate(BladedDLLTypeData%toSC) end if if (allocated(BladedDLLTypeData%LogChannels_OutParam)) then - LB(1:1) = lbound(BladedDLLTypeData%LogChannels_OutParam) - UB(1:1) = ubound(BladedDLLTypeData%LogChannels_OutParam) + LB(1:1) = lbound(BladedDLLTypeData%LogChannels_OutParam, kind=B8Ki) + UB(1:1) = ubound(BladedDLLTypeData%LogChannels_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(BladedDLLTypeData%LogChannels_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2655,12 +2655,12 @@ subroutine SrvD_PackBladedDLLType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(BladedDLLType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackBladedDLLType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%avrSWAP)) if (allocated(InData%avrSWAP)) then - call RegPackBounds(Buf, 1, lbound(InData%avrSWAP), ubound(InData%avrSWAP)) + call RegPackBounds(Buf, 1, lbound(InData%avrSWAP, kind=B8Ki), ubound(InData%avrSWAP, kind=B8Ki)) call RegPack(Buf, InData%avrSWAP) end if call RegPack(Buf, InData%HSSBrTrqDemand) @@ -2675,23 +2675,23 @@ subroutine SrvD_PackBladedDLLType(Buf, Indata) call RegPack(Buf, InData%GenTrq_prev) call RegPack(Buf, allocated(InData%toSC)) if (allocated(InData%toSC)) then - call RegPackBounds(Buf, 1, lbound(InData%toSC), ubound(InData%toSC)) + call RegPackBounds(Buf, 1, lbound(InData%toSC, kind=B8Ki), ubound(InData%toSC, kind=B8Ki)) call RegPack(Buf, InData%toSC) end if call RegPack(Buf, InData%initialized) call RegPack(Buf, InData%NumLogChannels) call RegPack(Buf, allocated(InData%LogChannels_OutParam)) if (allocated(InData%LogChannels_OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%LogChannels_OutParam), ubound(InData%LogChannels_OutParam)) - LB(1:1) = lbound(InData%LogChannels_OutParam) - UB(1:1) = ubound(InData%LogChannels_OutParam) + call RegPackBounds(Buf, 1, lbound(InData%LogChannels_OutParam, kind=B8Ki), ubound(InData%LogChannels_OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%LogChannels_OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%LogChannels_OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%LogChannels_OutParam(i1)) end do end if call RegPack(Buf, allocated(InData%LogChannels)) if (allocated(InData%LogChannels)) then - call RegPackBounds(Buf, 1, lbound(InData%LogChannels), ubound(InData%LogChannels)) + call RegPackBounds(Buf, 1, lbound(InData%LogChannels, kind=B8Ki), ubound(InData%LogChannels, kind=B8Ki)) call RegPack(Buf, InData%LogChannels) end if call RegPack(Buf, InData%ErrStat) @@ -2706,7 +2706,7 @@ subroutine SrvD_PackBladedDLLType(Buf, Indata) call RegPack(Buf, InData%YawTorqueDemand) call RegPack(Buf, allocated(InData%BlPitchInput)) if (allocated(InData%BlPitchInput)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchInput), ubound(InData%BlPitchInput)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchInput, kind=B8Ki), ubound(InData%BlPitchInput, kind=B8Ki)) call RegPack(Buf, InData%BlPitchInput) end if call RegPack(Buf, InData%YawAngleFromNorth) @@ -2737,22 +2737,22 @@ subroutine SrvD_PackBladedDLLType(Buf, Indata) call RegPack(Buf, InData%LSShftFzs) call RegPack(Buf, allocated(InData%LidSpeed)) if (allocated(InData%LidSpeed)) then - call RegPackBounds(Buf, 1, lbound(InData%LidSpeed), ubound(InData%LidSpeed)) + call RegPackBounds(Buf, 1, lbound(InData%LidSpeed, kind=B8Ki), ubound(InData%LidSpeed, kind=B8Ki)) call RegPack(Buf, InData%LidSpeed) end if call RegPack(Buf, allocated(InData%MsrPositionsX)) if (allocated(InData%MsrPositionsX)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX), ubound(InData%MsrPositionsX)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX, kind=B8Ki), ubound(InData%MsrPositionsX, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsX) end if call RegPack(Buf, allocated(InData%MsrPositionsY)) if (allocated(InData%MsrPositionsY)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY), ubound(InData%MsrPositionsY)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY, kind=B8Ki), ubound(InData%MsrPositionsY, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsY) end if call RegPack(Buf, allocated(InData%MsrPositionsZ)) if (allocated(InData%MsrPositionsZ)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ), ubound(InData%MsrPositionsZ)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ, kind=B8Ki), ubound(InData%MsrPositionsZ, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsZ) end if call RegPack(Buf, InData%SensorType) @@ -2778,83 +2778,83 @@ subroutine SrvD_PackBladedDLLType(Buf, Indata) call RegPack(Buf, InData%DLL_NumTrq) call RegPack(Buf, allocated(InData%GenSpd_TLU)) if (allocated(InData%GenSpd_TLU)) then - call RegPackBounds(Buf, 1, lbound(InData%GenSpd_TLU), ubound(InData%GenSpd_TLU)) + call RegPackBounds(Buf, 1, lbound(InData%GenSpd_TLU, kind=B8Ki), ubound(InData%GenSpd_TLU, kind=B8Ki)) call RegPack(Buf, InData%GenSpd_TLU) end if call RegPack(Buf, allocated(InData%GenTrq_TLU)) if (allocated(InData%GenTrq_TLU)) then - call RegPackBounds(Buf, 1, lbound(InData%GenTrq_TLU), ubound(InData%GenTrq_TLU)) + call RegPackBounds(Buf, 1, lbound(InData%GenTrq_TLU, kind=B8Ki), ubound(InData%GenTrq_TLU, kind=B8Ki)) call RegPack(Buf, InData%GenTrq_TLU) end if call RegPack(Buf, InData%Yaw_Cntrl) call RegPack(Buf, allocated(InData%PrevCableDeltaL)) if (allocated(InData%PrevCableDeltaL)) then - call RegPackBounds(Buf, 1, lbound(InData%PrevCableDeltaL), ubound(InData%PrevCableDeltaL)) + call RegPackBounds(Buf, 1, lbound(InData%PrevCableDeltaL, kind=B8Ki), ubound(InData%PrevCableDeltaL, kind=B8Ki)) call RegPack(Buf, InData%PrevCableDeltaL) end if call RegPack(Buf, allocated(InData%PrevCableDeltaLdot)) if (allocated(InData%PrevCableDeltaLdot)) then - call RegPackBounds(Buf, 1, lbound(InData%PrevCableDeltaLdot), ubound(InData%PrevCableDeltaLdot)) + call RegPackBounds(Buf, 1, lbound(InData%PrevCableDeltaLdot, kind=B8Ki), ubound(InData%PrevCableDeltaLdot, kind=B8Ki)) call RegPack(Buf, InData%PrevCableDeltaLdot) end if call RegPack(Buf, allocated(InData%CableDeltaL)) if (allocated(InData%CableDeltaL)) then - call RegPackBounds(Buf, 1, lbound(InData%CableDeltaL), ubound(InData%CableDeltaL)) + call RegPackBounds(Buf, 1, lbound(InData%CableDeltaL, kind=B8Ki), ubound(InData%CableDeltaL, kind=B8Ki)) call RegPack(Buf, InData%CableDeltaL) end if call RegPack(Buf, allocated(InData%CableDeltaLdot)) if (allocated(InData%CableDeltaLdot)) then - call RegPackBounds(Buf, 1, lbound(InData%CableDeltaLdot), ubound(InData%CableDeltaLdot)) + call RegPackBounds(Buf, 1, lbound(InData%CableDeltaLdot, kind=B8Ki), ubound(InData%CableDeltaLdot, kind=B8Ki)) call RegPack(Buf, InData%CableDeltaLdot) end if call RegPack(Buf, allocated(InData%PrevStCCmdStiff)) if (allocated(InData%PrevStCCmdStiff)) then - call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdStiff), ubound(InData%PrevStCCmdStiff)) + call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdStiff, kind=B8Ki), ubound(InData%PrevStCCmdStiff, kind=B8Ki)) call RegPack(Buf, InData%PrevStCCmdStiff) end if call RegPack(Buf, allocated(InData%PrevStCCmdDamp)) if (allocated(InData%PrevStCCmdDamp)) then - call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdDamp), ubound(InData%PrevStCCmdDamp)) + call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdDamp, kind=B8Ki), ubound(InData%PrevStCCmdDamp, kind=B8Ki)) call RegPack(Buf, InData%PrevStCCmdDamp) end if call RegPack(Buf, allocated(InData%PrevStCCmdBrake)) if (allocated(InData%PrevStCCmdBrake)) then - call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdBrake), ubound(InData%PrevStCCmdBrake)) + call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdBrake, kind=B8Ki), ubound(InData%PrevStCCmdBrake, kind=B8Ki)) call RegPack(Buf, InData%PrevStCCmdBrake) end if call RegPack(Buf, allocated(InData%PrevStCCmdForce)) if (allocated(InData%PrevStCCmdForce)) then - call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdForce), ubound(InData%PrevStCCmdForce)) + call RegPackBounds(Buf, 2, lbound(InData%PrevStCCmdForce, kind=B8Ki), ubound(InData%PrevStCCmdForce, kind=B8Ki)) call RegPack(Buf, InData%PrevStCCmdForce) end if call RegPack(Buf, allocated(InData%StCCmdStiff)) if (allocated(InData%StCCmdStiff)) then - call RegPackBounds(Buf, 2, lbound(InData%StCCmdStiff), ubound(InData%StCCmdStiff)) + call RegPackBounds(Buf, 2, lbound(InData%StCCmdStiff, kind=B8Ki), ubound(InData%StCCmdStiff, kind=B8Ki)) call RegPack(Buf, InData%StCCmdStiff) end if call RegPack(Buf, allocated(InData%StCCmdDamp)) if (allocated(InData%StCCmdDamp)) then - call RegPackBounds(Buf, 2, lbound(InData%StCCmdDamp), ubound(InData%StCCmdDamp)) + call RegPackBounds(Buf, 2, lbound(InData%StCCmdDamp, kind=B8Ki), ubound(InData%StCCmdDamp, kind=B8Ki)) call RegPack(Buf, InData%StCCmdDamp) end if call RegPack(Buf, allocated(InData%StCCmdBrake)) if (allocated(InData%StCCmdBrake)) then - call RegPackBounds(Buf, 2, lbound(InData%StCCmdBrake), ubound(InData%StCCmdBrake)) + call RegPackBounds(Buf, 2, lbound(InData%StCCmdBrake, kind=B8Ki), ubound(InData%StCCmdBrake, kind=B8Ki)) call RegPack(Buf, InData%StCCmdBrake) end if call RegPack(Buf, allocated(InData%StCCmdForce)) if (allocated(InData%StCCmdForce)) then - call RegPackBounds(Buf, 2, lbound(InData%StCCmdForce), ubound(InData%StCCmdForce)) + call RegPackBounds(Buf, 2, lbound(InData%StCCmdForce, kind=B8Ki), ubound(InData%StCCmdForce, kind=B8Ki)) call RegPack(Buf, InData%StCCmdForce) end if call RegPack(Buf, allocated(InData%StCMeasDisp)) if (allocated(InData%StCMeasDisp)) then - call RegPackBounds(Buf, 2, lbound(InData%StCMeasDisp), ubound(InData%StCMeasDisp)) + call RegPackBounds(Buf, 2, lbound(InData%StCMeasDisp, kind=B8Ki), ubound(InData%StCMeasDisp, kind=B8Ki)) call RegPack(Buf, InData%StCMeasDisp) end if call RegPack(Buf, allocated(InData%StCMeasVel)) if (allocated(InData%StCMeasVel)) then - call RegPackBounds(Buf, 2, lbound(InData%StCMeasVel), ubound(InData%StCMeasVel)) + call RegPackBounds(Buf, 2, lbound(InData%StCMeasVel, kind=B8Ki), ubound(InData%StCMeasVel, kind=B8Ki)) call RegPack(Buf, InData%StCMeasVel) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2864,8 +2864,8 @@ subroutine SrvD_UnPackBladedDLLType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(BladedDLLType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackBladedDLLType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3368,8 +3368,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyContState' @@ -3377,8 +3377,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS ErrMsg = '' DstContStateData%DummyContState = SrcContStateData%DummyContState if (allocated(SrcContStateData%BStC)) then - LB(1:1) = lbound(SrcContStateData%BStC) - UB(1:1) = ubound(SrcContStateData%BStC) + LB(1:1) = lbound(SrcContStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%BStC, kind=B8Ki) if (.not. allocated(DstContStateData%BStC)) then allocate(DstContStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3393,8 +3393,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS end do end if if (allocated(SrcContStateData%NStC)) then - LB(1:1) = lbound(SrcContStateData%NStC) - UB(1:1) = ubound(SrcContStateData%NStC) + LB(1:1) = lbound(SrcContStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%NStC, kind=B8Ki) if (.not. allocated(DstContStateData%NStC)) then allocate(DstContStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3409,8 +3409,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS end do end if if (allocated(SrcContStateData%TStC)) then - LB(1:1) = lbound(SrcContStateData%TStC) - UB(1:1) = ubound(SrcContStateData%TStC) + LB(1:1) = lbound(SrcContStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%TStC, kind=B8Ki) if (.not. allocated(DstContStateData%TStC)) then allocate(DstContStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3425,8 +3425,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS end do end if if (allocated(SrcContStateData%SStC)) then - LB(1:1) = lbound(SrcContStateData%SStC) - UB(1:1) = ubound(SrcContStateData%SStC) + LB(1:1) = lbound(SrcContStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%SStC, kind=B8Ki) if (.not. allocated(DstContStateData%SStC)) then allocate(DstContStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3446,16 +3446,16 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) type(SrvD_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ContStateData%BStC)) then - LB(1:1) = lbound(ContStateData%BStC) - UB(1:1) = ubound(ContStateData%BStC) + LB(1:1) = lbound(ContStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(ContStateData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3463,8 +3463,8 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%BStC) end if if (allocated(ContStateData%NStC)) then - LB(1:1) = lbound(ContStateData%NStC) - UB(1:1) = ubound(ContStateData%NStC) + LB(1:1) = lbound(ContStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(ContStateData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3472,8 +3472,8 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%NStC) end if if (allocated(ContStateData%TStC)) then - LB(1:1) = lbound(ContStateData%TStC) - UB(1:1) = ubound(ContStateData%TStC) + LB(1:1) = lbound(ContStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(ContStateData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3481,8 +3481,8 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%TStC) end if if (allocated(ContStateData%SStC)) then - LB(1:1) = lbound(ContStateData%SStC) - UB(1:1) = ubound(ContStateData%SStC) + LB(1:1) = lbound(ContStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(ContStateData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3495,42 +3495,42 @@ subroutine SrvD_PackContState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DummyContState) call RegPack(Buf, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%BStC), ubound(InData%BStC)) - LB(1:1) = lbound(InData%BStC) - UB(1:1) = ubound(InData%BStC) + call RegPackBounds(Buf, 1, lbound(InData%BStC, kind=B8Ki), ubound(InData%BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%BStC, kind=B8Ki) + UB(1:1) = ubound(InData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackContState(Buf, InData%BStC(i1)) end do end if call RegPack(Buf, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC), ubound(InData%NStC)) - LB(1:1) = lbound(InData%NStC) - UB(1:1) = ubound(InData%NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC, kind=B8Ki), ubound(InData%NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackContState(Buf, InData%NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC), ubound(InData%TStC)) - LB(1:1) = lbound(InData%TStC) - UB(1:1) = ubound(InData%TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC, kind=B8Ki), ubound(InData%TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackContState(Buf, InData%TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC), ubound(InData%SStC)) - LB(1:1) = lbound(InData%SStC) - UB(1:1) = ubound(InData%SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC, kind=B8Ki), ubound(InData%SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackContState(Buf, InData%SStC(i1)) end do @@ -3542,8 +3542,8 @@ subroutine SrvD_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackContState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3617,8 +3617,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyDiscState' @@ -3626,8 +3626,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS ErrMsg = '' DstDiscStateData%CtrlOffset = SrcDiscStateData%CtrlOffset if (allocated(SrcDiscStateData%BStC)) then - LB(1:1) = lbound(SrcDiscStateData%BStC) - UB(1:1) = ubound(SrcDiscStateData%BStC) + LB(1:1) = lbound(SrcDiscStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%BStC, kind=B8Ki) if (.not. allocated(DstDiscStateData%BStC)) then allocate(DstDiscStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3642,8 +3642,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS end do end if if (allocated(SrcDiscStateData%NStC)) then - LB(1:1) = lbound(SrcDiscStateData%NStC) - UB(1:1) = ubound(SrcDiscStateData%NStC) + LB(1:1) = lbound(SrcDiscStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%NStC, kind=B8Ki) if (.not. allocated(DstDiscStateData%NStC)) then allocate(DstDiscStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3658,8 +3658,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS end do end if if (allocated(SrcDiscStateData%TStC)) then - LB(1:1) = lbound(SrcDiscStateData%TStC) - UB(1:1) = ubound(SrcDiscStateData%TStC) + LB(1:1) = lbound(SrcDiscStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%TStC, kind=B8Ki) if (.not. allocated(DstDiscStateData%TStC)) then allocate(DstDiscStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3674,8 +3674,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS end do end if if (allocated(SrcDiscStateData%SStC)) then - LB(1:1) = lbound(SrcDiscStateData%SStC) - UB(1:1) = ubound(SrcDiscStateData%SStC) + LB(1:1) = lbound(SrcDiscStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%SStC, kind=B8Ki) if (.not. allocated(DstDiscStateData%SStC)) then allocate(DstDiscStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3695,16 +3695,16 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(SrvD_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(DiscStateData%BStC)) then - LB(1:1) = lbound(DiscStateData%BStC) - UB(1:1) = ubound(DiscStateData%BStC) + LB(1:1) = lbound(DiscStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3712,8 +3712,8 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) deallocate(DiscStateData%BStC) end if if (allocated(DiscStateData%NStC)) then - LB(1:1) = lbound(DiscStateData%NStC) - UB(1:1) = ubound(DiscStateData%NStC) + LB(1:1) = lbound(DiscStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3721,8 +3721,8 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) deallocate(DiscStateData%NStC) end if if (allocated(DiscStateData%TStC)) then - LB(1:1) = lbound(DiscStateData%TStC) - UB(1:1) = ubound(DiscStateData%TStC) + LB(1:1) = lbound(DiscStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3730,8 +3730,8 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) deallocate(DiscStateData%TStC) end if if (allocated(DiscStateData%SStC)) then - LB(1:1) = lbound(DiscStateData%SStC) - UB(1:1) = ubound(DiscStateData%SStC) + LB(1:1) = lbound(DiscStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(DiscStateData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3744,42 +3744,42 @@ subroutine SrvD_PackDiscState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%CtrlOffset) call RegPack(Buf, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%BStC), ubound(InData%BStC)) - LB(1:1) = lbound(InData%BStC) - UB(1:1) = ubound(InData%BStC) + call RegPackBounds(Buf, 1, lbound(InData%BStC, kind=B8Ki), ubound(InData%BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%BStC, kind=B8Ki) + UB(1:1) = ubound(InData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackDiscState(Buf, InData%BStC(i1)) end do end if call RegPack(Buf, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC), ubound(InData%NStC)) - LB(1:1) = lbound(InData%NStC) - UB(1:1) = ubound(InData%NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC, kind=B8Ki), ubound(InData%NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackDiscState(Buf, InData%NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC), ubound(InData%TStC)) - LB(1:1) = lbound(InData%TStC) - UB(1:1) = ubound(InData%TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC, kind=B8Ki), ubound(InData%TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackDiscState(Buf, InData%TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC), ubound(InData%SStC)) - LB(1:1) = lbound(InData%SStC) - UB(1:1) = ubound(InData%SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC, kind=B8Ki), ubound(InData%SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackDiscState(Buf, InData%SStC(i1)) end do @@ -3791,8 +3791,8 @@ subroutine SrvD_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackDiscState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3866,8 +3866,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyConstrState' @@ -3875,8 +3875,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode ErrMsg = '' DstConstrStateData%DummyConstrState = SrcConstrStateData%DummyConstrState if (allocated(SrcConstrStateData%BStC)) then - LB(1:1) = lbound(SrcConstrStateData%BStC) - UB(1:1) = ubound(SrcConstrStateData%BStC) + LB(1:1) = lbound(SrcConstrStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%BStC, kind=B8Ki) if (.not. allocated(DstConstrStateData%BStC)) then allocate(DstConstrStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3891,8 +3891,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode end do end if if (allocated(SrcConstrStateData%NStC)) then - LB(1:1) = lbound(SrcConstrStateData%NStC) - UB(1:1) = ubound(SrcConstrStateData%NStC) + LB(1:1) = lbound(SrcConstrStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%NStC, kind=B8Ki) if (.not. allocated(DstConstrStateData%NStC)) then allocate(DstConstrStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3907,8 +3907,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode end do end if if (allocated(SrcConstrStateData%TStC)) then - LB(1:1) = lbound(SrcConstrStateData%TStC) - UB(1:1) = ubound(SrcConstrStateData%TStC) + LB(1:1) = lbound(SrcConstrStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%TStC, kind=B8Ki) if (.not. allocated(DstConstrStateData%TStC)) then allocate(DstConstrStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3923,8 +3923,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode end do end if if (allocated(SrcConstrStateData%SStC)) then - LB(1:1) = lbound(SrcConstrStateData%SStC) - UB(1:1) = ubound(SrcConstrStateData%SStC) + LB(1:1) = lbound(SrcConstrStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(SrcConstrStateData%SStC, kind=B8Ki) if (.not. allocated(DstConstrStateData%SStC)) then allocate(DstConstrStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3944,16 +3944,16 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(SrvD_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyConstrState' ErrStat = ErrID_None ErrMsg = '' if (allocated(ConstrStateData%BStC)) then - LB(1:1) = lbound(ConstrStateData%BStC) - UB(1:1) = ubound(ConstrStateData%BStC) + LB(1:1) = lbound(ConstrStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3961,8 +3961,8 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) deallocate(ConstrStateData%BStC) end if if (allocated(ConstrStateData%NStC)) then - LB(1:1) = lbound(ConstrStateData%NStC) - UB(1:1) = ubound(ConstrStateData%NStC) + LB(1:1) = lbound(ConstrStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3970,8 +3970,8 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) deallocate(ConstrStateData%NStC) end if if (allocated(ConstrStateData%TStC)) then - LB(1:1) = lbound(ConstrStateData%TStC) - UB(1:1) = ubound(ConstrStateData%TStC) + LB(1:1) = lbound(ConstrStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3979,8 +3979,8 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) deallocate(ConstrStateData%TStC) end if if (allocated(ConstrStateData%SStC)) then - LB(1:1) = lbound(ConstrStateData%SStC) - UB(1:1) = ubound(ConstrStateData%SStC) + LB(1:1) = lbound(ConstrStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(ConstrStateData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3993,42 +3993,42 @@ subroutine SrvD_PackConstrState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DummyConstrState) call RegPack(Buf, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%BStC), ubound(InData%BStC)) - LB(1:1) = lbound(InData%BStC) - UB(1:1) = ubound(InData%BStC) + call RegPackBounds(Buf, 1, lbound(InData%BStC, kind=B8Ki), ubound(InData%BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%BStC, kind=B8Ki) + UB(1:1) = ubound(InData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackConstrState(Buf, InData%BStC(i1)) end do end if call RegPack(Buf, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC), ubound(InData%NStC)) - LB(1:1) = lbound(InData%NStC) - UB(1:1) = ubound(InData%NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC, kind=B8Ki), ubound(InData%NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackConstrState(Buf, InData%NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC), ubound(InData%TStC)) - LB(1:1) = lbound(InData%TStC) - UB(1:1) = ubound(InData%TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC, kind=B8Ki), ubound(InData%TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackConstrState(Buf, InData%TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC), ubound(InData%SStC)) - LB(1:1) = lbound(InData%SStC) - UB(1:1) = ubound(InData%SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC, kind=B8Ki), ubound(InData%SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackConstrState(Buf, InData%SStC(i1)) end do @@ -4040,8 +4040,8 @@ subroutine SrvD_UnPackConstrState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackConstrState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4115,16 +4115,16 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%BegPitMan)) then - LB(1:1) = lbound(SrcOtherStateData%BegPitMan) - UB(1:1) = ubound(SrcOtherStateData%BegPitMan) + LB(1:1) = lbound(SrcOtherStateData%BegPitMan, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%BegPitMan, kind=B8Ki) if (.not. allocated(DstOtherStateData%BegPitMan)) then allocate(DstOtherStateData%BegPitMan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4135,8 +4135,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%BegPitMan = SrcOtherStateData%BegPitMan end if if (allocated(SrcOtherStateData%BlPitchI)) then - LB(1:1) = lbound(SrcOtherStateData%BlPitchI) - UB(1:1) = ubound(SrcOtherStateData%BlPitchI) + LB(1:1) = lbound(SrcOtherStateData%BlPitchI, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%BlPitchI, kind=B8Ki) if (.not. allocated(DstOtherStateData%BlPitchI)) then allocate(DstOtherStateData%BlPitchI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4147,8 +4147,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%BlPitchI = SrcOtherStateData%BlPitchI end if if (allocated(SrcOtherStateData%TPitManE)) then - LB(1:1) = lbound(SrcOtherStateData%TPitManE) - UB(1:1) = ubound(SrcOtherStateData%TPitManE) + LB(1:1) = lbound(SrcOtherStateData%TPitManE, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%TPitManE, kind=B8Ki) if (.not. allocated(DstOtherStateData%TPitManE)) then allocate(DstOtherStateData%TPitManE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4163,8 +4163,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%TYawManE = SrcOtherStateData%TYawManE DstOtherStateData%YawPosComInt = SrcOtherStateData%YawPosComInt if (allocated(SrcOtherStateData%BegTpBr)) then - LB(1:1) = lbound(SrcOtherStateData%BegTpBr) - UB(1:1) = ubound(SrcOtherStateData%BegTpBr) + LB(1:1) = lbound(SrcOtherStateData%BegTpBr, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%BegTpBr, kind=B8Ki) if (.not. allocated(DstOtherStateData%BegTpBr)) then allocate(DstOtherStateData%BegTpBr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4175,8 +4175,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%BegTpBr = SrcOtherStateData%BegTpBr end if if (allocated(SrcOtherStateData%TTpBrDp)) then - LB(1:1) = lbound(SrcOtherStateData%TTpBrDp) - UB(1:1) = ubound(SrcOtherStateData%TTpBrDp) + LB(1:1) = lbound(SrcOtherStateData%TTpBrDp, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%TTpBrDp, kind=B8Ki) if (.not. allocated(DstOtherStateData%TTpBrDp)) then allocate(DstOtherStateData%TTpBrDp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4187,8 +4187,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%TTpBrDp = SrcOtherStateData%TTpBrDp end if if (allocated(SrcOtherStateData%TTpBrFl)) then - LB(1:1) = lbound(SrcOtherStateData%TTpBrFl) - UB(1:1) = ubound(SrcOtherStateData%TTpBrFl) + LB(1:1) = lbound(SrcOtherStateData%TTpBrFl, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%TTpBrFl, kind=B8Ki) if (.not. allocated(DstOtherStateData%TTpBrFl)) then allocate(DstOtherStateData%TTpBrFl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4201,8 +4201,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%Off4Good = SrcOtherStateData%Off4Good DstOtherStateData%GenOnLine = SrcOtherStateData%GenOnLine if (allocated(SrcOtherStateData%BStC)) then - LB(1:1) = lbound(SrcOtherStateData%BStC) - UB(1:1) = ubound(SrcOtherStateData%BStC) + LB(1:1) = lbound(SrcOtherStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%BStC, kind=B8Ki) if (.not. allocated(DstOtherStateData%BStC)) then allocate(DstOtherStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4217,8 +4217,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end do end if if (allocated(SrcOtherStateData%NStC)) then - LB(1:1) = lbound(SrcOtherStateData%NStC) - UB(1:1) = ubound(SrcOtherStateData%NStC) + LB(1:1) = lbound(SrcOtherStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%NStC, kind=B8Ki) if (.not. allocated(DstOtherStateData%NStC)) then allocate(DstOtherStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4233,8 +4233,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end do end if if (allocated(SrcOtherStateData%TStC)) then - LB(1:1) = lbound(SrcOtherStateData%TStC) - UB(1:1) = ubound(SrcOtherStateData%TStC) + LB(1:1) = lbound(SrcOtherStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%TStC, kind=B8Ki) if (.not. allocated(DstOtherStateData%TStC)) then allocate(DstOtherStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4249,8 +4249,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end do end if if (allocated(SrcOtherStateData%SStC)) then - LB(1:1) = lbound(SrcOtherStateData%SStC) - UB(1:1) = ubound(SrcOtherStateData%SStC) + LB(1:1) = lbound(SrcOtherStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%SStC, kind=B8Ki) if (.not. allocated(DstOtherStateData%SStC)) then allocate(DstOtherStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4270,8 +4270,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SrvD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyOtherState' @@ -4296,8 +4296,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%TTpBrFl) end if if (allocated(OtherStateData%BStC)) then - LB(1:1) = lbound(OtherStateData%BStC) - UB(1:1) = ubound(OtherStateData%BStC) + LB(1:1) = lbound(OtherStateData%BStC, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4305,8 +4305,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%BStC) end if if (allocated(OtherStateData%NStC)) then - LB(1:1) = lbound(OtherStateData%NStC) - UB(1:1) = ubound(OtherStateData%NStC) + LB(1:1) = lbound(OtherStateData%NStC, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4314,8 +4314,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%NStC) end if if (allocated(OtherStateData%TStC)) then - LB(1:1) = lbound(OtherStateData%TStC) - UB(1:1) = ubound(OtherStateData%TStC) + LB(1:1) = lbound(OtherStateData%TStC, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4323,8 +4323,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%TStC) end if if (allocated(OtherStateData%SStC)) then - LB(1:1) = lbound(OtherStateData%SStC) - UB(1:1) = ubound(OtherStateData%SStC) + LB(1:1) = lbound(OtherStateData%SStC, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4337,22 +4337,22 @@ subroutine SrvD_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%BegPitMan)) if (allocated(InData%BegPitMan)) then - call RegPackBounds(Buf, 1, lbound(InData%BegPitMan), ubound(InData%BegPitMan)) + call RegPackBounds(Buf, 1, lbound(InData%BegPitMan, kind=B8Ki), ubound(InData%BegPitMan, kind=B8Ki)) call RegPack(Buf, InData%BegPitMan) end if call RegPack(Buf, allocated(InData%BlPitchI)) if (allocated(InData%BlPitchI)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchI), ubound(InData%BlPitchI)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchI, kind=B8Ki), ubound(InData%BlPitchI, kind=B8Ki)) call RegPack(Buf, InData%BlPitchI) end if call RegPack(Buf, allocated(InData%TPitManE)) if (allocated(InData%TPitManE)) then - call RegPackBounds(Buf, 1, lbound(InData%TPitManE), ubound(InData%TPitManE)) + call RegPackBounds(Buf, 1, lbound(InData%TPitManE, kind=B8Ki), ubound(InData%TPitManE, kind=B8Ki)) call RegPack(Buf, InData%TPitManE) end if call RegPack(Buf, InData%BegYawMan) @@ -4361,53 +4361,53 @@ subroutine SrvD_PackOtherState(Buf, Indata) call RegPack(Buf, InData%YawPosComInt) call RegPack(Buf, allocated(InData%BegTpBr)) if (allocated(InData%BegTpBr)) then - call RegPackBounds(Buf, 1, lbound(InData%BegTpBr), ubound(InData%BegTpBr)) + call RegPackBounds(Buf, 1, lbound(InData%BegTpBr, kind=B8Ki), ubound(InData%BegTpBr, kind=B8Ki)) call RegPack(Buf, InData%BegTpBr) end if call RegPack(Buf, allocated(InData%TTpBrDp)) if (allocated(InData%TTpBrDp)) then - call RegPackBounds(Buf, 1, lbound(InData%TTpBrDp), ubound(InData%TTpBrDp)) + call RegPackBounds(Buf, 1, lbound(InData%TTpBrDp, kind=B8Ki), ubound(InData%TTpBrDp, kind=B8Ki)) call RegPack(Buf, InData%TTpBrDp) end if call RegPack(Buf, allocated(InData%TTpBrFl)) if (allocated(InData%TTpBrFl)) then - call RegPackBounds(Buf, 1, lbound(InData%TTpBrFl), ubound(InData%TTpBrFl)) + call RegPackBounds(Buf, 1, lbound(InData%TTpBrFl, kind=B8Ki), ubound(InData%TTpBrFl, kind=B8Ki)) call RegPack(Buf, InData%TTpBrFl) end if call RegPack(Buf, InData%Off4Good) call RegPack(Buf, InData%GenOnLine) call RegPack(Buf, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%BStC), ubound(InData%BStC)) - LB(1:1) = lbound(InData%BStC) - UB(1:1) = ubound(InData%BStC) + call RegPackBounds(Buf, 1, lbound(InData%BStC, kind=B8Ki), ubound(InData%BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%BStC, kind=B8Ki) + UB(1:1) = ubound(InData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOtherState(Buf, InData%BStC(i1)) end do end if call RegPack(Buf, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC), ubound(InData%NStC)) - LB(1:1) = lbound(InData%NStC) - UB(1:1) = ubound(InData%NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC, kind=B8Ki), ubound(InData%NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOtherState(Buf, InData%NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC), ubound(InData%TStC)) - LB(1:1) = lbound(InData%TStC) - UB(1:1) = ubound(InData%TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC, kind=B8Ki), ubound(InData%TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOtherState(Buf, InData%TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC), ubound(InData%SStC)) - LB(1:1) = lbound(InData%SStC) - UB(1:1) = ubound(InData%SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC, kind=B8Ki), ubound(InData%SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOtherState(Buf, InData%SStC(i1)) end do @@ -4419,8 +4419,8 @@ subroutine SrvD_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -4588,16 +4588,16 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyModuleMapType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcModuleMapTypeData%u_BStC_Mot2_BStC)) then - LB(1:2) = lbound(SrcModuleMapTypeData%u_BStC_Mot2_BStC) - UB(1:2) = ubound(SrcModuleMapTypeData%u_BStC_Mot2_BStC) + LB(1:2) = lbound(SrcModuleMapTypeData%u_BStC_Mot2_BStC, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%u_BStC_Mot2_BStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_BStC_Mot2_BStC)) then allocate(DstModuleMapTypeData%u_BStC_Mot2_BStC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4614,8 +4614,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%u_NStC_Mot2_NStC)) then - LB(1:1) = lbound(SrcModuleMapTypeData%u_NStC_Mot2_NStC) - UB(1:1) = ubound(SrcModuleMapTypeData%u_NStC_Mot2_NStC) + LB(1:1) = lbound(SrcModuleMapTypeData%u_NStC_Mot2_NStC, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%u_NStC_Mot2_NStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_NStC_Mot2_NStC)) then allocate(DstModuleMapTypeData%u_NStC_Mot2_NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4630,8 +4630,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%u_TStC_Mot2_TStC)) then - LB(1:1) = lbound(SrcModuleMapTypeData%u_TStC_Mot2_TStC) - UB(1:1) = ubound(SrcModuleMapTypeData%u_TStC_Mot2_TStC) + LB(1:1) = lbound(SrcModuleMapTypeData%u_TStC_Mot2_TStC, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%u_TStC_Mot2_TStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_TStC_Mot2_TStC)) then allocate(DstModuleMapTypeData%u_TStC_Mot2_TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4646,8 +4646,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%u_SStC_Mot2_SStC)) then - LB(1:1) = lbound(SrcModuleMapTypeData%u_SStC_Mot2_SStC) - UB(1:1) = ubound(SrcModuleMapTypeData%u_SStC_Mot2_SStC) + LB(1:1) = lbound(SrcModuleMapTypeData%u_SStC_Mot2_SStC, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%u_SStC_Mot2_SStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%u_SStC_Mot2_SStC)) then allocate(DstModuleMapTypeData%u_SStC_Mot2_SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4662,8 +4662,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%BStC_Frc2_y_BStC)) then - LB(1:2) = lbound(SrcModuleMapTypeData%BStC_Frc2_y_BStC) - UB(1:2) = ubound(SrcModuleMapTypeData%BStC_Frc2_y_BStC) + LB(1:2) = lbound(SrcModuleMapTypeData%BStC_Frc2_y_BStC, kind=B8Ki) + UB(1:2) = ubound(SrcModuleMapTypeData%BStC_Frc2_y_BStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%BStC_Frc2_y_BStC)) then allocate(DstModuleMapTypeData%BStC_Frc2_y_BStC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4680,8 +4680,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%NStC_Frc2_y_NStC)) then - LB(1:1) = lbound(SrcModuleMapTypeData%NStC_Frc2_y_NStC) - UB(1:1) = ubound(SrcModuleMapTypeData%NStC_Frc2_y_NStC) + LB(1:1) = lbound(SrcModuleMapTypeData%NStC_Frc2_y_NStC, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%NStC_Frc2_y_NStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%NStC_Frc2_y_NStC)) then allocate(DstModuleMapTypeData%NStC_Frc2_y_NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4696,8 +4696,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%TStC_Frc2_y_TStC)) then - LB(1:1) = lbound(SrcModuleMapTypeData%TStC_Frc2_y_TStC) - UB(1:1) = ubound(SrcModuleMapTypeData%TStC_Frc2_y_TStC) + LB(1:1) = lbound(SrcModuleMapTypeData%TStC_Frc2_y_TStC, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%TStC_Frc2_y_TStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%TStC_Frc2_y_TStC)) then allocate(DstModuleMapTypeData%TStC_Frc2_y_TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4712,8 +4712,8 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%SStC_Frc2_y_SStC)) then - LB(1:1) = lbound(SrcModuleMapTypeData%SStC_Frc2_y_SStC) - UB(1:1) = ubound(SrcModuleMapTypeData%SStC_Frc2_y_SStC) + LB(1:1) = lbound(SrcModuleMapTypeData%SStC_Frc2_y_SStC, kind=B8Ki) + UB(1:1) = ubound(SrcModuleMapTypeData%SStC_Frc2_y_SStC, kind=B8Ki) if (.not. allocated(DstModuleMapTypeData%SStC_Frc2_y_SStC)) then allocate(DstModuleMapTypeData%SStC_Frc2_y_SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4733,16 +4733,16 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) type(SrvD_ModuleMapType), intent(inout) :: ModuleMapTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyModuleMapType' ErrStat = ErrID_None ErrMsg = '' if (allocated(ModuleMapTypeData%u_BStC_Mot2_BStC)) then - LB(1:2) = lbound(ModuleMapTypeData%u_BStC_Mot2_BStC) - UB(1:2) = ubound(ModuleMapTypeData%u_BStC_Mot2_BStC) + LB(1:2) = lbound(ModuleMapTypeData%u_BStC_Mot2_BStC, kind=B8Ki) + UB(1:2) = ubound(ModuleMapTypeData%u_BStC_Mot2_BStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%u_BStC_Mot2_BStC(i1,i2), ErrStat2, ErrMsg2) @@ -4752,8 +4752,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%u_BStC_Mot2_BStC) end if if (allocated(ModuleMapTypeData%u_NStC_Mot2_NStC)) then - LB(1:1) = lbound(ModuleMapTypeData%u_NStC_Mot2_NStC) - UB(1:1) = ubound(ModuleMapTypeData%u_NStC_Mot2_NStC) + LB(1:1) = lbound(ModuleMapTypeData%u_NStC_Mot2_NStC, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%u_NStC_Mot2_NStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%u_NStC_Mot2_NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4761,8 +4761,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%u_NStC_Mot2_NStC) end if if (allocated(ModuleMapTypeData%u_TStC_Mot2_TStC)) then - LB(1:1) = lbound(ModuleMapTypeData%u_TStC_Mot2_TStC) - UB(1:1) = ubound(ModuleMapTypeData%u_TStC_Mot2_TStC) + LB(1:1) = lbound(ModuleMapTypeData%u_TStC_Mot2_TStC, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%u_TStC_Mot2_TStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%u_TStC_Mot2_TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4770,8 +4770,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%u_TStC_Mot2_TStC) end if if (allocated(ModuleMapTypeData%u_SStC_Mot2_SStC)) then - LB(1:1) = lbound(ModuleMapTypeData%u_SStC_Mot2_SStC) - UB(1:1) = ubound(ModuleMapTypeData%u_SStC_Mot2_SStC) + LB(1:1) = lbound(ModuleMapTypeData%u_SStC_Mot2_SStC, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%u_SStC_Mot2_SStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%u_SStC_Mot2_SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4779,8 +4779,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%u_SStC_Mot2_SStC) end if if (allocated(ModuleMapTypeData%BStC_Frc2_y_BStC)) then - LB(1:2) = lbound(ModuleMapTypeData%BStC_Frc2_y_BStC) - UB(1:2) = ubound(ModuleMapTypeData%BStC_Frc2_y_BStC) + LB(1:2) = lbound(ModuleMapTypeData%BStC_Frc2_y_BStC, kind=B8Ki) + UB(1:2) = ubound(ModuleMapTypeData%BStC_Frc2_y_BStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BStC_Frc2_y_BStC(i1,i2), ErrStat2, ErrMsg2) @@ -4790,8 +4790,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BStC_Frc2_y_BStC) end if if (allocated(ModuleMapTypeData%NStC_Frc2_y_NStC)) then - LB(1:1) = lbound(ModuleMapTypeData%NStC_Frc2_y_NStC) - UB(1:1) = ubound(ModuleMapTypeData%NStC_Frc2_y_NStC) + LB(1:1) = lbound(ModuleMapTypeData%NStC_Frc2_y_NStC, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%NStC_Frc2_y_NStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%NStC_Frc2_y_NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4799,8 +4799,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%NStC_Frc2_y_NStC) end if if (allocated(ModuleMapTypeData%TStC_Frc2_y_TStC)) then - LB(1:1) = lbound(ModuleMapTypeData%TStC_Frc2_y_TStC) - UB(1:1) = ubound(ModuleMapTypeData%TStC_Frc2_y_TStC) + LB(1:1) = lbound(ModuleMapTypeData%TStC_Frc2_y_TStC, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%TStC_Frc2_y_TStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%TStC_Frc2_y_TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4808,8 +4808,8 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%TStC_Frc2_y_TStC) end if if (allocated(ModuleMapTypeData%SStC_Frc2_y_SStC)) then - LB(1:1) = lbound(ModuleMapTypeData%SStC_Frc2_y_SStC) - UB(1:1) = ubound(ModuleMapTypeData%SStC_Frc2_y_SStC) + LB(1:1) = lbound(ModuleMapTypeData%SStC_Frc2_y_SStC, kind=B8Ki) + UB(1:1) = ubound(ModuleMapTypeData%SStC_Frc2_y_SStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SStC_Frc2_y_SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4822,14 +4822,14 @@ subroutine SrvD_PackModuleMapType(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_ModuleMapType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackModuleMapType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%u_BStC_Mot2_BStC)) if (allocated(InData%u_BStC_Mot2_BStC)) then - call RegPackBounds(Buf, 2, lbound(InData%u_BStC_Mot2_BStC), ubound(InData%u_BStC_Mot2_BStC)) - LB(1:2) = lbound(InData%u_BStC_Mot2_BStC) - UB(1:2) = ubound(InData%u_BStC_Mot2_BStC) + call RegPackBounds(Buf, 2, lbound(InData%u_BStC_Mot2_BStC, kind=B8Ki), ubound(InData%u_BStC_Mot2_BStC, kind=B8Ki)) + LB(1:2) = lbound(InData%u_BStC_Mot2_BStC, kind=B8Ki) + UB(1:2) = ubound(InData%u_BStC_Mot2_BStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%u_BStC_Mot2_BStC(i1,i2)) @@ -4838,36 +4838,36 @@ subroutine SrvD_PackModuleMapType(Buf, Indata) end if call RegPack(Buf, allocated(InData%u_NStC_Mot2_NStC)) if (allocated(InData%u_NStC_Mot2_NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%u_NStC_Mot2_NStC), ubound(InData%u_NStC_Mot2_NStC)) - LB(1:1) = lbound(InData%u_NStC_Mot2_NStC) - UB(1:1) = ubound(InData%u_NStC_Mot2_NStC) + call RegPackBounds(Buf, 1, lbound(InData%u_NStC_Mot2_NStC, kind=B8Ki), ubound(InData%u_NStC_Mot2_NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%u_NStC_Mot2_NStC, kind=B8Ki) + UB(1:1) = ubound(InData%u_NStC_Mot2_NStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%u_NStC_Mot2_NStC(i1)) end do end if call RegPack(Buf, allocated(InData%u_TStC_Mot2_TStC)) if (allocated(InData%u_TStC_Mot2_TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%u_TStC_Mot2_TStC), ubound(InData%u_TStC_Mot2_TStC)) - LB(1:1) = lbound(InData%u_TStC_Mot2_TStC) - UB(1:1) = ubound(InData%u_TStC_Mot2_TStC) + call RegPackBounds(Buf, 1, lbound(InData%u_TStC_Mot2_TStC, kind=B8Ki), ubound(InData%u_TStC_Mot2_TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%u_TStC_Mot2_TStC, kind=B8Ki) + UB(1:1) = ubound(InData%u_TStC_Mot2_TStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%u_TStC_Mot2_TStC(i1)) end do end if call RegPack(Buf, allocated(InData%u_SStC_Mot2_SStC)) if (allocated(InData%u_SStC_Mot2_SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%u_SStC_Mot2_SStC), ubound(InData%u_SStC_Mot2_SStC)) - LB(1:1) = lbound(InData%u_SStC_Mot2_SStC) - UB(1:1) = ubound(InData%u_SStC_Mot2_SStC) + call RegPackBounds(Buf, 1, lbound(InData%u_SStC_Mot2_SStC, kind=B8Ki), ubound(InData%u_SStC_Mot2_SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%u_SStC_Mot2_SStC, kind=B8Ki) + UB(1:1) = ubound(InData%u_SStC_Mot2_SStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%u_SStC_Mot2_SStC(i1)) end do end if call RegPack(Buf, allocated(InData%BStC_Frc2_y_BStC)) if (allocated(InData%BStC_Frc2_y_BStC)) then - call RegPackBounds(Buf, 2, lbound(InData%BStC_Frc2_y_BStC), ubound(InData%BStC_Frc2_y_BStC)) - LB(1:2) = lbound(InData%BStC_Frc2_y_BStC) - UB(1:2) = ubound(InData%BStC_Frc2_y_BStC) + call RegPackBounds(Buf, 2, lbound(InData%BStC_Frc2_y_BStC, kind=B8Ki), ubound(InData%BStC_Frc2_y_BStC, kind=B8Ki)) + LB(1:2) = lbound(InData%BStC_Frc2_y_BStC, kind=B8Ki) + UB(1:2) = ubound(InData%BStC_Frc2_y_BStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%BStC_Frc2_y_BStC(i1,i2)) @@ -4876,27 +4876,27 @@ subroutine SrvD_PackModuleMapType(Buf, Indata) end if call RegPack(Buf, allocated(InData%NStC_Frc2_y_NStC)) if (allocated(InData%NStC_Frc2_y_NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC_Frc2_y_NStC), ubound(InData%NStC_Frc2_y_NStC)) - LB(1:1) = lbound(InData%NStC_Frc2_y_NStC) - UB(1:1) = ubound(InData%NStC_Frc2_y_NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC_Frc2_y_NStC, kind=B8Ki), ubound(InData%NStC_Frc2_y_NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC_Frc2_y_NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC_Frc2_y_NStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%NStC_Frc2_y_NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC_Frc2_y_TStC)) if (allocated(InData%TStC_Frc2_y_TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC_Frc2_y_TStC), ubound(InData%TStC_Frc2_y_TStC)) - LB(1:1) = lbound(InData%TStC_Frc2_y_TStC) - UB(1:1) = ubound(InData%TStC_Frc2_y_TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC_Frc2_y_TStC, kind=B8Ki), ubound(InData%TStC_Frc2_y_TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC_Frc2_y_TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC_Frc2_y_TStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%TStC_Frc2_y_TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC_Frc2_y_SStC)) if (allocated(InData%SStC_Frc2_y_SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC_Frc2_y_SStC), ubound(InData%SStC_Frc2_y_SStC)) - LB(1:1) = lbound(InData%SStC_Frc2_y_SStC) - UB(1:1) = ubound(InData%SStC_Frc2_y_SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC_Frc2_y_SStC, kind=B8Ki), ubound(InData%SStC_Frc2_y_SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC_Frc2_y_SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC_Frc2_y_SStC, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(Buf, InData%SStC_Frc2_y_SStC(i1)) end do @@ -4908,8 +4908,8 @@ subroutine SrvD_UnPackModuleMapType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_ModuleMapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackModuleMapType' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5045,8 +5045,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyMisc' @@ -5059,8 +5059,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FirstWarn = SrcMiscData%FirstWarn DstMiscData%LastTimeFiltered = SrcMiscData%LastTimeFiltered if (allocated(SrcMiscData%xd_BlPitchFilter)) then - LB(1:1) = lbound(SrcMiscData%xd_BlPitchFilter) - UB(1:1) = ubound(SrcMiscData%xd_BlPitchFilter) + LB(1:1) = lbound(SrcMiscData%xd_BlPitchFilter, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%xd_BlPitchFilter, kind=B8Ki) if (.not. allocated(DstMiscData%xd_BlPitchFilter)) then allocate(DstMiscData%xd_BlPitchFilter(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5071,8 +5071,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%xd_BlPitchFilter = SrcMiscData%xd_BlPitchFilter end if if (allocated(SrcMiscData%BStC)) then - LB(1:1) = lbound(SrcMiscData%BStC) - UB(1:1) = ubound(SrcMiscData%BStC) + LB(1:1) = lbound(SrcMiscData%BStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%BStC, kind=B8Ki) if (.not. allocated(DstMiscData%BStC)) then allocate(DstMiscData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5087,8 +5087,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%NStC)) then - LB(1:1) = lbound(SrcMiscData%NStC) - UB(1:1) = ubound(SrcMiscData%NStC) + LB(1:1) = lbound(SrcMiscData%NStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%NStC, kind=B8Ki) if (.not. allocated(DstMiscData%NStC)) then allocate(DstMiscData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5103,8 +5103,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%TStC)) then - LB(1:1) = lbound(SrcMiscData%TStC) - UB(1:1) = ubound(SrcMiscData%TStC) + LB(1:1) = lbound(SrcMiscData%TStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%TStC, kind=B8Ki) if (.not. allocated(DstMiscData%TStC)) then allocate(DstMiscData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5119,8 +5119,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%SStC)) then - LB(1:1) = lbound(SrcMiscData%SStC) - UB(1:1) = ubound(SrcMiscData%SStC) + LB(1:1) = lbound(SrcMiscData%SStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SStC, kind=B8Ki) if (.not. allocated(DstMiscData%SStC)) then allocate(DstMiscData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5135,8 +5135,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%u_BStC)) then - LB(1:2) = lbound(SrcMiscData%u_BStC) - UB(1:2) = ubound(SrcMiscData%u_BStC) + LB(1:2) = lbound(SrcMiscData%u_BStC, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%u_BStC, kind=B8Ki) if (.not. allocated(DstMiscData%u_BStC)) then allocate(DstMiscData%u_BStC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5153,8 +5153,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%u_NStC)) then - LB(1:2) = lbound(SrcMiscData%u_NStC) - UB(1:2) = ubound(SrcMiscData%u_NStC) + LB(1:2) = lbound(SrcMiscData%u_NStC, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%u_NStC, kind=B8Ki) if (.not. allocated(DstMiscData%u_NStC)) then allocate(DstMiscData%u_NStC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5171,8 +5171,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%u_TStC)) then - LB(1:2) = lbound(SrcMiscData%u_TStC) - UB(1:2) = ubound(SrcMiscData%u_TStC) + LB(1:2) = lbound(SrcMiscData%u_TStC, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%u_TStC, kind=B8Ki) if (.not. allocated(DstMiscData%u_TStC)) then allocate(DstMiscData%u_TStC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5189,8 +5189,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%u_SStC)) then - LB(1:2) = lbound(SrcMiscData%u_SStC) - UB(1:2) = ubound(SrcMiscData%u_SStC) + LB(1:2) = lbound(SrcMiscData%u_SStC, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%u_SStC, kind=B8Ki) if (.not. allocated(DstMiscData%u_SStC)) then allocate(DstMiscData%u_SStC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5207,8 +5207,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%y_BStC)) then - LB(1:1) = lbound(SrcMiscData%y_BStC) - UB(1:1) = ubound(SrcMiscData%y_BStC) + LB(1:1) = lbound(SrcMiscData%y_BStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%y_BStC, kind=B8Ki) if (.not. allocated(DstMiscData%y_BStC)) then allocate(DstMiscData%y_BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5223,8 +5223,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%y_NStC)) then - LB(1:1) = lbound(SrcMiscData%y_NStC) - UB(1:1) = ubound(SrcMiscData%y_NStC) + LB(1:1) = lbound(SrcMiscData%y_NStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%y_NStC, kind=B8Ki) if (.not. allocated(DstMiscData%y_NStC)) then allocate(DstMiscData%y_NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5239,8 +5239,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%y_TStC)) then - LB(1:1) = lbound(SrcMiscData%y_TStC) - UB(1:1) = ubound(SrcMiscData%y_TStC) + LB(1:1) = lbound(SrcMiscData%y_TStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%y_TStC, kind=B8Ki) if (.not. allocated(DstMiscData%y_TStC)) then allocate(DstMiscData%y_TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5255,8 +5255,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%y_SStC)) then - LB(1:1) = lbound(SrcMiscData%y_SStC) - UB(1:1) = ubound(SrcMiscData%y_SStC) + LB(1:1) = lbound(SrcMiscData%y_SStC, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%y_SStC, kind=B8Ki) if (.not. allocated(DstMiscData%y_SStC)) then allocate(DstMiscData%y_SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5280,8 +5280,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) type(SrvD_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyMisc' @@ -5293,8 +5293,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%xd_BlPitchFilter) end if if (allocated(MiscData%BStC)) then - LB(1:1) = lbound(MiscData%BStC) - UB(1:1) = ubound(MiscData%BStC) + LB(1:1) = lbound(MiscData%BStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5302,8 +5302,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%BStC) end if if (allocated(MiscData%NStC)) then - LB(1:1) = lbound(MiscData%NStC) - UB(1:1) = ubound(MiscData%NStC) + LB(1:1) = lbound(MiscData%NStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5311,8 +5311,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%NStC) end if if (allocated(MiscData%TStC)) then - LB(1:1) = lbound(MiscData%TStC) - UB(1:1) = ubound(MiscData%TStC) + LB(1:1) = lbound(MiscData%TStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5320,8 +5320,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%TStC) end if if (allocated(MiscData%SStC)) then - LB(1:1) = lbound(MiscData%SStC) - UB(1:1) = ubound(MiscData%SStC) + LB(1:1) = lbound(MiscData%SStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5329,8 +5329,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%SStC) end if if (allocated(MiscData%u_BStC)) then - LB(1:2) = lbound(MiscData%u_BStC) - UB(1:2) = ubound(MiscData%u_BStC) + LB(1:2) = lbound(MiscData%u_BStC, kind=B8Ki) + UB(1:2) = ubound(MiscData%u_BStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_BStC(i1,i2), ErrStat2, ErrMsg2) @@ -5340,8 +5340,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%u_BStC) end if if (allocated(MiscData%u_NStC)) then - LB(1:2) = lbound(MiscData%u_NStC) - UB(1:2) = ubound(MiscData%u_NStC) + LB(1:2) = lbound(MiscData%u_NStC, kind=B8Ki) + UB(1:2) = ubound(MiscData%u_NStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_NStC(i1,i2), ErrStat2, ErrMsg2) @@ -5351,8 +5351,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%u_NStC) end if if (allocated(MiscData%u_TStC)) then - LB(1:2) = lbound(MiscData%u_TStC) - UB(1:2) = ubound(MiscData%u_TStC) + LB(1:2) = lbound(MiscData%u_TStC, kind=B8Ki) + UB(1:2) = ubound(MiscData%u_TStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_TStC(i1,i2), ErrStat2, ErrMsg2) @@ -5362,8 +5362,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%u_TStC) end if if (allocated(MiscData%u_SStC)) then - LB(1:2) = lbound(MiscData%u_SStC) - UB(1:2) = ubound(MiscData%u_SStC) + LB(1:2) = lbound(MiscData%u_SStC, kind=B8Ki) + UB(1:2) = ubound(MiscData%u_SStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_SStC(i1,i2), ErrStat2, ErrMsg2) @@ -5373,8 +5373,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%u_SStC) end if if (allocated(MiscData%y_BStC)) then - LB(1:1) = lbound(MiscData%y_BStC) - UB(1:1) = ubound(MiscData%y_BStC) + LB(1:1) = lbound(MiscData%y_BStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%y_BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5382,8 +5382,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%y_BStC) end if if (allocated(MiscData%y_NStC)) then - LB(1:1) = lbound(MiscData%y_NStC) - UB(1:1) = ubound(MiscData%y_NStC) + LB(1:1) = lbound(MiscData%y_NStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%y_NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5391,8 +5391,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%y_NStC) end if if (allocated(MiscData%y_TStC)) then - LB(1:1) = lbound(MiscData%y_TStC) - UB(1:1) = ubound(MiscData%y_TStC) + LB(1:1) = lbound(MiscData%y_TStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%y_TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5400,8 +5400,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%y_TStC) end if if (allocated(MiscData%y_SStC)) then - LB(1:1) = lbound(MiscData%y_SStC) - UB(1:1) = ubound(MiscData%y_SStC) + LB(1:1) = lbound(MiscData%y_SStC, kind=B8Ki) + UB(1:1) = ubound(MiscData%y_SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5416,8 +5416,8 @@ subroutine SrvD_PackMisc(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%LastTimeCalled) call SrvD_PackBladedDLLType(Buf, InData%dll_data) @@ -5425,50 +5425,50 @@ subroutine SrvD_PackMisc(Buf, Indata) call RegPack(Buf, InData%LastTimeFiltered) call RegPack(Buf, allocated(InData%xd_BlPitchFilter)) if (allocated(InData%xd_BlPitchFilter)) then - call RegPackBounds(Buf, 1, lbound(InData%xd_BlPitchFilter), ubound(InData%xd_BlPitchFilter)) + call RegPackBounds(Buf, 1, lbound(InData%xd_BlPitchFilter, kind=B8Ki), ubound(InData%xd_BlPitchFilter, kind=B8Ki)) call RegPack(Buf, InData%xd_BlPitchFilter) end if call RegPack(Buf, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%BStC), ubound(InData%BStC)) - LB(1:1) = lbound(InData%BStC) - UB(1:1) = ubound(InData%BStC) + call RegPackBounds(Buf, 1, lbound(InData%BStC, kind=B8Ki), ubound(InData%BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%BStC, kind=B8Ki) + UB(1:1) = ubound(InData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackMisc(Buf, InData%BStC(i1)) end do end if call RegPack(Buf, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC), ubound(InData%NStC)) - LB(1:1) = lbound(InData%NStC) - UB(1:1) = ubound(InData%NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC, kind=B8Ki), ubound(InData%NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackMisc(Buf, InData%NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC), ubound(InData%TStC)) - LB(1:1) = lbound(InData%TStC) - UB(1:1) = ubound(InData%TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC, kind=B8Ki), ubound(InData%TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackMisc(Buf, InData%TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC), ubound(InData%SStC)) - LB(1:1) = lbound(InData%SStC) - UB(1:1) = ubound(InData%SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC, kind=B8Ki), ubound(InData%SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackMisc(Buf, InData%SStC(i1)) end do end if call RegPack(Buf, allocated(InData%u_BStC)) if (allocated(InData%u_BStC)) then - call RegPackBounds(Buf, 2, lbound(InData%u_BStC), ubound(InData%u_BStC)) - LB(1:2) = lbound(InData%u_BStC) - UB(1:2) = ubound(InData%u_BStC) + call RegPackBounds(Buf, 2, lbound(InData%u_BStC, kind=B8Ki), ubound(InData%u_BStC, kind=B8Ki)) + LB(1:2) = lbound(InData%u_BStC, kind=B8Ki) + UB(1:2) = ubound(InData%u_BStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(Buf, InData%u_BStC(i1,i2)) @@ -5477,9 +5477,9 @@ subroutine SrvD_PackMisc(Buf, Indata) end if call RegPack(Buf, allocated(InData%u_NStC)) if (allocated(InData%u_NStC)) then - call RegPackBounds(Buf, 2, lbound(InData%u_NStC), ubound(InData%u_NStC)) - LB(1:2) = lbound(InData%u_NStC) - UB(1:2) = ubound(InData%u_NStC) + call RegPackBounds(Buf, 2, lbound(InData%u_NStC, kind=B8Ki), ubound(InData%u_NStC, kind=B8Ki)) + LB(1:2) = lbound(InData%u_NStC, kind=B8Ki) + UB(1:2) = ubound(InData%u_NStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(Buf, InData%u_NStC(i1,i2)) @@ -5488,9 +5488,9 @@ subroutine SrvD_PackMisc(Buf, Indata) end if call RegPack(Buf, allocated(InData%u_TStC)) if (allocated(InData%u_TStC)) then - call RegPackBounds(Buf, 2, lbound(InData%u_TStC), ubound(InData%u_TStC)) - LB(1:2) = lbound(InData%u_TStC) - UB(1:2) = ubound(InData%u_TStC) + call RegPackBounds(Buf, 2, lbound(InData%u_TStC, kind=B8Ki), ubound(InData%u_TStC, kind=B8Ki)) + LB(1:2) = lbound(InData%u_TStC, kind=B8Ki) + UB(1:2) = ubound(InData%u_TStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(Buf, InData%u_TStC(i1,i2)) @@ -5499,9 +5499,9 @@ subroutine SrvD_PackMisc(Buf, Indata) end if call RegPack(Buf, allocated(InData%u_SStC)) if (allocated(InData%u_SStC)) then - call RegPackBounds(Buf, 2, lbound(InData%u_SStC), ubound(InData%u_SStC)) - LB(1:2) = lbound(InData%u_SStC) - UB(1:2) = ubound(InData%u_SStC) + call RegPackBounds(Buf, 2, lbound(InData%u_SStC, kind=B8Ki), ubound(InData%u_SStC, kind=B8Ki)) + LB(1:2) = lbound(InData%u_SStC, kind=B8Ki) + UB(1:2) = ubound(InData%u_SStC, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(Buf, InData%u_SStC(i1,i2)) @@ -5510,36 +5510,36 @@ subroutine SrvD_PackMisc(Buf, Indata) end if call RegPack(Buf, allocated(InData%y_BStC)) if (allocated(InData%y_BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%y_BStC), ubound(InData%y_BStC)) - LB(1:1) = lbound(InData%y_BStC) - UB(1:1) = ubound(InData%y_BStC) + call RegPackBounds(Buf, 1, lbound(InData%y_BStC, kind=B8Ki), ubound(InData%y_BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%y_BStC, kind=B8Ki) + UB(1:1) = ubound(InData%y_BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOutput(Buf, InData%y_BStC(i1)) end do end if call RegPack(Buf, allocated(InData%y_NStC)) if (allocated(InData%y_NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%y_NStC), ubound(InData%y_NStC)) - LB(1:1) = lbound(InData%y_NStC) - UB(1:1) = ubound(InData%y_NStC) + call RegPackBounds(Buf, 1, lbound(InData%y_NStC, kind=B8Ki), ubound(InData%y_NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%y_NStC, kind=B8Ki) + UB(1:1) = ubound(InData%y_NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOutput(Buf, InData%y_NStC(i1)) end do end if call RegPack(Buf, allocated(InData%y_TStC)) if (allocated(InData%y_TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%y_TStC), ubound(InData%y_TStC)) - LB(1:1) = lbound(InData%y_TStC) - UB(1:1) = ubound(InData%y_TStC) + call RegPackBounds(Buf, 1, lbound(InData%y_TStC, kind=B8Ki), ubound(InData%y_TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%y_TStC, kind=B8Ki) + UB(1:1) = ubound(InData%y_TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOutput(Buf, InData%y_TStC(i1)) end do end if call RegPack(Buf, allocated(InData%y_SStC)) if (allocated(InData%y_SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%y_SStC), ubound(InData%y_SStC)) - LB(1:1) = lbound(InData%y_SStC) - UB(1:1) = ubound(InData%y_SStC) + call RegPackBounds(Buf, 1, lbound(InData%y_SStC, kind=B8Ki), ubound(InData%y_SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%y_SStC, kind=B8Ki) + UB(1:1) = ubound(InData%y_SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackOutput(Buf, InData%y_SStC(i1)) end do @@ -5553,8 +5553,8 @@ subroutine SrvD_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackMisc' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -5778,8 +5778,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyParam' @@ -5809,8 +5809,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TEC_Xe1 = SrcParamData%TEC_Xe1 DstParamData%GenEff = SrcParamData%GenEff if (allocated(SrcParamData%BlPitchInit)) then - LB(1:1) = lbound(SrcParamData%BlPitchInit) - UB(1:1) = ubound(SrcParamData%BlPitchInit) + LB(1:1) = lbound(SrcParamData%BlPitchInit, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BlPitchInit, kind=B8Ki) if (.not. allocated(DstParamData%BlPitchInit)) then allocate(DstParamData%BlPitchInit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5821,8 +5821,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BlPitchInit = SrcParamData%BlPitchInit end if if (allocated(SrcParamData%BlPitchF)) then - LB(1:1) = lbound(SrcParamData%BlPitchF) - UB(1:1) = ubound(SrcParamData%BlPitchF) + LB(1:1) = lbound(SrcParamData%BlPitchF, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BlPitchF, kind=B8Ki) if (.not. allocated(DstParamData%BlPitchF)) then allocate(DstParamData%BlPitchF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5833,8 +5833,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%BlPitchF = SrcParamData%BlPitchF end if if (allocated(SrcParamData%PitManRat)) then - LB(1:1) = lbound(SrcParamData%PitManRat) - UB(1:1) = ubound(SrcParamData%PitManRat) + LB(1:1) = lbound(SrcParamData%PitManRat, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%PitManRat, kind=B8Ki) if (.not. allocated(DstParamData%PitManRat)) then allocate(DstParamData%PitManRat(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5853,8 +5853,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TimGenOn = SrcParamData%TimGenOn DstParamData%TPCOn = SrcParamData%TPCOn if (allocated(SrcParamData%TPitManS)) then - LB(1:1) = lbound(SrcParamData%TPitManS) - UB(1:1) = ubound(SrcParamData%TPitManS) + LB(1:1) = lbound(SrcParamData%TPitManS, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%TPitManS, kind=B8Ki) if (.not. allocated(DstParamData%TPitManS)) then allocate(DstParamData%TPitManS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5887,8 +5887,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%YawDamp = SrcParamData%YawDamp DstParamData%TpBrDT = SrcParamData%TpBrDT if (allocated(SrcParamData%TBDepISp)) then - LB(1:1) = lbound(SrcParamData%TBDepISp) - UB(1:1) = ubound(SrcParamData%TBDepISp) + LB(1:1) = lbound(SrcParamData%TBDepISp, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%TBDepISp, kind=B8Ki) if (.not. allocated(DstParamData%TBDepISp)) then allocate(DstParamData%TBDepISp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5915,8 +5915,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumOuts_DLL = SrcParamData%NumOuts_DLL DstParamData%RootName = SrcParamData%RootName if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5945,8 +5945,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TrimGain = SrcParamData%TrimGain DstParamData%RotSpeedRef = SrcParamData%RotSpeedRef if (allocated(SrcParamData%BStC)) then - LB(1:1) = lbound(SrcParamData%BStC) - UB(1:1) = ubound(SrcParamData%BStC) + LB(1:1) = lbound(SrcParamData%BStC, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%BStC, kind=B8Ki) if (.not. allocated(DstParamData%BStC)) then allocate(DstParamData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5961,8 +5961,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%NStC)) then - LB(1:1) = lbound(SrcParamData%NStC) - UB(1:1) = ubound(SrcParamData%NStC) + LB(1:1) = lbound(SrcParamData%NStC, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NStC, kind=B8Ki) if (.not. allocated(DstParamData%NStC)) then allocate(DstParamData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5977,8 +5977,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%TStC)) then - LB(1:1) = lbound(SrcParamData%TStC) - UB(1:1) = ubound(SrcParamData%TStC) + LB(1:1) = lbound(SrcParamData%TStC, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%TStC, kind=B8Ki) if (.not. allocated(DstParamData%TStC)) then allocate(DstParamData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5993,8 +5993,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%SStC)) then - LB(1:1) = lbound(SrcParamData%SStC) - UB(1:1) = ubound(SrcParamData%SStC) + LB(1:1) = lbound(SrcParamData%SStC, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%SStC, kind=B8Ki) if (.not. allocated(DstParamData%SStC)) then allocate(DstParamData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6013,8 +6013,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumCableControl = SrcParamData%NumCableControl DstParamData%NumStC_Control = SrcParamData%NumStC_Control if (allocated(SrcParamData%StCMeasNumPerChan)) then - LB(1:1) = lbound(SrcParamData%StCMeasNumPerChan) - UB(1:1) = ubound(SrcParamData%StCMeasNumPerChan) + LB(1:1) = lbound(SrcParamData%StCMeasNumPerChan, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%StCMeasNumPerChan, kind=B8Ki) if (.not. allocated(DstParamData%StCMeasNumPerChan)) then allocate(DstParamData%StCMeasNumPerChan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6026,8 +6026,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%UseSC = SrcParamData%UseSC if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx) - UB(1:2) = ubound(SrcParamData%Jac_u_indx) + LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_u_indx)) then allocate(DstParamData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6038,8 +6038,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_u_indx = SrcParamData%Jac_u_indx end if if (allocated(SrcParamData%Jac_x_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_x_indx) - UB(1:2) = ubound(SrcParamData%Jac_x_indx) + LB(1:2) = lbound(SrcParamData%Jac_x_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_x_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_x_indx)) then allocate(DstParamData%Jac_x_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6050,8 +6050,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_x_indx = SrcParamData%Jac_x_indx end if if (allocated(SrcParamData%du)) then - LB(1:1) = lbound(SrcParamData%du) - UB(1:1) = ubound(SrcParamData%du) + LB(1:1) = lbound(SrcParamData%du, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6062,8 +6062,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%du = SrcParamData%du end if if (allocated(SrcParamData%dx)) then - LB(1:1) = lbound(SrcParamData%dx) - UB(1:1) = ubound(SrcParamData%dx) + LB(1:1) = lbound(SrcParamData%dx, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6077,8 +6077,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_ny = SrcParamData%Jac_ny DstParamData%Jac_nx = SrcParamData%Jac_nx if (allocated(SrcParamData%Jac_Idx_BStC_u)) then - LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_u) - UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_u) + LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_u, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_u, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_BStC_u)) then allocate(DstParamData%Jac_Idx_BStC_u(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6089,8 +6089,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_BStC_u = SrcParamData%Jac_Idx_BStC_u end if if (allocated(SrcParamData%Jac_Idx_NStC_u)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_u) - UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_u) + LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_u, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_u, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_NStC_u)) then allocate(DstParamData%Jac_Idx_NStC_u(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6101,8 +6101,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_NStC_u = SrcParamData%Jac_Idx_NStC_u end if if (allocated(SrcParamData%Jac_Idx_TStC_u)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_u) - UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_u) + LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_u, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_u, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_TStC_u)) then allocate(DstParamData%Jac_Idx_TStC_u(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6113,8 +6113,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_TStC_u = SrcParamData%Jac_Idx_TStC_u end if if (allocated(SrcParamData%Jac_Idx_SStC_u)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_u) - UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_u) + LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_u, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_u, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_SStC_u)) then allocate(DstParamData%Jac_Idx_SStC_u(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6125,8 +6125,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_SStC_u = SrcParamData%Jac_Idx_SStC_u end if if (allocated(SrcParamData%Jac_Idx_BStC_x)) then - LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_x) - UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_x) + LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_x, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_x, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_BStC_x)) then allocate(DstParamData%Jac_Idx_BStC_x(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6137,8 +6137,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_BStC_x = SrcParamData%Jac_Idx_BStC_x end if if (allocated(SrcParamData%Jac_Idx_NStC_x)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_x) - UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_x) + LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_x, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_x, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_NStC_x)) then allocate(DstParamData%Jac_Idx_NStC_x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6149,8 +6149,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_NStC_x = SrcParamData%Jac_Idx_NStC_x end if if (allocated(SrcParamData%Jac_Idx_TStC_x)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_x) - UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_x) + LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_x, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_x, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_TStC_x)) then allocate(DstParamData%Jac_Idx_TStC_x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6161,8 +6161,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_TStC_x = SrcParamData%Jac_Idx_TStC_x end if if (allocated(SrcParamData%Jac_Idx_SStC_x)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_x) - UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_x) + LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_x, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_x, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_SStC_x)) then allocate(DstParamData%Jac_Idx_SStC_x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6173,8 +6173,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_SStC_x = SrcParamData%Jac_Idx_SStC_x end if if (allocated(SrcParamData%Jac_Idx_BStC_y)) then - LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_y) - UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_y) + LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_y, kind=B8Ki) + UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_y, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_BStC_y)) then allocate(DstParamData%Jac_Idx_BStC_y(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6185,8 +6185,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_BStC_y = SrcParamData%Jac_Idx_BStC_y end if if (allocated(SrcParamData%Jac_Idx_NStC_y)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_y) - UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_y) + LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_y, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_y, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_NStC_y)) then allocate(DstParamData%Jac_Idx_NStC_y(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6197,8 +6197,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_NStC_y = SrcParamData%Jac_Idx_NStC_y end if if (allocated(SrcParamData%Jac_Idx_TStC_y)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_y) - UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_y) + LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_y, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_y, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_TStC_y)) then allocate(DstParamData%Jac_Idx_TStC_y(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6209,8 +6209,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_Idx_TStC_y = SrcParamData%Jac_Idx_TStC_y end if if (allocated(SrcParamData%Jac_Idx_SStC_y)) then - LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_y) - UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_y) + LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_y, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_y, kind=B8Ki) if (.not. allocated(DstParamData%Jac_Idx_SStC_y)) then allocate(DstParamData%Jac_Idx_SStC_y(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6231,8 +6231,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) type(SrvD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyParam' @@ -6254,8 +6254,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%TBDepISp) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6265,8 +6265,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) call FreeDynamicLib( ParamData%DLL_Trgt, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ParamData%BStC)) then - LB(1:1) = lbound(ParamData%BStC) - UB(1:1) = ubound(ParamData%BStC) + LB(1:1) = lbound(ParamData%BStC, kind=B8Ki) + UB(1:1) = ubound(ParamData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6274,8 +6274,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%BStC) end if if (allocated(ParamData%NStC)) then - LB(1:1) = lbound(ParamData%NStC) - UB(1:1) = ubound(ParamData%NStC) + LB(1:1) = lbound(ParamData%NStC, kind=B8Ki) + UB(1:1) = ubound(ParamData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6283,8 +6283,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%NStC) end if if (allocated(ParamData%TStC)) then - LB(1:1) = lbound(ParamData%TStC) - UB(1:1) = ubound(ParamData%TStC) + LB(1:1) = lbound(ParamData%TStC, kind=B8Ki) + UB(1:1) = ubound(ParamData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6292,8 +6292,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%TStC) end if if (allocated(ParamData%SStC)) then - LB(1:1) = lbound(ParamData%SStC) - UB(1:1) = ubound(ParamData%SStC) + LB(1:1) = lbound(ParamData%SStC, kind=B8Ki) + UB(1:1) = ubound(ParamData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6357,8 +6357,8 @@ subroutine SrvD_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%DT) call RegPack(Buf, InData%HSSBrDT) @@ -6385,17 +6385,17 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%GenEff) call RegPack(Buf, allocated(InData%BlPitchInit)) if (allocated(InData%BlPitchInit)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchInit), ubound(InData%BlPitchInit)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchInit, kind=B8Ki), ubound(InData%BlPitchInit, kind=B8Ki)) call RegPack(Buf, InData%BlPitchInit) end if call RegPack(Buf, allocated(InData%BlPitchF)) if (allocated(InData%BlPitchF)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchF), ubound(InData%BlPitchF)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchF, kind=B8Ki), ubound(InData%BlPitchF, kind=B8Ki)) call RegPack(Buf, InData%BlPitchF) end if call RegPack(Buf, allocated(InData%PitManRat)) if (allocated(InData%PitManRat)) then - call RegPackBounds(Buf, 1, lbound(InData%PitManRat), ubound(InData%PitManRat)) + call RegPackBounds(Buf, 1, lbound(InData%PitManRat, kind=B8Ki), ubound(InData%PitManRat, kind=B8Ki)) call RegPack(Buf, InData%PitManRat) end if call RegPack(Buf, InData%YawManRat) @@ -6408,7 +6408,7 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%TPCOn) call RegPack(Buf, allocated(InData%TPitManS)) if (allocated(InData%TPitManS)) then - call RegPackBounds(Buf, 1, lbound(InData%TPitManS), ubound(InData%TPitManS)) + call RegPackBounds(Buf, 1, lbound(InData%TPitManS, kind=B8Ki), ubound(InData%TPitManS, kind=B8Ki)) call RegPack(Buf, InData%TPitManS) end if call RegPack(Buf, InData%TYawManS) @@ -6435,7 +6435,7 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%TpBrDT) call RegPack(Buf, allocated(InData%TBDepISp)) if (allocated(InData%TBDepISp)) then - call RegPackBounds(Buf, 1, lbound(InData%TBDepISp), ubound(InData%TBDepISp)) + call RegPackBounds(Buf, 1, lbound(InData%TBDepISp, kind=B8Ki), ubound(InData%TBDepISp, kind=B8Ki)) call RegPack(Buf, InData%TBDepISp) end if call RegPack(Buf, InData%TBDrConN) @@ -6456,9 +6456,9 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%RootName) call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -6479,36 +6479,36 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%RotSpeedRef) call RegPack(Buf, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(Buf, 1, lbound(InData%BStC), ubound(InData%BStC)) - LB(1:1) = lbound(InData%BStC) - UB(1:1) = ubound(InData%BStC) + call RegPackBounds(Buf, 1, lbound(InData%BStC, kind=B8Ki), ubound(InData%BStC, kind=B8Ki)) + LB(1:1) = lbound(InData%BStC, kind=B8Ki) + UB(1:1) = ubound(InData%BStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackParam(Buf, InData%BStC(i1)) end do end if call RegPack(Buf, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(Buf, 1, lbound(InData%NStC), ubound(InData%NStC)) - LB(1:1) = lbound(InData%NStC) - UB(1:1) = ubound(InData%NStC) + call RegPackBounds(Buf, 1, lbound(InData%NStC, kind=B8Ki), ubound(InData%NStC, kind=B8Ki)) + LB(1:1) = lbound(InData%NStC, kind=B8Ki) + UB(1:1) = ubound(InData%NStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackParam(Buf, InData%NStC(i1)) end do end if call RegPack(Buf, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(Buf, 1, lbound(InData%TStC), ubound(InData%TStC)) - LB(1:1) = lbound(InData%TStC) - UB(1:1) = ubound(InData%TStC) + call RegPackBounds(Buf, 1, lbound(InData%TStC, kind=B8Ki), ubound(InData%TStC, kind=B8Ki)) + LB(1:1) = lbound(InData%TStC, kind=B8Ki) + UB(1:1) = ubound(InData%TStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackParam(Buf, InData%TStC(i1)) end do end if call RegPack(Buf, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(Buf, 1, lbound(InData%SStC), ubound(InData%SStC)) - LB(1:1) = lbound(InData%SStC) - UB(1:1) = ubound(InData%SStC) + call RegPackBounds(Buf, 1, lbound(InData%SStC, kind=B8Ki), ubound(InData%SStC, kind=B8Ki)) + LB(1:1) = lbound(InData%SStC, kind=B8Ki) + UB(1:1) = ubound(InData%SStC, kind=B8Ki) do i1 = LB(1), UB(1) call StC_PackParam(Buf, InData%SStC(i1)) end do @@ -6519,28 +6519,28 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%NumStC_Control) call RegPack(Buf, allocated(InData%StCMeasNumPerChan)) if (allocated(InData%StCMeasNumPerChan)) then - call RegPackBounds(Buf, 1, lbound(InData%StCMeasNumPerChan), ubound(InData%StCMeasNumPerChan)) + call RegPackBounds(Buf, 1, lbound(InData%StCMeasNumPerChan, kind=B8Ki), ubound(InData%StCMeasNumPerChan, kind=B8Ki)) call RegPack(Buf, InData%StCMeasNumPerChan) end if call RegPack(Buf, InData%UseSC) call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%Jac_x_indx)) if (allocated(InData%Jac_x_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_x_indx), ubound(InData%Jac_x_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_x_indx, kind=B8Ki), ubound(InData%Jac_x_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_x_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, allocated(InData%dx)) if (allocated(InData%dx)) then - call RegPackBounds(Buf, 1, lbound(InData%dx), ubound(InData%dx)) + call RegPackBounds(Buf, 1, lbound(InData%dx, kind=B8Ki), ubound(InData%dx, kind=B8Ki)) call RegPack(Buf, InData%dx) end if call RegPack(Buf, InData%Jac_nu) @@ -6548,62 +6548,62 @@ subroutine SrvD_PackParam(Buf, Indata) call RegPack(Buf, InData%Jac_nx) call RegPack(Buf, allocated(InData%Jac_Idx_BStC_u)) if (allocated(InData%Jac_Idx_BStC_u)) then - call RegPackBounds(Buf, 3, lbound(InData%Jac_Idx_BStC_u), ubound(InData%Jac_Idx_BStC_u)) + call RegPackBounds(Buf, 3, lbound(InData%Jac_Idx_BStC_u, kind=B8Ki), ubound(InData%Jac_Idx_BStC_u, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_BStC_u) end if call RegPack(Buf, allocated(InData%Jac_Idx_NStC_u)) if (allocated(InData%Jac_Idx_NStC_u)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_NStC_u), ubound(InData%Jac_Idx_NStC_u)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_NStC_u, kind=B8Ki), ubound(InData%Jac_Idx_NStC_u, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_NStC_u) end if call RegPack(Buf, allocated(InData%Jac_Idx_TStC_u)) if (allocated(InData%Jac_Idx_TStC_u)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_TStC_u), ubound(InData%Jac_Idx_TStC_u)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_TStC_u, kind=B8Ki), ubound(InData%Jac_Idx_TStC_u, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_TStC_u) end if call RegPack(Buf, allocated(InData%Jac_Idx_SStC_u)) if (allocated(InData%Jac_Idx_SStC_u)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_SStC_u), ubound(InData%Jac_Idx_SStC_u)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_SStC_u, kind=B8Ki), ubound(InData%Jac_Idx_SStC_u, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_SStC_u) end if call RegPack(Buf, allocated(InData%Jac_Idx_BStC_x)) if (allocated(InData%Jac_Idx_BStC_x)) then - call RegPackBounds(Buf, 3, lbound(InData%Jac_Idx_BStC_x), ubound(InData%Jac_Idx_BStC_x)) + call RegPackBounds(Buf, 3, lbound(InData%Jac_Idx_BStC_x, kind=B8Ki), ubound(InData%Jac_Idx_BStC_x, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_BStC_x) end if call RegPack(Buf, allocated(InData%Jac_Idx_NStC_x)) if (allocated(InData%Jac_Idx_NStC_x)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_NStC_x), ubound(InData%Jac_Idx_NStC_x)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_NStC_x, kind=B8Ki), ubound(InData%Jac_Idx_NStC_x, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_NStC_x) end if call RegPack(Buf, allocated(InData%Jac_Idx_TStC_x)) if (allocated(InData%Jac_Idx_TStC_x)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_TStC_x), ubound(InData%Jac_Idx_TStC_x)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_TStC_x, kind=B8Ki), ubound(InData%Jac_Idx_TStC_x, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_TStC_x) end if call RegPack(Buf, allocated(InData%Jac_Idx_SStC_x)) if (allocated(InData%Jac_Idx_SStC_x)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_SStC_x), ubound(InData%Jac_Idx_SStC_x)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_SStC_x, kind=B8Ki), ubound(InData%Jac_Idx_SStC_x, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_SStC_x) end if call RegPack(Buf, allocated(InData%Jac_Idx_BStC_y)) if (allocated(InData%Jac_Idx_BStC_y)) then - call RegPackBounds(Buf, 3, lbound(InData%Jac_Idx_BStC_y), ubound(InData%Jac_Idx_BStC_y)) + call RegPackBounds(Buf, 3, lbound(InData%Jac_Idx_BStC_y, kind=B8Ki), ubound(InData%Jac_Idx_BStC_y, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_BStC_y) end if call RegPack(Buf, allocated(InData%Jac_Idx_NStC_y)) if (allocated(InData%Jac_Idx_NStC_y)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_NStC_y), ubound(InData%Jac_Idx_NStC_y)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_NStC_y, kind=B8Ki), ubound(InData%Jac_Idx_NStC_y, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_NStC_y) end if call RegPack(Buf, allocated(InData%Jac_Idx_TStC_y)) if (allocated(InData%Jac_Idx_TStC_y)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_TStC_y), ubound(InData%Jac_Idx_TStC_y)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_TStC_y, kind=B8Ki), ubound(InData%Jac_Idx_TStC_y, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_TStC_y) end if call RegPack(Buf, allocated(InData%Jac_Idx_SStC_y)) if (allocated(InData%Jac_Idx_SStC_y)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_SStC_y), ubound(InData%Jac_Idx_SStC_y)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_Idx_SStC_y, kind=B8Ki), ubound(InData%Jac_Idx_SStC_y, kind=B8Ki)) call RegPack(Buf, InData%Jac_Idx_SStC_y) end if call RegPack(Buf, InData%SensorType) @@ -6618,8 +6618,8 @@ subroutine SrvD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackParam' - integer(IntKi) :: i1, i2, i3 - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: i1, i2, i3 + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -7205,16 +7205,16 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%BlPitch)) then - LB(1:1) = lbound(SrcInputData%BlPitch) - UB(1:1) = ubound(SrcInputData%BlPitch) + LB(1:1) = lbound(SrcInputData%BlPitch, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%BlPitch, kind=B8Ki) if (.not. allocated(DstInputData%BlPitch)) then allocate(DstInputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7232,8 +7232,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%ExternalYawPosCom = SrcInputData%ExternalYawPosCom DstInputData%ExternalYawRateCom = SrcInputData%ExternalYawRateCom if (allocated(SrcInputData%ExternalBlPitchCom)) then - LB(1:1) = lbound(SrcInputData%ExternalBlPitchCom) - UB(1:1) = ubound(SrcInputData%ExternalBlPitchCom) + LB(1:1) = lbound(SrcInputData%ExternalBlPitchCom, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%ExternalBlPitchCom, kind=B8Ki) if (.not. allocated(DstInputData%ExternalBlPitchCom)) then allocate(DstInputData%ExternalBlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7247,8 +7247,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%ExternalElecPwr = SrcInputData%ExternalElecPwr DstInputData%ExternalHSSBrFrac = SrcInputData%ExternalHSSBrFrac if (allocated(SrcInputData%ExternalBlAirfoilCom)) then - LB(1:1) = lbound(SrcInputData%ExternalBlAirfoilCom) - UB(1:1) = ubound(SrcInputData%ExternalBlAirfoilCom) + LB(1:1) = lbound(SrcInputData%ExternalBlAirfoilCom, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%ExternalBlAirfoilCom, kind=B8Ki) if (.not. allocated(DstInputData%ExternalBlAirfoilCom)) then allocate(DstInputData%ExternalBlAirfoilCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7259,8 +7259,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%ExternalBlAirfoilCom = SrcInputData%ExternalBlAirfoilCom end if if (allocated(SrcInputData%ExternalCableDeltaL)) then - LB(1:1) = lbound(SrcInputData%ExternalCableDeltaL) - UB(1:1) = ubound(SrcInputData%ExternalCableDeltaL) + LB(1:1) = lbound(SrcInputData%ExternalCableDeltaL, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%ExternalCableDeltaL, kind=B8Ki) if (.not. allocated(DstInputData%ExternalCableDeltaL)) then allocate(DstInputData%ExternalCableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7271,8 +7271,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%ExternalCableDeltaL = SrcInputData%ExternalCableDeltaL end if if (allocated(SrcInputData%ExternalCableDeltaLdot)) then - LB(1:1) = lbound(SrcInputData%ExternalCableDeltaLdot) - UB(1:1) = ubound(SrcInputData%ExternalCableDeltaLdot) + LB(1:1) = lbound(SrcInputData%ExternalCableDeltaLdot, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%ExternalCableDeltaLdot, kind=B8Ki) if (.not. allocated(DstInputData%ExternalCableDeltaLdot)) then allocate(DstInputData%ExternalCableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7307,8 +7307,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%LSShftFys = SrcInputData%LSShftFys DstInputData%LSShftFzs = SrcInputData%LSShftFzs if (allocated(SrcInputData%fromSC)) then - LB(1:1) = lbound(SrcInputData%fromSC) - UB(1:1) = ubound(SrcInputData%fromSC) + LB(1:1) = lbound(SrcInputData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fromSC, kind=B8Ki) if (.not. allocated(DstInputData%fromSC)) then allocate(DstInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7319,8 +7319,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%fromSC = SrcInputData%fromSC end if if (allocated(SrcInputData%fromSCglob)) then - LB(1:1) = lbound(SrcInputData%fromSCglob) - UB(1:1) = ubound(SrcInputData%fromSCglob) + LB(1:1) = lbound(SrcInputData%fromSCglob, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%fromSCglob, kind=B8Ki) if (.not. allocated(DstInputData%fromSCglob)) then allocate(DstInputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7331,8 +7331,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%fromSCglob = SrcInputData%fromSCglob end if if (allocated(SrcInputData%Lidar)) then - LB(1:1) = lbound(SrcInputData%Lidar) - UB(1:1) = ubound(SrcInputData%Lidar) + LB(1:1) = lbound(SrcInputData%Lidar, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%Lidar, kind=B8Ki) if (.not. allocated(DstInputData%Lidar)) then allocate(DstInputData%Lidar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7346,8 +7346,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInputData%BStCMotionMesh)) then - LB(1:2) = lbound(SrcInputData%BStCMotionMesh) - UB(1:2) = ubound(SrcInputData%BStCMotionMesh) + LB(1:2) = lbound(SrcInputData%BStCMotionMesh, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%BStCMotionMesh, kind=B8Ki) if (.not. allocated(DstInputData%BStCMotionMesh)) then allocate(DstInputData%BStCMotionMesh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7364,8 +7364,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%NStCMotionMesh)) then - LB(1:1) = lbound(SrcInputData%NStCMotionMesh) - UB(1:1) = ubound(SrcInputData%NStCMotionMesh) + LB(1:1) = lbound(SrcInputData%NStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%NStCMotionMesh, kind=B8Ki) if (.not. allocated(DstInputData%NStCMotionMesh)) then allocate(DstInputData%NStCMotionMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7380,8 +7380,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%TStCMotionMesh)) then - LB(1:1) = lbound(SrcInputData%TStCMotionMesh) - UB(1:1) = ubound(SrcInputData%TStCMotionMesh) + LB(1:1) = lbound(SrcInputData%TStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%TStCMotionMesh, kind=B8Ki) if (.not. allocated(DstInputData%TStCMotionMesh)) then allocate(DstInputData%TStCMotionMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7396,8 +7396,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%SStCMotionMesh)) then - LB(1:1) = lbound(SrcInputData%SStCMotionMesh) - UB(1:1) = ubound(SrcInputData%SStCMotionMesh) + LB(1:1) = lbound(SrcInputData%SStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%SStCMotionMesh, kind=B8Ki) if (.not. allocated(DstInputData%SStCMotionMesh)) then allocate(DstInputData%SStCMotionMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7412,8 +7412,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%LidSpeed)) then - LB(1:1) = lbound(SrcInputData%LidSpeed) - UB(1:1) = ubound(SrcInputData%LidSpeed) + LB(1:1) = lbound(SrcInputData%LidSpeed, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%LidSpeed, kind=B8Ki) if (.not. allocated(DstInputData%LidSpeed)) then allocate(DstInputData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7424,8 +7424,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%LidSpeed = SrcInputData%LidSpeed end if if (allocated(SrcInputData%MsrPositionsX)) then - LB(1:1) = lbound(SrcInputData%MsrPositionsX) - UB(1:1) = ubound(SrcInputData%MsrPositionsX) + LB(1:1) = lbound(SrcInputData%MsrPositionsX, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%MsrPositionsX, kind=B8Ki) if (.not. allocated(DstInputData%MsrPositionsX)) then allocate(DstInputData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7436,8 +7436,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%MsrPositionsX = SrcInputData%MsrPositionsX end if if (allocated(SrcInputData%MsrPositionsY)) then - LB(1:1) = lbound(SrcInputData%MsrPositionsY) - UB(1:1) = ubound(SrcInputData%MsrPositionsY) + LB(1:1) = lbound(SrcInputData%MsrPositionsY, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%MsrPositionsY, kind=B8Ki) if (.not. allocated(DstInputData%MsrPositionsY)) then allocate(DstInputData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7448,8 +7448,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%MsrPositionsY = SrcInputData%MsrPositionsY end if if (allocated(SrcInputData%MsrPositionsZ)) then - LB(1:1) = lbound(SrcInputData%MsrPositionsZ) - UB(1:1) = ubound(SrcInputData%MsrPositionsZ) + LB(1:1) = lbound(SrcInputData%MsrPositionsZ, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%MsrPositionsZ, kind=B8Ki) if (.not. allocated(DstInputData%MsrPositionsZ)) then allocate(DstInputData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7465,8 +7465,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) type(SrvD_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyInput' @@ -7499,8 +7499,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) call MeshDestroy( InputData%PtfmMotionMesh, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(InputData%BStCMotionMesh)) then - LB(1:2) = lbound(InputData%BStCMotionMesh) - UB(1:2) = ubound(InputData%BStCMotionMesh) + LB(1:2) = lbound(InputData%BStCMotionMesh, kind=B8Ki) + UB(1:2) = ubound(InputData%BStCMotionMesh, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshDestroy( InputData%BStCMotionMesh(i1,i2), ErrStat2, ErrMsg2) @@ -7510,8 +7510,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%BStCMotionMesh) end if if (allocated(InputData%NStCMotionMesh)) then - LB(1:1) = lbound(InputData%NStCMotionMesh) - UB(1:1) = ubound(InputData%NStCMotionMesh) + LB(1:1) = lbound(InputData%NStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(InputData%NStCMotionMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%NStCMotionMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7519,8 +7519,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%NStCMotionMesh) end if if (allocated(InputData%TStCMotionMesh)) then - LB(1:1) = lbound(InputData%TStCMotionMesh) - UB(1:1) = ubound(InputData%TStCMotionMesh) + LB(1:1) = lbound(InputData%TStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(InputData%TStCMotionMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%TStCMotionMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7528,8 +7528,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%TStCMotionMesh) end if if (allocated(InputData%SStCMotionMesh)) then - LB(1:1) = lbound(InputData%SStCMotionMesh) - UB(1:1) = ubound(InputData%SStCMotionMesh) + LB(1:1) = lbound(InputData%SStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(InputData%SStCMotionMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%SStCMotionMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7554,12 +7554,12 @@ subroutine SrvD_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%BlPitch)) if (allocated(InData%BlPitch)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitch), ubound(InData%BlPitch)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitch, kind=B8Ki), ubound(InData%BlPitch, kind=B8Ki)) call RegPack(Buf, InData%BlPitch) end if call RegPack(Buf, InData%Yaw) @@ -7571,7 +7571,7 @@ subroutine SrvD_PackInput(Buf, Indata) call RegPack(Buf, InData%ExternalYawRateCom) call RegPack(Buf, allocated(InData%ExternalBlPitchCom)) if (allocated(InData%ExternalBlPitchCom)) then - call RegPackBounds(Buf, 1, lbound(InData%ExternalBlPitchCom), ubound(InData%ExternalBlPitchCom)) + call RegPackBounds(Buf, 1, lbound(InData%ExternalBlPitchCom, kind=B8Ki), ubound(InData%ExternalBlPitchCom, kind=B8Ki)) call RegPack(Buf, InData%ExternalBlPitchCom) end if call RegPack(Buf, InData%ExternalGenTrq) @@ -7579,17 +7579,17 @@ subroutine SrvD_PackInput(Buf, Indata) call RegPack(Buf, InData%ExternalHSSBrFrac) call RegPack(Buf, allocated(InData%ExternalBlAirfoilCom)) if (allocated(InData%ExternalBlAirfoilCom)) then - call RegPackBounds(Buf, 1, lbound(InData%ExternalBlAirfoilCom), ubound(InData%ExternalBlAirfoilCom)) + call RegPackBounds(Buf, 1, lbound(InData%ExternalBlAirfoilCom, kind=B8Ki), ubound(InData%ExternalBlAirfoilCom, kind=B8Ki)) call RegPack(Buf, InData%ExternalBlAirfoilCom) end if call RegPack(Buf, allocated(InData%ExternalCableDeltaL)) if (allocated(InData%ExternalCableDeltaL)) then - call RegPackBounds(Buf, 1, lbound(InData%ExternalCableDeltaL), ubound(InData%ExternalCableDeltaL)) + call RegPackBounds(Buf, 1, lbound(InData%ExternalCableDeltaL, kind=B8Ki), ubound(InData%ExternalCableDeltaL, kind=B8Ki)) call RegPack(Buf, InData%ExternalCableDeltaL) end if call RegPack(Buf, allocated(InData%ExternalCableDeltaLdot)) if (allocated(InData%ExternalCableDeltaLdot)) then - call RegPackBounds(Buf, 1, lbound(InData%ExternalCableDeltaLdot), ubound(InData%ExternalCableDeltaLdot)) + call RegPackBounds(Buf, 1, lbound(InData%ExternalCableDeltaLdot, kind=B8Ki), ubound(InData%ExternalCableDeltaLdot, kind=B8Ki)) call RegPack(Buf, InData%ExternalCableDeltaLdot) end if call RegPack(Buf, InData%TwrAccel) @@ -7618,25 +7618,25 @@ subroutine SrvD_PackInput(Buf, Indata) call RegPack(Buf, InData%LSShftFzs) call RegPack(Buf, allocated(InData%fromSC)) if (allocated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPack(Buf, InData%fromSC) end if call RegPack(Buf, allocated(InData%fromSCglob)) if (allocated(InData%fromSCglob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCglob), ubound(InData%fromSCglob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCglob, kind=B8Ki), ubound(InData%fromSCglob, kind=B8Ki)) call RegPack(Buf, InData%fromSCglob) end if call RegPack(Buf, allocated(InData%Lidar)) if (allocated(InData%Lidar)) then - call RegPackBounds(Buf, 1, lbound(InData%Lidar), ubound(InData%Lidar)) + call RegPackBounds(Buf, 1, lbound(InData%Lidar, kind=B8Ki), ubound(InData%Lidar, kind=B8Ki)) call RegPack(Buf, InData%Lidar) end if call MeshPack(Buf, InData%PtfmMotionMesh) call RegPack(Buf, allocated(InData%BStCMotionMesh)) if (allocated(InData%BStCMotionMesh)) then - call RegPackBounds(Buf, 2, lbound(InData%BStCMotionMesh), ubound(InData%BStCMotionMesh)) - LB(1:2) = lbound(InData%BStCMotionMesh) - UB(1:2) = ubound(InData%BStCMotionMesh) + call RegPackBounds(Buf, 2, lbound(InData%BStCMotionMesh, kind=B8Ki), ubound(InData%BStCMotionMesh, kind=B8Ki)) + LB(1:2) = lbound(InData%BStCMotionMesh, kind=B8Ki) + UB(1:2) = ubound(InData%BStCMotionMesh, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BStCMotionMesh(i1,i2)) @@ -7645,49 +7645,49 @@ subroutine SrvD_PackInput(Buf, Indata) end if call RegPack(Buf, allocated(InData%NStCMotionMesh)) if (allocated(InData%NStCMotionMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%NStCMotionMesh), ubound(InData%NStCMotionMesh)) - LB(1:1) = lbound(InData%NStCMotionMesh) - UB(1:1) = ubound(InData%NStCMotionMesh) + call RegPackBounds(Buf, 1, lbound(InData%NStCMotionMesh, kind=B8Ki), ubound(InData%NStCMotionMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%NStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(InData%NStCMotionMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%NStCMotionMesh(i1)) end do end if call RegPack(Buf, allocated(InData%TStCMotionMesh)) if (allocated(InData%TStCMotionMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%TStCMotionMesh), ubound(InData%TStCMotionMesh)) - LB(1:1) = lbound(InData%TStCMotionMesh) - UB(1:1) = ubound(InData%TStCMotionMesh) + call RegPackBounds(Buf, 1, lbound(InData%TStCMotionMesh, kind=B8Ki), ubound(InData%TStCMotionMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%TStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(InData%TStCMotionMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%TStCMotionMesh(i1)) end do end if call RegPack(Buf, allocated(InData%SStCMotionMesh)) if (allocated(InData%SStCMotionMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%SStCMotionMesh), ubound(InData%SStCMotionMesh)) - LB(1:1) = lbound(InData%SStCMotionMesh) - UB(1:1) = ubound(InData%SStCMotionMesh) + call RegPackBounds(Buf, 1, lbound(InData%SStCMotionMesh, kind=B8Ki), ubound(InData%SStCMotionMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%SStCMotionMesh, kind=B8Ki) + UB(1:1) = ubound(InData%SStCMotionMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%SStCMotionMesh(i1)) end do end if call RegPack(Buf, allocated(InData%LidSpeed)) if (allocated(InData%LidSpeed)) then - call RegPackBounds(Buf, 1, lbound(InData%LidSpeed), ubound(InData%LidSpeed)) + call RegPackBounds(Buf, 1, lbound(InData%LidSpeed, kind=B8Ki), ubound(InData%LidSpeed, kind=B8Ki)) call RegPack(Buf, InData%LidSpeed) end if call RegPack(Buf, allocated(InData%MsrPositionsX)) if (allocated(InData%MsrPositionsX)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX), ubound(InData%MsrPositionsX)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsX, kind=B8Ki), ubound(InData%MsrPositionsX, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsX) end if call RegPack(Buf, allocated(InData%MsrPositionsY)) if (allocated(InData%MsrPositionsY)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY), ubound(InData%MsrPositionsY)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsY, kind=B8Ki), ubound(InData%MsrPositionsY, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsY) end if call RegPack(Buf, allocated(InData%MsrPositionsZ)) if (allocated(InData%MsrPositionsZ)) then - call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ), ubound(InData%MsrPositionsZ)) + call RegPackBounds(Buf, 1, lbound(InData%MsrPositionsZ, kind=B8Ki), ubound(InData%MsrPositionsZ, kind=B8Ki)) call RegPack(Buf, InData%MsrPositionsZ) end if if (RegCheckErr(Buf, RoutineName)) return @@ -7697,8 +7697,8 @@ subroutine SrvD_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -8009,16 +8009,16 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8029,8 +8029,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%WriteOutput = SrcOutputData%WriteOutput end if if (allocated(SrcOutputData%BlPitchCom)) then - LB(1:1) = lbound(SrcOutputData%BlPitchCom) - UB(1:1) = ubound(SrcOutputData%BlPitchCom) + LB(1:1) = lbound(SrcOutputData%BlPitchCom, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%BlPitchCom, kind=B8Ki) if (.not. allocated(DstOutputData%BlPitchCom)) then allocate(DstOutputData%BlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8041,8 +8041,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%BlPitchCom = SrcOutputData%BlPitchCom end if if (allocated(SrcOutputData%BlAirfoilCom)) then - LB(1:1) = lbound(SrcOutputData%BlAirfoilCom) - UB(1:1) = ubound(SrcOutputData%BlAirfoilCom) + LB(1:1) = lbound(SrcOutputData%BlAirfoilCom, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%BlAirfoilCom, kind=B8Ki) if (.not. allocated(DstOutputData%BlAirfoilCom)) then allocate(DstOutputData%BlAirfoilCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8057,8 +8057,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%HSSBrTrqC = SrcOutputData%HSSBrTrqC DstOutputData%ElecPwr = SrcOutputData%ElecPwr if (allocated(SrcOutputData%TBDrCon)) then - LB(1:1) = lbound(SrcOutputData%TBDrCon) - UB(1:1) = ubound(SrcOutputData%TBDrCon) + LB(1:1) = lbound(SrcOutputData%TBDrCon, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%TBDrCon, kind=B8Ki) if (.not. allocated(DstOutputData%TBDrCon)) then allocate(DstOutputData%TBDrCon(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8069,8 +8069,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%TBDrCon = SrcOutputData%TBDrCon end if if (allocated(SrcOutputData%Lidar)) then - LB(1:1) = lbound(SrcOutputData%Lidar) - UB(1:1) = ubound(SrcOutputData%Lidar) + LB(1:1) = lbound(SrcOutputData%Lidar, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Lidar, kind=B8Ki) if (.not. allocated(DstOutputData%Lidar)) then allocate(DstOutputData%Lidar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8081,8 +8081,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Lidar = SrcOutputData%Lidar end if if (allocated(SrcOutputData%CableDeltaL)) then - LB(1:1) = lbound(SrcOutputData%CableDeltaL) - UB(1:1) = ubound(SrcOutputData%CableDeltaL) + LB(1:1) = lbound(SrcOutputData%CableDeltaL, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%CableDeltaL, kind=B8Ki) if (.not. allocated(DstOutputData%CableDeltaL)) then allocate(DstOutputData%CableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8093,8 +8093,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%CableDeltaL = SrcOutputData%CableDeltaL end if if (allocated(SrcOutputData%CableDeltaLdot)) then - LB(1:1) = lbound(SrcOutputData%CableDeltaLdot) - UB(1:1) = ubound(SrcOutputData%CableDeltaLdot) + LB(1:1) = lbound(SrcOutputData%CableDeltaLdot, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%CableDeltaLdot, kind=B8Ki) if (.not. allocated(DstOutputData%CableDeltaLdot)) then allocate(DstOutputData%CableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8105,8 +8105,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%CableDeltaLdot = SrcOutputData%CableDeltaLdot end if if (allocated(SrcOutputData%BStCLoadMesh)) then - LB(1:2) = lbound(SrcOutputData%BStCLoadMesh) - UB(1:2) = ubound(SrcOutputData%BStCLoadMesh) + LB(1:2) = lbound(SrcOutputData%BStCLoadMesh, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%BStCLoadMesh, kind=B8Ki) if (.not. allocated(DstOutputData%BStCLoadMesh)) then allocate(DstOutputData%BStCLoadMesh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8123,8 +8123,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%NStCLoadMesh)) then - LB(1:1) = lbound(SrcOutputData%NStCLoadMesh) - UB(1:1) = ubound(SrcOutputData%NStCLoadMesh) + LB(1:1) = lbound(SrcOutputData%NStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%NStCLoadMesh, kind=B8Ki) if (.not. allocated(DstOutputData%NStCLoadMesh)) then allocate(DstOutputData%NStCLoadMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8139,8 +8139,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%TStCLoadMesh)) then - LB(1:1) = lbound(SrcOutputData%TStCLoadMesh) - UB(1:1) = ubound(SrcOutputData%TStCLoadMesh) + LB(1:1) = lbound(SrcOutputData%TStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%TStCLoadMesh, kind=B8Ki) if (.not. allocated(DstOutputData%TStCLoadMesh)) then allocate(DstOutputData%TStCLoadMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8155,8 +8155,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%SStCLoadMesh)) then - LB(1:1) = lbound(SrcOutputData%SStCLoadMesh) - UB(1:1) = ubound(SrcOutputData%SStCLoadMesh) + LB(1:1) = lbound(SrcOutputData%SStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%SStCLoadMesh, kind=B8Ki) if (.not. allocated(DstOutputData%SStCLoadMesh)) then allocate(DstOutputData%SStCLoadMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8171,8 +8171,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%toSC)) then - LB(1:1) = lbound(SrcOutputData%toSC) - UB(1:1) = ubound(SrcOutputData%toSC) + LB(1:1) = lbound(SrcOutputData%toSC, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%toSC, kind=B8Ki) if (.not. allocated(DstOutputData%toSC)) then allocate(DstOutputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8188,8 +8188,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) type(SrvD_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyOutput' @@ -8217,8 +8217,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%CableDeltaLdot) end if if (allocated(OutputData%BStCLoadMesh)) then - LB(1:2) = lbound(OutputData%BStCLoadMesh) - UB(1:2) = ubound(OutputData%BStCLoadMesh) + LB(1:2) = lbound(OutputData%BStCLoadMesh, kind=B8Ki) + UB(1:2) = ubound(OutputData%BStCLoadMesh, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BStCLoadMesh(i1,i2), ErrStat2, ErrMsg2) @@ -8228,8 +8228,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%BStCLoadMesh) end if if (allocated(OutputData%NStCLoadMesh)) then - LB(1:1) = lbound(OutputData%NStCLoadMesh) - UB(1:1) = ubound(OutputData%NStCLoadMesh) + LB(1:1) = lbound(OutputData%NStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%NStCLoadMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%NStCLoadMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8237,8 +8237,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%NStCLoadMesh) end if if (allocated(OutputData%TStCLoadMesh)) then - LB(1:1) = lbound(OutputData%TStCLoadMesh) - UB(1:1) = ubound(OutputData%TStCLoadMesh) + LB(1:1) = lbound(OutputData%TStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%TStCLoadMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%TStCLoadMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8246,8 +8246,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%TStCLoadMesh) end if if (allocated(OutputData%SStCLoadMesh)) then - LB(1:1) = lbound(OutputData%SStCLoadMesh) - UB(1:1) = ubound(OutputData%SStCLoadMesh) + LB(1:1) = lbound(OutputData%SStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%SStCLoadMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%SStCLoadMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8263,22 +8263,22 @@ subroutine SrvD_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SrvD_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackOutput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if call RegPack(Buf, allocated(InData%BlPitchCom)) if (allocated(InData%BlPitchCom)) then - call RegPackBounds(Buf, 1, lbound(InData%BlPitchCom), ubound(InData%BlPitchCom)) + call RegPackBounds(Buf, 1, lbound(InData%BlPitchCom, kind=B8Ki), ubound(InData%BlPitchCom, kind=B8Ki)) call RegPack(Buf, InData%BlPitchCom) end if call RegPack(Buf, allocated(InData%BlAirfoilCom)) if (allocated(InData%BlAirfoilCom)) then - call RegPackBounds(Buf, 1, lbound(InData%BlAirfoilCom), ubound(InData%BlAirfoilCom)) + call RegPackBounds(Buf, 1, lbound(InData%BlAirfoilCom, kind=B8Ki), ubound(InData%BlAirfoilCom, kind=B8Ki)) call RegPack(Buf, InData%BlAirfoilCom) end if call RegPack(Buf, InData%YawMom) @@ -8287,29 +8287,29 @@ subroutine SrvD_PackOutput(Buf, Indata) call RegPack(Buf, InData%ElecPwr) call RegPack(Buf, allocated(InData%TBDrCon)) if (allocated(InData%TBDrCon)) then - call RegPackBounds(Buf, 1, lbound(InData%TBDrCon), ubound(InData%TBDrCon)) + call RegPackBounds(Buf, 1, lbound(InData%TBDrCon, kind=B8Ki), ubound(InData%TBDrCon, kind=B8Ki)) call RegPack(Buf, InData%TBDrCon) end if call RegPack(Buf, allocated(InData%Lidar)) if (allocated(InData%Lidar)) then - call RegPackBounds(Buf, 1, lbound(InData%Lidar), ubound(InData%Lidar)) + call RegPackBounds(Buf, 1, lbound(InData%Lidar, kind=B8Ki), ubound(InData%Lidar, kind=B8Ki)) call RegPack(Buf, InData%Lidar) end if call RegPack(Buf, allocated(InData%CableDeltaL)) if (allocated(InData%CableDeltaL)) then - call RegPackBounds(Buf, 1, lbound(InData%CableDeltaL), ubound(InData%CableDeltaL)) + call RegPackBounds(Buf, 1, lbound(InData%CableDeltaL, kind=B8Ki), ubound(InData%CableDeltaL, kind=B8Ki)) call RegPack(Buf, InData%CableDeltaL) end if call RegPack(Buf, allocated(InData%CableDeltaLdot)) if (allocated(InData%CableDeltaLdot)) then - call RegPackBounds(Buf, 1, lbound(InData%CableDeltaLdot), ubound(InData%CableDeltaLdot)) + call RegPackBounds(Buf, 1, lbound(InData%CableDeltaLdot, kind=B8Ki), ubound(InData%CableDeltaLdot, kind=B8Ki)) call RegPack(Buf, InData%CableDeltaLdot) end if call RegPack(Buf, allocated(InData%BStCLoadMesh)) if (allocated(InData%BStCLoadMesh)) then - call RegPackBounds(Buf, 2, lbound(InData%BStCLoadMesh), ubound(InData%BStCLoadMesh)) - LB(1:2) = lbound(InData%BStCLoadMesh) - UB(1:2) = ubound(InData%BStCLoadMesh) + call RegPackBounds(Buf, 2, lbound(InData%BStCLoadMesh, kind=B8Ki), ubound(InData%BStCLoadMesh, kind=B8Ki)) + LB(1:2) = lbound(InData%BStCLoadMesh, kind=B8Ki) + UB(1:2) = ubound(InData%BStCLoadMesh, kind=B8Ki) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%BStCLoadMesh(i1,i2)) @@ -8318,34 +8318,34 @@ subroutine SrvD_PackOutput(Buf, Indata) end if call RegPack(Buf, allocated(InData%NStCLoadMesh)) if (allocated(InData%NStCLoadMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%NStCLoadMesh), ubound(InData%NStCLoadMesh)) - LB(1:1) = lbound(InData%NStCLoadMesh) - UB(1:1) = ubound(InData%NStCLoadMesh) + call RegPackBounds(Buf, 1, lbound(InData%NStCLoadMesh, kind=B8Ki), ubound(InData%NStCLoadMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%NStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(InData%NStCLoadMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%NStCLoadMesh(i1)) end do end if call RegPack(Buf, allocated(InData%TStCLoadMesh)) if (allocated(InData%TStCLoadMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%TStCLoadMesh), ubound(InData%TStCLoadMesh)) - LB(1:1) = lbound(InData%TStCLoadMesh) - UB(1:1) = ubound(InData%TStCLoadMesh) + call RegPackBounds(Buf, 1, lbound(InData%TStCLoadMesh, kind=B8Ki), ubound(InData%TStCLoadMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%TStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(InData%TStCLoadMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%TStCLoadMesh(i1)) end do end if call RegPack(Buf, allocated(InData%SStCLoadMesh)) if (allocated(InData%SStCLoadMesh)) then - call RegPackBounds(Buf, 1, lbound(InData%SStCLoadMesh), ubound(InData%SStCLoadMesh)) - LB(1:1) = lbound(InData%SStCLoadMesh) - UB(1:1) = ubound(InData%SStCLoadMesh) + call RegPackBounds(Buf, 1, lbound(InData%SStCLoadMesh, kind=B8Ki), ubound(InData%SStCLoadMesh, kind=B8Ki)) + LB(1:1) = lbound(InData%SStCLoadMesh, kind=B8Ki) + UB(1:1) = ubound(InData%SStCLoadMesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%SStCLoadMesh(i1)) end do end if call RegPack(Buf, allocated(InData%toSC)) if (allocated(InData%toSC)) then - call RegPackBounds(Buf, 1, lbound(InData%toSC), ubound(InData%toSC)) + call RegPackBounds(Buf, 1, lbound(InData%toSC, kind=B8Ki), ubound(InData%toSC, kind=B8Ki)) call RegPack(Buf, InData%toSC) end if if (RegCheckErr(Buf, RoutineName)) return @@ -8355,8 +8355,8 @@ subroutine SrvD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SrvD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackOutput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -8644,7 +8644,7 @@ SUBROUTINE SrvD_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(u_out%BlPitch) .AND. ALLOCATED(u1%BlPitch)) THEN - DO i1 = LBOUND(u_out%BlPitch,1),UBOUND(u_out%BlPitch,1) + DO i1 = LBOUND(u_out%BlPitch,1, kind=B8Ki),UBOUND(u_out%BlPitch,1, kind=B8Ki) CALL Angles_ExtrapInterp( u1%BlPitch(i1), u2%BlPitch(i1), tin, u_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated @@ -8656,7 +8656,7 @@ SUBROUTINE SrvD_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg CALL Angles_ExtrapInterp( u1%ExternalYawPosCom, u2%ExternalYawPosCom, tin, u_out%ExternalYawPosCom, tin_out ) u_out%ExternalYawRateCom = a1*u1%ExternalYawRateCom + a2*u2%ExternalYawRateCom IF (ALLOCATED(u_out%ExternalBlPitchCom) .AND. ALLOCATED(u1%ExternalBlPitchCom)) THEN - DO i1 = LBOUND(u_out%ExternalBlPitchCom,1),UBOUND(u_out%ExternalBlPitchCom,1) + DO i1 = LBOUND(u_out%ExternalBlPitchCom,1, kind=B8Ki),UBOUND(u_out%ExternalBlPitchCom,1, kind=B8Ki) CALL Angles_ExtrapInterp( u1%ExternalBlPitchCom(i1), u2%ExternalBlPitchCom(i1), tin, u_out%ExternalBlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -8708,27 +8708,27 @@ SUBROUTINE SrvD_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg CALL MeshExtrapInterp1(u1%PtfmMotionMesh, u2%PtfmMotionMesh, tin, u_out%PtfmMotionMesh, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(u_out%BStCMotionMesh) .AND. ALLOCATED(u1%BStCMotionMesh)) THEN - DO i2 = LBOUND(u_out%BStCMotionMesh,2),UBOUND(u_out%BStCMotionMesh,2) - DO i1 = LBOUND(u_out%BStCMotionMesh,1),UBOUND(u_out%BStCMotionMesh,1) + DO i2 = LBOUND(u_out%BStCMotionMesh,2, kind=B8Ki),UBOUND(u_out%BStCMotionMesh,2, kind=B8Ki) + DO i1 = LBOUND(u_out%BStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%BStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%BStCMotionMesh(i1,i2), u2%BStCMotionMesh(i1,i2), tin, u_out%BStCMotionMesh(i1,i2), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END DO END IF ! check if allocated IF (ALLOCATED(u_out%NStCMotionMesh) .AND. ALLOCATED(u1%NStCMotionMesh)) THEN - DO i1 = LBOUND(u_out%NStCMotionMesh,1),UBOUND(u_out%NStCMotionMesh,1) + DO i1 = LBOUND(u_out%NStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%NStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%NStCMotionMesh(i1), u2%NStCMotionMesh(i1), tin, u_out%NStCMotionMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(u_out%TStCMotionMesh) .AND. ALLOCATED(u1%TStCMotionMesh)) THEN - DO i1 = LBOUND(u_out%TStCMotionMesh,1),UBOUND(u_out%TStCMotionMesh,1) + DO i1 = LBOUND(u_out%TStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%TStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%TStCMotionMesh(i1), u2%TStCMotionMesh(i1), tin, u_out%TStCMotionMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(u_out%SStCMotionMesh) .AND. ALLOCATED(u1%SStCMotionMesh)) THEN - DO i1 = LBOUND(u_out%SStCMotionMesh,1),UBOUND(u_out%SStCMotionMesh,1) + DO i1 = LBOUND(u_out%SStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%SStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%SStCMotionMesh(i1), u2%SStCMotionMesh(i1), tin, u_out%SStCMotionMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -8805,7 +8805,7 @@ SUBROUTINE SrvD_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Er a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%BlPitch) .AND. ALLOCATED(u1%BlPitch)) THEN - DO i1 = LBOUND(u_out%BlPitch,1),UBOUND(u_out%BlPitch,1) + DO i1 = LBOUND(u_out%BlPitch,1, kind=B8Ki),UBOUND(u_out%BlPitch,1, kind=B8Ki) CALL Angles_ExtrapInterp( u1%BlPitch(i1), u2%BlPitch(i1), u3%BlPitch(i1), tin, u_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated @@ -8817,7 +8817,7 @@ SUBROUTINE SrvD_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Er CALL Angles_ExtrapInterp( u1%ExternalYawPosCom, u2%ExternalYawPosCom, u3%ExternalYawPosCom, tin, u_out%ExternalYawPosCom, tin_out ) u_out%ExternalYawRateCom = a1*u1%ExternalYawRateCom + a2*u2%ExternalYawRateCom + a3*u3%ExternalYawRateCom IF (ALLOCATED(u_out%ExternalBlPitchCom) .AND. ALLOCATED(u1%ExternalBlPitchCom)) THEN - DO i1 = LBOUND(u_out%ExternalBlPitchCom,1),UBOUND(u_out%ExternalBlPitchCom,1) + DO i1 = LBOUND(u_out%ExternalBlPitchCom,1, kind=B8Ki),UBOUND(u_out%ExternalBlPitchCom,1, kind=B8Ki) CALL Angles_ExtrapInterp( u1%ExternalBlPitchCom(i1), u2%ExternalBlPitchCom(i1), u3%ExternalBlPitchCom(i1), tin, u_out%ExternalBlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -8869,27 +8869,27 @@ SUBROUTINE SrvD_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Er CALL MeshExtrapInterp2(u1%PtfmMotionMesh, u2%PtfmMotionMesh, u3%PtfmMotionMesh, tin, u_out%PtfmMotionMesh, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(u_out%BStCMotionMesh) .AND. ALLOCATED(u1%BStCMotionMesh)) THEN - DO i2 = LBOUND(u_out%BStCMotionMesh,2),UBOUND(u_out%BStCMotionMesh,2) - DO i1 = LBOUND(u_out%BStCMotionMesh,1),UBOUND(u_out%BStCMotionMesh,1) + DO i2 = LBOUND(u_out%BStCMotionMesh,2, kind=B8Ki),UBOUND(u_out%BStCMotionMesh,2, kind=B8Ki) + DO i1 = LBOUND(u_out%BStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%BStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%BStCMotionMesh(i1,i2), u2%BStCMotionMesh(i1,i2), u3%BStCMotionMesh(i1,i2), tin, u_out%BStCMotionMesh(i1,i2), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END DO END IF ! check if allocated IF (ALLOCATED(u_out%NStCMotionMesh) .AND. ALLOCATED(u1%NStCMotionMesh)) THEN - DO i1 = LBOUND(u_out%NStCMotionMesh,1),UBOUND(u_out%NStCMotionMesh,1) + DO i1 = LBOUND(u_out%NStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%NStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%NStCMotionMesh(i1), u2%NStCMotionMesh(i1), u3%NStCMotionMesh(i1), tin, u_out%NStCMotionMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(u_out%TStCMotionMesh) .AND. ALLOCATED(u1%TStCMotionMesh)) THEN - DO i1 = LBOUND(u_out%TStCMotionMesh,1),UBOUND(u_out%TStCMotionMesh,1) + DO i1 = LBOUND(u_out%TStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%TStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%TStCMotionMesh(i1), u2%TStCMotionMesh(i1), u3%TStCMotionMesh(i1), tin, u_out%TStCMotionMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(u_out%SStCMotionMesh) .AND. ALLOCATED(u1%SStCMotionMesh)) THEN - DO i1 = LBOUND(u_out%SStCMotionMesh,1),UBOUND(u_out%SStCMotionMesh,1) + DO i1 = LBOUND(u_out%SStCMotionMesh,1, kind=B8Ki),UBOUND(u_out%SStCMotionMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%SStCMotionMesh(i1), u2%SStCMotionMesh(i1), u3%SStCMotionMesh(i1), tin, u_out%SStCMotionMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -9011,7 +9011,7 @@ SUBROUTINE SrvD_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMs y_out%WriteOutput = a1*y1%WriteOutput + a2*y2%WriteOutput END IF ! check if allocated IF (ALLOCATED(y_out%BlPitchCom) .AND. ALLOCATED(y1%BlPitchCom)) THEN - DO i1 = LBOUND(y_out%BlPitchCom,1),UBOUND(y_out%BlPitchCom,1) + DO i1 = LBOUND(y_out%BlPitchCom,1, kind=B8Ki),UBOUND(y_out%BlPitchCom,1, kind=B8Ki) CALL Angles_ExtrapInterp( y1%BlPitchCom(i1), y2%BlPitchCom(i1), tin, y_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -9035,27 +9035,27 @@ SUBROUTINE SrvD_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMs y_out%CableDeltaLdot = a1*y1%CableDeltaLdot + a2*y2%CableDeltaLdot END IF ! check if allocated IF (ALLOCATED(y_out%BStCLoadMesh) .AND. ALLOCATED(y1%BStCLoadMesh)) THEN - DO i2 = LBOUND(y_out%BStCLoadMesh,2),UBOUND(y_out%BStCLoadMesh,2) - DO i1 = LBOUND(y_out%BStCLoadMesh,1),UBOUND(y_out%BStCLoadMesh,1) + DO i2 = LBOUND(y_out%BStCLoadMesh,2, kind=B8Ki),UBOUND(y_out%BStCLoadMesh,2, kind=B8Ki) + DO i1 = LBOUND(y_out%BStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%BStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%BStCLoadMesh(i1,i2), y2%BStCLoadMesh(i1,i2), tin, y_out%BStCLoadMesh(i1,i2), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END DO END IF ! check if allocated IF (ALLOCATED(y_out%NStCLoadMesh) .AND. ALLOCATED(y1%NStCLoadMesh)) THEN - DO i1 = LBOUND(y_out%NStCLoadMesh,1),UBOUND(y_out%NStCLoadMesh,1) + DO i1 = LBOUND(y_out%NStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%NStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%NStCLoadMesh(i1), y2%NStCLoadMesh(i1), tin, y_out%NStCLoadMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%TStCLoadMesh) .AND. ALLOCATED(y1%TStCLoadMesh)) THEN - DO i1 = LBOUND(y_out%TStCLoadMesh,1),UBOUND(y_out%TStCLoadMesh,1) + DO i1 = LBOUND(y_out%TStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%TStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%TStCLoadMesh(i1), y2%TStCLoadMesh(i1), tin, y_out%TStCLoadMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%SStCLoadMesh) .AND. ALLOCATED(y1%SStCLoadMesh)) THEN - DO i1 = LBOUND(y_out%SStCLoadMesh,1),UBOUND(y_out%SStCLoadMesh,1) + DO i1 = LBOUND(y_out%SStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%SStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%SStCLoadMesh(i1), y2%SStCLoadMesh(i1), tin, y_out%SStCLoadMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -9126,7 +9126,7 @@ SUBROUTINE SrvD_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, E y_out%WriteOutput = a1*y1%WriteOutput + a2*y2%WriteOutput + a3*y3%WriteOutput END IF ! check if allocated IF (ALLOCATED(y_out%BlPitchCom) .AND. ALLOCATED(y1%BlPitchCom)) THEN - DO i1 = LBOUND(y_out%BlPitchCom,1),UBOUND(y_out%BlPitchCom,1) + DO i1 = LBOUND(y_out%BlPitchCom,1, kind=B8Ki),UBOUND(y_out%BlPitchCom,1, kind=B8Ki) CALL Angles_ExtrapInterp( y1%BlPitchCom(i1), y2%BlPitchCom(i1), y3%BlPitchCom(i1), tin, y_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -9150,27 +9150,27 @@ SUBROUTINE SrvD_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, E y_out%CableDeltaLdot = a1*y1%CableDeltaLdot + a2*y2%CableDeltaLdot + a3*y3%CableDeltaLdot END IF ! check if allocated IF (ALLOCATED(y_out%BStCLoadMesh) .AND. ALLOCATED(y1%BStCLoadMesh)) THEN - DO i2 = LBOUND(y_out%BStCLoadMesh,2),UBOUND(y_out%BStCLoadMesh,2) - DO i1 = LBOUND(y_out%BStCLoadMesh,1),UBOUND(y_out%BStCLoadMesh,1) + DO i2 = LBOUND(y_out%BStCLoadMesh,2, kind=B8Ki),UBOUND(y_out%BStCLoadMesh,2, kind=B8Ki) + DO i1 = LBOUND(y_out%BStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%BStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%BStCLoadMesh(i1,i2), y2%BStCLoadMesh(i1,i2), y3%BStCLoadMesh(i1,i2), tin, y_out%BStCLoadMesh(i1,i2), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END DO END IF ! check if allocated IF (ALLOCATED(y_out%NStCLoadMesh) .AND. ALLOCATED(y1%NStCLoadMesh)) THEN - DO i1 = LBOUND(y_out%NStCLoadMesh,1),UBOUND(y_out%NStCLoadMesh,1) + DO i1 = LBOUND(y_out%NStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%NStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%NStCLoadMesh(i1), y2%NStCLoadMesh(i1), y3%NStCLoadMesh(i1), tin, y_out%NStCLoadMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%TStCLoadMesh) .AND. ALLOCATED(y1%TStCLoadMesh)) THEN - DO i1 = LBOUND(y_out%TStCLoadMesh,1),UBOUND(y_out%TStCLoadMesh,1) + DO i1 = LBOUND(y_out%TStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%TStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%TStCLoadMesh(i1), y2%TStCLoadMesh(i1), y3%TStCLoadMesh(i1), tin, y_out%TStCLoadMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(y_out%SStCLoadMesh) .AND. ALLOCATED(y1%SStCLoadMesh)) THEN - DO i1 = LBOUND(y_out%SStCLoadMesh,1),UBOUND(y_out%SStCLoadMesh,1) + DO i1 = LBOUND(y_out%SStCLoadMesh,1, kind=B8Ki),UBOUND(y_out%SStCLoadMesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%SStCLoadMesh(i1), y2%SStCLoadMesh(i1), y3%SStCLoadMesh(i1), tin, y_out%SStCLoadMesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO diff --git a/modules/servodyn/src/StrucCtrl_Types.f90 b/modules/servodyn/src/StrucCtrl_Types.f90 index ccff3fa523..61c5b1aa1c 100644 --- a/modules/servodyn/src/StrucCtrl_Types.f90 +++ b/modules/servodyn/src/StrucCtrl_Types.f90 @@ -256,7 +256,7 @@ subroutine StC_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyInputFile' ErrStat = ErrID_None @@ -323,8 +323,8 @@ subroutine StC_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSt DstInputFileData%NKInpSt = SrcInputFileData%NKInpSt DstInputFileData%StC_F_TBL_FILE = SrcInputFileData%StC_F_TBL_FILE if (allocated(SrcInputFileData%F_TBL)) then - LB(1:2) = lbound(SrcInputFileData%F_TBL) - UB(1:2) = ubound(SrcInputFileData%F_TBL) + LB(1:2) = lbound(SrcInputFileData%F_TBL, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileData%F_TBL, kind=B8Ki) if (.not. allocated(DstInputFileData%F_TBL)) then allocate(DstInputFileData%F_TBL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -337,8 +337,8 @@ subroutine StC_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSt DstInputFileData%PrescribedForcesCoordSys = SrcInputFileData%PrescribedForcesCoordSys DstInputFileData%PrescribedForcesFile = SrcInputFileData%PrescribedForcesFile if (allocated(SrcInputFileData%StC_PrescribedForce)) then - LB(1:2) = lbound(SrcInputFileData%StC_PrescribedForce) - UB(1:2) = ubound(SrcInputFileData%StC_PrescribedForce) + LB(1:2) = lbound(SrcInputFileData%StC_PrescribedForce, kind=B8Ki) + UB(1:2) = ubound(SrcInputFileData%StC_PrescribedForce, kind=B8Ki) if (.not. allocated(DstInputFileData%StC_PrescribedForce)) then allocate(DstInputFileData%StC_PrescribedForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -349,8 +349,8 @@ subroutine StC_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSt DstInputFileData%StC_PrescribedForce = SrcInputFileData%StC_PrescribedForce end if if (allocated(SrcInputFileData%StC_CChan)) then - LB(1:1) = lbound(SrcInputFileData%StC_CChan) - UB(1:1) = ubound(SrcInputFileData%StC_CChan) + LB(1:1) = lbound(SrcInputFileData%StC_CChan, kind=B8Ki) + UB(1:1) = ubound(SrcInputFileData%StC_CChan, kind=B8Ki) if (.not. allocated(DstInputFileData%StC_CChan)) then allocate(DstInputFileData%StC_CChan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -448,19 +448,19 @@ subroutine StC_PackInputFile(Buf, Indata) call RegPack(Buf, InData%StC_F_TBL_FILE) call RegPack(Buf, allocated(InData%F_TBL)) if (allocated(InData%F_TBL)) then - call RegPackBounds(Buf, 2, lbound(InData%F_TBL), ubound(InData%F_TBL)) + call RegPackBounds(Buf, 2, lbound(InData%F_TBL, kind=B8Ki), ubound(InData%F_TBL, kind=B8Ki)) call RegPack(Buf, InData%F_TBL) end if call RegPack(Buf, InData%PrescribedForcesCoordSys) call RegPack(Buf, InData%PrescribedForcesFile) call RegPack(Buf, allocated(InData%StC_PrescribedForce)) if (allocated(InData%StC_PrescribedForce)) then - call RegPackBounds(Buf, 2, lbound(InData%StC_PrescribedForce), ubound(InData%StC_PrescribedForce)) + call RegPackBounds(Buf, 2, lbound(InData%StC_PrescribedForce, kind=B8Ki), ubound(InData%StC_PrescribedForce, kind=B8Ki)) call RegPack(Buf, InData%StC_PrescribedForce) end if call RegPack(Buf, allocated(InData%StC_CChan)) if (allocated(InData%StC_CChan)) then - call RegPackBounds(Buf, 1, lbound(InData%StC_CChan), ubound(InData%StC_CChan)) + call RegPackBounds(Buf, 1, lbound(InData%StC_CChan, kind=B8Ki), ubound(InData%StC_CChan, kind=B8Ki)) call RegPack(Buf, InData%StC_CChan) end if if (RegCheckErr(Buf, RoutineName)) return @@ -470,7 +470,7 @@ subroutine StC_UnPackInputFile(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInputFile' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -650,7 +650,7 @@ subroutine StC_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'StC_CopyInitInput' @@ -661,8 +661,8 @@ subroutine StC_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt DstInitInputData%Gravity = SrcInitInputData%Gravity DstInitInputData%NumMeshPts = SrcInitInputData%NumMeshPts if (allocated(SrcInitInputData%InitRefPos)) then - LB(1:2) = lbound(SrcInitInputData%InitRefPos) - UB(1:2) = ubound(SrcInitInputData%InitRefPos) + LB(1:2) = lbound(SrcInitInputData%InitRefPos, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%InitRefPos, kind=B8Ki) if (.not. allocated(DstInitInputData%InitRefPos)) then allocate(DstInitInputData%InitRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -673,8 +673,8 @@ subroutine StC_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt DstInitInputData%InitRefPos = SrcInitInputData%InitRefPos end if if (allocated(SrcInitInputData%InitTransDisp)) then - LB(1:2) = lbound(SrcInitInputData%InitTransDisp) - UB(1:2) = ubound(SrcInitInputData%InitTransDisp) + LB(1:2) = lbound(SrcInitInputData%InitTransDisp, kind=B8Ki) + UB(1:2) = ubound(SrcInitInputData%InitTransDisp, kind=B8Ki) if (.not. allocated(DstInitInputData%InitTransDisp)) then allocate(DstInitInputData%InitTransDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -685,8 +685,8 @@ subroutine StC_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt DstInitInputData%InitTransDisp = SrcInitInputData%InitTransDisp end if if (allocated(SrcInitInputData%InitOrient)) then - LB(1:3) = lbound(SrcInitInputData%InitOrient) - UB(1:3) = ubound(SrcInitInputData%InitOrient) + LB(1:3) = lbound(SrcInitInputData%InitOrient, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%InitOrient, kind=B8Ki) if (.not. allocated(DstInitInputData%InitOrient)) then allocate(DstInitInputData%InitOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -697,8 +697,8 @@ subroutine StC_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt DstInitInputData%InitOrient = SrcInitInputData%InitOrient end if if (allocated(SrcInitInputData%InitRefOrient)) then - LB(1:3) = lbound(SrcInitInputData%InitRefOrient) - UB(1:3) = ubound(SrcInitInputData%InitRefOrient) + LB(1:3) = lbound(SrcInitInputData%InitRefOrient, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%InitRefOrient, kind=B8Ki) if (.not. allocated(DstInitInputData%InitRefOrient)) then allocate(DstInitInputData%InitRefOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -756,22 +756,22 @@ subroutine StC_PackInitInput(Buf, Indata) call RegPack(Buf, InData%NumMeshPts) call RegPack(Buf, allocated(InData%InitRefPos)) if (allocated(InData%InitRefPos)) then - call RegPackBounds(Buf, 2, lbound(InData%InitRefPos), ubound(InData%InitRefPos)) + call RegPackBounds(Buf, 2, lbound(InData%InitRefPos, kind=B8Ki), ubound(InData%InitRefPos, kind=B8Ki)) call RegPack(Buf, InData%InitRefPos) end if call RegPack(Buf, allocated(InData%InitTransDisp)) if (allocated(InData%InitTransDisp)) then - call RegPackBounds(Buf, 2, lbound(InData%InitTransDisp), ubound(InData%InitTransDisp)) + call RegPackBounds(Buf, 2, lbound(InData%InitTransDisp, kind=B8Ki), ubound(InData%InitTransDisp, kind=B8Ki)) call RegPack(Buf, InData%InitTransDisp) end if call RegPack(Buf, allocated(InData%InitOrient)) if (allocated(InData%InitOrient)) then - call RegPackBounds(Buf, 3, lbound(InData%InitOrient), ubound(InData%InitOrient)) + call RegPackBounds(Buf, 3, lbound(InData%InitOrient, kind=B8Ki), ubound(InData%InitOrient, kind=B8Ki)) call RegPack(Buf, InData%InitOrient) end if call RegPack(Buf, allocated(InData%InitRefOrient)) if (allocated(InData%InitRefOrient)) then - call RegPackBounds(Buf, 3, lbound(InData%InitRefOrient), ubound(InData%InitRefOrient)) + call RegPackBounds(Buf, 3, lbound(InData%InitRefOrient, kind=B8Ki), ubound(InData%InitRefOrient, kind=B8Ki)) call RegPack(Buf, InData%InitRefOrient) end if call RegPack(Buf, InData%UseInputFile) @@ -785,7 +785,7 @@ subroutine StC_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInitInput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -867,14 +867,14 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyCtrlChanInitInfoType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcCtrlChanInitInfoTypeData%Requestor)) then - LB(1:1) = lbound(SrcCtrlChanInitInfoTypeData%Requestor) - UB(1:1) = ubound(SrcCtrlChanInitInfoTypeData%Requestor) + LB(1:1) = lbound(SrcCtrlChanInitInfoTypeData%Requestor, kind=B8Ki) + UB(1:1) = ubound(SrcCtrlChanInitInfoTypeData%Requestor, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%Requestor)) then allocate(DstCtrlChanInitInfoTypeData%Requestor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -885,8 +885,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%Requestor = SrcCtrlChanInitInfoTypeData%Requestor end if if (allocated(SrcCtrlChanInitInfoTypeData%InitStiff)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitStiff) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitStiff) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitStiff, kind=B8Ki) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitStiff, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitStiff)) then allocate(DstCtrlChanInitInfoTypeData%InitStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -897,8 +897,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitStiff = SrcCtrlChanInitInfoTypeData%InitStiff end if if (allocated(SrcCtrlChanInitInfoTypeData%InitDamp)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitDamp) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitDamp) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitDamp, kind=B8Ki) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitDamp, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitDamp)) then allocate(DstCtrlChanInitInfoTypeData%InitDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -909,8 +909,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitDamp = SrcCtrlChanInitInfoTypeData%InitDamp end if if (allocated(SrcCtrlChanInitInfoTypeData%InitBrake)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitBrake) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitBrake) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitBrake, kind=B8Ki) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitBrake, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitBrake)) then allocate(DstCtrlChanInitInfoTypeData%InitBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -921,8 +921,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitBrake = SrcCtrlChanInitInfoTypeData%InitBrake end if if (allocated(SrcCtrlChanInitInfoTypeData%InitForce)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitForce) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitForce) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitForce, kind=B8Ki) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitForce, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitForce)) then allocate(DstCtrlChanInitInfoTypeData%InitForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -933,8 +933,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitForce = SrcCtrlChanInitInfoTypeData%InitForce end if if (allocated(SrcCtrlChanInitInfoTypeData%InitMeasDisp)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasDisp) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasDisp) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasDisp, kind=B8Ki) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasDisp, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitMeasDisp)) then allocate(DstCtrlChanInitInfoTypeData%InitMeasDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -945,8 +945,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitMeasDisp = SrcCtrlChanInitInfoTypeData%InitMeasDisp end if if (allocated(SrcCtrlChanInitInfoTypeData%InitMeasVel)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasVel) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasVel) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasVel, kind=B8Ki) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasVel, kind=B8Ki) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitMeasVel)) then allocate(DstCtrlChanInitInfoTypeData%InitMeasVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -995,37 +995,37 @@ subroutine StC_PackCtrlChanInitInfoType(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Requestor)) if (allocated(InData%Requestor)) then - call RegPackBounds(Buf, 1, lbound(InData%Requestor), ubound(InData%Requestor)) + call RegPackBounds(Buf, 1, lbound(InData%Requestor, kind=B8Ki), ubound(InData%Requestor, kind=B8Ki)) call RegPack(Buf, InData%Requestor) end if call RegPack(Buf, allocated(InData%InitStiff)) if (allocated(InData%InitStiff)) then - call RegPackBounds(Buf, 2, lbound(InData%InitStiff), ubound(InData%InitStiff)) + call RegPackBounds(Buf, 2, lbound(InData%InitStiff, kind=B8Ki), ubound(InData%InitStiff, kind=B8Ki)) call RegPack(Buf, InData%InitStiff) end if call RegPack(Buf, allocated(InData%InitDamp)) if (allocated(InData%InitDamp)) then - call RegPackBounds(Buf, 2, lbound(InData%InitDamp), ubound(InData%InitDamp)) + call RegPackBounds(Buf, 2, lbound(InData%InitDamp, kind=B8Ki), ubound(InData%InitDamp, kind=B8Ki)) call RegPack(Buf, InData%InitDamp) end if call RegPack(Buf, allocated(InData%InitBrake)) if (allocated(InData%InitBrake)) then - call RegPackBounds(Buf, 2, lbound(InData%InitBrake), ubound(InData%InitBrake)) + call RegPackBounds(Buf, 2, lbound(InData%InitBrake, kind=B8Ki), ubound(InData%InitBrake, kind=B8Ki)) call RegPack(Buf, InData%InitBrake) end if call RegPack(Buf, allocated(InData%InitForce)) if (allocated(InData%InitForce)) then - call RegPackBounds(Buf, 2, lbound(InData%InitForce), ubound(InData%InitForce)) + call RegPackBounds(Buf, 2, lbound(InData%InitForce, kind=B8Ki), ubound(InData%InitForce, kind=B8Ki)) call RegPack(Buf, InData%InitForce) end if call RegPack(Buf, allocated(InData%InitMeasDisp)) if (allocated(InData%InitMeasDisp)) then - call RegPackBounds(Buf, 2, lbound(InData%InitMeasDisp), ubound(InData%InitMeasDisp)) + call RegPackBounds(Buf, 2, lbound(InData%InitMeasDisp, kind=B8Ki), ubound(InData%InitMeasDisp, kind=B8Ki)) call RegPack(Buf, InData%InitMeasDisp) end if call RegPack(Buf, allocated(InData%InitMeasVel)) if (allocated(InData%InitMeasVel)) then - call RegPackBounds(Buf, 2, lbound(InData%InitMeasVel), ubound(InData%InitMeasVel)) + call RegPackBounds(Buf, 2, lbound(InData%InitMeasVel, kind=B8Ki), ubound(InData%InitMeasVel, kind=B8Ki)) call RegPack(Buf, InData%InitMeasVel) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1035,7 +1035,7 @@ subroutine StC_UnPackCtrlChanInitInfoType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_CtrlChanInitInfoType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackCtrlChanInitInfoType' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1145,14 +1145,14 @@ subroutine StC_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%RelPosition)) then - LB(1:2) = lbound(SrcInitOutputData%RelPosition) - UB(1:2) = ubound(SrcInitOutputData%RelPosition) + LB(1:2) = lbound(SrcInitOutputData%RelPosition, kind=B8Ki) + UB(1:2) = ubound(SrcInitOutputData%RelPosition, kind=B8Ki) if (.not. allocated(DstInitOutputData%RelPosition)) then allocate(DstInitOutputData%RelPosition(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1183,7 +1183,7 @@ subroutine StC_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%RelPosition)) if (allocated(InData%RelPosition)) then - call RegPackBounds(Buf, 2, lbound(InData%RelPosition), ubound(InData%RelPosition)) + call RegPackBounds(Buf, 2, lbound(InData%RelPosition, kind=B8Ki), ubound(InData%RelPosition, kind=B8Ki)) call RegPack(Buf, InData%RelPosition) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1193,7 +1193,7 @@ subroutine StC_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInitOutput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1219,14 +1219,14 @@ subroutine StC_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%StC_x)) then - LB(1:2) = lbound(SrcContStateData%StC_x) - UB(1:2) = ubound(SrcContStateData%StC_x) + LB(1:2) = lbound(SrcContStateData%StC_x, kind=B8Ki) + UB(1:2) = ubound(SrcContStateData%StC_x, kind=B8Ki) if (.not. allocated(DstContStateData%StC_x)) then allocate(DstContStateData%StC_x(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1257,7 +1257,7 @@ subroutine StC_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%StC_x)) if (allocated(InData%StC_x)) then - call RegPackBounds(Buf, 2, lbound(InData%StC_x), ubound(InData%StC_x)) + call RegPackBounds(Buf, 2, lbound(InData%StC_x, kind=B8Ki), ubound(InData%StC_x, kind=B8Ki)) call RegPack(Buf, InData%StC_x) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1267,7 +1267,7 @@ subroutine StC_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackContState' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1410,14 +1410,14 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%F_stop)) then - LB(1:2) = lbound(SrcMiscData%F_stop) - UB(1:2) = ubound(SrcMiscData%F_stop) + LB(1:2) = lbound(SrcMiscData%F_stop, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_stop, kind=B8Ki) if (.not. allocated(DstMiscData%F_stop)) then allocate(DstMiscData%F_stop(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1428,8 +1428,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_stop = SrcMiscData%F_stop end if if (allocated(SrcMiscData%F_ext)) then - LB(1:2) = lbound(SrcMiscData%F_ext) - UB(1:2) = ubound(SrcMiscData%F_ext) + LB(1:2) = lbound(SrcMiscData%F_ext, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_ext, kind=B8Ki) if (.not. allocated(DstMiscData%F_ext)) then allocate(DstMiscData%F_ext(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1440,8 +1440,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_ext = SrcMiscData%F_ext end if if (allocated(SrcMiscData%F_fr)) then - LB(1:2) = lbound(SrcMiscData%F_fr) - UB(1:2) = ubound(SrcMiscData%F_fr) + LB(1:2) = lbound(SrcMiscData%F_fr, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_fr, kind=B8Ki) if (.not. allocated(DstMiscData%F_fr)) then allocate(DstMiscData%F_fr(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1452,8 +1452,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_fr = SrcMiscData%F_fr end if if (allocated(SrcMiscData%K)) then - LB(1:2) = lbound(SrcMiscData%K) - UB(1:2) = ubound(SrcMiscData%K) + LB(1:2) = lbound(SrcMiscData%K, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%K, kind=B8Ki) if (.not. allocated(DstMiscData%K)) then allocate(DstMiscData%K(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1464,8 +1464,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%K = SrcMiscData%K end if if (allocated(SrcMiscData%C_ctrl)) then - LB(1:2) = lbound(SrcMiscData%C_ctrl) - UB(1:2) = ubound(SrcMiscData%C_ctrl) + LB(1:2) = lbound(SrcMiscData%C_ctrl, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%C_ctrl, kind=B8Ki) if (.not. allocated(DstMiscData%C_ctrl)) then allocate(DstMiscData%C_ctrl(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1476,8 +1476,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%C_ctrl = SrcMiscData%C_ctrl end if if (allocated(SrcMiscData%C_Brake)) then - LB(1:2) = lbound(SrcMiscData%C_Brake) - UB(1:2) = ubound(SrcMiscData%C_Brake) + LB(1:2) = lbound(SrcMiscData%C_Brake, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%C_Brake, kind=B8Ki) if (.not. allocated(DstMiscData%C_Brake)) then allocate(DstMiscData%C_Brake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1488,8 +1488,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%C_Brake = SrcMiscData%C_Brake end if if (allocated(SrcMiscData%F_table)) then - LB(1:2) = lbound(SrcMiscData%F_table) - UB(1:2) = ubound(SrcMiscData%F_table) + LB(1:2) = lbound(SrcMiscData%F_table, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_table, kind=B8Ki) if (.not. allocated(DstMiscData%F_table)) then allocate(DstMiscData%F_table(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1500,8 +1500,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_table = SrcMiscData%F_table end if if (allocated(SrcMiscData%F_k)) then - LB(1:2) = lbound(SrcMiscData%F_k) - UB(1:2) = ubound(SrcMiscData%F_k) + LB(1:2) = lbound(SrcMiscData%F_k, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_k, kind=B8Ki) if (.not. allocated(DstMiscData%F_k)) then allocate(DstMiscData%F_k(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1512,8 +1512,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_k = SrcMiscData%F_k end if if (allocated(SrcMiscData%a_G)) then - LB(1:2) = lbound(SrcMiscData%a_G) - UB(1:2) = ubound(SrcMiscData%a_G) + LB(1:2) = lbound(SrcMiscData%a_G, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%a_G, kind=B8Ki) if (.not. allocated(DstMiscData%a_G)) then allocate(DstMiscData%a_G(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1524,8 +1524,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%a_G = SrcMiscData%a_G end if if (allocated(SrcMiscData%rdisp_P)) then - LB(1:2) = lbound(SrcMiscData%rdisp_P) - UB(1:2) = ubound(SrcMiscData%rdisp_P) + LB(1:2) = lbound(SrcMiscData%rdisp_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%rdisp_P, kind=B8Ki) if (.not. allocated(DstMiscData%rdisp_P)) then allocate(DstMiscData%rdisp_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1536,8 +1536,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rdisp_P = SrcMiscData%rdisp_P end if if (allocated(SrcMiscData%rdot_P)) then - LB(1:2) = lbound(SrcMiscData%rdot_P) - UB(1:2) = ubound(SrcMiscData%rdot_P) + LB(1:2) = lbound(SrcMiscData%rdot_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%rdot_P, kind=B8Ki) if (.not. allocated(DstMiscData%rdot_P)) then allocate(DstMiscData%rdot_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1548,8 +1548,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rdot_P = SrcMiscData%rdot_P end if if (allocated(SrcMiscData%rddot_P)) then - LB(1:2) = lbound(SrcMiscData%rddot_P) - UB(1:2) = ubound(SrcMiscData%rddot_P) + LB(1:2) = lbound(SrcMiscData%rddot_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%rddot_P, kind=B8Ki) if (.not. allocated(DstMiscData%rddot_P)) then allocate(DstMiscData%rddot_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1560,8 +1560,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%rddot_P = SrcMiscData%rddot_P end if if (allocated(SrcMiscData%omega_P)) then - LB(1:2) = lbound(SrcMiscData%omega_P) - UB(1:2) = ubound(SrcMiscData%omega_P) + LB(1:2) = lbound(SrcMiscData%omega_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%omega_P, kind=B8Ki) if (.not. allocated(DstMiscData%omega_P)) then allocate(DstMiscData%omega_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1572,8 +1572,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%omega_P = SrcMiscData%omega_P end if if (allocated(SrcMiscData%alpha_P)) then - LB(1:2) = lbound(SrcMiscData%alpha_P) - UB(1:2) = ubound(SrcMiscData%alpha_P) + LB(1:2) = lbound(SrcMiscData%alpha_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%alpha_P, kind=B8Ki) if (.not. allocated(DstMiscData%alpha_P)) then allocate(DstMiscData%alpha_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1584,8 +1584,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%alpha_P = SrcMiscData%alpha_P end if if (allocated(SrcMiscData%F_P)) then - LB(1:2) = lbound(SrcMiscData%F_P) - UB(1:2) = ubound(SrcMiscData%F_P) + LB(1:2) = lbound(SrcMiscData%F_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%F_P, kind=B8Ki) if (.not. allocated(DstMiscData%F_P)) then allocate(DstMiscData%F_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1596,8 +1596,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_P = SrcMiscData%F_P end if if (allocated(SrcMiscData%M_P)) then - LB(1:2) = lbound(SrcMiscData%M_P) - UB(1:2) = ubound(SrcMiscData%M_P) + LB(1:2) = lbound(SrcMiscData%M_P, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%M_P, kind=B8Ki) if (.not. allocated(DstMiscData%M_P)) then allocate(DstMiscData%M_P(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1608,8 +1608,8 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%M_P = SrcMiscData%M_P end if if (allocated(SrcMiscData%Acc)) then - LB(1:2) = lbound(SrcMiscData%Acc) - UB(1:2) = ubound(SrcMiscData%Acc) + LB(1:2) = lbound(SrcMiscData%Acc, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%Acc, kind=B8Ki) if (.not. allocated(DstMiscData%Acc)) then allocate(DstMiscData%Acc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1689,87 +1689,87 @@ subroutine StC_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%F_stop)) if (allocated(InData%F_stop)) then - call RegPackBounds(Buf, 2, lbound(InData%F_stop), ubound(InData%F_stop)) + call RegPackBounds(Buf, 2, lbound(InData%F_stop, kind=B8Ki), ubound(InData%F_stop, kind=B8Ki)) call RegPack(Buf, InData%F_stop) end if call RegPack(Buf, allocated(InData%F_ext)) if (allocated(InData%F_ext)) then - call RegPackBounds(Buf, 2, lbound(InData%F_ext), ubound(InData%F_ext)) + call RegPackBounds(Buf, 2, lbound(InData%F_ext, kind=B8Ki), ubound(InData%F_ext, kind=B8Ki)) call RegPack(Buf, InData%F_ext) end if call RegPack(Buf, allocated(InData%F_fr)) if (allocated(InData%F_fr)) then - call RegPackBounds(Buf, 2, lbound(InData%F_fr), ubound(InData%F_fr)) + call RegPackBounds(Buf, 2, lbound(InData%F_fr, kind=B8Ki), ubound(InData%F_fr, kind=B8Ki)) call RegPack(Buf, InData%F_fr) end if call RegPack(Buf, allocated(InData%K)) if (allocated(InData%K)) then - call RegPackBounds(Buf, 2, lbound(InData%K), ubound(InData%K)) + call RegPackBounds(Buf, 2, lbound(InData%K, kind=B8Ki), ubound(InData%K, kind=B8Ki)) call RegPack(Buf, InData%K) end if call RegPack(Buf, allocated(InData%C_ctrl)) if (allocated(InData%C_ctrl)) then - call RegPackBounds(Buf, 2, lbound(InData%C_ctrl), ubound(InData%C_ctrl)) + call RegPackBounds(Buf, 2, lbound(InData%C_ctrl, kind=B8Ki), ubound(InData%C_ctrl, kind=B8Ki)) call RegPack(Buf, InData%C_ctrl) end if call RegPack(Buf, allocated(InData%C_Brake)) if (allocated(InData%C_Brake)) then - call RegPackBounds(Buf, 2, lbound(InData%C_Brake), ubound(InData%C_Brake)) + call RegPackBounds(Buf, 2, lbound(InData%C_Brake, kind=B8Ki), ubound(InData%C_Brake, kind=B8Ki)) call RegPack(Buf, InData%C_Brake) end if call RegPack(Buf, allocated(InData%F_table)) if (allocated(InData%F_table)) then - call RegPackBounds(Buf, 2, lbound(InData%F_table), ubound(InData%F_table)) + call RegPackBounds(Buf, 2, lbound(InData%F_table, kind=B8Ki), ubound(InData%F_table, kind=B8Ki)) call RegPack(Buf, InData%F_table) end if call RegPack(Buf, allocated(InData%F_k)) if (allocated(InData%F_k)) then - call RegPackBounds(Buf, 2, lbound(InData%F_k), ubound(InData%F_k)) + call RegPackBounds(Buf, 2, lbound(InData%F_k, kind=B8Ki), ubound(InData%F_k, kind=B8Ki)) call RegPack(Buf, InData%F_k) end if call RegPack(Buf, allocated(InData%a_G)) if (allocated(InData%a_G)) then - call RegPackBounds(Buf, 2, lbound(InData%a_G), ubound(InData%a_G)) + call RegPackBounds(Buf, 2, lbound(InData%a_G, kind=B8Ki), ubound(InData%a_G, kind=B8Ki)) call RegPack(Buf, InData%a_G) end if call RegPack(Buf, allocated(InData%rdisp_P)) if (allocated(InData%rdisp_P)) then - call RegPackBounds(Buf, 2, lbound(InData%rdisp_P), ubound(InData%rdisp_P)) + call RegPackBounds(Buf, 2, lbound(InData%rdisp_P, kind=B8Ki), ubound(InData%rdisp_P, kind=B8Ki)) call RegPack(Buf, InData%rdisp_P) end if call RegPack(Buf, allocated(InData%rdot_P)) if (allocated(InData%rdot_P)) then - call RegPackBounds(Buf, 2, lbound(InData%rdot_P), ubound(InData%rdot_P)) + call RegPackBounds(Buf, 2, lbound(InData%rdot_P, kind=B8Ki), ubound(InData%rdot_P, kind=B8Ki)) call RegPack(Buf, InData%rdot_P) end if call RegPack(Buf, allocated(InData%rddot_P)) if (allocated(InData%rddot_P)) then - call RegPackBounds(Buf, 2, lbound(InData%rddot_P), ubound(InData%rddot_P)) + call RegPackBounds(Buf, 2, lbound(InData%rddot_P, kind=B8Ki), ubound(InData%rddot_P, kind=B8Ki)) call RegPack(Buf, InData%rddot_P) end if call RegPack(Buf, allocated(InData%omega_P)) if (allocated(InData%omega_P)) then - call RegPackBounds(Buf, 2, lbound(InData%omega_P), ubound(InData%omega_P)) + call RegPackBounds(Buf, 2, lbound(InData%omega_P, kind=B8Ki), ubound(InData%omega_P, kind=B8Ki)) call RegPack(Buf, InData%omega_P) end if call RegPack(Buf, allocated(InData%alpha_P)) if (allocated(InData%alpha_P)) then - call RegPackBounds(Buf, 2, lbound(InData%alpha_P), ubound(InData%alpha_P)) + call RegPackBounds(Buf, 2, lbound(InData%alpha_P, kind=B8Ki), ubound(InData%alpha_P, kind=B8Ki)) call RegPack(Buf, InData%alpha_P) end if call RegPack(Buf, allocated(InData%F_P)) if (allocated(InData%F_P)) then - call RegPackBounds(Buf, 2, lbound(InData%F_P), ubound(InData%F_P)) + call RegPackBounds(Buf, 2, lbound(InData%F_P, kind=B8Ki), ubound(InData%F_P, kind=B8Ki)) call RegPack(Buf, InData%F_P) end if call RegPack(Buf, allocated(InData%M_P)) if (allocated(InData%M_P)) then - call RegPackBounds(Buf, 2, lbound(InData%M_P), ubound(InData%M_P)) + call RegPackBounds(Buf, 2, lbound(InData%M_P, kind=B8Ki), ubound(InData%M_P, kind=B8Ki)) call RegPack(Buf, InData%M_P) end if call RegPack(Buf, allocated(InData%Acc)) if (allocated(InData%Acc)) then - call RegPackBounds(Buf, 2, lbound(InData%Acc), ubound(InData%Acc)) + call RegPackBounds(Buf, 2, lbound(InData%Acc, kind=B8Ki), ubound(InData%Acc, kind=B8Ki)) call RegPack(Buf, InData%Acc) end if call RegPack(Buf, InData%PrescribedInterpIdx) @@ -1780,7 +1780,7 @@ subroutine StC_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackMisc' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2032,7 +2032,7 @@ subroutine StC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyParam' ErrStat = ErrID_None @@ -2084,8 +2084,8 @@ subroutine StC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rho_Y = SrcParamData%rho_Y DstParamData%Use_F_TBL = SrcParamData%Use_F_TBL if (allocated(SrcParamData%F_TBL)) then - LB(1:2) = lbound(SrcParamData%F_TBL) - UB(1:2) = ubound(SrcParamData%F_TBL) + LB(1:2) = lbound(SrcParamData%F_TBL, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%F_TBL, kind=B8Ki) if (.not. allocated(DstParamData%F_TBL)) then allocate(DstParamData%F_TBL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2098,8 +2098,8 @@ subroutine StC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumMeshPts = SrcParamData%NumMeshPts DstParamData%PrescribedForcesCoordSys = SrcParamData%PrescribedForcesCoordSys if (allocated(SrcParamData%StC_PrescribedForce)) then - LB(1:2) = lbound(SrcParamData%StC_PrescribedForce) - UB(1:2) = ubound(SrcParamData%StC_PrescribedForce) + LB(1:2) = lbound(SrcParamData%StC_PrescribedForce, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%StC_PrescribedForce, kind=B8Ki) if (.not. allocated(DstParamData%StC_PrescribedForce)) then allocate(DstParamData%StC_PrescribedForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2110,8 +2110,8 @@ subroutine StC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%StC_PrescribedForce = SrcParamData%StC_PrescribedForce end if if (allocated(SrcParamData%StC_CChan)) then - LB(1:1) = lbound(SrcParamData%StC_CChan) - UB(1:1) = ubound(SrcParamData%StC_CChan) + LB(1:1) = lbound(SrcParamData%StC_CChan, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%StC_CChan, kind=B8Ki) if (.not. allocated(DstParamData%StC_CChan)) then allocate(DstParamData%StC_CChan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2194,19 +2194,19 @@ subroutine StC_PackParam(Buf, Indata) call RegPack(Buf, InData%Use_F_TBL) call RegPack(Buf, allocated(InData%F_TBL)) if (allocated(InData%F_TBL)) then - call RegPackBounds(Buf, 2, lbound(InData%F_TBL), ubound(InData%F_TBL)) + call RegPackBounds(Buf, 2, lbound(InData%F_TBL, kind=B8Ki), ubound(InData%F_TBL, kind=B8Ki)) call RegPack(Buf, InData%F_TBL) end if call RegPack(Buf, InData%NumMeshPts) call RegPack(Buf, InData%PrescribedForcesCoordSys) call RegPack(Buf, allocated(InData%StC_PrescribedForce)) if (allocated(InData%StC_PrescribedForce)) then - call RegPackBounds(Buf, 2, lbound(InData%StC_PrescribedForce), ubound(InData%StC_PrescribedForce)) + call RegPackBounds(Buf, 2, lbound(InData%StC_PrescribedForce, kind=B8Ki), ubound(InData%StC_PrescribedForce, kind=B8Ki)) call RegPack(Buf, InData%StC_PrescribedForce) end if call RegPack(Buf, allocated(InData%StC_CChan)) if (allocated(InData%StC_CChan)) then - call RegPackBounds(Buf, 1, lbound(InData%StC_CChan), ubound(InData%StC_CChan)) + call RegPackBounds(Buf, 1, lbound(InData%StC_CChan, kind=B8Ki), ubound(InData%StC_CChan, kind=B8Ki)) call RegPack(Buf, InData%StC_CChan) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2216,7 +2216,7 @@ subroutine StC_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackParam' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2366,16 +2366,16 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'StC_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%Mesh)) then - LB(1:1) = lbound(SrcInputData%Mesh) - UB(1:1) = ubound(SrcInputData%Mesh) + LB(1:1) = lbound(SrcInputData%Mesh, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%Mesh, kind=B8Ki) if (.not. allocated(DstInputData%Mesh)) then allocate(DstInputData%Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2390,8 +2390,8 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%CmdStiff)) then - LB(1:2) = lbound(SrcInputData%CmdStiff) - UB(1:2) = ubound(SrcInputData%CmdStiff) + LB(1:2) = lbound(SrcInputData%CmdStiff, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%CmdStiff, kind=B8Ki) if (.not. allocated(DstInputData%CmdStiff)) then allocate(DstInputData%CmdStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2402,8 +2402,8 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%CmdStiff = SrcInputData%CmdStiff end if if (allocated(SrcInputData%CmdDamp)) then - LB(1:2) = lbound(SrcInputData%CmdDamp) - UB(1:2) = ubound(SrcInputData%CmdDamp) + LB(1:2) = lbound(SrcInputData%CmdDamp, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%CmdDamp, kind=B8Ki) if (.not. allocated(DstInputData%CmdDamp)) then allocate(DstInputData%CmdDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2414,8 +2414,8 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%CmdDamp = SrcInputData%CmdDamp end if if (allocated(SrcInputData%CmdBrake)) then - LB(1:2) = lbound(SrcInputData%CmdBrake) - UB(1:2) = ubound(SrcInputData%CmdBrake) + LB(1:2) = lbound(SrcInputData%CmdBrake, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%CmdBrake, kind=B8Ki) if (.not. allocated(DstInputData%CmdBrake)) then allocate(DstInputData%CmdBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2426,8 +2426,8 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%CmdBrake = SrcInputData%CmdBrake end if if (allocated(SrcInputData%CmdForce)) then - LB(1:2) = lbound(SrcInputData%CmdForce) - UB(1:2) = ubound(SrcInputData%CmdForce) + LB(1:2) = lbound(SrcInputData%CmdForce, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%CmdForce, kind=B8Ki) if (.not. allocated(DstInputData%CmdForce)) then allocate(DstInputData%CmdForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2443,16 +2443,16 @@ subroutine StC_DestroyInput(InputData, ErrStat, ErrMsg) type(StC_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'StC_DestroyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(InputData%Mesh)) then - LB(1:1) = lbound(InputData%Mesh) - UB(1:1) = ubound(InputData%Mesh) + LB(1:1) = lbound(InputData%Mesh, kind=B8Ki) + UB(1:1) = ubound(InputData%Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( InputData%Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2477,36 +2477,36 @@ subroutine StC_PackInput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(StC_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'StC_PackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Mesh)) if (allocated(InData%Mesh)) then - call RegPackBounds(Buf, 1, lbound(InData%Mesh), ubound(InData%Mesh)) - LB(1:1) = lbound(InData%Mesh) - UB(1:1) = ubound(InData%Mesh) + call RegPackBounds(Buf, 1, lbound(InData%Mesh, kind=B8Ki), ubound(InData%Mesh, kind=B8Ki)) + LB(1:1) = lbound(InData%Mesh, kind=B8Ki) + UB(1:1) = ubound(InData%Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%Mesh(i1)) end do end if call RegPack(Buf, allocated(InData%CmdStiff)) if (allocated(InData%CmdStiff)) then - call RegPackBounds(Buf, 2, lbound(InData%CmdStiff), ubound(InData%CmdStiff)) + call RegPackBounds(Buf, 2, lbound(InData%CmdStiff, kind=B8Ki), ubound(InData%CmdStiff, kind=B8Ki)) call RegPack(Buf, InData%CmdStiff) end if call RegPack(Buf, allocated(InData%CmdDamp)) if (allocated(InData%CmdDamp)) then - call RegPackBounds(Buf, 2, lbound(InData%CmdDamp), ubound(InData%CmdDamp)) + call RegPackBounds(Buf, 2, lbound(InData%CmdDamp, kind=B8Ki), ubound(InData%CmdDamp, kind=B8Ki)) call RegPack(Buf, InData%CmdDamp) end if call RegPack(Buf, allocated(InData%CmdBrake)) if (allocated(InData%CmdBrake)) then - call RegPackBounds(Buf, 2, lbound(InData%CmdBrake), ubound(InData%CmdBrake)) + call RegPackBounds(Buf, 2, lbound(InData%CmdBrake, kind=B8Ki), ubound(InData%CmdBrake, kind=B8Ki)) call RegPack(Buf, InData%CmdBrake) end if call RegPack(Buf, allocated(InData%CmdForce)) if (allocated(InData%CmdForce)) then - call RegPackBounds(Buf, 2, lbound(InData%CmdForce), ubound(InData%CmdForce)) + call RegPackBounds(Buf, 2, lbound(InData%CmdForce, kind=B8Ki), ubound(InData%CmdForce, kind=B8Ki)) call RegPack(Buf, InData%CmdForce) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2516,8 +2516,8 @@ subroutine StC_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2600,16 +2600,16 @@ subroutine StC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'StC_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%Mesh)) then - LB(1:1) = lbound(SrcOutputData%Mesh) - UB(1:1) = ubound(SrcOutputData%Mesh) + LB(1:1) = lbound(SrcOutputData%Mesh, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%Mesh, kind=B8Ki) if (.not. allocated(DstOutputData%Mesh)) then allocate(DstOutputData%Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2624,8 +2624,8 @@ subroutine StC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs end do end if if (allocated(SrcOutputData%MeasDisp)) then - LB(1:2) = lbound(SrcOutputData%MeasDisp) - UB(1:2) = ubound(SrcOutputData%MeasDisp) + LB(1:2) = lbound(SrcOutputData%MeasDisp, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%MeasDisp, kind=B8Ki) if (.not. allocated(DstOutputData%MeasDisp)) then allocate(DstOutputData%MeasDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2636,8 +2636,8 @@ subroutine StC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%MeasDisp = SrcOutputData%MeasDisp end if if (allocated(SrcOutputData%MeasVel)) then - LB(1:2) = lbound(SrcOutputData%MeasVel) - UB(1:2) = ubound(SrcOutputData%MeasVel) + LB(1:2) = lbound(SrcOutputData%MeasVel, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%MeasVel, kind=B8Ki) if (.not. allocated(DstOutputData%MeasVel)) then allocate(DstOutputData%MeasVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2653,16 +2653,16 @@ subroutine StC_DestroyOutput(OutputData, ErrStat, ErrMsg) type(StC_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'StC_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%Mesh)) then - LB(1:1) = lbound(OutputData%Mesh) - UB(1:1) = ubound(OutputData%Mesh) + LB(1:1) = lbound(OutputData%Mesh, kind=B8Ki) + UB(1:1) = ubound(OutputData%Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2681,26 +2681,26 @@ subroutine StC_PackOutput(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(StC_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'StC_PackOutput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%Mesh)) if (allocated(InData%Mesh)) then - call RegPackBounds(Buf, 1, lbound(InData%Mesh), ubound(InData%Mesh)) - LB(1:1) = lbound(InData%Mesh) - UB(1:1) = ubound(InData%Mesh) + call RegPackBounds(Buf, 1, lbound(InData%Mesh, kind=B8Ki), ubound(InData%Mesh, kind=B8Ki)) + LB(1:1) = lbound(InData%Mesh, kind=B8Ki) + UB(1:1) = ubound(InData%Mesh, kind=B8Ki) do i1 = LB(1), UB(1) call MeshPack(Buf, InData%Mesh(i1)) end do end if call RegPack(Buf, allocated(InData%MeasDisp)) if (allocated(InData%MeasDisp)) then - call RegPackBounds(Buf, 2, lbound(InData%MeasDisp), ubound(InData%MeasDisp)) + call RegPackBounds(Buf, 2, lbound(InData%MeasDisp, kind=B8Ki), ubound(InData%MeasDisp, kind=B8Ki)) call RegPack(Buf, InData%MeasDisp) end if call RegPack(Buf, allocated(InData%MeasVel)) if (allocated(InData%MeasVel)) then - call RegPackBounds(Buf, 2, lbound(InData%MeasVel), ubound(InData%MeasVel)) + call RegPackBounds(Buf, 2, lbound(InData%MeasVel, kind=B8Ki), ubound(InData%MeasVel, kind=B8Ki)) call RegPack(Buf, InData%MeasVel) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2710,8 +2710,8 @@ subroutine StC_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(StC_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackOutput' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2860,7 +2860,7 @@ SUBROUTINE StC_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(u_out%Mesh) .AND. ALLOCATED(u1%Mesh)) THEN - DO i1 = LBOUND(u_out%Mesh,1),UBOUND(u_out%Mesh,1) + DO i1 = LBOUND(u_out%Mesh,1, kind=B8Ki),UBOUND(u_out%Mesh,1, kind=B8Ki) CALL MeshExtrapInterp1(u1%Mesh(i1), u2%Mesh(i1), tin, u_out%Mesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -2937,7 +2937,7 @@ SUBROUTINE StC_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Err a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(u_out%Mesh) .AND. ALLOCATED(u1%Mesh)) THEN - DO i1 = LBOUND(u_out%Mesh,1),UBOUND(u_out%Mesh,1) + DO i1 = LBOUND(u_out%Mesh,1, kind=B8Ki),UBOUND(u_out%Mesh,1, kind=B8Ki) CALL MeshExtrapInterp2(u1%Mesh(i1), u2%Mesh(i1), u3%Mesh(i1), tin, u_out%Mesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -3056,7 +3056,7 @@ SUBROUTINE StC_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(y_out%Mesh) .AND. ALLOCATED(y1%Mesh)) THEN - DO i1 = LBOUND(y_out%Mesh,1),UBOUND(y_out%Mesh,1) + DO i1 = LBOUND(y_out%Mesh,1, kind=B8Ki),UBOUND(y_out%Mesh,1, kind=B8Ki) CALL MeshExtrapInterp1(y1%Mesh(i1), y2%Mesh(i1), tin, y_out%Mesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -3127,7 +3127,7 @@ SUBROUTINE StC_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Er a2 = (t_out - t(1))*(t_out - t(3))/((t(2) - t(1))*(t(2) - t(3))) a3 = (t_out - t(1))*(t_out - t(2))/((t(3) - t(1))*(t(3) - t(2))) IF (ALLOCATED(y_out%Mesh) .AND. ALLOCATED(y1%Mesh)) THEN - DO i1 = LBOUND(y_out%Mesh,1),UBOUND(y_out%Mesh,1) + DO i1 = LBOUND(y_out%Mesh,1, kind=B8Ki),UBOUND(y_out%Mesh,1, kind=B8Ki) CALL MeshExtrapInterp2(y1%Mesh(i1), y2%Mesh(i1), y3%Mesh(i1), tin, y_out%Mesh(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO diff --git a/modules/subdyn/src/SubDyn_Types.f90 b/modules/subdyn/src/SubDyn_Types.f90 index 96a79aae0c..f8f683f430 100644 --- a/modules/subdyn/src/SubDyn_Types.f90 +++ b/modules/subdyn/src/SubDyn_Types.f90 @@ -349,14 +349,14 @@ subroutine SD_CopyIList(SrcIListData, DstIListData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyIList' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcIListData%List)) then - LB(1:1) = lbound(SrcIListData%List) - UB(1:1) = ubound(SrcIListData%List) + LB(1:1) = lbound(SrcIListData%List, kind=B8Ki) + UB(1:1) = ubound(SrcIListData%List, kind=B8Ki) if (.not. allocated(DstIListData%List)) then allocate(DstIListData%List(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -387,7 +387,7 @@ subroutine SD_PackIList(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%List)) if (allocated(InData%List)) then - call RegPackBounds(Buf, 1, lbound(InData%List), ubound(InData%List)) + call RegPackBounds(Buf, 1, lbound(InData%List, kind=B8Ki), ubound(InData%List, kind=B8Ki)) call RegPack(Buf, InData%List) end if if (RegCheckErr(Buf, RoutineName)) return @@ -397,7 +397,7 @@ subroutine SD_UnPackIList(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(IList), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackIList' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -423,7 +423,7 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyMeshAuxDataType' ErrStat = ErrID_None @@ -431,8 +431,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%MemberID = SrcMeshAuxDataTypeData%MemberID DstMeshAuxDataTypeData%NOutCnt = SrcMeshAuxDataTypeData%NOutCnt if (allocated(SrcMeshAuxDataTypeData%NodeCnt)) then - LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeCnt) - UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeCnt) + LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeCnt, kind=B8Ki) + UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeCnt, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%NodeCnt)) then allocate(DstMeshAuxDataTypeData%NodeCnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -443,8 +443,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%NodeCnt = SrcMeshAuxDataTypeData%NodeCnt end if if (allocated(SrcMeshAuxDataTypeData%NodeIDs)) then - LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeIDs) - UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeIDs) + LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeIDs, kind=B8Ki) + UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeIDs, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%NodeIDs)) then allocate(DstMeshAuxDataTypeData%NodeIDs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -455,8 +455,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%NodeIDs = SrcMeshAuxDataTypeData%NodeIDs end if if (allocated(SrcMeshAuxDataTypeData%ElmIDs)) then - LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmIDs) - UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmIDs) + LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmIDs, kind=B8Ki) + UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmIDs, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%ElmIDs)) then allocate(DstMeshAuxDataTypeData%ElmIDs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -467,8 +467,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%ElmIDs = SrcMeshAuxDataTypeData%ElmIDs end if if (allocated(SrcMeshAuxDataTypeData%ElmNds)) then - LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmNds) - UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmNds) + LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmNds, kind=B8Ki) + UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmNds, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%ElmNds)) then allocate(DstMeshAuxDataTypeData%ElmNds(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -479,8 +479,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%ElmNds = SrcMeshAuxDataTypeData%ElmNds end if if (allocated(SrcMeshAuxDataTypeData%Me)) then - LB(1:4) = lbound(SrcMeshAuxDataTypeData%Me) - UB(1:4) = ubound(SrcMeshAuxDataTypeData%Me) + LB(1:4) = lbound(SrcMeshAuxDataTypeData%Me, kind=B8Ki) + UB(1:4) = ubound(SrcMeshAuxDataTypeData%Me, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%Me)) then allocate(DstMeshAuxDataTypeData%Me(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -491,8 +491,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%Me = SrcMeshAuxDataTypeData%Me end if if (allocated(SrcMeshAuxDataTypeData%Ke)) then - LB(1:4) = lbound(SrcMeshAuxDataTypeData%Ke) - UB(1:4) = ubound(SrcMeshAuxDataTypeData%Ke) + LB(1:4) = lbound(SrcMeshAuxDataTypeData%Ke, kind=B8Ki) + UB(1:4) = ubound(SrcMeshAuxDataTypeData%Ke, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%Ke)) then allocate(DstMeshAuxDataTypeData%Ke(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -503,8 +503,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%Ke = SrcMeshAuxDataTypeData%Ke end if if (allocated(SrcMeshAuxDataTypeData%Fg)) then - LB(1:3) = lbound(SrcMeshAuxDataTypeData%Fg) - UB(1:3) = ubound(SrcMeshAuxDataTypeData%Fg) + LB(1:3) = lbound(SrcMeshAuxDataTypeData%Fg, kind=B8Ki) + UB(1:3) = ubound(SrcMeshAuxDataTypeData%Fg, kind=B8Ki) if (.not. allocated(DstMeshAuxDataTypeData%Fg)) then allocate(DstMeshAuxDataTypeData%Fg(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -555,37 +555,37 @@ subroutine SD_PackMeshAuxDataType(Buf, Indata) call RegPack(Buf, InData%NOutCnt) call RegPack(Buf, allocated(InData%NodeCnt)) if (allocated(InData%NodeCnt)) then - call RegPackBounds(Buf, 1, lbound(InData%NodeCnt), ubound(InData%NodeCnt)) + call RegPackBounds(Buf, 1, lbound(InData%NodeCnt, kind=B8Ki), ubound(InData%NodeCnt, kind=B8Ki)) call RegPack(Buf, InData%NodeCnt) end if call RegPack(Buf, allocated(InData%NodeIDs)) if (allocated(InData%NodeIDs)) then - call RegPackBounds(Buf, 1, lbound(InData%NodeIDs), ubound(InData%NodeIDs)) + call RegPackBounds(Buf, 1, lbound(InData%NodeIDs, kind=B8Ki), ubound(InData%NodeIDs, kind=B8Ki)) call RegPack(Buf, InData%NodeIDs) end if call RegPack(Buf, allocated(InData%ElmIDs)) if (allocated(InData%ElmIDs)) then - call RegPackBounds(Buf, 2, lbound(InData%ElmIDs), ubound(InData%ElmIDs)) + call RegPackBounds(Buf, 2, lbound(InData%ElmIDs, kind=B8Ki), ubound(InData%ElmIDs, kind=B8Ki)) call RegPack(Buf, InData%ElmIDs) end if call RegPack(Buf, allocated(InData%ElmNds)) if (allocated(InData%ElmNds)) then - call RegPackBounds(Buf, 2, lbound(InData%ElmNds), ubound(InData%ElmNds)) + call RegPackBounds(Buf, 2, lbound(InData%ElmNds, kind=B8Ki), ubound(InData%ElmNds, kind=B8Ki)) call RegPack(Buf, InData%ElmNds) end if call RegPack(Buf, allocated(InData%Me)) if (allocated(InData%Me)) then - call RegPackBounds(Buf, 4, lbound(InData%Me), ubound(InData%Me)) + call RegPackBounds(Buf, 4, lbound(InData%Me, kind=B8Ki), ubound(InData%Me, kind=B8Ki)) call RegPack(Buf, InData%Me) end if call RegPack(Buf, allocated(InData%Ke)) if (allocated(InData%Ke)) then - call RegPackBounds(Buf, 4, lbound(InData%Ke), ubound(InData%Ke)) + call RegPackBounds(Buf, 4, lbound(InData%Ke, kind=B8Ki), ubound(InData%Ke, kind=B8Ki)) call RegPack(Buf, InData%Ke) end if call RegPack(Buf, allocated(InData%Fg)) if (allocated(InData%Fg)) then - call RegPackBounds(Buf, 3, lbound(InData%Fg), ubound(InData%Fg)) + call RegPackBounds(Buf, 3, lbound(InData%Fg, kind=B8Ki), ubound(InData%Fg, kind=B8Ki)) call RegPack(Buf, InData%Fg) end if if (RegCheckErr(Buf, RoutineName)) return @@ -595,7 +595,7 @@ subroutine SD_UnPackMeshAuxDataType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(MeshAuxDataType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackMeshAuxDataType' - integer(IntKi) :: LB(4), UB(4) + integer(B8Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -709,14 +709,14 @@ subroutine SD_CopyCB_MatArrays(SrcCB_MatArraysData, DstCB_MatArraysData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyCB_MatArrays' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcCB_MatArraysData%MBB)) then - LB(1:2) = lbound(SrcCB_MatArraysData%MBB) - UB(1:2) = ubound(SrcCB_MatArraysData%MBB) + LB(1:2) = lbound(SrcCB_MatArraysData%MBB, kind=B8Ki) + UB(1:2) = ubound(SrcCB_MatArraysData%MBB, kind=B8Ki) if (.not. allocated(DstCB_MatArraysData%MBB)) then allocate(DstCB_MatArraysData%MBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -727,8 +727,8 @@ subroutine SD_CopyCB_MatArrays(SrcCB_MatArraysData, DstCB_MatArraysData, CtrlCod DstCB_MatArraysData%MBB = SrcCB_MatArraysData%MBB end if if (allocated(SrcCB_MatArraysData%MBM)) then - LB(1:2) = lbound(SrcCB_MatArraysData%MBM) - UB(1:2) = ubound(SrcCB_MatArraysData%MBM) + LB(1:2) = lbound(SrcCB_MatArraysData%MBM, kind=B8Ki) + UB(1:2) = ubound(SrcCB_MatArraysData%MBM, kind=B8Ki) if (.not. allocated(DstCB_MatArraysData%MBM)) then allocate(DstCB_MatArraysData%MBM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -739,8 +739,8 @@ subroutine SD_CopyCB_MatArrays(SrcCB_MatArraysData, DstCB_MatArraysData, CtrlCod DstCB_MatArraysData%MBM = SrcCB_MatArraysData%MBM end if if (allocated(SrcCB_MatArraysData%KBB)) then - LB(1:2) = lbound(SrcCB_MatArraysData%KBB) - UB(1:2) = ubound(SrcCB_MatArraysData%KBB) + LB(1:2) = lbound(SrcCB_MatArraysData%KBB, kind=B8Ki) + UB(1:2) = ubound(SrcCB_MatArraysData%KBB, kind=B8Ki) if (.not. allocated(DstCB_MatArraysData%KBB)) then allocate(DstCB_MatArraysData%KBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -751,8 +751,8 @@ subroutine SD_CopyCB_MatArrays(SrcCB_MatArraysData, DstCB_MatArraysData, CtrlCod DstCB_MatArraysData%KBB = SrcCB_MatArraysData%KBB end if if (allocated(SrcCB_MatArraysData%PhiL)) then - LB(1:2) = lbound(SrcCB_MatArraysData%PhiL) - UB(1:2) = ubound(SrcCB_MatArraysData%PhiL) + LB(1:2) = lbound(SrcCB_MatArraysData%PhiL, kind=B8Ki) + UB(1:2) = ubound(SrcCB_MatArraysData%PhiL, kind=B8Ki) if (.not. allocated(DstCB_MatArraysData%PhiL)) then allocate(DstCB_MatArraysData%PhiL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -763,8 +763,8 @@ subroutine SD_CopyCB_MatArrays(SrcCB_MatArraysData, DstCB_MatArraysData, CtrlCod DstCB_MatArraysData%PhiL = SrcCB_MatArraysData%PhiL end if if (allocated(SrcCB_MatArraysData%PhiR)) then - LB(1:2) = lbound(SrcCB_MatArraysData%PhiR) - UB(1:2) = ubound(SrcCB_MatArraysData%PhiR) + LB(1:2) = lbound(SrcCB_MatArraysData%PhiR, kind=B8Ki) + UB(1:2) = ubound(SrcCB_MatArraysData%PhiR, kind=B8Ki) if (.not. allocated(DstCB_MatArraysData%PhiR)) then allocate(DstCB_MatArraysData%PhiR(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -775,8 +775,8 @@ subroutine SD_CopyCB_MatArrays(SrcCB_MatArraysData, DstCB_MatArraysData, CtrlCod DstCB_MatArraysData%PhiR = SrcCB_MatArraysData%PhiR end if if (allocated(SrcCB_MatArraysData%OmegaL)) then - LB(1:1) = lbound(SrcCB_MatArraysData%OmegaL) - UB(1:1) = ubound(SrcCB_MatArraysData%OmegaL) + LB(1:1) = lbound(SrcCB_MatArraysData%OmegaL, kind=B8Ki) + UB(1:1) = ubound(SrcCB_MatArraysData%OmegaL, kind=B8Ki) if (.not. allocated(DstCB_MatArraysData%OmegaL)) then allocate(DstCB_MatArraysData%OmegaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -822,32 +822,32 @@ subroutine SD_PackCB_MatArrays(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%MBB)) if (allocated(InData%MBB)) then - call RegPackBounds(Buf, 2, lbound(InData%MBB), ubound(InData%MBB)) + call RegPackBounds(Buf, 2, lbound(InData%MBB, kind=B8Ki), ubound(InData%MBB, kind=B8Ki)) call RegPack(Buf, InData%MBB) end if call RegPack(Buf, allocated(InData%MBM)) if (allocated(InData%MBM)) then - call RegPackBounds(Buf, 2, lbound(InData%MBM), ubound(InData%MBM)) + call RegPackBounds(Buf, 2, lbound(InData%MBM, kind=B8Ki), ubound(InData%MBM, kind=B8Ki)) call RegPack(Buf, InData%MBM) end if call RegPack(Buf, allocated(InData%KBB)) if (allocated(InData%KBB)) then - call RegPackBounds(Buf, 2, lbound(InData%KBB), ubound(InData%KBB)) + call RegPackBounds(Buf, 2, lbound(InData%KBB, kind=B8Ki), ubound(InData%KBB, kind=B8Ki)) call RegPack(Buf, InData%KBB) end if call RegPack(Buf, allocated(InData%PhiL)) if (allocated(InData%PhiL)) then - call RegPackBounds(Buf, 2, lbound(InData%PhiL), ubound(InData%PhiL)) + call RegPackBounds(Buf, 2, lbound(InData%PhiL, kind=B8Ki), ubound(InData%PhiL, kind=B8Ki)) call RegPack(Buf, InData%PhiL) end if call RegPack(Buf, allocated(InData%PhiR)) if (allocated(InData%PhiR)) then - call RegPackBounds(Buf, 2, lbound(InData%PhiR), ubound(InData%PhiR)) + call RegPackBounds(Buf, 2, lbound(InData%PhiR, kind=B8Ki), ubound(InData%PhiR, kind=B8Ki)) call RegPack(Buf, InData%PhiR) end if call RegPack(Buf, allocated(InData%OmegaL)) if (allocated(InData%OmegaL)) then - call RegPackBounds(Buf, 1, lbound(InData%OmegaL), ubound(InData%OmegaL)) + call RegPackBounds(Buf, 1, lbound(InData%OmegaL, kind=B8Ki), ubound(InData%OmegaL, kind=B8Ki)) call RegPack(Buf, InData%OmegaL) end if if (RegCheckErr(Buf, RoutineName)) return @@ -857,7 +857,7 @@ subroutine SD_UnPackCB_MatArrays(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(CB_MatArrays), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackCB_MatArrays' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1048,7 +1048,7 @@ subroutine SD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyInitInput' @@ -1061,8 +1061,8 @@ subroutine SD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%TP_RefPoint = SrcInitInputData%TP_RefPoint DstInitInputData%SubRotateZ = SrcInitInputData%SubRotateZ if (allocated(SrcInitInputData%SoilStiffness)) then - LB(1:3) = lbound(SrcInitInputData%SoilStiffness) - UB(1:3) = ubound(SrcInitInputData%SoilStiffness) + LB(1:3) = lbound(SrcInitInputData%SoilStiffness, kind=B8Ki) + UB(1:3) = ubound(SrcInitInputData%SoilStiffness, kind=B8Ki) if (.not. allocated(DstInitInputData%SoilStiffness)) then allocate(DstInitInputData%SoilStiffness(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1107,7 +1107,7 @@ subroutine SD_PackInitInput(Buf, Indata) call RegPack(Buf, InData%SubRotateZ) call RegPack(Buf, allocated(InData%SoilStiffness)) if (allocated(InData%SoilStiffness)) then - call RegPackBounds(Buf, 3, lbound(InData%SoilStiffness), ubound(InData%SoilStiffness)) + call RegPackBounds(Buf, 3, lbound(InData%SoilStiffness, kind=B8Ki), ubound(InData%SoilStiffness, kind=B8Ki)) call RegPack(Buf, InData%SoilStiffness) end if call MeshPack(Buf, InData%SoilMesh) @@ -1119,7 +1119,7 @@ subroutine SD_UnPackInitInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInitInput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1160,15 +1160,15 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1179,8 +1179,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1194,8 +1194,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1206,8 +1206,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_x)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_x) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1218,8 +1218,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_x = SrcInitOutputData%LinNames_x end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1230,8 +1230,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1242,8 +1242,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%RotFrame_x)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1254,8 +1254,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_x = SrcInitOutputData%RotFrame_x end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1266,8 +1266,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1278,8 +1278,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%IsLoad_u = SrcInitOutputData%IsLoad_u end if if (allocated(SrcInitOutputData%DerivOrder_x)) then - LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1290,8 +1290,8 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%DerivOrder_x = SrcInitOutputData%DerivOrder_x end if if (allocated(SrcInitOutputData%CableCChanRqst)) then - LB(1:1) = lbound(SrcInitOutputData%CableCChanRqst) - UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst) + LB(1:1) = lbound(SrcInitOutputData%CableCChanRqst, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst, kind=B8Ki) if (.not. allocated(DstInitOutputData%CableCChanRqst)) then allocate(DstInitOutputData%CableCChanRqst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1356,58 +1356,58 @@ subroutine SD_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) call RegPack(Buf, allocated(InData%LinNames_y)) if (allocated(InData%LinNames_y)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_y), ubound(InData%LinNames_y)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_y, kind=B8Ki), ubound(InData%LinNames_y, kind=B8Ki)) call RegPack(Buf, InData%LinNames_y) end if call RegPack(Buf, allocated(InData%LinNames_x)) if (allocated(InData%LinNames_x)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_x), ubound(InData%LinNames_x)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_x, kind=B8Ki), ubound(InData%LinNames_x, kind=B8Ki)) call RegPack(Buf, InData%LinNames_x) end if call RegPack(Buf, allocated(InData%LinNames_u)) if (allocated(InData%LinNames_u)) then - call RegPackBounds(Buf, 1, lbound(InData%LinNames_u), ubound(InData%LinNames_u)) + call RegPackBounds(Buf, 1, lbound(InData%LinNames_u, kind=B8Ki), ubound(InData%LinNames_u, kind=B8Ki)) call RegPack(Buf, InData%LinNames_u) end if call RegPack(Buf, allocated(InData%RotFrame_y)) if (allocated(InData%RotFrame_y)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y), ubound(InData%RotFrame_y)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_y, kind=B8Ki), ubound(InData%RotFrame_y, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_y) end if call RegPack(Buf, allocated(InData%RotFrame_x)) if (allocated(InData%RotFrame_x)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x), ubound(InData%RotFrame_x)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_x, kind=B8Ki), ubound(InData%RotFrame_x, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_x) end if call RegPack(Buf, allocated(InData%RotFrame_u)) if (allocated(InData%RotFrame_u)) then - call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u), ubound(InData%RotFrame_u)) + call RegPackBounds(Buf, 1, lbound(InData%RotFrame_u, kind=B8Ki), ubound(InData%RotFrame_u, kind=B8Ki)) call RegPack(Buf, InData%RotFrame_u) end if call RegPack(Buf, allocated(InData%IsLoad_u)) if (allocated(InData%IsLoad_u)) then - call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u), ubound(InData%IsLoad_u)) + call RegPackBounds(Buf, 1, lbound(InData%IsLoad_u, kind=B8Ki), ubound(InData%IsLoad_u, kind=B8Ki)) call RegPack(Buf, InData%IsLoad_u) end if call RegPack(Buf, allocated(InData%DerivOrder_x)) if (allocated(InData%DerivOrder_x)) then - call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x), ubound(InData%DerivOrder_x)) + call RegPackBounds(Buf, 1, lbound(InData%DerivOrder_x, kind=B8Ki), ubound(InData%DerivOrder_x, kind=B8Ki)) call RegPack(Buf, InData%DerivOrder_x) end if call RegPack(Buf, allocated(InData%CableCChanRqst)) if (allocated(InData%CableCChanRqst)) then - call RegPackBounds(Buf, 1, lbound(InData%CableCChanRqst), ubound(InData%CableCChanRqst)) + call RegPackBounds(Buf, 1, lbound(InData%CableCChanRqst, kind=B8Ki), ubound(InData%CableCChanRqst, kind=B8Ki)) call RegPack(Buf, InData%CableCChanRqst) end if if (RegCheckErr(Buf, RoutineName)) return @@ -1417,7 +1417,7 @@ subroutine SD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1584,7 +1584,7 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyInitType' ErrStat = ErrID_None @@ -1605,8 +1605,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%NDiv = SrcInitTypeData%NDiv DstInitTypeData%CBMod = SrcInitTypeData%CBMod if (allocated(SrcInitTypeData%Joints)) then - LB(1:2) = lbound(SrcInitTypeData%Joints) - UB(1:2) = ubound(SrcInitTypeData%Joints) + LB(1:2) = lbound(SrcInitTypeData%Joints, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%Joints, kind=B8Ki) if (.not. allocated(DstInitTypeData%Joints)) then allocate(DstInitTypeData%Joints(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1617,8 +1617,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%Joints = SrcInitTypeData%Joints end if if (allocated(SrcInitTypeData%PropSetsB)) then - LB(1:2) = lbound(SrcInitTypeData%PropSetsB) - UB(1:2) = ubound(SrcInitTypeData%PropSetsB) + LB(1:2) = lbound(SrcInitTypeData%PropSetsB, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropSetsB, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropSetsB)) then allocate(DstInitTypeData%PropSetsB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1629,8 +1629,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropSetsB = SrcInitTypeData%PropSetsB end if if (allocated(SrcInitTypeData%PropSetsC)) then - LB(1:2) = lbound(SrcInitTypeData%PropSetsC) - UB(1:2) = ubound(SrcInitTypeData%PropSetsC) + LB(1:2) = lbound(SrcInitTypeData%PropSetsC, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropSetsC, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropSetsC)) then allocate(DstInitTypeData%PropSetsC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1641,8 +1641,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropSetsC = SrcInitTypeData%PropSetsC end if if (allocated(SrcInitTypeData%PropSetsR)) then - LB(1:2) = lbound(SrcInitTypeData%PropSetsR) - UB(1:2) = ubound(SrcInitTypeData%PropSetsR) + LB(1:2) = lbound(SrcInitTypeData%PropSetsR, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropSetsR, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropSetsR)) then allocate(DstInitTypeData%PropSetsR(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1653,8 +1653,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropSetsR = SrcInitTypeData%PropSetsR end if if (allocated(SrcInitTypeData%PropSetsX)) then - LB(1:2) = lbound(SrcInitTypeData%PropSetsX) - UB(1:2) = ubound(SrcInitTypeData%PropSetsX) + LB(1:2) = lbound(SrcInitTypeData%PropSetsX, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropSetsX, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropSetsX)) then allocate(DstInitTypeData%PropSetsX(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1665,8 +1665,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropSetsX = SrcInitTypeData%PropSetsX end if if (allocated(SrcInitTypeData%COSMs)) then - LB(1:2) = lbound(SrcInitTypeData%COSMs) - UB(1:2) = ubound(SrcInitTypeData%COSMs) + LB(1:2) = lbound(SrcInitTypeData%COSMs, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%COSMs, kind=B8Ki) if (.not. allocated(DstInitTypeData%COSMs)) then allocate(DstInitTypeData%COSMs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1677,8 +1677,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%COSMs = SrcInitTypeData%COSMs end if if (allocated(SrcInitTypeData%CMass)) then - LB(1:2) = lbound(SrcInitTypeData%CMass) - UB(1:2) = ubound(SrcInitTypeData%CMass) + LB(1:2) = lbound(SrcInitTypeData%CMass, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%CMass, kind=B8Ki) if (.not. allocated(DstInitTypeData%CMass)) then allocate(DstInitTypeData%CMass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1689,8 +1689,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%CMass = SrcInitTypeData%CMass end if if (allocated(SrcInitTypeData%JDampings)) then - LB(1:1) = lbound(SrcInitTypeData%JDampings) - UB(1:1) = ubound(SrcInitTypeData%JDampings) + LB(1:1) = lbound(SrcInitTypeData%JDampings, kind=B8Ki) + UB(1:1) = ubound(SrcInitTypeData%JDampings, kind=B8Ki) if (.not. allocated(DstInitTypeData%JDampings)) then allocate(DstInitTypeData%JDampings(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1704,8 +1704,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%RayleighDamp = SrcInitTypeData%RayleighDamp DstInitTypeData%GuyanDampMat = SrcInitTypeData%GuyanDampMat if (allocated(SrcInitTypeData%Members)) then - LB(1:2) = lbound(SrcInitTypeData%Members) - UB(1:2) = ubound(SrcInitTypeData%Members) + LB(1:2) = lbound(SrcInitTypeData%Members, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%Members, kind=B8Ki) if (.not. allocated(DstInitTypeData%Members)) then allocate(DstInitTypeData%Members(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1716,8 +1716,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%Members = SrcInitTypeData%Members end if if (allocated(SrcInitTypeData%SSOutList)) then - LB(1:1) = lbound(SrcInitTypeData%SSOutList) - UB(1:1) = ubound(SrcInitTypeData%SSOutList) + LB(1:1) = lbound(SrcInitTypeData%SSOutList, kind=B8Ki) + UB(1:1) = ubound(SrcInitTypeData%SSOutList, kind=B8Ki) if (.not. allocated(DstInitTypeData%SSOutList)) then allocate(DstInitTypeData%SSOutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1730,8 +1730,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%OutCOSM = SrcInitTypeData%OutCOSM DstInitTypeData%TabDelim = SrcInitTypeData%TabDelim if (allocated(SrcInitTypeData%SSIK)) then - LB(1:2) = lbound(SrcInitTypeData%SSIK) - UB(1:2) = ubound(SrcInitTypeData%SSIK) + LB(1:2) = lbound(SrcInitTypeData%SSIK, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%SSIK, kind=B8Ki) if (.not. allocated(DstInitTypeData%SSIK)) then allocate(DstInitTypeData%SSIK(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1742,8 +1742,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%SSIK = SrcInitTypeData%SSIK end if if (allocated(SrcInitTypeData%SSIM)) then - LB(1:2) = lbound(SrcInitTypeData%SSIM) - UB(1:2) = ubound(SrcInitTypeData%SSIM) + LB(1:2) = lbound(SrcInitTypeData%SSIM, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%SSIM, kind=B8Ki) if (.not. allocated(DstInitTypeData%SSIM)) then allocate(DstInitTypeData%SSIM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1754,8 +1754,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%SSIM = SrcInitTypeData%SSIM end if if (allocated(SrcInitTypeData%SSIfile)) then - LB(1:1) = lbound(SrcInitTypeData%SSIfile) - UB(1:1) = ubound(SrcInitTypeData%SSIfile) + LB(1:1) = lbound(SrcInitTypeData%SSIfile, kind=B8Ki) + UB(1:1) = ubound(SrcInitTypeData%SSIfile, kind=B8Ki) if (.not. allocated(DstInitTypeData%SSIfile)) then allocate(DstInitTypeData%SSIfile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1766,8 +1766,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%SSIfile = SrcInitTypeData%SSIfile end if if (allocated(SrcInitTypeData%Soil_K)) then - LB(1:3) = lbound(SrcInitTypeData%Soil_K) - UB(1:3) = ubound(SrcInitTypeData%Soil_K) + LB(1:3) = lbound(SrcInitTypeData%Soil_K, kind=B8Ki) + UB(1:3) = ubound(SrcInitTypeData%Soil_K, kind=B8Ki) if (.not. allocated(DstInitTypeData%Soil_K)) then allocate(DstInitTypeData%Soil_K(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1778,8 +1778,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%Soil_K = SrcInitTypeData%Soil_K end if if (allocated(SrcInitTypeData%Soil_Points)) then - LB(1:2) = lbound(SrcInitTypeData%Soil_Points) - UB(1:2) = ubound(SrcInitTypeData%Soil_Points) + LB(1:2) = lbound(SrcInitTypeData%Soil_Points, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%Soil_Points, kind=B8Ki) if (.not. allocated(DstInitTypeData%Soil_Points)) then allocate(DstInitTypeData%Soil_Points(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1790,8 +1790,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%Soil_Points = SrcInitTypeData%Soil_Points end if if (allocated(SrcInitTypeData%Soil_Nodes)) then - LB(1:1) = lbound(SrcInitTypeData%Soil_Nodes) - UB(1:1) = ubound(SrcInitTypeData%Soil_Nodes) + LB(1:1) = lbound(SrcInitTypeData%Soil_Nodes, kind=B8Ki) + UB(1:1) = ubound(SrcInitTypeData%Soil_Nodes, kind=B8Ki) if (.not. allocated(DstInitTypeData%Soil_Nodes)) then allocate(DstInitTypeData%Soil_Nodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1806,8 +1806,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%NPropC = SrcInitTypeData%NPropC DstInitTypeData%NPropR = SrcInitTypeData%NPropR if (allocated(SrcInitTypeData%Nodes)) then - LB(1:2) = lbound(SrcInitTypeData%Nodes) - UB(1:2) = ubound(SrcInitTypeData%Nodes) + LB(1:2) = lbound(SrcInitTypeData%Nodes, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%Nodes, kind=B8Ki) if (.not. allocated(DstInitTypeData%Nodes)) then allocate(DstInitTypeData%Nodes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1818,8 +1818,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%Nodes = SrcInitTypeData%Nodes end if if (allocated(SrcInitTypeData%PropsB)) then - LB(1:2) = lbound(SrcInitTypeData%PropsB) - UB(1:2) = ubound(SrcInitTypeData%PropsB) + LB(1:2) = lbound(SrcInitTypeData%PropsB, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropsB, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropsB)) then allocate(DstInitTypeData%PropsB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1830,8 +1830,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropsB = SrcInitTypeData%PropsB end if if (allocated(SrcInitTypeData%PropsC)) then - LB(1:2) = lbound(SrcInitTypeData%PropsC) - UB(1:2) = ubound(SrcInitTypeData%PropsC) + LB(1:2) = lbound(SrcInitTypeData%PropsC, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropsC, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropsC)) then allocate(DstInitTypeData%PropsC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1842,8 +1842,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropsC = SrcInitTypeData%PropsC end if if (allocated(SrcInitTypeData%PropsR)) then - LB(1:2) = lbound(SrcInitTypeData%PropsR) - UB(1:2) = ubound(SrcInitTypeData%PropsR) + LB(1:2) = lbound(SrcInitTypeData%PropsR, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%PropsR, kind=B8Ki) if (.not. allocated(DstInitTypeData%PropsR)) then allocate(DstInitTypeData%PropsR(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1854,8 +1854,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropsR = SrcInitTypeData%PropsR end if if (allocated(SrcInitTypeData%K)) then - LB(1:2) = lbound(SrcInitTypeData%K) - UB(1:2) = ubound(SrcInitTypeData%K) + LB(1:2) = lbound(SrcInitTypeData%K, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%K, kind=B8Ki) if (.not. allocated(DstInitTypeData%K)) then allocate(DstInitTypeData%K(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1866,8 +1866,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%K = SrcInitTypeData%K end if if (allocated(SrcInitTypeData%M)) then - LB(1:2) = lbound(SrcInitTypeData%M) - UB(1:2) = ubound(SrcInitTypeData%M) + LB(1:2) = lbound(SrcInitTypeData%M, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%M, kind=B8Ki) if (.not. allocated(DstInitTypeData%M)) then allocate(DstInitTypeData%M(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1878,8 +1878,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%M = SrcInitTypeData%M end if if (allocated(SrcInitTypeData%ElemProps)) then - LB(1:2) = lbound(SrcInitTypeData%ElemProps) - UB(1:2) = ubound(SrcInitTypeData%ElemProps) + LB(1:2) = lbound(SrcInitTypeData%ElemProps, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%ElemProps, kind=B8Ki) if (.not. allocated(DstInitTypeData%ElemProps)) then allocate(DstInitTypeData%ElemProps(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1890,8 +1890,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%ElemProps = SrcInitTypeData%ElemProps end if if (allocated(SrcInitTypeData%MemberNodes)) then - LB(1:2) = lbound(SrcInitTypeData%MemberNodes) - UB(1:2) = ubound(SrcInitTypeData%MemberNodes) + LB(1:2) = lbound(SrcInitTypeData%MemberNodes, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%MemberNodes, kind=B8Ki) if (.not. allocated(DstInitTypeData%MemberNodes)) then allocate(DstInitTypeData%MemberNodes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1902,8 +1902,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%MemberNodes = SrcInitTypeData%MemberNodes end if if (allocated(SrcInitTypeData%NodesConnN)) then - LB(1:2) = lbound(SrcInitTypeData%NodesConnN) - UB(1:2) = ubound(SrcInitTypeData%NodesConnN) + LB(1:2) = lbound(SrcInitTypeData%NodesConnN, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%NodesConnN, kind=B8Ki) if (.not. allocated(DstInitTypeData%NodesConnN)) then allocate(DstInitTypeData%NodesConnN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1914,8 +1914,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%NodesConnN = SrcInitTypeData%NodesConnN end if if (allocated(SrcInitTypeData%NodesConnE)) then - LB(1:2) = lbound(SrcInitTypeData%NodesConnE) - UB(1:2) = ubound(SrcInitTypeData%NodesConnE) + LB(1:2) = lbound(SrcInitTypeData%NodesConnE, kind=B8Ki) + UB(1:2) = ubound(SrcInitTypeData%NodesConnE, kind=B8Ki) if (.not. allocated(DstInitTypeData%NodesConnE)) then allocate(DstInitTypeData%NodesConnE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2037,42 +2037,42 @@ subroutine SD_PackInitType(Buf, Indata) call RegPack(Buf, InData%CBMod) call RegPack(Buf, allocated(InData%Joints)) if (allocated(InData%Joints)) then - call RegPackBounds(Buf, 2, lbound(InData%Joints), ubound(InData%Joints)) + call RegPackBounds(Buf, 2, lbound(InData%Joints, kind=B8Ki), ubound(InData%Joints, kind=B8Ki)) call RegPack(Buf, InData%Joints) end if call RegPack(Buf, allocated(InData%PropSetsB)) if (allocated(InData%PropSetsB)) then - call RegPackBounds(Buf, 2, lbound(InData%PropSetsB), ubound(InData%PropSetsB)) + call RegPackBounds(Buf, 2, lbound(InData%PropSetsB, kind=B8Ki), ubound(InData%PropSetsB, kind=B8Ki)) call RegPack(Buf, InData%PropSetsB) end if call RegPack(Buf, allocated(InData%PropSetsC)) if (allocated(InData%PropSetsC)) then - call RegPackBounds(Buf, 2, lbound(InData%PropSetsC), ubound(InData%PropSetsC)) + call RegPackBounds(Buf, 2, lbound(InData%PropSetsC, kind=B8Ki), ubound(InData%PropSetsC, kind=B8Ki)) call RegPack(Buf, InData%PropSetsC) end if call RegPack(Buf, allocated(InData%PropSetsR)) if (allocated(InData%PropSetsR)) then - call RegPackBounds(Buf, 2, lbound(InData%PropSetsR), ubound(InData%PropSetsR)) + call RegPackBounds(Buf, 2, lbound(InData%PropSetsR, kind=B8Ki), ubound(InData%PropSetsR, kind=B8Ki)) call RegPack(Buf, InData%PropSetsR) end if call RegPack(Buf, allocated(InData%PropSetsX)) if (allocated(InData%PropSetsX)) then - call RegPackBounds(Buf, 2, lbound(InData%PropSetsX), ubound(InData%PropSetsX)) + call RegPackBounds(Buf, 2, lbound(InData%PropSetsX, kind=B8Ki), ubound(InData%PropSetsX, kind=B8Ki)) call RegPack(Buf, InData%PropSetsX) end if call RegPack(Buf, allocated(InData%COSMs)) if (allocated(InData%COSMs)) then - call RegPackBounds(Buf, 2, lbound(InData%COSMs), ubound(InData%COSMs)) + call RegPackBounds(Buf, 2, lbound(InData%COSMs, kind=B8Ki), ubound(InData%COSMs, kind=B8Ki)) call RegPack(Buf, InData%COSMs) end if call RegPack(Buf, allocated(InData%CMass)) if (allocated(InData%CMass)) then - call RegPackBounds(Buf, 2, lbound(InData%CMass), ubound(InData%CMass)) + call RegPackBounds(Buf, 2, lbound(InData%CMass, kind=B8Ki), ubound(InData%CMass, kind=B8Ki)) call RegPack(Buf, InData%CMass) end if call RegPack(Buf, allocated(InData%JDampings)) if (allocated(InData%JDampings)) then - call RegPackBounds(Buf, 1, lbound(InData%JDampings), ubound(InData%JDampings)) + call RegPackBounds(Buf, 1, lbound(InData%JDampings, kind=B8Ki), ubound(InData%JDampings, kind=B8Ki)) call RegPack(Buf, InData%JDampings) end if call RegPack(Buf, InData%GuyanDampMod) @@ -2080,44 +2080,44 @@ subroutine SD_PackInitType(Buf, Indata) call RegPack(Buf, InData%GuyanDampMat) call RegPack(Buf, allocated(InData%Members)) if (allocated(InData%Members)) then - call RegPackBounds(Buf, 2, lbound(InData%Members), ubound(InData%Members)) + call RegPackBounds(Buf, 2, lbound(InData%Members, kind=B8Ki), ubound(InData%Members, kind=B8Ki)) call RegPack(Buf, InData%Members) end if call RegPack(Buf, allocated(InData%SSOutList)) if (allocated(InData%SSOutList)) then - call RegPackBounds(Buf, 1, lbound(InData%SSOutList), ubound(InData%SSOutList)) + call RegPackBounds(Buf, 1, lbound(InData%SSOutList, kind=B8Ki), ubound(InData%SSOutList, kind=B8Ki)) call RegPack(Buf, InData%SSOutList) end if call RegPack(Buf, InData%OutCOSM) call RegPack(Buf, InData%TabDelim) call RegPack(Buf, allocated(InData%SSIK)) if (allocated(InData%SSIK)) then - call RegPackBounds(Buf, 2, lbound(InData%SSIK), ubound(InData%SSIK)) + call RegPackBounds(Buf, 2, lbound(InData%SSIK, kind=B8Ki), ubound(InData%SSIK, kind=B8Ki)) call RegPack(Buf, InData%SSIK) end if call RegPack(Buf, allocated(InData%SSIM)) if (allocated(InData%SSIM)) then - call RegPackBounds(Buf, 2, lbound(InData%SSIM), ubound(InData%SSIM)) + call RegPackBounds(Buf, 2, lbound(InData%SSIM, kind=B8Ki), ubound(InData%SSIM, kind=B8Ki)) call RegPack(Buf, InData%SSIM) end if call RegPack(Buf, allocated(InData%SSIfile)) if (allocated(InData%SSIfile)) then - call RegPackBounds(Buf, 1, lbound(InData%SSIfile), ubound(InData%SSIfile)) + call RegPackBounds(Buf, 1, lbound(InData%SSIfile, kind=B8Ki), ubound(InData%SSIfile, kind=B8Ki)) call RegPack(Buf, InData%SSIfile) end if call RegPack(Buf, allocated(InData%Soil_K)) if (allocated(InData%Soil_K)) then - call RegPackBounds(Buf, 3, lbound(InData%Soil_K), ubound(InData%Soil_K)) + call RegPackBounds(Buf, 3, lbound(InData%Soil_K, kind=B8Ki), ubound(InData%Soil_K, kind=B8Ki)) call RegPack(Buf, InData%Soil_K) end if call RegPack(Buf, allocated(InData%Soil_Points)) if (allocated(InData%Soil_Points)) then - call RegPackBounds(Buf, 2, lbound(InData%Soil_Points), ubound(InData%Soil_Points)) + call RegPackBounds(Buf, 2, lbound(InData%Soil_Points, kind=B8Ki), ubound(InData%Soil_Points, kind=B8Ki)) call RegPack(Buf, InData%Soil_Points) end if call RegPack(Buf, allocated(InData%Soil_Nodes)) if (allocated(InData%Soil_Nodes)) then - call RegPackBounds(Buf, 1, lbound(InData%Soil_Nodes), ubound(InData%Soil_Nodes)) + call RegPackBounds(Buf, 1, lbound(InData%Soil_Nodes, kind=B8Ki), ubound(InData%Soil_Nodes, kind=B8Ki)) call RegPack(Buf, InData%Soil_Nodes) end if call RegPack(Buf, InData%NElem) @@ -2126,52 +2126,52 @@ subroutine SD_PackInitType(Buf, Indata) call RegPack(Buf, InData%NPropR) call RegPack(Buf, allocated(InData%Nodes)) if (allocated(InData%Nodes)) then - call RegPackBounds(Buf, 2, lbound(InData%Nodes), ubound(InData%Nodes)) + call RegPackBounds(Buf, 2, lbound(InData%Nodes, kind=B8Ki), ubound(InData%Nodes, kind=B8Ki)) call RegPack(Buf, InData%Nodes) end if call RegPack(Buf, allocated(InData%PropsB)) if (allocated(InData%PropsB)) then - call RegPackBounds(Buf, 2, lbound(InData%PropsB), ubound(InData%PropsB)) + call RegPackBounds(Buf, 2, lbound(InData%PropsB, kind=B8Ki), ubound(InData%PropsB, kind=B8Ki)) call RegPack(Buf, InData%PropsB) end if call RegPack(Buf, allocated(InData%PropsC)) if (allocated(InData%PropsC)) then - call RegPackBounds(Buf, 2, lbound(InData%PropsC), ubound(InData%PropsC)) + call RegPackBounds(Buf, 2, lbound(InData%PropsC, kind=B8Ki), ubound(InData%PropsC, kind=B8Ki)) call RegPack(Buf, InData%PropsC) end if call RegPack(Buf, allocated(InData%PropsR)) if (allocated(InData%PropsR)) then - call RegPackBounds(Buf, 2, lbound(InData%PropsR), ubound(InData%PropsR)) + call RegPackBounds(Buf, 2, lbound(InData%PropsR, kind=B8Ki), ubound(InData%PropsR, kind=B8Ki)) call RegPack(Buf, InData%PropsR) end if call RegPack(Buf, allocated(InData%K)) if (allocated(InData%K)) then - call RegPackBounds(Buf, 2, lbound(InData%K), ubound(InData%K)) + call RegPackBounds(Buf, 2, lbound(InData%K, kind=B8Ki), ubound(InData%K, kind=B8Ki)) call RegPack(Buf, InData%K) end if call RegPack(Buf, allocated(InData%M)) if (allocated(InData%M)) then - call RegPackBounds(Buf, 2, lbound(InData%M), ubound(InData%M)) + call RegPackBounds(Buf, 2, lbound(InData%M, kind=B8Ki), ubound(InData%M, kind=B8Ki)) call RegPack(Buf, InData%M) end if call RegPack(Buf, allocated(InData%ElemProps)) if (allocated(InData%ElemProps)) then - call RegPackBounds(Buf, 2, lbound(InData%ElemProps), ubound(InData%ElemProps)) + call RegPackBounds(Buf, 2, lbound(InData%ElemProps, kind=B8Ki), ubound(InData%ElemProps, kind=B8Ki)) call RegPack(Buf, InData%ElemProps) end if call RegPack(Buf, allocated(InData%MemberNodes)) if (allocated(InData%MemberNodes)) then - call RegPackBounds(Buf, 2, lbound(InData%MemberNodes), ubound(InData%MemberNodes)) + call RegPackBounds(Buf, 2, lbound(InData%MemberNodes, kind=B8Ki), ubound(InData%MemberNodes, kind=B8Ki)) call RegPack(Buf, InData%MemberNodes) end if call RegPack(Buf, allocated(InData%NodesConnN)) if (allocated(InData%NodesConnN)) then - call RegPackBounds(Buf, 2, lbound(InData%NodesConnN), ubound(InData%NodesConnN)) + call RegPackBounds(Buf, 2, lbound(InData%NodesConnN, kind=B8Ki), ubound(InData%NodesConnN, kind=B8Ki)) call RegPack(Buf, InData%NodesConnN) end if call RegPack(Buf, allocated(InData%NodesConnE)) if (allocated(InData%NodesConnE)) then - call RegPackBounds(Buf, 2, lbound(InData%NodesConnE), ubound(InData%NodesConnE)) + call RegPackBounds(Buf, 2, lbound(InData%NodesConnE, kind=B8Ki), ubound(InData%NodesConnE, kind=B8Ki)) call RegPack(Buf, InData%NodesConnE) end if call RegPack(Buf, InData%SSSum) @@ -2182,7 +2182,7 @@ subroutine SD_UnPackInitType(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_InitType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInitType' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2608,14 +2608,14 @@ subroutine SD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%qm)) then - LB(1:1) = lbound(SrcContStateData%qm) - UB(1:1) = ubound(SrcContStateData%qm) + LB(1:1) = lbound(SrcContStateData%qm, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%qm, kind=B8Ki) if (.not. allocated(DstContStateData%qm)) then allocate(DstContStateData%qm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2626,8 +2626,8 @@ subroutine SD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta DstContStateData%qm = SrcContStateData%qm end if if (allocated(SrcContStateData%qmdot)) then - LB(1:1) = lbound(SrcContStateData%qmdot) - UB(1:1) = ubound(SrcContStateData%qmdot) + LB(1:1) = lbound(SrcContStateData%qmdot, kind=B8Ki) + UB(1:1) = ubound(SrcContStateData%qmdot, kind=B8Ki) if (.not. allocated(DstContStateData%qmdot)) then allocate(DstContStateData%qmdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2661,12 +2661,12 @@ subroutine SD_PackContState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%qm)) if (allocated(InData%qm)) then - call RegPackBounds(Buf, 1, lbound(InData%qm), ubound(InData%qm)) + call RegPackBounds(Buf, 1, lbound(InData%qm, kind=B8Ki), ubound(InData%qm, kind=B8Ki)) call RegPack(Buf, InData%qm) end if call RegPack(Buf, allocated(InData%qmdot)) if (allocated(InData%qmdot)) then - call RegPackBounds(Buf, 1, lbound(InData%qmdot), ubound(InData%qmdot)) + call RegPackBounds(Buf, 1, lbound(InData%qmdot, kind=B8Ki), ubound(InData%qmdot, kind=B8Ki)) call RegPack(Buf, InData%qmdot) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2676,7 +2676,7 @@ subroutine SD_UnPackContState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackContState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2794,16 +2794,16 @@ subroutine SD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%xdot)) then - LB(1:1) = lbound(SrcOtherStateData%xdot) - UB(1:1) = ubound(SrcOtherStateData%xdot) + LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2824,16 +2824,16 @@ subroutine SD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%xdot)) then - LB(1:1) = lbound(OtherStateData%xdot) - UB(1:1) = ubound(OtherStateData%xdot) + LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) + UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2846,14 +2846,14 @@ subroutine SD_PackOtherState(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SD_PackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(Buf, 1, lbound(InData%xdot), ubound(InData%xdot)) - LB(1:1) = lbound(InData%xdot) - UB(1:1) = ubound(InData%xdot) + call RegPackBounds(Buf, 1, lbound(InData%xdot, kind=B8Ki), ubound(InData%xdot, kind=B8Ki)) + LB(1:1) = lbound(InData%xdot, kind=B8Ki) + UB(1:1) = ubound(InData%xdot, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackContState(Buf, InData%xdot(i1)) end do @@ -2866,8 +2866,8 @@ subroutine SD_UnPackOtherState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackOtherState' - integer(IntKi) :: i1 - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: i1 + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2896,14 +2896,14 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%qmdotdot)) then - LB(1:1) = lbound(SrcMiscData%qmdotdot) - UB(1:1) = ubound(SrcMiscData%qmdotdot) + LB(1:1) = lbound(SrcMiscData%qmdotdot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%qmdotdot, kind=B8Ki) if (.not. allocated(DstMiscData%qmdotdot)) then allocate(DstMiscData%qmdotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2917,8 +2917,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%udot_TP = SrcMiscData%udot_TP DstMiscData%udotdot_TP = SrcMiscData%udotdot_TP if (allocated(SrcMiscData%F_L)) then - LB(1:1) = lbound(SrcMiscData%F_L) - UB(1:1) = ubound(SrcMiscData%F_L) + LB(1:1) = lbound(SrcMiscData%F_L, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_L, kind=B8Ki) if (.not. allocated(DstMiscData%F_L)) then allocate(DstMiscData%F_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2929,8 +2929,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_L = SrcMiscData%F_L end if if (allocated(SrcMiscData%F_L2)) then - LB(1:1) = lbound(SrcMiscData%F_L2) - UB(1:1) = ubound(SrcMiscData%F_L2) + LB(1:1) = lbound(SrcMiscData%F_L2, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%F_L2, kind=B8Ki) if (.not. allocated(DstMiscData%F_L2)) then allocate(DstMiscData%F_L2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2941,8 +2941,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%F_L2 = SrcMiscData%F_L2 end if if (allocated(SrcMiscData%UR_bar)) then - LB(1:1) = lbound(SrcMiscData%UR_bar) - UB(1:1) = ubound(SrcMiscData%UR_bar) + LB(1:1) = lbound(SrcMiscData%UR_bar, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UR_bar, kind=B8Ki) if (.not. allocated(DstMiscData%UR_bar)) then allocate(DstMiscData%UR_bar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2953,8 +2953,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UR_bar = SrcMiscData%UR_bar end if if (allocated(SrcMiscData%UR_bar_dot)) then - LB(1:1) = lbound(SrcMiscData%UR_bar_dot) - UB(1:1) = ubound(SrcMiscData%UR_bar_dot) + LB(1:1) = lbound(SrcMiscData%UR_bar_dot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UR_bar_dot, kind=B8Ki) if (.not. allocated(DstMiscData%UR_bar_dot)) then allocate(DstMiscData%UR_bar_dot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2965,8 +2965,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UR_bar_dot = SrcMiscData%UR_bar_dot end if if (allocated(SrcMiscData%UR_bar_dotdot)) then - LB(1:1) = lbound(SrcMiscData%UR_bar_dotdot) - UB(1:1) = ubound(SrcMiscData%UR_bar_dotdot) + LB(1:1) = lbound(SrcMiscData%UR_bar_dotdot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UR_bar_dotdot, kind=B8Ki) if (.not. allocated(DstMiscData%UR_bar_dotdot)) then allocate(DstMiscData%UR_bar_dotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2977,8 +2977,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UR_bar_dotdot = SrcMiscData%UR_bar_dotdot end if if (allocated(SrcMiscData%UL)) then - LB(1:1) = lbound(SrcMiscData%UL) - UB(1:1) = ubound(SrcMiscData%UL) + LB(1:1) = lbound(SrcMiscData%UL, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UL, kind=B8Ki) if (.not. allocated(DstMiscData%UL)) then allocate(DstMiscData%UL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2989,8 +2989,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UL = SrcMiscData%UL end if if (allocated(SrcMiscData%UL_NS)) then - LB(1:1) = lbound(SrcMiscData%UL_NS) - UB(1:1) = ubound(SrcMiscData%UL_NS) + LB(1:1) = lbound(SrcMiscData%UL_NS, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UL_NS, kind=B8Ki) if (.not. allocated(DstMiscData%UL_NS)) then allocate(DstMiscData%UL_NS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3001,8 +3001,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UL_NS = SrcMiscData%UL_NS end if if (allocated(SrcMiscData%UL_dot)) then - LB(1:1) = lbound(SrcMiscData%UL_dot) - UB(1:1) = ubound(SrcMiscData%UL_dot) + LB(1:1) = lbound(SrcMiscData%UL_dot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UL_dot, kind=B8Ki) if (.not. allocated(DstMiscData%UL_dot)) then allocate(DstMiscData%UL_dot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3013,8 +3013,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UL_dot = SrcMiscData%UL_dot end if if (allocated(SrcMiscData%UL_dotdot)) then - LB(1:1) = lbound(SrcMiscData%UL_dotdot) - UB(1:1) = ubound(SrcMiscData%UL_dotdot) + LB(1:1) = lbound(SrcMiscData%UL_dotdot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UL_dotdot, kind=B8Ki) if (.not. allocated(DstMiscData%UL_dotdot)) then allocate(DstMiscData%UL_dotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3025,8 +3025,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UL_dotdot = SrcMiscData%UL_dotdot end if if (allocated(SrcMiscData%DU_full)) then - LB(1:1) = lbound(SrcMiscData%DU_full) - UB(1:1) = ubound(SrcMiscData%DU_full) + LB(1:1) = lbound(SrcMiscData%DU_full, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%DU_full, kind=B8Ki) if (.not. allocated(DstMiscData%DU_full)) then allocate(DstMiscData%DU_full(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3037,8 +3037,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DU_full = SrcMiscData%DU_full end if if (allocated(SrcMiscData%U_full)) then - LB(1:1) = lbound(SrcMiscData%U_full) - UB(1:1) = ubound(SrcMiscData%U_full) + LB(1:1) = lbound(SrcMiscData%U_full, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%U_full, kind=B8Ki) if (.not. allocated(DstMiscData%U_full)) then allocate(DstMiscData%U_full(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3049,8 +3049,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_full = SrcMiscData%U_full end if if (allocated(SrcMiscData%U_full_NS)) then - LB(1:1) = lbound(SrcMiscData%U_full_NS) - UB(1:1) = ubound(SrcMiscData%U_full_NS) + LB(1:1) = lbound(SrcMiscData%U_full_NS, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%U_full_NS, kind=B8Ki) if (.not. allocated(DstMiscData%U_full_NS)) then allocate(DstMiscData%U_full_NS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3061,8 +3061,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_full_NS = SrcMiscData%U_full_NS end if if (allocated(SrcMiscData%U_full_dot)) then - LB(1:1) = lbound(SrcMiscData%U_full_dot) - UB(1:1) = ubound(SrcMiscData%U_full_dot) + LB(1:1) = lbound(SrcMiscData%U_full_dot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%U_full_dot, kind=B8Ki) if (.not. allocated(DstMiscData%U_full_dot)) then allocate(DstMiscData%U_full_dot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3073,8 +3073,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_full_dot = SrcMiscData%U_full_dot end if if (allocated(SrcMiscData%U_full_dotdot)) then - LB(1:1) = lbound(SrcMiscData%U_full_dotdot) - UB(1:1) = ubound(SrcMiscData%U_full_dotdot) + LB(1:1) = lbound(SrcMiscData%U_full_dotdot, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%U_full_dotdot, kind=B8Ki) if (.not. allocated(DstMiscData%U_full_dotdot)) then allocate(DstMiscData%U_full_dotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3085,8 +3085,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_full_dotdot = SrcMiscData%U_full_dotdot end if if (allocated(SrcMiscData%U_full_elast)) then - LB(1:1) = lbound(SrcMiscData%U_full_elast) - UB(1:1) = ubound(SrcMiscData%U_full_elast) + LB(1:1) = lbound(SrcMiscData%U_full_elast, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%U_full_elast, kind=B8Ki) if (.not. allocated(DstMiscData%U_full_elast)) then allocate(DstMiscData%U_full_elast(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3097,8 +3097,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_full_elast = SrcMiscData%U_full_elast end if if (allocated(SrcMiscData%U_red)) then - LB(1:1) = lbound(SrcMiscData%U_red) - UB(1:1) = ubound(SrcMiscData%U_red) + LB(1:1) = lbound(SrcMiscData%U_red, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%U_red, kind=B8Ki) if (.not. allocated(DstMiscData%U_red)) then allocate(DstMiscData%U_red(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3109,8 +3109,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%U_red = SrcMiscData%U_red end if if (allocated(SrcMiscData%FC_unit)) then - LB(1:1) = lbound(SrcMiscData%FC_unit) - UB(1:1) = ubound(SrcMiscData%FC_unit) + LB(1:1) = lbound(SrcMiscData%FC_unit, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%FC_unit, kind=B8Ki) if (.not. allocated(DstMiscData%FC_unit)) then allocate(DstMiscData%FC_unit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3121,8 +3121,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FC_unit = SrcMiscData%FC_unit end if if (allocated(SrcMiscData%SDWrOutput)) then - LB(1:1) = lbound(SrcMiscData%SDWrOutput) - UB(1:1) = ubound(SrcMiscData%SDWrOutput) + LB(1:1) = lbound(SrcMiscData%SDWrOutput, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%SDWrOutput, kind=B8Ki) if (.not. allocated(DstMiscData%SDWrOutput)) then allocate(DstMiscData%SDWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3133,8 +3133,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%SDWrOutput = SrcMiscData%SDWrOutput end if if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts) - UB(1:1) = ubound(SrcMiscData%AllOuts) + LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3147,8 +3147,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%LastOutTime = SrcMiscData%LastOutTime DstMiscData%Decimat = SrcMiscData%Decimat if (allocated(SrcMiscData%Fext)) then - LB(1:1) = lbound(SrcMiscData%Fext) - UB(1:1) = ubound(SrcMiscData%Fext) + LB(1:1) = lbound(SrcMiscData%Fext, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Fext, kind=B8Ki) if (.not. allocated(DstMiscData%Fext)) then allocate(DstMiscData%Fext(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3159,8 +3159,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Fext = SrcMiscData%Fext end if if (allocated(SrcMiscData%Fext_red)) then - LB(1:1) = lbound(SrcMiscData%Fext_red) - UB(1:1) = ubound(SrcMiscData%Fext_red) + LB(1:1) = lbound(SrcMiscData%Fext_red, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Fext_red, kind=B8Ki) if (.not. allocated(DstMiscData%Fext_red)) then allocate(DstMiscData%Fext_red(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3171,8 +3171,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Fext_red = SrcMiscData%Fext_red end if if (allocated(SrcMiscData%UL_SIM)) then - LB(1:1) = lbound(SrcMiscData%UL_SIM) - UB(1:1) = ubound(SrcMiscData%UL_SIM) + LB(1:1) = lbound(SrcMiscData%UL_SIM, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UL_SIM, kind=B8Ki) if (.not. allocated(DstMiscData%UL_SIM)) then allocate(DstMiscData%UL_SIM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3183,8 +3183,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%UL_SIM = SrcMiscData%UL_SIM end if if (allocated(SrcMiscData%UL_0m)) then - LB(1:1) = lbound(SrcMiscData%UL_0m) - UB(1:1) = ubound(SrcMiscData%UL_0m) + LB(1:1) = lbound(SrcMiscData%UL_0m, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%UL_0m, kind=B8Ki) if (.not. allocated(DstMiscData%UL_0m)) then allocate(DstMiscData%UL_0m(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3284,7 +3284,7 @@ subroutine SD_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%qmdotdot)) if (allocated(InData%qmdotdot)) then - call RegPackBounds(Buf, 1, lbound(InData%qmdotdot), ubound(InData%qmdotdot)) + call RegPackBounds(Buf, 1, lbound(InData%qmdotdot, kind=B8Ki), ubound(InData%qmdotdot, kind=B8Ki)) call RegPack(Buf, InData%qmdotdot) end if call RegPack(Buf, InData%u_TP) @@ -3292,119 +3292,119 @@ subroutine SD_PackMisc(Buf, Indata) call RegPack(Buf, InData%udotdot_TP) call RegPack(Buf, allocated(InData%F_L)) if (allocated(InData%F_L)) then - call RegPackBounds(Buf, 1, lbound(InData%F_L), ubound(InData%F_L)) + call RegPackBounds(Buf, 1, lbound(InData%F_L, kind=B8Ki), ubound(InData%F_L, kind=B8Ki)) call RegPack(Buf, InData%F_L) end if call RegPack(Buf, allocated(InData%F_L2)) if (allocated(InData%F_L2)) then - call RegPackBounds(Buf, 1, lbound(InData%F_L2), ubound(InData%F_L2)) + call RegPackBounds(Buf, 1, lbound(InData%F_L2, kind=B8Ki), ubound(InData%F_L2, kind=B8Ki)) call RegPack(Buf, InData%F_L2) end if call RegPack(Buf, allocated(InData%UR_bar)) if (allocated(InData%UR_bar)) then - call RegPackBounds(Buf, 1, lbound(InData%UR_bar), ubound(InData%UR_bar)) + call RegPackBounds(Buf, 1, lbound(InData%UR_bar, kind=B8Ki), ubound(InData%UR_bar, kind=B8Ki)) call RegPack(Buf, InData%UR_bar) end if call RegPack(Buf, allocated(InData%UR_bar_dot)) if (allocated(InData%UR_bar_dot)) then - call RegPackBounds(Buf, 1, lbound(InData%UR_bar_dot), ubound(InData%UR_bar_dot)) + call RegPackBounds(Buf, 1, lbound(InData%UR_bar_dot, kind=B8Ki), ubound(InData%UR_bar_dot, kind=B8Ki)) call RegPack(Buf, InData%UR_bar_dot) end if call RegPack(Buf, allocated(InData%UR_bar_dotdot)) if (allocated(InData%UR_bar_dotdot)) then - call RegPackBounds(Buf, 1, lbound(InData%UR_bar_dotdot), ubound(InData%UR_bar_dotdot)) + call RegPackBounds(Buf, 1, lbound(InData%UR_bar_dotdot, kind=B8Ki), ubound(InData%UR_bar_dotdot, kind=B8Ki)) call RegPack(Buf, InData%UR_bar_dotdot) end if call RegPack(Buf, allocated(InData%UL)) if (allocated(InData%UL)) then - call RegPackBounds(Buf, 1, lbound(InData%UL), ubound(InData%UL)) + call RegPackBounds(Buf, 1, lbound(InData%UL, kind=B8Ki), ubound(InData%UL, kind=B8Ki)) call RegPack(Buf, InData%UL) end if call RegPack(Buf, allocated(InData%UL_NS)) if (allocated(InData%UL_NS)) then - call RegPackBounds(Buf, 1, lbound(InData%UL_NS), ubound(InData%UL_NS)) + call RegPackBounds(Buf, 1, lbound(InData%UL_NS, kind=B8Ki), ubound(InData%UL_NS, kind=B8Ki)) call RegPack(Buf, InData%UL_NS) end if call RegPack(Buf, allocated(InData%UL_dot)) if (allocated(InData%UL_dot)) then - call RegPackBounds(Buf, 1, lbound(InData%UL_dot), ubound(InData%UL_dot)) + call RegPackBounds(Buf, 1, lbound(InData%UL_dot, kind=B8Ki), ubound(InData%UL_dot, kind=B8Ki)) call RegPack(Buf, InData%UL_dot) end if call RegPack(Buf, allocated(InData%UL_dotdot)) if (allocated(InData%UL_dotdot)) then - call RegPackBounds(Buf, 1, lbound(InData%UL_dotdot), ubound(InData%UL_dotdot)) + call RegPackBounds(Buf, 1, lbound(InData%UL_dotdot, kind=B8Ki), ubound(InData%UL_dotdot, kind=B8Ki)) call RegPack(Buf, InData%UL_dotdot) end if call RegPack(Buf, allocated(InData%DU_full)) if (allocated(InData%DU_full)) then - call RegPackBounds(Buf, 1, lbound(InData%DU_full), ubound(InData%DU_full)) + call RegPackBounds(Buf, 1, lbound(InData%DU_full, kind=B8Ki), ubound(InData%DU_full, kind=B8Ki)) call RegPack(Buf, InData%DU_full) end if call RegPack(Buf, allocated(InData%U_full)) if (allocated(InData%U_full)) then - call RegPackBounds(Buf, 1, lbound(InData%U_full), ubound(InData%U_full)) + call RegPackBounds(Buf, 1, lbound(InData%U_full, kind=B8Ki), ubound(InData%U_full, kind=B8Ki)) call RegPack(Buf, InData%U_full) end if call RegPack(Buf, allocated(InData%U_full_NS)) if (allocated(InData%U_full_NS)) then - call RegPackBounds(Buf, 1, lbound(InData%U_full_NS), ubound(InData%U_full_NS)) + call RegPackBounds(Buf, 1, lbound(InData%U_full_NS, kind=B8Ki), ubound(InData%U_full_NS, kind=B8Ki)) call RegPack(Buf, InData%U_full_NS) end if call RegPack(Buf, allocated(InData%U_full_dot)) if (allocated(InData%U_full_dot)) then - call RegPackBounds(Buf, 1, lbound(InData%U_full_dot), ubound(InData%U_full_dot)) + call RegPackBounds(Buf, 1, lbound(InData%U_full_dot, kind=B8Ki), ubound(InData%U_full_dot, kind=B8Ki)) call RegPack(Buf, InData%U_full_dot) end if call RegPack(Buf, allocated(InData%U_full_dotdot)) if (allocated(InData%U_full_dotdot)) then - call RegPackBounds(Buf, 1, lbound(InData%U_full_dotdot), ubound(InData%U_full_dotdot)) + call RegPackBounds(Buf, 1, lbound(InData%U_full_dotdot, kind=B8Ki), ubound(InData%U_full_dotdot, kind=B8Ki)) call RegPack(Buf, InData%U_full_dotdot) end if call RegPack(Buf, allocated(InData%U_full_elast)) if (allocated(InData%U_full_elast)) then - call RegPackBounds(Buf, 1, lbound(InData%U_full_elast), ubound(InData%U_full_elast)) + call RegPackBounds(Buf, 1, lbound(InData%U_full_elast, kind=B8Ki), ubound(InData%U_full_elast, kind=B8Ki)) call RegPack(Buf, InData%U_full_elast) end if call RegPack(Buf, allocated(InData%U_red)) if (allocated(InData%U_red)) then - call RegPackBounds(Buf, 1, lbound(InData%U_red), ubound(InData%U_red)) + call RegPackBounds(Buf, 1, lbound(InData%U_red, kind=B8Ki), ubound(InData%U_red, kind=B8Ki)) call RegPack(Buf, InData%U_red) end if call RegPack(Buf, allocated(InData%FC_unit)) if (allocated(InData%FC_unit)) then - call RegPackBounds(Buf, 1, lbound(InData%FC_unit), ubound(InData%FC_unit)) + call RegPackBounds(Buf, 1, lbound(InData%FC_unit, kind=B8Ki), ubound(InData%FC_unit, kind=B8Ki)) call RegPack(Buf, InData%FC_unit) end if call RegPack(Buf, allocated(InData%SDWrOutput)) if (allocated(InData%SDWrOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%SDWrOutput), ubound(InData%SDWrOutput)) + call RegPackBounds(Buf, 1, lbound(InData%SDWrOutput, kind=B8Ki), ubound(InData%SDWrOutput, kind=B8Ki)) call RegPack(Buf, InData%SDWrOutput) end if call RegPack(Buf, allocated(InData%AllOuts)) if (allocated(InData%AllOuts)) then - call RegPackBounds(Buf, 1, lbound(InData%AllOuts), ubound(InData%AllOuts)) + call RegPackBounds(Buf, 1, lbound(InData%AllOuts, kind=B8Ki), ubound(InData%AllOuts, kind=B8Ki)) call RegPack(Buf, InData%AllOuts) end if call RegPack(Buf, InData%LastOutTime) call RegPack(Buf, InData%Decimat) call RegPack(Buf, allocated(InData%Fext)) if (allocated(InData%Fext)) then - call RegPackBounds(Buf, 1, lbound(InData%Fext), ubound(InData%Fext)) + call RegPackBounds(Buf, 1, lbound(InData%Fext, kind=B8Ki), ubound(InData%Fext, kind=B8Ki)) call RegPack(Buf, InData%Fext) end if call RegPack(Buf, allocated(InData%Fext_red)) if (allocated(InData%Fext_red)) then - call RegPackBounds(Buf, 1, lbound(InData%Fext_red), ubound(InData%Fext_red)) + call RegPackBounds(Buf, 1, lbound(InData%Fext_red, kind=B8Ki), ubound(InData%Fext_red, kind=B8Ki)) call RegPack(Buf, InData%Fext_red) end if call RegPack(Buf, allocated(InData%UL_SIM)) if (allocated(InData%UL_SIM)) then - call RegPackBounds(Buf, 1, lbound(InData%UL_SIM), ubound(InData%UL_SIM)) + call RegPackBounds(Buf, 1, lbound(InData%UL_SIM, kind=B8Ki), ubound(InData%UL_SIM, kind=B8Ki)) call RegPack(Buf, InData%UL_SIM) end if call RegPack(Buf, allocated(InData%UL_0m)) if (allocated(InData%UL_0m)) then - call RegPackBounds(Buf, 1, lbound(InData%UL_0m), ubound(InData%UL_0m)) + call RegPackBounds(Buf, 1, lbound(InData%UL_0m, kind=B8Ki), ubound(InData%UL_0m, kind=B8Ki)) call RegPack(Buf, InData%UL_0m) end if if (RegCheckErr(Buf, RoutineName)) return @@ -3414,7 +3414,7 @@ subroutine SD_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackMisc' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -3772,8 +3772,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyParam' @@ -3785,8 +3785,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nDOF_red = SrcParamData%nDOF_red DstParamData%Nmembers = SrcParamData%Nmembers if (allocated(SrcParamData%Elems)) then - LB(1:2) = lbound(SrcParamData%Elems) - UB(1:2) = ubound(SrcParamData%Elems) + LB(1:2) = lbound(SrcParamData%Elems, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Elems, kind=B8Ki) if (.not. allocated(DstParamData%Elems)) then allocate(DstParamData%Elems(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3797,8 +3797,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Elems = SrcParamData%Elems end if if (allocated(SrcParamData%ElemProps)) then - LB(1:1) = lbound(SrcParamData%ElemProps) - UB(1:1) = ubound(SrcParamData%ElemProps) + LB(1:1) = lbound(SrcParamData%ElemProps, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ElemProps, kind=B8Ki) if (.not. allocated(DstParamData%ElemProps)) then allocate(DstParamData%ElemProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3813,8 +3813,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%FG)) then - LB(1:1) = lbound(SrcParamData%FG) - UB(1:1) = ubound(SrcParamData%FG) + LB(1:1) = lbound(SrcParamData%FG, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%FG, kind=B8Ki) if (.not. allocated(DstParamData%FG)) then allocate(DstParamData%FG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3825,8 +3825,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%FG = SrcParamData%FG end if if (allocated(SrcParamData%DP0)) then - LB(1:2) = lbound(SrcParamData%DP0) - UB(1:2) = ubound(SrcParamData%DP0) + LB(1:2) = lbound(SrcParamData%DP0, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%DP0, kind=B8Ki) if (.not. allocated(DstParamData%DP0)) then allocate(DstParamData%DP0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3837,8 +3837,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DP0 = SrcParamData%DP0 end if if (allocated(SrcParamData%NodeID2JointID)) then - LB(1:1) = lbound(SrcParamData%NodeID2JointID) - UB(1:1) = ubound(SrcParamData%NodeID2JointID) + LB(1:1) = lbound(SrcParamData%NodeID2JointID, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NodeID2JointID, kind=B8Ki) if (.not. allocated(DstParamData%NodeID2JointID)) then allocate(DstParamData%NodeID2JointID(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3850,8 +3850,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%reduced = SrcParamData%reduced if (allocated(SrcParamData%T_red)) then - LB(1:2) = lbound(SrcParamData%T_red) - UB(1:2) = ubound(SrcParamData%T_red) + LB(1:2) = lbound(SrcParamData%T_red, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%T_red, kind=B8Ki) if (.not. allocated(DstParamData%T_red)) then allocate(DstParamData%T_red(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3862,8 +3862,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%T_red = SrcParamData%T_red end if if (allocated(SrcParamData%T_red_T)) then - LB(1:2) = lbound(SrcParamData%T_red_T) - UB(1:2) = ubound(SrcParamData%T_red_T) + LB(1:2) = lbound(SrcParamData%T_red_T, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%T_red_T, kind=B8Ki) if (.not. allocated(DstParamData%T_red_T)) then allocate(DstParamData%T_red_T(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3874,8 +3874,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%T_red_T = SrcParamData%T_red_T end if if (allocated(SrcParamData%NodesDOF)) then - LB(1:1) = lbound(SrcParamData%NodesDOF) - UB(1:1) = ubound(SrcParamData%NodesDOF) + LB(1:1) = lbound(SrcParamData%NodesDOF, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NodesDOF, kind=B8Ki) if (.not. allocated(DstParamData%NodesDOF)) then allocate(DstParamData%NodesDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3890,8 +3890,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%NodesDOFred)) then - LB(1:1) = lbound(SrcParamData%NodesDOFred) - UB(1:1) = ubound(SrcParamData%NodesDOFred) + LB(1:1) = lbound(SrcParamData%NodesDOFred, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%NodesDOFred, kind=B8Ki) if (.not. allocated(DstParamData%NodesDOFred)) then allocate(DstParamData%NodesDOFred(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3906,8 +3906,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%ElemsDOF)) then - LB(1:2) = lbound(SrcParamData%ElemsDOF) - UB(1:2) = ubound(SrcParamData%ElemsDOF) + LB(1:2) = lbound(SrcParamData%ElemsDOF, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%ElemsDOF, kind=B8Ki) if (.not. allocated(DstParamData%ElemsDOF)) then allocate(DstParamData%ElemsDOF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3918,8 +3918,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ElemsDOF = SrcParamData%ElemsDOF end if if (allocated(SrcParamData%DOFred2Nodes)) then - LB(1:2) = lbound(SrcParamData%DOFred2Nodes) - UB(1:2) = ubound(SrcParamData%DOFred2Nodes) + LB(1:2) = lbound(SrcParamData%DOFred2Nodes, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%DOFred2Nodes, kind=B8Ki) if (.not. allocated(DstParamData%DOFred2Nodes)) then allocate(DstParamData%DOFred2Nodes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3930,8 +3930,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DOFred2Nodes = SrcParamData%DOFred2Nodes end if if (allocated(SrcParamData%CtrlElem2Channel)) then - LB(1:2) = lbound(SrcParamData%CtrlElem2Channel) - UB(1:2) = ubound(SrcParamData%CtrlElem2Channel) + LB(1:2) = lbound(SrcParamData%CtrlElem2Channel, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%CtrlElem2Channel, kind=B8Ki) if (.not. allocated(DstParamData%CtrlElem2Channel)) then allocate(DstParamData%CtrlElem2Channel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3946,8 +3946,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%GuyanLoadCorrection = SrcParamData%GuyanLoadCorrection DstParamData%Floating = SrcParamData%Floating if (allocated(SrcParamData%KMMDiag)) then - LB(1:1) = lbound(SrcParamData%KMMDiag) - UB(1:1) = ubound(SrcParamData%KMMDiag) + LB(1:1) = lbound(SrcParamData%KMMDiag, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%KMMDiag, kind=B8Ki) if (.not. allocated(DstParamData%KMMDiag)) then allocate(DstParamData%KMMDiag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3958,8 +3958,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KMMDiag = SrcParamData%KMMDiag end if if (allocated(SrcParamData%CMMDiag)) then - LB(1:1) = lbound(SrcParamData%CMMDiag) - UB(1:1) = ubound(SrcParamData%CMMDiag) + LB(1:1) = lbound(SrcParamData%CMMDiag, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%CMMDiag, kind=B8Ki) if (.not. allocated(DstParamData%CMMDiag)) then allocate(DstParamData%CMMDiag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3970,8 +3970,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CMMDiag = SrcParamData%CMMDiag end if if (allocated(SrcParamData%MMB)) then - LB(1:2) = lbound(SrcParamData%MMB) - UB(1:2) = ubound(SrcParamData%MMB) + LB(1:2) = lbound(SrcParamData%MMB, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%MMB, kind=B8Ki) if (.not. allocated(DstParamData%MMB)) then allocate(DstParamData%MMB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3982,8 +3982,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MMB = SrcParamData%MMB end if if (allocated(SrcParamData%MBmmB)) then - LB(1:2) = lbound(SrcParamData%MBmmB) - UB(1:2) = ubound(SrcParamData%MBmmB) + LB(1:2) = lbound(SrcParamData%MBmmB, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%MBmmB, kind=B8Ki) if (.not. allocated(DstParamData%MBmmB)) then allocate(DstParamData%MBmmB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3994,8 +3994,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MBmmB = SrcParamData%MBmmB end if if (allocated(SrcParamData%C1_11)) then - LB(1:2) = lbound(SrcParamData%C1_11) - UB(1:2) = ubound(SrcParamData%C1_11) + LB(1:2) = lbound(SrcParamData%C1_11, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C1_11, kind=B8Ki) if (.not. allocated(DstParamData%C1_11)) then allocate(DstParamData%C1_11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4006,8 +4006,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%C1_11 = SrcParamData%C1_11 end if if (allocated(SrcParamData%C1_12)) then - LB(1:2) = lbound(SrcParamData%C1_12) - UB(1:2) = ubound(SrcParamData%C1_12) + LB(1:2) = lbound(SrcParamData%C1_12, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C1_12, kind=B8Ki) if (.not. allocated(DstParamData%C1_12)) then allocate(DstParamData%C1_12(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4018,8 +4018,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%C1_12 = SrcParamData%C1_12 end if if (allocated(SrcParamData%D1_141)) then - LB(1:2) = lbound(SrcParamData%D1_141) - UB(1:2) = ubound(SrcParamData%D1_141) + LB(1:2) = lbound(SrcParamData%D1_141, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%D1_141, kind=B8Ki) if (.not. allocated(DstParamData%D1_141)) then allocate(DstParamData%D1_141(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4030,8 +4030,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%D1_141 = SrcParamData%D1_141 end if if (allocated(SrcParamData%D1_142)) then - LB(1:2) = lbound(SrcParamData%D1_142) - UB(1:2) = ubound(SrcParamData%D1_142) + LB(1:2) = lbound(SrcParamData%D1_142, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%D1_142, kind=B8Ki) if (.not. allocated(DstParamData%D1_142)) then allocate(DstParamData%D1_142(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4042,8 +4042,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%D1_142 = SrcParamData%D1_142 end if if (allocated(SrcParamData%PhiM)) then - LB(1:2) = lbound(SrcParamData%PhiM) - UB(1:2) = ubound(SrcParamData%PhiM) + LB(1:2) = lbound(SrcParamData%PhiM, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PhiM, kind=B8Ki) if (.not. allocated(DstParamData%PhiM)) then allocate(DstParamData%PhiM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4054,8 +4054,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PhiM = SrcParamData%PhiM end if if (allocated(SrcParamData%C2_61)) then - LB(1:2) = lbound(SrcParamData%C2_61) - UB(1:2) = ubound(SrcParamData%C2_61) + LB(1:2) = lbound(SrcParamData%C2_61, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C2_61, kind=B8Ki) if (.not. allocated(DstParamData%C2_61)) then allocate(DstParamData%C2_61(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4066,8 +4066,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%C2_61 = SrcParamData%C2_61 end if if (allocated(SrcParamData%C2_62)) then - LB(1:2) = lbound(SrcParamData%C2_62) - UB(1:2) = ubound(SrcParamData%C2_62) + LB(1:2) = lbound(SrcParamData%C2_62, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%C2_62, kind=B8Ki) if (.not. allocated(DstParamData%C2_62)) then allocate(DstParamData%C2_62(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4078,8 +4078,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%C2_62 = SrcParamData%C2_62 end if if (allocated(SrcParamData%PhiRb_TI)) then - LB(1:2) = lbound(SrcParamData%PhiRb_TI) - UB(1:2) = ubound(SrcParamData%PhiRb_TI) + LB(1:2) = lbound(SrcParamData%PhiRb_TI, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PhiRb_TI, kind=B8Ki) if (.not. allocated(DstParamData%PhiRb_TI)) then allocate(DstParamData%PhiRb_TI(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4090,8 +4090,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PhiRb_TI = SrcParamData%PhiRb_TI end if if (allocated(SrcParamData%D2_63)) then - LB(1:2) = lbound(SrcParamData%D2_63) - UB(1:2) = ubound(SrcParamData%D2_63) + LB(1:2) = lbound(SrcParamData%D2_63, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%D2_63, kind=B8Ki) if (.not. allocated(DstParamData%D2_63)) then allocate(DstParamData%D2_63(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4102,8 +4102,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%D2_63 = SrcParamData%D2_63 end if if (allocated(SrcParamData%D2_64)) then - LB(1:2) = lbound(SrcParamData%D2_64) - UB(1:2) = ubound(SrcParamData%D2_64) + LB(1:2) = lbound(SrcParamData%D2_64, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%D2_64, kind=B8Ki) if (.not. allocated(DstParamData%D2_64)) then allocate(DstParamData%D2_64(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4114,8 +4114,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%D2_64 = SrcParamData%D2_64 end if if (allocated(SrcParamData%MBB)) then - LB(1:2) = lbound(SrcParamData%MBB) - UB(1:2) = ubound(SrcParamData%MBB) + LB(1:2) = lbound(SrcParamData%MBB, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%MBB, kind=B8Ki) if (.not. allocated(DstParamData%MBB)) then allocate(DstParamData%MBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4126,8 +4126,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MBB = SrcParamData%MBB end if if (allocated(SrcParamData%KBB)) then - LB(1:2) = lbound(SrcParamData%KBB) - UB(1:2) = ubound(SrcParamData%KBB) + LB(1:2) = lbound(SrcParamData%KBB, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%KBB, kind=B8Ki) if (.not. allocated(DstParamData%KBB)) then allocate(DstParamData%KBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4138,8 +4138,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KBB = SrcParamData%KBB end if if (allocated(SrcParamData%CBB)) then - LB(1:2) = lbound(SrcParamData%CBB) - UB(1:2) = ubound(SrcParamData%CBB) + LB(1:2) = lbound(SrcParamData%CBB, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%CBB, kind=B8Ki) if (.not. allocated(DstParamData%CBB)) then allocate(DstParamData%CBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4150,8 +4150,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CBB = SrcParamData%CBB end if if (allocated(SrcParamData%CMM)) then - LB(1:2) = lbound(SrcParamData%CMM) - UB(1:2) = ubound(SrcParamData%CMM) + LB(1:2) = lbound(SrcParamData%CMM, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%CMM, kind=B8Ki) if (.not. allocated(DstParamData%CMM)) then allocate(DstParamData%CMM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4162,8 +4162,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CMM = SrcParamData%CMM end if if (allocated(SrcParamData%MBM)) then - LB(1:2) = lbound(SrcParamData%MBM) - UB(1:2) = ubound(SrcParamData%MBM) + LB(1:2) = lbound(SrcParamData%MBM, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%MBM, kind=B8Ki) if (.not. allocated(DstParamData%MBM)) then allocate(DstParamData%MBM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4174,8 +4174,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MBM = SrcParamData%MBM end if if (allocated(SrcParamData%PhiL_T)) then - LB(1:2) = lbound(SrcParamData%PhiL_T) - UB(1:2) = ubound(SrcParamData%PhiL_T) + LB(1:2) = lbound(SrcParamData%PhiL_T, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PhiL_T, kind=B8Ki) if (.not. allocated(DstParamData%PhiL_T)) then allocate(DstParamData%PhiL_T(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4186,8 +4186,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PhiL_T = SrcParamData%PhiL_T end if if (allocated(SrcParamData%PhiLInvOmgL2)) then - LB(1:2) = lbound(SrcParamData%PhiLInvOmgL2) - UB(1:2) = ubound(SrcParamData%PhiLInvOmgL2) + LB(1:2) = lbound(SrcParamData%PhiLInvOmgL2, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%PhiLInvOmgL2, kind=B8Ki) if (.not. allocated(DstParamData%PhiLInvOmgL2)) then allocate(DstParamData%PhiLInvOmgL2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4198,8 +4198,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%PhiLInvOmgL2 = SrcParamData%PhiLInvOmgL2 end if if (allocated(SrcParamData%KLLm1)) then - LB(1:2) = lbound(SrcParamData%KLLm1) - UB(1:2) = ubound(SrcParamData%KLLm1) + LB(1:2) = lbound(SrcParamData%KLLm1, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%KLLm1, kind=B8Ki) if (.not. allocated(DstParamData%KLLm1)) then allocate(DstParamData%KLLm1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4210,8 +4210,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KLLm1 = SrcParamData%KLLm1 end if if (allocated(SrcParamData%AM2Jac)) then - LB(1:2) = lbound(SrcParamData%AM2Jac) - UB(1:2) = ubound(SrcParamData%AM2Jac) + LB(1:2) = lbound(SrcParamData%AM2Jac, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%AM2Jac, kind=B8Ki) if (.not. allocated(DstParamData%AM2Jac)) then allocate(DstParamData%AM2Jac(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4222,8 +4222,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AM2Jac = SrcParamData%AM2Jac end if if (allocated(SrcParamData%AM2JacPiv)) then - LB(1:1) = lbound(SrcParamData%AM2JacPiv) - UB(1:1) = ubound(SrcParamData%AM2JacPiv) + LB(1:1) = lbound(SrcParamData%AM2JacPiv, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%AM2JacPiv, kind=B8Ki) if (.not. allocated(DstParamData%AM2JacPiv)) then allocate(DstParamData%AM2JacPiv(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4234,8 +4234,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AM2JacPiv = SrcParamData%AM2JacPiv end if if (allocated(SrcParamData%TI)) then - LB(1:2) = lbound(SrcParamData%TI) - UB(1:2) = ubound(SrcParamData%TI) + LB(1:2) = lbound(SrcParamData%TI, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%TI, kind=B8Ki) if (.not. allocated(DstParamData%TI)) then allocate(DstParamData%TI(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4246,8 +4246,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%TI = SrcParamData%TI end if if (allocated(SrcParamData%TIreact)) then - LB(1:2) = lbound(SrcParamData%TIreact) - UB(1:2) = ubound(SrcParamData%TIreact) + LB(1:2) = lbound(SrcParamData%TIreact, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%TIreact, kind=B8Ki) if (.not. allocated(DstParamData%TIreact)) then allocate(DstParamData%TIreact(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4262,8 +4262,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nNodes_L = SrcParamData%nNodes_L DstParamData%nNodes_C = SrcParamData%nNodes_C if (allocated(SrcParamData%Nodes_I)) then - LB(1:2) = lbound(SrcParamData%Nodes_I) - UB(1:2) = ubound(SrcParamData%Nodes_I) + LB(1:2) = lbound(SrcParamData%Nodes_I, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Nodes_I, kind=B8Ki) if (.not. allocated(DstParamData%Nodes_I)) then allocate(DstParamData%Nodes_I(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4274,8 +4274,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Nodes_I = SrcParamData%Nodes_I end if if (allocated(SrcParamData%Nodes_L)) then - LB(1:2) = lbound(SrcParamData%Nodes_L) - UB(1:2) = ubound(SrcParamData%Nodes_L) + LB(1:2) = lbound(SrcParamData%Nodes_L, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Nodes_L, kind=B8Ki) if (.not. allocated(DstParamData%Nodes_L)) then allocate(DstParamData%Nodes_L(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4286,8 +4286,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Nodes_L = SrcParamData%Nodes_L end if if (allocated(SrcParamData%Nodes_C)) then - LB(1:2) = lbound(SrcParamData%Nodes_C) - UB(1:2) = ubound(SrcParamData%Nodes_C) + LB(1:2) = lbound(SrcParamData%Nodes_C, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Nodes_C, kind=B8Ki) if (.not. allocated(DstParamData%Nodes_C)) then allocate(DstParamData%Nodes_C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4310,8 +4310,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nDOF__L = SrcParamData%nDOF__L DstParamData%nDOF__F = SrcParamData%nDOF__F if (allocated(SrcParamData%IDI__)) then - LB(1:1) = lbound(SrcParamData%IDI__) - UB(1:1) = ubound(SrcParamData%IDI__) + LB(1:1) = lbound(SrcParamData%IDI__, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDI__, kind=B8Ki) if (.not. allocated(DstParamData%IDI__)) then allocate(DstParamData%IDI__(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4322,8 +4322,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDI__ = SrcParamData%IDI__ end if if (allocated(SrcParamData%IDI_Rb)) then - LB(1:1) = lbound(SrcParamData%IDI_Rb) - UB(1:1) = ubound(SrcParamData%IDI_Rb) + LB(1:1) = lbound(SrcParamData%IDI_Rb, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDI_Rb, kind=B8Ki) if (.not. allocated(DstParamData%IDI_Rb)) then allocate(DstParamData%IDI_Rb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4334,8 +4334,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDI_Rb = SrcParamData%IDI_Rb end if if (allocated(SrcParamData%IDI_F)) then - LB(1:1) = lbound(SrcParamData%IDI_F) - UB(1:1) = ubound(SrcParamData%IDI_F) + LB(1:1) = lbound(SrcParamData%IDI_F, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDI_F, kind=B8Ki) if (.not. allocated(DstParamData%IDI_F)) then allocate(DstParamData%IDI_F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4346,8 +4346,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDI_F = SrcParamData%IDI_F end if if (allocated(SrcParamData%IDL_L)) then - LB(1:1) = lbound(SrcParamData%IDL_L) - UB(1:1) = ubound(SrcParamData%IDL_L) + LB(1:1) = lbound(SrcParamData%IDL_L, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDL_L, kind=B8Ki) if (.not. allocated(DstParamData%IDL_L)) then allocate(DstParamData%IDL_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4358,8 +4358,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDL_L = SrcParamData%IDL_L end if if (allocated(SrcParamData%IDC__)) then - LB(1:1) = lbound(SrcParamData%IDC__) - UB(1:1) = ubound(SrcParamData%IDC__) + LB(1:1) = lbound(SrcParamData%IDC__, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDC__, kind=B8Ki) if (.not. allocated(DstParamData%IDC__)) then allocate(DstParamData%IDC__(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4370,8 +4370,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDC__ = SrcParamData%IDC__ end if if (allocated(SrcParamData%IDC_Rb)) then - LB(1:1) = lbound(SrcParamData%IDC_Rb) - UB(1:1) = ubound(SrcParamData%IDC_Rb) + LB(1:1) = lbound(SrcParamData%IDC_Rb, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDC_Rb, kind=B8Ki) if (.not. allocated(DstParamData%IDC_Rb)) then allocate(DstParamData%IDC_Rb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4382,8 +4382,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDC_Rb = SrcParamData%IDC_Rb end if if (allocated(SrcParamData%IDC_L)) then - LB(1:1) = lbound(SrcParamData%IDC_L) - UB(1:1) = ubound(SrcParamData%IDC_L) + LB(1:1) = lbound(SrcParamData%IDC_L, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDC_L, kind=B8Ki) if (.not. allocated(DstParamData%IDC_L)) then allocate(DstParamData%IDC_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4394,8 +4394,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDC_L = SrcParamData%IDC_L end if if (allocated(SrcParamData%IDC_F)) then - LB(1:1) = lbound(SrcParamData%IDC_F) - UB(1:1) = ubound(SrcParamData%IDC_F) + LB(1:1) = lbound(SrcParamData%IDC_F, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDC_F, kind=B8Ki) if (.not. allocated(DstParamData%IDC_F)) then allocate(DstParamData%IDC_F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4406,8 +4406,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDC_F = SrcParamData%IDC_F end if if (allocated(SrcParamData%IDR__)) then - LB(1:1) = lbound(SrcParamData%IDR__) - UB(1:1) = ubound(SrcParamData%IDR__) + LB(1:1) = lbound(SrcParamData%IDR__, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%IDR__, kind=B8Ki) if (.not. allocated(DstParamData%IDR__)) then allocate(DstParamData%IDR__(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4418,8 +4418,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%IDR__ = SrcParamData%IDR__ end if if (allocated(SrcParamData%ID__Rb)) then - LB(1:1) = lbound(SrcParamData%ID__Rb) - UB(1:1) = ubound(SrcParamData%ID__Rb) + LB(1:1) = lbound(SrcParamData%ID__Rb, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ID__Rb, kind=B8Ki) if (.not. allocated(DstParamData%ID__Rb)) then allocate(DstParamData%ID__Rb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4430,8 +4430,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ID__Rb = SrcParamData%ID__Rb end if if (allocated(SrcParamData%ID__L)) then - LB(1:1) = lbound(SrcParamData%ID__L) - UB(1:1) = ubound(SrcParamData%ID__L) + LB(1:1) = lbound(SrcParamData%ID__L, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ID__L, kind=B8Ki) if (.not. allocated(DstParamData%ID__L)) then allocate(DstParamData%ID__L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4442,8 +4442,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ID__L = SrcParamData%ID__L end if if (allocated(SrcParamData%ID__F)) then - LB(1:1) = lbound(SrcParamData%ID__F) - UB(1:1) = ubound(SrcParamData%ID__F) + LB(1:1) = lbound(SrcParamData%ID__F, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ID__F, kind=B8Ki) if (.not. allocated(DstParamData%ID__F)) then allocate(DstParamData%ID__F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4461,8 +4461,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%OutFmt = SrcParamData%OutFmt DstParamData%OutSFmt = SrcParamData%OutSFmt if (allocated(SrcParamData%MoutLst)) then - LB(1:1) = lbound(SrcParamData%MoutLst) - UB(1:1) = ubound(SrcParamData%MoutLst) + LB(1:1) = lbound(SrcParamData%MoutLst, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%MoutLst, kind=B8Ki) if (.not. allocated(DstParamData%MoutLst)) then allocate(DstParamData%MoutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4477,8 +4477,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%MoutLst2)) then - LB(1:1) = lbound(SrcParamData%MoutLst2) - UB(1:1) = ubound(SrcParamData%MoutLst2) + LB(1:1) = lbound(SrcParamData%MoutLst2, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%MoutLst2, kind=B8Ki) if (.not. allocated(DstParamData%MoutLst2)) then allocate(DstParamData%MoutLst2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4493,8 +4493,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%MoutLst3)) then - LB(1:1) = lbound(SrcParamData%MoutLst3) - UB(1:1) = ubound(SrcParamData%MoutLst3) + LB(1:1) = lbound(SrcParamData%MoutLst3, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%MoutLst3, kind=B8Ki) if (.not. allocated(DstParamData%MoutLst3)) then allocate(DstParamData%MoutLst3(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4509,8 +4509,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam) - UB(1:1) = ubound(SrcParamData%OutParam) + LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4532,8 +4532,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%OutAllDims = SrcParamData%OutAllDims DstParamData%OutDec = SrcParamData%OutDec if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx) - UB(1:2) = ubound(SrcParamData%Jac_u_indx) + LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) + UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) if (.not. allocated(DstParamData%Jac_u_indx)) then allocate(DstParamData%Jac_u_indx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4544,8 +4544,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Jac_u_indx = SrcParamData%Jac_u_indx end if if (allocated(SrcParamData%du)) then - LB(1:1) = lbound(SrcParamData%du) - UB(1:1) = ubound(SrcParamData%du) + LB(1:1) = lbound(SrcParamData%du, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4565,8 +4565,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) type(SD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_DestroyParam' @@ -4576,8 +4576,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%Elems) end if if (allocated(ParamData%ElemProps)) then - LB(1:1) = lbound(ParamData%ElemProps) - UB(1:1) = ubound(ParamData%ElemProps) + LB(1:1) = lbound(ParamData%ElemProps, kind=B8Ki) + UB(1:1) = ubound(ParamData%ElemProps, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyElemPropType(ParamData%ElemProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4600,8 +4600,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%T_red_T) end if if (allocated(ParamData%NodesDOF)) then - LB(1:1) = lbound(ParamData%NodesDOF) - UB(1:1) = ubound(ParamData%NodesDOF) + LB(1:1) = lbound(ParamData%NodesDOF, kind=B8Ki) + UB(1:1) = ubound(ParamData%NodesDOF, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyIList(ParamData%NodesDOF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4609,8 +4609,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%NodesDOF) end if if (allocated(ParamData%NodesDOFred)) then - LB(1:1) = lbound(ParamData%NodesDOFred) - UB(1:1) = ubound(ParamData%NodesDOFred) + LB(1:1) = lbound(ParamData%NodesDOFred, kind=B8Ki) + UB(1:1) = ubound(ParamData%NodesDOFred, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyIList(ParamData%NodesDOFred(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4750,8 +4750,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%ID__F) end if if (allocated(ParamData%MoutLst)) then - LB(1:1) = lbound(ParamData%MoutLst) - UB(1:1) = ubound(ParamData%MoutLst) + LB(1:1) = lbound(ParamData%MoutLst, kind=B8Ki) + UB(1:1) = ubound(ParamData%MoutLst, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyMeshAuxDataType(ParamData%MoutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4759,8 +4759,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MoutLst) end if if (allocated(ParamData%MoutLst2)) then - LB(1:1) = lbound(ParamData%MoutLst2) - UB(1:1) = ubound(ParamData%MoutLst2) + LB(1:1) = lbound(ParamData%MoutLst2, kind=B8Ki) + UB(1:1) = ubound(ParamData%MoutLst2, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyMeshAuxDataType(ParamData%MoutLst2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4768,8 +4768,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MoutLst2) end if if (allocated(ParamData%MoutLst3)) then - LB(1:1) = lbound(ParamData%MoutLst3) - UB(1:1) = ubound(ParamData%MoutLst3) + LB(1:1) = lbound(ParamData%MoutLst3, kind=B8Ki) + UB(1:1) = ubound(ParamData%MoutLst3, kind=B8Ki) do i1 = LB(1), UB(1) call SD_DestroyMeshAuxDataType(ParamData%MoutLst3(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4777,8 +4777,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MoutLst3) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam) - UB(1:1) = ubound(ParamData%OutParam) + LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) + UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4797,8 +4797,8 @@ subroutine SD_PackParam(Buf, Indata) type(PackBuffer), intent(inout) :: Buf type(SD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SD_PackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, InData%SDDeltaT) call RegPack(Buf, InData%IntMethod) @@ -4807,75 +4807,75 @@ subroutine SD_PackParam(Buf, Indata) call RegPack(Buf, InData%Nmembers) call RegPack(Buf, allocated(InData%Elems)) if (allocated(InData%Elems)) then - call RegPackBounds(Buf, 2, lbound(InData%Elems), ubound(InData%Elems)) + call RegPackBounds(Buf, 2, lbound(InData%Elems, kind=B8Ki), ubound(InData%Elems, kind=B8Ki)) call RegPack(Buf, InData%Elems) end if call RegPack(Buf, allocated(InData%ElemProps)) if (allocated(InData%ElemProps)) then - call RegPackBounds(Buf, 1, lbound(InData%ElemProps), ubound(InData%ElemProps)) - LB(1:1) = lbound(InData%ElemProps) - UB(1:1) = ubound(InData%ElemProps) + call RegPackBounds(Buf, 1, lbound(InData%ElemProps, kind=B8Ki), ubound(InData%ElemProps, kind=B8Ki)) + LB(1:1) = lbound(InData%ElemProps, kind=B8Ki) + UB(1:1) = ubound(InData%ElemProps, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackElemPropType(Buf, InData%ElemProps(i1)) end do end if call RegPack(Buf, allocated(InData%FG)) if (allocated(InData%FG)) then - call RegPackBounds(Buf, 1, lbound(InData%FG), ubound(InData%FG)) + call RegPackBounds(Buf, 1, lbound(InData%FG, kind=B8Ki), ubound(InData%FG, kind=B8Ki)) call RegPack(Buf, InData%FG) end if call RegPack(Buf, allocated(InData%DP0)) if (allocated(InData%DP0)) then - call RegPackBounds(Buf, 2, lbound(InData%DP0), ubound(InData%DP0)) + call RegPackBounds(Buf, 2, lbound(InData%DP0, kind=B8Ki), ubound(InData%DP0, kind=B8Ki)) call RegPack(Buf, InData%DP0) end if call RegPack(Buf, allocated(InData%NodeID2JointID)) if (allocated(InData%NodeID2JointID)) then - call RegPackBounds(Buf, 1, lbound(InData%NodeID2JointID), ubound(InData%NodeID2JointID)) + call RegPackBounds(Buf, 1, lbound(InData%NodeID2JointID, kind=B8Ki), ubound(InData%NodeID2JointID, kind=B8Ki)) call RegPack(Buf, InData%NodeID2JointID) end if call RegPack(Buf, InData%reduced) call RegPack(Buf, allocated(InData%T_red)) if (allocated(InData%T_red)) then - call RegPackBounds(Buf, 2, lbound(InData%T_red), ubound(InData%T_red)) + call RegPackBounds(Buf, 2, lbound(InData%T_red, kind=B8Ki), ubound(InData%T_red, kind=B8Ki)) call RegPack(Buf, InData%T_red) end if call RegPack(Buf, allocated(InData%T_red_T)) if (allocated(InData%T_red_T)) then - call RegPackBounds(Buf, 2, lbound(InData%T_red_T), ubound(InData%T_red_T)) + call RegPackBounds(Buf, 2, lbound(InData%T_red_T, kind=B8Ki), ubound(InData%T_red_T, kind=B8Ki)) call RegPack(Buf, InData%T_red_T) end if call RegPack(Buf, allocated(InData%NodesDOF)) if (allocated(InData%NodesDOF)) then - call RegPackBounds(Buf, 1, lbound(InData%NodesDOF), ubound(InData%NodesDOF)) - LB(1:1) = lbound(InData%NodesDOF) - UB(1:1) = ubound(InData%NodesDOF) + call RegPackBounds(Buf, 1, lbound(InData%NodesDOF, kind=B8Ki), ubound(InData%NodesDOF, kind=B8Ki)) + LB(1:1) = lbound(InData%NodesDOF, kind=B8Ki) + UB(1:1) = ubound(InData%NodesDOF, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackIList(Buf, InData%NodesDOF(i1)) end do end if call RegPack(Buf, allocated(InData%NodesDOFred)) if (allocated(InData%NodesDOFred)) then - call RegPackBounds(Buf, 1, lbound(InData%NodesDOFred), ubound(InData%NodesDOFred)) - LB(1:1) = lbound(InData%NodesDOFred) - UB(1:1) = ubound(InData%NodesDOFred) + call RegPackBounds(Buf, 1, lbound(InData%NodesDOFred, kind=B8Ki), ubound(InData%NodesDOFred, kind=B8Ki)) + LB(1:1) = lbound(InData%NodesDOFred, kind=B8Ki) + UB(1:1) = ubound(InData%NodesDOFred, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackIList(Buf, InData%NodesDOFred(i1)) end do end if call RegPack(Buf, allocated(InData%ElemsDOF)) if (allocated(InData%ElemsDOF)) then - call RegPackBounds(Buf, 2, lbound(InData%ElemsDOF), ubound(InData%ElemsDOF)) + call RegPackBounds(Buf, 2, lbound(InData%ElemsDOF, kind=B8Ki), ubound(InData%ElemsDOF, kind=B8Ki)) call RegPack(Buf, InData%ElemsDOF) end if call RegPack(Buf, allocated(InData%DOFred2Nodes)) if (allocated(InData%DOFred2Nodes)) then - call RegPackBounds(Buf, 2, lbound(InData%DOFred2Nodes), ubound(InData%DOFred2Nodes)) + call RegPackBounds(Buf, 2, lbound(InData%DOFred2Nodes, kind=B8Ki), ubound(InData%DOFred2Nodes, kind=B8Ki)) call RegPack(Buf, InData%DOFred2Nodes) end if call RegPack(Buf, allocated(InData%CtrlElem2Channel)) if (allocated(InData%CtrlElem2Channel)) then - call RegPackBounds(Buf, 2, lbound(InData%CtrlElem2Channel), ubound(InData%CtrlElem2Channel)) + call RegPackBounds(Buf, 2, lbound(InData%CtrlElem2Channel, kind=B8Ki), ubound(InData%CtrlElem2Channel, kind=B8Ki)) call RegPack(Buf, InData%CtrlElem2Channel) end if call RegPack(Buf, InData%nDOFM) @@ -4884,132 +4884,132 @@ subroutine SD_PackParam(Buf, Indata) call RegPack(Buf, InData%Floating) call RegPack(Buf, allocated(InData%KMMDiag)) if (allocated(InData%KMMDiag)) then - call RegPackBounds(Buf, 1, lbound(InData%KMMDiag), ubound(InData%KMMDiag)) + call RegPackBounds(Buf, 1, lbound(InData%KMMDiag, kind=B8Ki), ubound(InData%KMMDiag, kind=B8Ki)) call RegPack(Buf, InData%KMMDiag) end if call RegPack(Buf, allocated(InData%CMMDiag)) if (allocated(InData%CMMDiag)) then - call RegPackBounds(Buf, 1, lbound(InData%CMMDiag), ubound(InData%CMMDiag)) + call RegPackBounds(Buf, 1, lbound(InData%CMMDiag, kind=B8Ki), ubound(InData%CMMDiag, kind=B8Ki)) call RegPack(Buf, InData%CMMDiag) end if call RegPack(Buf, allocated(InData%MMB)) if (allocated(InData%MMB)) then - call RegPackBounds(Buf, 2, lbound(InData%MMB), ubound(InData%MMB)) + call RegPackBounds(Buf, 2, lbound(InData%MMB, kind=B8Ki), ubound(InData%MMB, kind=B8Ki)) call RegPack(Buf, InData%MMB) end if call RegPack(Buf, allocated(InData%MBmmB)) if (allocated(InData%MBmmB)) then - call RegPackBounds(Buf, 2, lbound(InData%MBmmB), ubound(InData%MBmmB)) + call RegPackBounds(Buf, 2, lbound(InData%MBmmB, kind=B8Ki), ubound(InData%MBmmB, kind=B8Ki)) call RegPack(Buf, InData%MBmmB) end if call RegPack(Buf, allocated(InData%C1_11)) if (allocated(InData%C1_11)) then - call RegPackBounds(Buf, 2, lbound(InData%C1_11), ubound(InData%C1_11)) + call RegPackBounds(Buf, 2, lbound(InData%C1_11, kind=B8Ki), ubound(InData%C1_11, kind=B8Ki)) call RegPack(Buf, InData%C1_11) end if call RegPack(Buf, allocated(InData%C1_12)) if (allocated(InData%C1_12)) then - call RegPackBounds(Buf, 2, lbound(InData%C1_12), ubound(InData%C1_12)) + call RegPackBounds(Buf, 2, lbound(InData%C1_12, kind=B8Ki), ubound(InData%C1_12, kind=B8Ki)) call RegPack(Buf, InData%C1_12) end if call RegPack(Buf, allocated(InData%D1_141)) if (allocated(InData%D1_141)) then - call RegPackBounds(Buf, 2, lbound(InData%D1_141), ubound(InData%D1_141)) + call RegPackBounds(Buf, 2, lbound(InData%D1_141, kind=B8Ki), ubound(InData%D1_141, kind=B8Ki)) call RegPack(Buf, InData%D1_141) end if call RegPack(Buf, allocated(InData%D1_142)) if (allocated(InData%D1_142)) then - call RegPackBounds(Buf, 2, lbound(InData%D1_142), ubound(InData%D1_142)) + call RegPackBounds(Buf, 2, lbound(InData%D1_142, kind=B8Ki), ubound(InData%D1_142, kind=B8Ki)) call RegPack(Buf, InData%D1_142) end if call RegPack(Buf, allocated(InData%PhiM)) if (allocated(InData%PhiM)) then - call RegPackBounds(Buf, 2, lbound(InData%PhiM), ubound(InData%PhiM)) + call RegPackBounds(Buf, 2, lbound(InData%PhiM, kind=B8Ki), ubound(InData%PhiM, kind=B8Ki)) call RegPack(Buf, InData%PhiM) end if call RegPack(Buf, allocated(InData%C2_61)) if (allocated(InData%C2_61)) then - call RegPackBounds(Buf, 2, lbound(InData%C2_61), ubound(InData%C2_61)) + call RegPackBounds(Buf, 2, lbound(InData%C2_61, kind=B8Ki), ubound(InData%C2_61, kind=B8Ki)) call RegPack(Buf, InData%C2_61) end if call RegPack(Buf, allocated(InData%C2_62)) if (allocated(InData%C2_62)) then - call RegPackBounds(Buf, 2, lbound(InData%C2_62), ubound(InData%C2_62)) + call RegPackBounds(Buf, 2, lbound(InData%C2_62, kind=B8Ki), ubound(InData%C2_62, kind=B8Ki)) call RegPack(Buf, InData%C2_62) end if call RegPack(Buf, allocated(InData%PhiRb_TI)) if (allocated(InData%PhiRb_TI)) then - call RegPackBounds(Buf, 2, lbound(InData%PhiRb_TI), ubound(InData%PhiRb_TI)) + call RegPackBounds(Buf, 2, lbound(InData%PhiRb_TI, kind=B8Ki), ubound(InData%PhiRb_TI, kind=B8Ki)) call RegPack(Buf, InData%PhiRb_TI) end if call RegPack(Buf, allocated(InData%D2_63)) if (allocated(InData%D2_63)) then - call RegPackBounds(Buf, 2, lbound(InData%D2_63), ubound(InData%D2_63)) + call RegPackBounds(Buf, 2, lbound(InData%D2_63, kind=B8Ki), ubound(InData%D2_63, kind=B8Ki)) call RegPack(Buf, InData%D2_63) end if call RegPack(Buf, allocated(InData%D2_64)) if (allocated(InData%D2_64)) then - call RegPackBounds(Buf, 2, lbound(InData%D2_64), ubound(InData%D2_64)) + call RegPackBounds(Buf, 2, lbound(InData%D2_64, kind=B8Ki), ubound(InData%D2_64, kind=B8Ki)) call RegPack(Buf, InData%D2_64) end if call RegPack(Buf, allocated(InData%MBB)) if (allocated(InData%MBB)) then - call RegPackBounds(Buf, 2, lbound(InData%MBB), ubound(InData%MBB)) + call RegPackBounds(Buf, 2, lbound(InData%MBB, kind=B8Ki), ubound(InData%MBB, kind=B8Ki)) call RegPack(Buf, InData%MBB) end if call RegPack(Buf, allocated(InData%KBB)) if (allocated(InData%KBB)) then - call RegPackBounds(Buf, 2, lbound(InData%KBB), ubound(InData%KBB)) + call RegPackBounds(Buf, 2, lbound(InData%KBB, kind=B8Ki), ubound(InData%KBB, kind=B8Ki)) call RegPack(Buf, InData%KBB) end if call RegPack(Buf, allocated(InData%CBB)) if (allocated(InData%CBB)) then - call RegPackBounds(Buf, 2, lbound(InData%CBB), ubound(InData%CBB)) + call RegPackBounds(Buf, 2, lbound(InData%CBB, kind=B8Ki), ubound(InData%CBB, kind=B8Ki)) call RegPack(Buf, InData%CBB) end if call RegPack(Buf, allocated(InData%CMM)) if (allocated(InData%CMM)) then - call RegPackBounds(Buf, 2, lbound(InData%CMM), ubound(InData%CMM)) + call RegPackBounds(Buf, 2, lbound(InData%CMM, kind=B8Ki), ubound(InData%CMM, kind=B8Ki)) call RegPack(Buf, InData%CMM) end if call RegPack(Buf, allocated(InData%MBM)) if (allocated(InData%MBM)) then - call RegPackBounds(Buf, 2, lbound(InData%MBM), ubound(InData%MBM)) + call RegPackBounds(Buf, 2, lbound(InData%MBM, kind=B8Ki), ubound(InData%MBM, kind=B8Ki)) call RegPack(Buf, InData%MBM) end if call RegPack(Buf, allocated(InData%PhiL_T)) if (allocated(InData%PhiL_T)) then - call RegPackBounds(Buf, 2, lbound(InData%PhiL_T), ubound(InData%PhiL_T)) + call RegPackBounds(Buf, 2, lbound(InData%PhiL_T, kind=B8Ki), ubound(InData%PhiL_T, kind=B8Ki)) call RegPack(Buf, InData%PhiL_T) end if call RegPack(Buf, allocated(InData%PhiLInvOmgL2)) if (allocated(InData%PhiLInvOmgL2)) then - call RegPackBounds(Buf, 2, lbound(InData%PhiLInvOmgL2), ubound(InData%PhiLInvOmgL2)) + call RegPackBounds(Buf, 2, lbound(InData%PhiLInvOmgL2, kind=B8Ki), ubound(InData%PhiLInvOmgL2, kind=B8Ki)) call RegPack(Buf, InData%PhiLInvOmgL2) end if call RegPack(Buf, allocated(InData%KLLm1)) if (allocated(InData%KLLm1)) then - call RegPackBounds(Buf, 2, lbound(InData%KLLm1), ubound(InData%KLLm1)) + call RegPackBounds(Buf, 2, lbound(InData%KLLm1, kind=B8Ki), ubound(InData%KLLm1, kind=B8Ki)) call RegPack(Buf, InData%KLLm1) end if call RegPack(Buf, allocated(InData%AM2Jac)) if (allocated(InData%AM2Jac)) then - call RegPackBounds(Buf, 2, lbound(InData%AM2Jac), ubound(InData%AM2Jac)) + call RegPackBounds(Buf, 2, lbound(InData%AM2Jac, kind=B8Ki), ubound(InData%AM2Jac, kind=B8Ki)) call RegPack(Buf, InData%AM2Jac) end if call RegPack(Buf, allocated(InData%AM2JacPiv)) if (allocated(InData%AM2JacPiv)) then - call RegPackBounds(Buf, 1, lbound(InData%AM2JacPiv), ubound(InData%AM2JacPiv)) + call RegPackBounds(Buf, 1, lbound(InData%AM2JacPiv, kind=B8Ki), ubound(InData%AM2JacPiv, kind=B8Ki)) call RegPack(Buf, InData%AM2JacPiv) end if call RegPack(Buf, allocated(InData%TI)) if (allocated(InData%TI)) then - call RegPackBounds(Buf, 2, lbound(InData%TI), ubound(InData%TI)) + call RegPackBounds(Buf, 2, lbound(InData%TI, kind=B8Ki), ubound(InData%TI, kind=B8Ki)) call RegPack(Buf, InData%TI) end if call RegPack(Buf, allocated(InData%TIreact)) if (allocated(InData%TIreact)) then - call RegPackBounds(Buf, 2, lbound(InData%TIreact), ubound(InData%TIreact)) + call RegPackBounds(Buf, 2, lbound(InData%TIreact, kind=B8Ki), ubound(InData%TIreact, kind=B8Ki)) call RegPack(Buf, InData%TIreact) end if call RegPack(Buf, InData%nNodes) @@ -5018,17 +5018,17 @@ subroutine SD_PackParam(Buf, Indata) call RegPack(Buf, InData%nNodes_C) call RegPack(Buf, allocated(InData%Nodes_I)) if (allocated(InData%Nodes_I)) then - call RegPackBounds(Buf, 2, lbound(InData%Nodes_I), ubound(InData%Nodes_I)) + call RegPackBounds(Buf, 2, lbound(InData%Nodes_I, kind=B8Ki), ubound(InData%Nodes_I, kind=B8Ki)) call RegPack(Buf, InData%Nodes_I) end if call RegPack(Buf, allocated(InData%Nodes_L)) if (allocated(InData%Nodes_L)) then - call RegPackBounds(Buf, 2, lbound(InData%Nodes_L), ubound(InData%Nodes_L)) + call RegPackBounds(Buf, 2, lbound(InData%Nodes_L, kind=B8Ki), ubound(InData%Nodes_L, kind=B8Ki)) call RegPack(Buf, InData%Nodes_L) end if call RegPack(Buf, allocated(InData%Nodes_C)) if (allocated(InData%Nodes_C)) then - call RegPackBounds(Buf, 2, lbound(InData%Nodes_C), ubound(InData%Nodes_C)) + call RegPackBounds(Buf, 2, lbound(InData%Nodes_C, kind=B8Ki), ubound(InData%Nodes_C, kind=B8Ki)) call RegPack(Buf, InData%Nodes_C) end if call RegPack(Buf, InData%nDOFI__) @@ -5045,62 +5045,62 @@ subroutine SD_PackParam(Buf, Indata) call RegPack(Buf, InData%nDOF__F) call RegPack(Buf, allocated(InData%IDI__)) if (allocated(InData%IDI__)) then - call RegPackBounds(Buf, 1, lbound(InData%IDI__), ubound(InData%IDI__)) + call RegPackBounds(Buf, 1, lbound(InData%IDI__, kind=B8Ki), ubound(InData%IDI__, kind=B8Ki)) call RegPack(Buf, InData%IDI__) end if call RegPack(Buf, allocated(InData%IDI_Rb)) if (allocated(InData%IDI_Rb)) then - call RegPackBounds(Buf, 1, lbound(InData%IDI_Rb), ubound(InData%IDI_Rb)) + call RegPackBounds(Buf, 1, lbound(InData%IDI_Rb, kind=B8Ki), ubound(InData%IDI_Rb, kind=B8Ki)) call RegPack(Buf, InData%IDI_Rb) end if call RegPack(Buf, allocated(InData%IDI_F)) if (allocated(InData%IDI_F)) then - call RegPackBounds(Buf, 1, lbound(InData%IDI_F), ubound(InData%IDI_F)) + call RegPackBounds(Buf, 1, lbound(InData%IDI_F, kind=B8Ki), ubound(InData%IDI_F, kind=B8Ki)) call RegPack(Buf, InData%IDI_F) end if call RegPack(Buf, allocated(InData%IDL_L)) if (allocated(InData%IDL_L)) then - call RegPackBounds(Buf, 1, lbound(InData%IDL_L), ubound(InData%IDL_L)) + call RegPackBounds(Buf, 1, lbound(InData%IDL_L, kind=B8Ki), ubound(InData%IDL_L, kind=B8Ki)) call RegPack(Buf, InData%IDL_L) end if call RegPack(Buf, allocated(InData%IDC__)) if (allocated(InData%IDC__)) then - call RegPackBounds(Buf, 1, lbound(InData%IDC__), ubound(InData%IDC__)) + call RegPackBounds(Buf, 1, lbound(InData%IDC__, kind=B8Ki), ubound(InData%IDC__, kind=B8Ki)) call RegPack(Buf, InData%IDC__) end if call RegPack(Buf, allocated(InData%IDC_Rb)) if (allocated(InData%IDC_Rb)) then - call RegPackBounds(Buf, 1, lbound(InData%IDC_Rb), ubound(InData%IDC_Rb)) + call RegPackBounds(Buf, 1, lbound(InData%IDC_Rb, kind=B8Ki), ubound(InData%IDC_Rb, kind=B8Ki)) call RegPack(Buf, InData%IDC_Rb) end if call RegPack(Buf, allocated(InData%IDC_L)) if (allocated(InData%IDC_L)) then - call RegPackBounds(Buf, 1, lbound(InData%IDC_L), ubound(InData%IDC_L)) + call RegPackBounds(Buf, 1, lbound(InData%IDC_L, kind=B8Ki), ubound(InData%IDC_L, kind=B8Ki)) call RegPack(Buf, InData%IDC_L) end if call RegPack(Buf, allocated(InData%IDC_F)) if (allocated(InData%IDC_F)) then - call RegPackBounds(Buf, 1, lbound(InData%IDC_F), ubound(InData%IDC_F)) + call RegPackBounds(Buf, 1, lbound(InData%IDC_F, kind=B8Ki), ubound(InData%IDC_F, kind=B8Ki)) call RegPack(Buf, InData%IDC_F) end if call RegPack(Buf, allocated(InData%IDR__)) if (allocated(InData%IDR__)) then - call RegPackBounds(Buf, 1, lbound(InData%IDR__), ubound(InData%IDR__)) + call RegPackBounds(Buf, 1, lbound(InData%IDR__, kind=B8Ki), ubound(InData%IDR__, kind=B8Ki)) call RegPack(Buf, InData%IDR__) end if call RegPack(Buf, allocated(InData%ID__Rb)) if (allocated(InData%ID__Rb)) then - call RegPackBounds(Buf, 1, lbound(InData%ID__Rb), ubound(InData%ID__Rb)) + call RegPackBounds(Buf, 1, lbound(InData%ID__Rb, kind=B8Ki), ubound(InData%ID__Rb, kind=B8Ki)) call RegPack(Buf, InData%ID__Rb) end if call RegPack(Buf, allocated(InData%ID__L)) if (allocated(InData%ID__L)) then - call RegPackBounds(Buf, 1, lbound(InData%ID__L), ubound(InData%ID__L)) + call RegPackBounds(Buf, 1, lbound(InData%ID__L, kind=B8Ki), ubound(InData%ID__L, kind=B8Ki)) call RegPack(Buf, InData%ID__L) end if call RegPack(Buf, allocated(InData%ID__F)) if (allocated(InData%ID__F)) then - call RegPackBounds(Buf, 1, lbound(InData%ID__F), ubound(InData%ID__F)) + call RegPackBounds(Buf, 1, lbound(InData%ID__F, kind=B8Ki), ubound(InData%ID__F, kind=B8Ki)) call RegPack(Buf, InData%ID__F) end if call RegPack(Buf, InData%NMOutputs) @@ -5112,36 +5112,36 @@ subroutine SD_PackParam(Buf, Indata) call RegPack(Buf, InData%OutSFmt) call RegPack(Buf, allocated(InData%MoutLst)) if (allocated(InData%MoutLst)) then - call RegPackBounds(Buf, 1, lbound(InData%MoutLst), ubound(InData%MoutLst)) - LB(1:1) = lbound(InData%MoutLst) - UB(1:1) = ubound(InData%MoutLst) + call RegPackBounds(Buf, 1, lbound(InData%MoutLst, kind=B8Ki), ubound(InData%MoutLst, kind=B8Ki)) + LB(1:1) = lbound(InData%MoutLst, kind=B8Ki) + UB(1:1) = ubound(InData%MoutLst, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackMeshAuxDataType(Buf, InData%MoutLst(i1)) end do end if call RegPack(Buf, allocated(InData%MoutLst2)) if (allocated(InData%MoutLst2)) then - call RegPackBounds(Buf, 1, lbound(InData%MoutLst2), ubound(InData%MoutLst2)) - LB(1:1) = lbound(InData%MoutLst2) - UB(1:1) = ubound(InData%MoutLst2) + call RegPackBounds(Buf, 1, lbound(InData%MoutLst2, kind=B8Ki), ubound(InData%MoutLst2, kind=B8Ki)) + LB(1:1) = lbound(InData%MoutLst2, kind=B8Ki) + UB(1:1) = ubound(InData%MoutLst2, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackMeshAuxDataType(Buf, InData%MoutLst2(i1)) end do end if call RegPack(Buf, allocated(InData%MoutLst3)) if (allocated(InData%MoutLst3)) then - call RegPackBounds(Buf, 1, lbound(InData%MoutLst3), ubound(InData%MoutLst3)) - LB(1:1) = lbound(InData%MoutLst3) - UB(1:1) = ubound(InData%MoutLst3) + call RegPackBounds(Buf, 1, lbound(InData%MoutLst3, kind=B8Ki), ubound(InData%MoutLst3, kind=B8Ki)) + LB(1:1) = lbound(InData%MoutLst3, kind=B8Ki) + UB(1:1) = ubound(InData%MoutLst3, kind=B8Ki) do i1 = LB(1), UB(1) call SD_PackMeshAuxDataType(Buf, InData%MoutLst3(i1)) end do end if call RegPack(Buf, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(Buf, 1, lbound(InData%OutParam), ubound(InData%OutParam)) - LB(1:1) = lbound(InData%OutParam) - UB(1:1) = ubound(InData%OutParam) + call RegPackBounds(Buf, 1, lbound(InData%OutParam, kind=B8Ki), ubound(InData%OutParam, kind=B8Ki)) + LB(1:1) = lbound(InData%OutParam, kind=B8Ki) + UB(1:1) = ubound(InData%OutParam, kind=B8Ki) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(Buf, InData%OutParam(i1)) end do @@ -5155,12 +5155,12 @@ subroutine SD_PackParam(Buf, Indata) call RegPack(Buf, InData%OutDec) call RegPack(Buf, allocated(InData%Jac_u_indx)) if (allocated(InData%Jac_u_indx)) then - call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx), ubound(InData%Jac_u_indx)) + call RegPackBounds(Buf, 2, lbound(InData%Jac_u_indx, kind=B8Ki), ubound(InData%Jac_u_indx, kind=B8Ki)) call RegPack(Buf, InData%Jac_u_indx) end if call RegPack(Buf, allocated(InData%du)) if (allocated(InData%du)) then - call RegPackBounds(Buf, 1, lbound(InData%du), ubound(InData%du)) + call RegPackBounds(Buf, 1, lbound(InData%du, kind=B8Ki), ubound(InData%du, kind=B8Ki)) call RegPack(Buf, InData%du) end if call RegPack(Buf, InData%dx) @@ -5174,8 +5174,8 @@ subroutine SD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackParam' - integer(IntKi) :: i1, i2 - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: i1, i2 + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6108,7 +6108,7 @@ subroutine SD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyInput' @@ -6121,8 +6121,8 @@ subroutine SD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInputData%CableDeltaL)) then - LB(1:1) = lbound(SrcInputData%CableDeltaL) - UB(1:1) = ubound(SrcInputData%CableDeltaL) + LB(1:1) = lbound(SrcInputData%CableDeltaL, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%CableDeltaL, kind=B8Ki) if (.not. allocated(DstInputData%CableDeltaL)) then allocate(DstInputData%CableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6161,7 +6161,7 @@ subroutine SD_PackInput(Buf, Indata) call MeshPack(Buf, InData%LMesh) call RegPack(Buf, allocated(InData%CableDeltaL)) if (allocated(InData%CableDeltaL)) then - call RegPackBounds(Buf, 1, lbound(InData%CableDeltaL), ubound(InData%CableDeltaL)) + call RegPackBounds(Buf, 1, lbound(InData%CableDeltaL, kind=B8Ki), ubound(InData%CableDeltaL, kind=B8Ki)) call RegPack(Buf, InData%CableDeltaL) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6171,7 +6171,7 @@ subroutine SD_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -6199,7 +6199,7 @@ subroutine SD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyOutput' @@ -6215,8 +6215,8 @@ subroutine SD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput) - UB(1:1) = ubound(SrcOutputData%WriteOutput) + LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6258,7 +6258,7 @@ subroutine SD_PackOutput(Buf, Indata) call MeshPack(Buf, InData%Y3Mesh) call RegPack(Buf, allocated(InData%WriteOutput)) if (allocated(InData%WriteOutput)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutput), ubound(InData%WriteOutput)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutput, kind=B8Ki), ubound(InData%WriteOutput, kind=B8Ki)) call RegPack(Buf, InData%WriteOutput) end if if (RegCheckErr(Buf, RoutineName)) return @@ -6268,7 +6268,7 @@ subroutine SD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return diff --git a/modules/supercontroller/src/SCDataEx_Types.f90 b/modules/supercontroller/src/SCDataEx_Types.f90 index 19cb174848..fcefcf10ab 100644 --- a/modules/supercontroller/src/SCDataEx_Types.f90 +++ b/modules/supercontroller/src/SCDataEx_Types.f90 @@ -361,14 +361,14 @@ subroutine SC_DX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SC_DX_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcInputData%toSC)) then - LB(1:1) = lbound(SrcInputData%toSC) - UB(1:1) = ubound(SrcInputData%toSC) + LB(1:1) = lbound(SrcInputData%toSC, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%toSC, kind=B8Ki) if (.not. associated(DstInputData%toSC)) then allocate(DstInputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -410,7 +410,7 @@ subroutine SC_DX_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%toSC)) if (associated(InData%toSC)) then - call RegPackBounds(Buf, 1, lbound(InData%toSC), ubound(InData%toSC)) + call RegPackBounds(Buf, 1, lbound(InData%toSC, kind=B8Ki), ubound(InData%toSC, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%toSC), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%toSC) @@ -423,10 +423,10 @@ subroutine SC_DX_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SC_DX_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_DX_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%toSC)) deallocate(OutData%toSC) @@ -507,7 +507,7 @@ SUBROUTINE SC_DX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%toSC_Len = SIZE(InputData%toSC) IF (InputData%C_obj%toSC_Len > 0) & - InputData%C_obj%toSC = C_LOC(InputData%toSC(LBOUND(InputData%toSC,1))) + InputData%C_obj%toSC = C_LOC(InputData%toSC(LBOUND(InputData%toSC,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -518,14 +518,14 @@ subroutine SC_DX_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SC_DX_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcOutputData%fromSC)) then - LB(1:1) = lbound(SrcOutputData%fromSC) - UB(1:1) = ubound(SrcOutputData%fromSC) + LB(1:1) = lbound(SrcOutputData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%fromSC, kind=B8Ki) if (.not. associated(DstOutputData%fromSC)) then allocate(DstOutputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -539,8 +539,8 @@ subroutine SC_DX_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err DstOutputData%fromSC = SrcOutputData%fromSC end if if (associated(SrcOutputData%fromSCglob)) then - LB(1:1) = lbound(SrcOutputData%fromSCglob) - UB(1:1) = ubound(SrcOutputData%fromSCglob) + LB(1:1) = lbound(SrcOutputData%fromSCglob, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%fromSCglob, kind=B8Ki) if (.not. associated(DstOutputData%fromSCglob)) then allocate(DstOutputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -588,7 +588,7 @@ subroutine SC_DX_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%fromSC)) if (associated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fromSC), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fromSC) @@ -596,7 +596,7 @@ subroutine SC_DX_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%fromSCglob)) if (associated(InData%fromSCglob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCglob), ubound(InData%fromSCglob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCglob, kind=B8Ki), ubound(InData%fromSCglob, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fromSCglob), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fromSCglob) @@ -609,10 +609,10 @@ subroutine SC_DX_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SC_DX_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_DX_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%fromSC)) deallocate(OutData%fromSC) @@ -728,7 +728,7 @@ SUBROUTINE SC_DX_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%fromSC_Len = SIZE(OutputData%fromSC) IF (OutputData%C_obj%fromSC_Len > 0) & - OutputData%C_obj%fromSC = C_LOC(OutputData%fromSC(LBOUND(OutputData%fromSC,1))) + OutputData%C_obj%fromSC = C_LOC(OutputData%fromSC(LBOUND(OutputData%fromSC,1, kind=B8Ki))) END IF END IF @@ -740,7 +740,7 @@ SUBROUTINE SC_DX_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%fromSCglob_Len = SIZE(OutputData%fromSCglob) IF (OutputData%C_obj%fromSCglob_Len > 0) & - OutputData%C_obj%fromSCglob = C_LOC(OutputData%fromSCglob(LBOUND(OutputData%fromSCglob,1))) + OutputData%C_obj%fromSCglob = C_LOC(OutputData%fromSCglob(LBOUND(OutputData%fromSCglob,1, kind=B8Ki))) END IF END IF END SUBROUTINE diff --git a/modules/supercontroller/src/SuperController_Types.f90 b/modules/supercontroller/src/SuperController_Types.f90 index a78ceeb316..dce6747bce 100644 --- a/modules/supercontroller/src/SuperController_Types.f90 +++ b/modules/supercontroller/src/SuperController_Types.f90 @@ -392,7 +392,7 @@ subroutine SC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SC_CopyParam' @@ -419,8 +419,8 @@ subroutine SC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumParamTurbine = SrcParamData%NumParamTurbine DstParamData%C_obj%NumParamTurbine = SrcParamData%C_obj%NumParamTurbine if (associated(SrcParamData%ParamGlobal)) then - LB(1:1) = lbound(SrcParamData%ParamGlobal) - UB(1:1) = ubound(SrcParamData%ParamGlobal) + LB(1:1) = lbound(SrcParamData%ParamGlobal, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ParamGlobal, kind=B8Ki) if (.not. associated(DstParamData%ParamGlobal)) then allocate(DstParamData%ParamGlobal(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -434,8 +434,8 @@ subroutine SC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%ParamGlobal = SrcParamData%ParamGlobal end if if (associated(SrcParamData%ParamTurbine)) then - LB(1:1) = lbound(SrcParamData%ParamTurbine) - UB(1:1) = ubound(SrcParamData%ParamTurbine) + LB(1:1) = lbound(SrcParamData%ParamTurbine, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%ParamTurbine, kind=B8Ki) if (.not. associated(DstParamData%ParamTurbine)) then allocate(DstParamData%ParamTurbine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -498,7 +498,7 @@ subroutine SC_PackParam(Buf, Indata) call RegPack(Buf, InData%NumParamTurbine) call RegPack(Buf, associated(InData%ParamGlobal)) if (associated(InData%ParamGlobal)) then - call RegPackBounds(Buf, 1, lbound(InData%ParamGlobal), ubound(InData%ParamGlobal)) + call RegPackBounds(Buf, 1, lbound(InData%ParamGlobal, kind=B8Ki), ubound(InData%ParamGlobal, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%ParamGlobal), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%ParamGlobal) @@ -506,7 +506,7 @@ subroutine SC_PackParam(Buf, Indata) end if call RegPack(Buf, associated(InData%ParamTurbine)) if (associated(InData%ParamTurbine)) then - call RegPackBounds(Buf, 1, lbound(InData%ParamTurbine), ubound(InData%ParamTurbine)) + call RegPackBounds(Buf, 1, lbound(InData%ParamTurbine, kind=B8Ki), ubound(InData%ParamTurbine, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%ParamTurbine), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%ParamTurbine) @@ -520,10 +520,10 @@ subroutine SC_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SC_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackParam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return call RegUnpack(Buf, OutData%DT) @@ -690,7 +690,7 @@ SUBROUTINE SC_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%ParamGlobal_Len = SIZE(ParamData%ParamGlobal) IF (ParamData%C_obj%ParamGlobal_Len > 0) & - ParamData%C_obj%ParamGlobal = C_LOC(ParamData%ParamGlobal(LBOUND(ParamData%ParamGlobal,1))) + ParamData%C_obj%ParamGlobal = C_LOC(ParamData%ParamGlobal(LBOUND(ParamData%ParamGlobal,1, kind=B8Ki))) END IF END IF @@ -702,7 +702,7 @@ SUBROUTINE SC_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%ParamTurbine_Len = SIZE(ParamData%ParamTurbine) IF (ParamData%C_obj%ParamTurbine_Len > 0) & - ParamData%C_obj%ParamTurbine = C_LOC(ParamData%ParamTurbine(LBOUND(ParamData%ParamTurbine,1))) + ParamData%C_obj%ParamTurbine = C_LOC(ParamData%ParamTurbine(LBOUND(ParamData%ParamTurbine,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -713,14 +713,14 @@ subroutine SC_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SC_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcDiscStateData%Global)) then - LB(1:1) = lbound(SrcDiscStateData%Global) - UB(1:1) = ubound(SrcDiscStateData%Global) + LB(1:1) = lbound(SrcDiscStateData%Global, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%Global, kind=B8Ki) if (.not. associated(DstDiscStateData%Global)) then allocate(DstDiscStateData%Global(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -734,8 +734,8 @@ subroutine SC_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Global = SrcDiscStateData%Global end if if (associated(SrcDiscStateData%Turbine)) then - LB(1:1) = lbound(SrcDiscStateData%Turbine) - UB(1:1) = ubound(SrcDiscStateData%Turbine) + LB(1:1) = lbound(SrcDiscStateData%Turbine, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%Turbine, kind=B8Ki) if (.not. associated(DstDiscStateData%Turbine)) then allocate(DstDiscStateData%Turbine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -783,7 +783,7 @@ subroutine SC_PackDiscState(Buf, Indata) end if call RegPack(Buf, associated(InData%Global)) if (associated(InData%Global)) then - call RegPackBounds(Buf, 1, lbound(InData%Global), ubound(InData%Global)) + call RegPackBounds(Buf, 1, lbound(InData%Global, kind=B8Ki), ubound(InData%Global, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Global), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Global) @@ -791,7 +791,7 @@ subroutine SC_PackDiscState(Buf, Indata) end if call RegPack(Buf, associated(InData%Turbine)) if (associated(InData%Turbine)) then - call RegPackBounds(Buf, 1, lbound(InData%Turbine), ubound(InData%Turbine)) + call RegPackBounds(Buf, 1, lbound(InData%Turbine, kind=B8Ki), ubound(InData%Turbine, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%Turbine), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%Turbine) @@ -804,10 +804,10 @@ subroutine SC_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SC_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackDiscState' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%Global)) deallocate(OutData%Global) @@ -923,7 +923,7 @@ SUBROUTINE SC_F2C_CopyDiscState( DiscStateData, ErrStat, ErrMsg, SkipPointers ) ELSE DiscStateData%C_obj%Global_Len = SIZE(DiscStateData%Global) IF (DiscStateData%C_obj%Global_Len > 0) & - DiscStateData%C_obj%Global = C_LOC(DiscStateData%Global(LBOUND(DiscStateData%Global,1))) + DiscStateData%C_obj%Global = C_LOC(DiscStateData%Global(LBOUND(DiscStateData%Global,1, kind=B8Ki))) END IF END IF @@ -935,7 +935,7 @@ SUBROUTINE SC_F2C_CopyDiscState( DiscStateData, ErrStat, ErrMsg, SkipPointers ) ELSE DiscStateData%C_obj%Turbine_Len = SIZE(DiscStateData%Turbine) IF (DiscStateData%C_obj%Turbine_Len > 0) & - DiscStateData%C_obj%Turbine = C_LOC(DiscStateData%Turbine(LBOUND(DiscStateData%Turbine,1))) + DiscStateData%C_obj%Turbine = C_LOC(DiscStateData%Turbine(LBOUND(DiscStateData%Turbine,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -1270,14 +1270,14 @@ subroutine SC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SC_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcInputData%toSCglob)) then - LB(1:1) = lbound(SrcInputData%toSCglob) - UB(1:1) = ubound(SrcInputData%toSCglob) + LB(1:1) = lbound(SrcInputData%toSCglob, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%toSCglob, kind=B8Ki) if (.not. associated(DstInputData%toSCglob)) then allocate(DstInputData%toSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1291,8 +1291,8 @@ subroutine SC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%toSCglob = SrcInputData%toSCglob end if if (associated(SrcInputData%toSC)) then - LB(1:1) = lbound(SrcInputData%toSC) - UB(1:1) = ubound(SrcInputData%toSC) + LB(1:1) = lbound(SrcInputData%toSC, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%toSC, kind=B8Ki) if (.not. associated(DstInputData%toSC)) then allocate(DstInputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1340,7 +1340,7 @@ subroutine SC_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%toSCglob)) if (associated(InData%toSCglob)) then - call RegPackBounds(Buf, 1, lbound(InData%toSCglob), ubound(InData%toSCglob)) + call RegPackBounds(Buf, 1, lbound(InData%toSCglob, kind=B8Ki), ubound(InData%toSCglob, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%toSCglob), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%toSCglob) @@ -1348,7 +1348,7 @@ subroutine SC_PackInput(Buf, Indata) end if call RegPack(Buf, associated(InData%toSC)) if (associated(InData%toSC)) then - call RegPackBounds(Buf, 1, lbound(InData%toSC), ubound(InData%toSC)) + call RegPackBounds(Buf, 1, lbound(InData%toSC, kind=B8Ki), ubound(InData%toSC, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%toSC), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%toSC) @@ -1361,10 +1361,10 @@ subroutine SC_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SC_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackInput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%toSCglob)) deallocate(OutData%toSCglob) @@ -1480,7 +1480,7 @@ SUBROUTINE SC_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%toSCglob_Len = SIZE(InputData%toSCglob) IF (InputData%C_obj%toSCglob_Len > 0) & - InputData%C_obj%toSCglob = C_LOC(InputData%toSCglob(LBOUND(InputData%toSCglob,1))) + InputData%C_obj%toSCglob = C_LOC(InputData%toSCglob(LBOUND(InputData%toSCglob,1, kind=B8Ki))) END IF END IF @@ -1492,7 +1492,7 @@ SUBROUTINE SC_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%toSC_Len = SIZE(InputData%toSC) IF (InputData%C_obj%toSC_Len > 0) & - InputData%C_obj%toSC = C_LOC(InputData%toSC(LBOUND(InputData%toSC,1))) + InputData%C_obj%toSC = C_LOC(InputData%toSC(LBOUND(InputData%toSC,1, kind=B8Ki))) END IF END IF END SUBROUTINE @@ -1503,14 +1503,14 @@ subroutine SC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SC_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcOutputData%fromSCglob)) then - LB(1:1) = lbound(SrcOutputData%fromSCglob) - UB(1:1) = ubound(SrcOutputData%fromSCglob) + LB(1:1) = lbound(SrcOutputData%fromSCglob, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%fromSCglob, kind=B8Ki) if (.not. associated(DstOutputData%fromSCglob)) then allocate(DstOutputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1524,8 +1524,8 @@ subroutine SC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%fromSCglob = SrcOutputData%fromSCglob end if if (associated(SrcOutputData%fromSC)) then - LB(1:1) = lbound(SrcOutputData%fromSC) - UB(1:1) = ubound(SrcOutputData%fromSC) + LB(1:1) = lbound(SrcOutputData%fromSC, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%fromSC, kind=B8Ki) if (.not. associated(DstOutputData%fromSC)) then allocate(DstOutputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1573,7 +1573,7 @@ subroutine SC_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%fromSCglob)) if (associated(InData%fromSCglob)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSCglob), ubound(InData%fromSCglob)) + call RegPackBounds(Buf, 1, lbound(InData%fromSCglob, kind=B8Ki), ubound(InData%fromSCglob, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fromSCglob), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fromSCglob) @@ -1581,7 +1581,7 @@ subroutine SC_PackOutput(Buf, Indata) end if call RegPack(Buf, associated(InData%fromSC)) if (associated(InData%fromSC)) then - call RegPackBounds(Buf, 1, lbound(InData%fromSC), ubound(InData%fromSC)) + call RegPackBounds(Buf, 1, lbound(InData%fromSC, kind=B8Ki), ubound(InData%fromSC, kind=B8Ki)) call RegPackPointer(Buf, c_loc(InData%fromSC), PtrInIndex) if (.not. PtrInIndex) then call RegPack(Buf, InData%fromSC) @@ -1594,10 +1594,10 @@ subroutine SC_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(SC_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc - integer(IntKi) :: PtrIdx + integer(B8Ki) :: PtrIdx type(c_ptr) :: Ptr if (Buf%ErrStat /= ErrID_None) return if (associated(OutData%fromSCglob)) deallocate(OutData%fromSCglob) @@ -1713,7 +1713,7 @@ SUBROUTINE SC_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%fromSCglob_Len = SIZE(OutputData%fromSCglob) IF (OutputData%C_obj%fromSCglob_Len > 0) & - OutputData%C_obj%fromSCglob = C_LOC(OutputData%fromSCglob(LBOUND(OutputData%fromSCglob,1))) + OutputData%C_obj%fromSCglob = C_LOC(OutputData%fromSCglob(LBOUND(OutputData%fromSCglob,1, kind=B8Ki))) END IF END IF @@ -1725,7 +1725,7 @@ SUBROUTINE SC_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%fromSC_Len = SIZE(OutputData%fromSC) IF (OutputData%C_obj%fromSC_Len > 0) & - OutputData%C_obj%fromSC = C_LOC(OutputData%fromSC(LBOUND(OutputData%fromSC,1))) + OutputData%C_obj%fromSC = C_LOC(OutputData%fromSC(LBOUND(OutputData%fromSC,1, kind=B8Ki))) END IF END IF END SUBROUTINE diff --git a/modules/wakedynamics/src/WakeDynamics_Types.f90 b/modules/wakedynamics/src/WakeDynamics_Types.f90 index 61bfb7e301..ea0d0bd9b8 100644 --- a/modules/wakedynamics/src/WakeDynamics_Types.f90 +++ b/modules/wakedynamics/src/WakeDynamics_Types.f90 @@ -453,15 +453,15 @@ subroutine WD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WD_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -472,8 +472,8 @@ subroutine WD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -514,12 +514,12 @@ subroutine WD_PackInitOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%WriteOutputHdr)) if (allocated(InData%WriteOutputHdr)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr), ubound(InData%WriteOutputHdr)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputHdr, kind=B8Ki), ubound(InData%WriteOutputHdr, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputHdr) end if call RegPack(Buf, allocated(InData%WriteOutputUnt)) if (allocated(InData%WriteOutputUnt)) then - call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt), ubound(InData%WriteOutputUnt)) + call RegPackBounds(Buf, 1, lbound(InData%WriteOutputUnt, kind=B8Ki), ubound(InData%WriteOutputUnt, kind=B8Ki)) call RegPack(Buf, InData%WriteOutputUnt) end if call NWTC_Library_PackProgDesc(Buf, InData%Ver) @@ -530,7 +530,7 @@ subroutine WD_UnPackInitOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackInitOutput' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -610,14 +610,14 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyDiscState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcDiscStateData%xhat_plane)) then - LB(1:2) = lbound(SrcDiscStateData%xhat_plane) - UB(1:2) = ubound(SrcDiscStateData%xhat_plane) + LB(1:2) = lbound(SrcDiscStateData%xhat_plane, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%xhat_plane, kind=B8Ki) if (.not. allocated(DstDiscStateData%xhat_plane)) then allocate(DstDiscStateData%xhat_plane(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -628,8 +628,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%xhat_plane = SrcDiscStateData%xhat_plane end if if (allocated(SrcDiscStateData%YawErr_filt)) then - LB(1:1) = lbound(SrcDiscStateData%YawErr_filt) - UB(1:1) = ubound(SrcDiscStateData%YawErr_filt) + LB(1:1) = lbound(SrcDiscStateData%YawErr_filt, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%YawErr_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%YawErr_filt)) then allocate(DstDiscStateData%YawErr_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -642,8 +642,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%psi_skew_filt = SrcDiscStateData%psi_skew_filt DstDiscStateData%chi_skew_filt = SrcDiscStateData%chi_skew_filt if (allocated(SrcDiscStateData%V_plane_filt)) then - LB(1:2) = lbound(SrcDiscStateData%V_plane_filt) - UB(1:2) = ubound(SrcDiscStateData%V_plane_filt) + LB(1:2) = lbound(SrcDiscStateData%V_plane_filt, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%V_plane_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%V_plane_filt)) then allocate(DstDiscStateData%V_plane_filt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -654,8 +654,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%V_plane_filt = SrcDiscStateData%V_plane_filt end if if (allocated(SrcDiscStateData%p_plane)) then - LB(1:2) = lbound(SrcDiscStateData%p_plane) - UB(1:2) = ubound(SrcDiscStateData%p_plane) + LB(1:2) = lbound(SrcDiscStateData%p_plane, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%p_plane, kind=B8Ki) if (.not. allocated(DstDiscStateData%p_plane)) then allocate(DstDiscStateData%p_plane(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -666,8 +666,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%p_plane = SrcDiscStateData%p_plane end if if (allocated(SrcDiscStateData%x_plane)) then - LB(1:1) = lbound(SrcDiscStateData%x_plane) - UB(1:1) = ubound(SrcDiscStateData%x_plane) + LB(1:1) = lbound(SrcDiscStateData%x_plane, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%x_plane, kind=B8Ki) if (.not. allocated(DstDiscStateData%x_plane)) then allocate(DstDiscStateData%x_plane(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -678,8 +678,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%x_plane = SrcDiscStateData%x_plane end if if (allocated(SrcDiscStateData%Vx_wake)) then - LB(1:2) = lbound(SrcDiscStateData%Vx_wake) - UB(1:2) = ubound(SrcDiscStateData%Vx_wake) + LB(1:2) = lbound(SrcDiscStateData%Vx_wake, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Vx_wake, kind=B8Ki) if (.not. allocated(DstDiscStateData%Vx_wake)) then allocate(DstDiscStateData%Vx_wake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -690,8 +690,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Vx_wake = SrcDiscStateData%Vx_wake end if if (allocated(SrcDiscStateData%Vr_wake)) then - LB(1:2) = lbound(SrcDiscStateData%Vr_wake) - UB(1:2) = ubound(SrcDiscStateData%Vr_wake) + LB(1:2) = lbound(SrcDiscStateData%Vr_wake, kind=B8Ki) + UB(1:2) = ubound(SrcDiscStateData%Vr_wake, kind=B8Ki) if (.not. allocated(DstDiscStateData%Vr_wake)) then allocate(DstDiscStateData%Vr_wake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -702,8 +702,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Vr_wake = SrcDiscStateData%Vr_wake end if if (allocated(SrcDiscStateData%Vx_wake2)) then - LB(1:3) = lbound(SrcDiscStateData%Vx_wake2) - UB(1:3) = ubound(SrcDiscStateData%Vx_wake2) + LB(1:3) = lbound(SrcDiscStateData%Vx_wake2, kind=B8Ki) + UB(1:3) = ubound(SrcDiscStateData%Vx_wake2, kind=B8Ki) if (.not. allocated(DstDiscStateData%Vx_wake2)) then allocate(DstDiscStateData%Vx_wake2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -714,8 +714,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Vx_wake2 = SrcDiscStateData%Vx_wake2 end if if (allocated(SrcDiscStateData%Vy_wake2)) then - LB(1:3) = lbound(SrcDiscStateData%Vy_wake2) - UB(1:3) = ubound(SrcDiscStateData%Vy_wake2) + LB(1:3) = lbound(SrcDiscStateData%Vy_wake2, kind=B8Ki) + UB(1:3) = ubound(SrcDiscStateData%Vy_wake2, kind=B8Ki) if (.not. allocated(DstDiscStateData%Vy_wake2)) then allocate(DstDiscStateData%Vy_wake2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -726,8 +726,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Vy_wake2 = SrcDiscStateData%Vy_wake2 end if if (allocated(SrcDiscStateData%Vz_wake2)) then - LB(1:3) = lbound(SrcDiscStateData%Vz_wake2) - UB(1:3) = ubound(SrcDiscStateData%Vz_wake2) + LB(1:3) = lbound(SrcDiscStateData%Vz_wake2, kind=B8Ki) + UB(1:3) = ubound(SrcDiscStateData%Vz_wake2, kind=B8Ki) if (.not. allocated(DstDiscStateData%Vz_wake2)) then allocate(DstDiscStateData%Vz_wake2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -738,8 +738,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Vz_wake2 = SrcDiscStateData%Vz_wake2 end if if (allocated(SrcDiscStateData%Vx_wind_disk_filt)) then - LB(1:1) = lbound(SrcDiscStateData%Vx_wind_disk_filt) - UB(1:1) = ubound(SrcDiscStateData%Vx_wind_disk_filt) + LB(1:1) = lbound(SrcDiscStateData%Vx_wind_disk_filt, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%Vx_wind_disk_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%Vx_wind_disk_filt)) then allocate(DstDiscStateData%Vx_wind_disk_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -750,8 +750,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Vx_wind_disk_filt = SrcDiscStateData%Vx_wind_disk_filt end if if (allocated(SrcDiscStateData%TI_amb_filt)) then - LB(1:1) = lbound(SrcDiscStateData%TI_amb_filt) - UB(1:1) = ubound(SrcDiscStateData%TI_amb_filt) + LB(1:1) = lbound(SrcDiscStateData%TI_amb_filt, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%TI_amb_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%TI_amb_filt)) then allocate(DstDiscStateData%TI_amb_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -762,8 +762,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%TI_amb_filt = SrcDiscStateData%TI_amb_filt end if if (allocated(SrcDiscStateData%D_rotor_filt)) then - LB(1:1) = lbound(SrcDiscStateData%D_rotor_filt) - UB(1:1) = ubound(SrcDiscStateData%D_rotor_filt) + LB(1:1) = lbound(SrcDiscStateData%D_rotor_filt, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%D_rotor_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%D_rotor_filt)) then allocate(DstDiscStateData%D_rotor_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -775,8 +775,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta end if DstDiscStateData%Vx_rel_disk_filt = SrcDiscStateData%Vx_rel_disk_filt if (allocated(SrcDiscStateData%Ct_azavg_filt)) then - LB(1:1) = lbound(SrcDiscStateData%Ct_azavg_filt) - UB(1:1) = ubound(SrcDiscStateData%Ct_azavg_filt) + LB(1:1) = lbound(SrcDiscStateData%Ct_azavg_filt, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%Ct_azavg_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%Ct_azavg_filt)) then allocate(DstDiscStateData%Ct_azavg_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -787,8 +787,8 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta DstDiscStateData%Ct_azavg_filt = SrcDiscStateData%Ct_azavg_filt end if if (allocated(SrcDiscStateData%Cq_azavg_filt)) then - LB(1:1) = lbound(SrcDiscStateData%Cq_azavg_filt) - UB(1:1) = ubound(SrcDiscStateData%Cq_azavg_filt) + LB(1:1) = lbound(SrcDiscStateData%Cq_azavg_filt, kind=B8Ki) + UB(1:1) = ubound(SrcDiscStateData%Cq_azavg_filt, kind=B8Ki) if (.not. allocated(DstDiscStateData%Cq_azavg_filt)) then allocate(DstDiscStateData%Cq_azavg_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -861,80 +861,80 @@ subroutine WD_PackDiscState(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%xhat_plane)) if (allocated(InData%xhat_plane)) then - call RegPackBounds(Buf, 2, lbound(InData%xhat_plane), ubound(InData%xhat_plane)) + call RegPackBounds(Buf, 2, lbound(InData%xhat_plane, kind=B8Ki), ubound(InData%xhat_plane, kind=B8Ki)) call RegPack(Buf, InData%xhat_plane) end if call RegPack(Buf, allocated(InData%YawErr_filt)) if (allocated(InData%YawErr_filt)) then - call RegPackBounds(Buf, 1, lbound(InData%YawErr_filt), ubound(InData%YawErr_filt)) + call RegPackBounds(Buf, 1, lbound(InData%YawErr_filt, kind=B8Ki), ubound(InData%YawErr_filt, kind=B8Ki)) call RegPack(Buf, InData%YawErr_filt) end if call RegPack(Buf, InData%psi_skew_filt) call RegPack(Buf, InData%chi_skew_filt) call RegPack(Buf, allocated(InData%V_plane_filt)) if (allocated(InData%V_plane_filt)) then - call RegPackBounds(Buf, 2, lbound(InData%V_plane_filt), ubound(InData%V_plane_filt)) + call RegPackBounds(Buf, 2, lbound(InData%V_plane_filt, kind=B8Ki), ubound(InData%V_plane_filt, kind=B8Ki)) call RegPack(Buf, InData%V_plane_filt) end if call RegPack(Buf, allocated(InData%p_plane)) if (allocated(InData%p_plane)) then - call RegPackBounds(Buf, 2, lbound(InData%p_plane), ubound(InData%p_plane)) + call RegPackBounds(Buf, 2, lbound(InData%p_plane, kind=B8Ki), ubound(InData%p_plane, kind=B8Ki)) call RegPack(Buf, InData%p_plane) end if call RegPack(Buf, allocated(InData%x_plane)) if (allocated(InData%x_plane)) then - call RegPackBounds(Buf, 1, lbound(InData%x_plane), ubound(InData%x_plane)) + call RegPackBounds(Buf, 1, lbound(InData%x_plane, kind=B8Ki), ubound(InData%x_plane, kind=B8Ki)) call RegPack(Buf, InData%x_plane) end if call RegPack(Buf, allocated(InData%Vx_wake)) if (allocated(InData%Vx_wake)) then - call RegPackBounds(Buf, 2, lbound(InData%Vx_wake), ubound(InData%Vx_wake)) + call RegPackBounds(Buf, 2, lbound(InData%Vx_wake, kind=B8Ki), ubound(InData%Vx_wake, kind=B8Ki)) call RegPack(Buf, InData%Vx_wake) end if call RegPack(Buf, allocated(InData%Vr_wake)) if (allocated(InData%Vr_wake)) then - call RegPackBounds(Buf, 2, lbound(InData%Vr_wake), ubound(InData%Vr_wake)) + call RegPackBounds(Buf, 2, lbound(InData%Vr_wake, kind=B8Ki), ubound(InData%Vr_wake, kind=B8Ki)) call RegPack(Buf, InData%Vr_wake) end if call RegPack(Buf, allocated(InData%Vx_wake2)) if (allocated(InData%Vx_wake2)) then - call RegPackBounds(Buf, 3, lbound(InData%Vx_wake2), ubound(InData%Vx_wake2)) + call RegPackBounds(Buf, 3, lbound(InData%Vx_wake2, kind=B8Ki), ubound(InData%Vx_wake2, kind=B8Ki)) call RegPack(Buf, InData%Vx_wake2) end if call RegPack(Buf, allocated(InData%Vy_wake2)) if (allocated(InData%Vy_wake2)) then - call RegPackBounds(Buf, 3, lbound(InData%Vy_wake2), ubound(InData%Vy_wake2)) + call RegPackBounds(Buf, 3, lbound(InData%Vy_wake2, kind=B8Ki), ubound(InData%Vy_wake2, kind=B8Ki)) call RegPack(Buf, InData%Vy_wake2) end if call RegPack(Buf, allocated(InData%Vz_wake2)) if (allocated(InData%Vz_wake2)) then - call RegPackBounds(Buf, 3, lbound(InData%Vz_wake2), ubound(InData%Vz_wake2)) + call RegPackBounds(Buf, 3, lbound(InData%Vz_wake2, kind=B8Ki), ubound(InData%Vz_wake2, kind=B8Ki)) call RegPack(Buf, InData%Vz_wake2) end if call RegPack(Buf, allocated(InData%Vx_wind_disk_filt)) if (allocated(InData%Vx_wind_disk_filt)) then - call RegPackBounds(Buf, 1, lbound(InData%Vx_wind_disk_filt), ubound(InData%Vx_wind_disk_filt)) + call RegPackBounds(Buf, 1, lbound(InData%Vx_wind_disk_filt, kind=B8Ki), ubound(InData%Vx_wind_disk_filt, kind=B8Ki)) call RegPack(Buf, InData%Vx_wind_disk_filt) end if call RegPack(Buf, allocated(InData%TI_amb_filt)) if (allocated(InData%TI_amb_filt)) then - call RegPackBounds(Buf, 1, lbound(InData%TI_amb_filt), ubound(InData%TI_amb_filt)) + call RegPackBounds(Buf, 1, lbound(InData%TI_amb_filt, kind=B8Ki), ubound(InData%TI_amb_filt, kind=B8Ki)) call RegPack(Buf, InData%TI_amb_filt) end if call RegPack(Buf, allocated(InData%D_rotor_filt)) if (allocated(InData%D_rotor_filt)) then - call RegPackBounds(Buf, 1, lbound(InData%D_rotor_filt), ubound(InData%D_rotor_filt)) + call RegPackBounds(Buf, 1, lbound(InData%D_rotor_filt, kind=B8Ki), ubound(InData%D_rotor_filt, kind=B8Ki)) call RegPack(Buf, InData%D_rotor_filt) end if call RegPack(Buf, InData%Vx_rel_disk_filt) call RegPack(Buf, allocated(InData%Ct_azavg_filt)) if (allocated(InData%Ct_azavg_filt)) then - call RegPackBounds(Buf, 1, lbound(InData%Ct_azavg_filt), ubound(InData%Ct_azavg_filt)) + call RegPackBounds(Buf, 1, lbound(InData%Ct_azavg_filt, kind=B8Ki), ubound(InData%Ct_azavg_filt, kind=B8Ki)) call RegPack(Buf, InData%Ct_azavg_filt) end if call RegPack(Buf, allocated(InData%Cq_azavg_filt)) if (allocated(InData%Cq_azavg_filt)) then - call RegPackBounds(Buf, 1, lbound(InData%Cq_azavg_filt), ubound(InData%Cq_azavg_filt)) + call RegPackBounds(Buf, 1, lbound(InData%Cq_azavg_filt, kind=B8Ki), ubound(InData%Cq_azavg_filt, kind=B8Ki)) call RegPack(Buf, InData%Cq_azavg_filt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -944,7 +944,7 @@ subroutine WD_UnPackDiscState(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WD_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackDiscState' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -1250,14 +1250,14 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%dvtdr)) then - LB(1:1) = lbound(SrcMiscData%dvtdr) - UB(1:1) = ubound(SrcMiscData%dvtdr) + LB(1:1) = lbound(SrcMiscData%dvtdr, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%dvtdr, kind=B8Ki) if (.not. allocated(DstMiscData%dvtdr)) then allocate(DstMiscData%dvtdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1268,8 +1268,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%dvtdr = SrcMiscData%dvtdr end if if (allocated(SrcMiscData%vt_tot)) then - LB(1:2) = lbound(SrcMiscData%vt_tot) - UB(1:2) = ubound(SrcMiscData%vt_tot) + LB(1:2) = lbound(SrcMiscData%vt_tot, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%vt_tot, kind=B8Ki) if (.not. allocated(DstMiscData%vt_tot)) then allocate(DstMiscData%vt_tot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1280,8 +1280,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vt_tot = SrcMiscData%vt_tot end if if (allocated(SrcMiscData%vt_amb)) then - LB(1:2) = lbound(SrcMiscData%vt_amb) - UB(1:2) = ubound(SrcMiscData%vt_amb) + LB(1:2) = lbound(SrcMiscData%vt_amb, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%vt_amb, kind=B8Ki) if (.not. allocated(DstMiscData%vt_amb)) then allocate(DstMiscData%vt_amb(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1292,8 +1292,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vt_amb = SrcMiscData%vt_amb end if if (allocated(SrcMiscData%vt_shr)) then - LB(1:2) = lbound(SrcMiscData%vt_shr) - UB(1:2) = ubound(SrcMiscData%vt_shr) + LB(1:2) = lbound(SrcMiscData%vt_shr, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%vt_shr, kind=B8Ki) if (.not. allocated(DstMiscData%vt_shr)) then allocate(DstMiscData%vt_shr(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1304,8 +1304,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vt_shr = SrcMiscData%vt_shr end if if (allocated(SrcMiscData%vt_tot2)) then - LB(1:3) = lbound(SrcMiscData%vt_tot2) - UB(1:3) = ubound(SrcMiscData%vt_tot2) + LB(1:3) = lbound(SrcMiscData%vt_tot2, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%vt_tot2, kind=B8Ki) if (.not. allocated(DstMiscData%vt_tot2)) then allocate(DstMiscData%vt_tot2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1316,8 +1316,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vt_tot2 = SrcMiscData%vt_tot2 end if if (allocated(SrcMiscData%vt_amb2)) then - LB(1:3) = lbound(SrcMiscData%vt_amb2) - UB(1:3) = ubound(SrcMiscData%vt_amb2) + LB(1:3) = lbound(SrcMiscData%vt_amb2, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%vt_amb2, kind=B8Ki) if (.not. allocated(DstMiscData%vt_amb2)) then allocate(DstMiscData%vt_amb2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1328,8 +1328,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vt_amb2 = SrcMiscData%vt_amb2 end if if (allocated(SrcMiscData%vt_shr2)) then - LB(1:3) = lbound(SrcMiscData%vt_shr2) - UB(1:3) = ubound(SrcMiscData%vt_shr2) + LB(1:3) = lbound(SrcMiscData%vt_shr2, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%vt_shr2, kind=B8Ki) if (.not. allocated(DstMiscData%vt_shr2)) then allocate(DstMiscData%vt_shr2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1340,8 +1340,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%vt_shr2 = SrcMiscData%vt_shr2 end if if (allocated(SrcMiscData%dvx_dy)) then - LB(1:3) = lbound(SrcMiscData%dvx_dy) - UB(1:3) = ubound(SrcMiscData%dvx_dy) + LB(1:3) = lbound(SrcMiscData%dvx_dy, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%dvx_dy, kind=B8Ki) if (.not. allocated(DstMiscData%dvx_dy)) then allocate(DstMiscData%dvx_dy(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1352,8 +1352,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%dvx_dy = SrcMiscData%dvx_dy end if if (allocated(SrcMiscData%dvx_dz)) then - LB(1:3) = lbound(SrcMiscData%dvx_dz) - UB(1:3) = ubound(SrcMiscData%dvx_dz) + LB(1:3) = lbound(SrcMiscData%dvx_dz, kind=B8Ki) + UB(1:3) = ubound(SrcMiscData%dvx_dz, kind=B8Ki) if (.not. allocated(DstMiscData%dvx_dz)) then allocate(DstMiscData%dvx_dz(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1364,8 +1364,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%dvx_dz = SrcMiscData%dvx_dz end if if (allocated(SrcMiscData%nu_dvx_dy)) then - LB(1:2) = lbound(SrcMiscData%nu_dvx_dy) - UB(1:2) = ubound(SrcMiscData%nu_dvx_dy) + LB(1:2) = lbound(SrcMiscData%nu_dvx_dy, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%nu_dvx_dy, kind=B8Ki) if (.not. allocated(DstMiscData%nu_dvx_dy)) then allocate(DstMiscData%nu_dvx_dy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1376,8 +1376,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%nu_dvx_dy = SrcMiscData%nu_dvx_dy end if if (allocated(SrcMiscData%nu_dvx_dz)) then - LB(1:2) = lbound(SrcMiscData%nu_dvx_dz) - UB(1:2) = ubound(SrcMiscData%nu_dvx_dz) + LB(1:2) = lbound(SrcMiscData%nu_dvx_dz, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%nu_dvx_dz, kind=B8Ki) if (.not. allocated(DstMiscData%nu_dvx_dz)) then allocate(DstMiscData%nu_dvx_dz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1388,8 +1388,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%nu_dvx_dz = SrcMiscData%nu_dvx_dz end if if (allocated(SrcMiscData%dnuvx_dy)) then - LB(1:2) = lbound(SrcMiscData%dnuvx_dy) - UB(1:2) = ubound(SrcMiscData%dnuvx_dy) + LB(1:2) = lbound(SrcMiscData%dnuvx_dy, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%dnuvx_dy, kind=B8Ki) if (.not. allocated(DstMiscData%dnuvx_dy)) then allocate(DstMiscData%dnuvx_dy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1400,8 +1400,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%dnuvx_dy = SrcMiscData%dnuvx_dy end if if (allocated(SrcMiscData%dnuvx_dz)) then - LB(1:2) = lbound(SrcMiscData%dnuvx_dz) - UB(1:2) = ubound(SrcMiscData%dnuvx_dz) + LB(1:2) = lbound(SrcMiscData%dnuvx_dz, kind=B8Ki) + UB(1:2) = ubound(SrcMiscData%dnuvx_dz, kind=B8Ki) if (.not. allocated(DstMiscData%dnuvx_dz)) then allocate(DstMiscData%dnuvx_dz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1412,8 +1412,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%dnuvx_dz = SrcMiscData%dnuvx_dz end if if (allocated(SrcMiscData%a)) then - LB(1:1) = lbound(SrcMiscData%a) - UB(1:1) = ubound(SrcMiscData%a) + LB(1:1) = lbound(SrcMiscData%a, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%a, kind=B8Ki) if (.not. allocated(DstMiscData%a)) then allocate(DstMiscData%a(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1424,8 +1424,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%a = SrcMiscData%a end if if (allocated(SrcMiscData%b)) then - LB(1:1) = lbound(SrcMiscData%b) - UB(1:1) = ubound(SrcMiscData%b) + LB(1:1) = lbound(SrcMiscData%b, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%b, kind=B8Ki) if (.not. allocated(DstMiscData%b)) then allocate(DstMiscData%b(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1436,8 +1436,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%b = SrcMiscData%b end if if (allocated(SrcMiscData%c)) then - LB(1:1) = lbound(SrcMiscData%c) - UB(1:1) = ubound(SrcMiscData%c) + LB(1:1) = lbound(SrcMiscData%c, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%c, kind=B8Ki) if (.not. allocated(DstMiscData%c)) then allocate(DstMiscData%c(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1448,8 +1448,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%c = SrcMiscData%c end if if (allocated(SrcMiscData%d)) then - LB(1:1) = lbound(SrcMiscData%d) - UB(1:1) = ubound(SrcMiscData%d) + LB(1:1) = lbound(SrcMiscData%d, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%d, kind=B8Ki) if (.not. allocated(DstMiscData%d)) then allocate(DstMiscData%d(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1460,8 +1460,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%d = SrcMiscData%d end if if (allocated(SrcMiscData%r_wake)) then - LB(1:1) = lbound(SrcMiscData%r_wake) - UB(1:1) = ubound(SrcMiscData%r_wake) + LB(1:1) = lbound(SrcMiscData%r_wake, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%r_wake, kind=B8Ki) if (.not. allocated(DstMiscData%r_wake)) then allocate(DstMiscData%r_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1472,8 +1472,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%r_wake = SrcMiscData%r_wake end if if (allocated(SrcMiscData%Vx_high)) then - LB(1:1) = lbound(SrcMiscData%Vx_high) - UB(1:1) = ubound(SrcMiscData%Vx_high) + LB(1:1) = lbound(SrcMiscData%Vx_high, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Vx_high, kind=B8Ki) if (.not. allocated(DstMiscData%Vx_high)) then allocate(DstMiscData%Vx_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1484,8 +1484,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Vx_high = SrcMiscData%Vx_high end if if (allocated(SrcMiscData%Vx_polar)) then - LB(1:1) = lbound(SrcMiscData%Vx_polar) - UB(1:1) = ubound(SrcMiscData%Vx_polar) + LB(1:1) = lbound(SrcMiscData%Vx_polar, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Vx_polar, kind=B8Ki) if (.not. allocated(DstMiscData%Vx_polar)) then allocate(DstMiscData%Vx_polar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1496,8 +1496,8 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Vx_polar = SrcMiscData%Vx_polar end if if (allocated(SrcMiscData%Vt_wake)) then - LB(1:1) = lbound(SrcMiscData%Vt_wake) - UB(1:1) = ubound(SrcMiscData%Vt_wake) + LB(1:1) = lbound(SrcMiscData%Vt_wake, kind=B8Ki) + UB(1:1) = ubound(SrcMiscData%Vt_wake, kind=B8Ki) if (.not. allocated(DstMiscData%Vt_wake)) then allocate(DstMiscData%Vt_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1590,107 +1590,107 @@ subroutine WD_PackMisc(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%dvtdr)) if (allocated(InData%dvtdr)) then - call RegPackBounds(Buf, 1, lbound(InData%dvtdr), ubound(InData%dvtdr)) + call RegPackBounds(Buf, 1, lbound(InData%dvtdr, kind=B8Ki), ubound(InData%dvtdr, kind=B8Ki)) call RegPack(Buf, InData%dvtdr) end if call RegPack(Buf, allocated(InData%vt_tot)) if (allocated(InData%vt_tot)) then - call RegPackBounds(Buf, 2, lbound(InData%vt_tot), ubound(InData%vt_tot)) + call RegPackBounds(Buf, 2, lbound(InData%vt_tot, kind=B8Ki), ubound(InData%vt_tot, kind=B8Ki)) call RegPack(Buf, InData%vt_tot) end if call RegPack(Buf, allocated(InData%vt_amb)) if (allocated(InData%vt_amb)) then - call RegPackBounds(Buf, 2, lbound(InData%vt_amb), ubound(InData%vt_amb)) + call RegPackBounds(Buf, 2, lbound(InData%vt_amb, kind=B8Ki), ubound(InData%vt_amb, kind=B8Ki)) call RegPack(Buf, InData%vt_amb) end if call RegPack(Buf, allocated(InData%vt_shr)) if (allocated(InData%vt_shr)) then - call RegPackBounds(Buf, 2, lbound(InData%vt_shr), ubound(InData%vt_shr)) + call RegPackBounds(Buf, 2, lbound(InData%vt_shr, kind=B8Ki), ubound(InData%vt_shr, kind=B8Ki)) call RegPack(Buf, InData%vt_shr) end if call RegPack(Buf, allocated(InData%vt_tot2)) if (allocated(InData%vt_tot2)) then - call RegPackBounds(Buf, 3, lbound(InData%vt_tot2), ubound(InData%vt_tot2)) + call RegPackBounds(Buf, 3, lbound(InData%vt_tot2, kind=B8Ki), ubound(InData%vt_tot2, kind=B8Ki)) call RegPack(Buf, InData%vt_tot2) end if call RegPack(Buf, allocated(InData%vt_amb2)) if (allocated(InData%vt_amb2)) then - call RegPackBounds(Buf, 3, lbound(InData%vt_amb2), ubound(InData%vt_amb2)) + call RegPackBounds(Buf, 3, lbound(InData%vt_amb2, kind=B8Ki), ubound(InData%vt_amb2, kind=B8Ki)) call RegPack(Buf, InData%vt_amb2) end if call RegPack(Buf, allocated(InData%vt_shr2)) if (allocated(InData%vt_shr2)) then - call RegPackBounds(Buf, 3, lbound(InData%vt_shr2), ubound(InData%vt_shr2)) + call RegPackBounds(Buf, 3, lbound(InData%vt_shr2, kind=B8Ki), ubound(InData%vt_shr2, kind=B8Ki)) call RegPack(Buf, InData%vt_shr2) end if call RegPack(Buf, allocated(InData%dvx_dy)) if (allocated(InData%dvx_dy)) then - call RegPackBounds(Buf, 3, lbound(InData%dvx_dy), ubound(InData%dvx_dy)) + call RegPackBounds(Buf, 3, lbound(InData%dvx_dy, kind=B8Ki), ubound(InData%dvx_dy, kind=B8Ki)) call RegPack(Buf, InData%dvx_dy) end if call RegPack(Buf, allocated(InData%dvx_dz)) if (allocated(InData%dvx_dz)) then - call RegPackBounds(Buf, 3, lbound(InData%dvx_dz), ubound(InData%dvx_dz)) + call RegPackBounds(Buf, 3, lbound(InData%dvx_dz, kind=B8Ki), ubound(InData%dvx_dz, kind=B8Ki)) call RegPack(Buf, InData%dvx_dz) end if call RegPack(Buf, allocated(InData%nu_dvx_dy)) if (allocated(InData%nu_dvx_dy)) then - call RegPackBounds(Buf, 2, lbound(InData%nu_dvx_dy), ubound(InData%nu_dvx_dy)) + call RegPackBounds(Buf, 2, lbound(InData%nu_dvx_dy, kind=B8Ki), ubound(InData%nu_dvx_dy, kind=B8Ki)) call RegPack(Buf, InData%nu_dvx_dy) end if call RegPack(Buf, allocated(InData%nu_dvx_dz)) if (allocated(InData%nu_dvx_dz)) then - call RegPackBounds(Buf, 2, lbound(InData%nu_dvx_dz), ubound(InData%nu_dvx_dz)) + call RegPackBounds(Buf, 2, lbound(InData%nu_dvx_dz, kind=B8Ki), ubound(InData%nu_dvx_dz, kind=B8Ki)) call RegPack(Buf, InData%nu_dvx_dz) end if call RegPack(Buf, allocated(InData%dnuvx_dy)) if (allocated(InData%dnuvx_dy)) then - call RegPackBounds(Buf, 2, lbound(InData%dnuvx_dy), ubound(InData%dnuvx_dy)) + call RegPackBounds(Buf, 2, lbound(InData%dnuvx_dy, kind=B8Ki), ubound(InData%dnuvx_dy, kind=B8Ki)) call RegPack(Buf, InData%dnuvx_dy) end if call RegPack(Buf, allocated(InData%dnuvx_dz)) if (allocated(InData%dnuvx_dz)) then - call RegPackBounds(Buf, 2, lbound(InData%dnuvx_dz), ubound(InData%dnuvx_dz)) + call RegPackBounds(Buf, 2, lbound(InData%dnuvx_dz, kind=B8Ki), ubound(InData%dnuvx_dz, kind=B8Ki)) call RegPack(Buf, InData%dnuvx_dz) end if call RegPack(Buf, allocated(InData%a)) if (allocated(InData%a)) then - call RegPackBounds(Buf, 1, lbound(InData%a), ubound(InData%a)) + call RegPackBounds(Buf, 1, lbound(InData%a, kind=B8Ki), ubound(InData%a, kind=B8Ki)) call RegPack(Buf, InData%a) end if call RegPack(Buf, allocated(InData%b)) if (allocated(InData%b)) then - call RegPackBounds(Buf, 1, lbound(InData%b), ubound(InData%b)) + call RegPackBounds(Buf, 1, lbound(InData%b, kind=B8Ki), ubound(InData%b, kind=B8Ki)) call RegPack(Buf, InData%b) end if call RegPack(Buf, allocated(InData%c)) if (allocated(InData%c)) then - call RegPackBounds(Buf, 1, lbound(InData%c), ubound(InData%c)) + call RegPackBounds(Buf, 1, lbound(InData%c, kind=B8Ki), ubound(InData%c, kind=B8Ki)) call RegPack(Buf, InData%c) end if call RegPack(Buf, allocated(InData%d)) if (allocated(InData%d)) then - call RegPackBounds(Buf, 1, lbound(InData%d), ubound(InData%d)) + call RegPackBounds(Buf, 1, lbound(InData%d, kind=B8Ki), ubound(InData%d, kind=B8Ki)) call RegPack(Buf, InData%d) end if call RegPack(Buf, allocated(InData%r_wake)) if (allocated(InData%r_wake)) then - call RegPackBounds(Buf, 1, lbound(InData%r_wake), ubound(InData%r_wake)) + call RegPackBounds(Buf, 1, lbound(InData%r_wake, kind=B8Ki), ubound(InData%r_wake, kind=B8Ki)) call RegPack(Buf, InData%r_wake) end if call RegPack(Buf, allocated(InData%Vx_high)) if (allocated(InData%Vx_high)) then - call RegPackBounds(Buf, 1, lbound(InData%Vx_high), ubound(InData%Vx_high)) + call RegPackBounds(Buf, 1, lbound(InData%Vx_high, kind=B8Ki), ubound(InData%Vx_high, kind=B8Ki)) call RegPack(Buf, InData%Vx_high) end if call RegPack(Buf, allocated(InData%Vx_polar)) if (allocated(InData%Vx_polar)) then - call RegPackBounds(Buf, 1, lbound(InData%Vx_polar), ubound(InData%Vx_polar)) + call RegPackBounds(Buf, 1, lbound(InData%Vx_polar, kind=B8Ki), ubound(InData%Vx_polar, kind=B8Ki)) call RegPack(Buf, InData%Vx_polar) end if call RegPack(Buf, allocated(InData%Vt_wake)) if (allocated(InData%Vt_wake)) then - call RegPackBounds(Buf, 1, lbound(InData%Vt_wake), ubound(InData%Vt_wake)) + call RegPackBounds(Buf, 1, lbound(InData%Vt_wake, kind=B8Ki), ubound(InData%Vt_wake, kind=B8Ki)) call RegPack(Buf, InData%Vt_wake) end if call RegPack(Buf, InData%GammaCurl) @@ -1702,7 +1702,7 @@ subroutine WD_UnPackMisc(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackMisc' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2012,7 +2012,7 @@ subroutine WD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyParam' ErrStat = ErrID_None @@ -2022,8 +2022,8 @@ subroutine WD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NumRadii = SrcParamData%NumRadii DstParamData%dr = SrcParamData%dr if (allocated(SrcParamData%r)) then - LB(1:1) = lbound(SrcParamData%r) - UB(1:1) = ubound(SrcParamData%r) + LB(1:1) = lbound(SrcParamData%r, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%r, kind=B8Ki) if (.not. allocated(DstParamData%r)) then allocate(DstParamData%r(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2034,8 +2034,8 @@ subroutine WD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%r = SrcParamData%r end if if (allocated(SrcParamData%y)) then - LB(1:1) = lbound(SrcParamData%y) - UB(1:1) = ubound(SrcParamData%y) + LB(1:1) = lbound(SrcParamData%y, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%y, kind=B8Ki) if (.not. allocated(DstParamData%y)) then allocate(DstParamData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2046,8 +2046,8 @@ subroutine WD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%y = SrcParamData%y end if if (allocated(SrcParamData%z)) then - LB(1:1) = lbound(SrcParamData%z) - UB(1:1) = ubound(SrcParamData%z) + LB(1:1) = lbound(SrcParamData%z, kind=B8Ki) + UB(1:1) = ubound(SrcParamData%z, kind=B8Ki) if (.not. allocated(DstParamData%z)) then allocate(DstParamData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2121,17 +2121,17 @@ subroutine WD_PackParam(Buf, Indata) call RegPack(Buf, InData%dr) call RegPack(Buf, allocated(InData%r)) if (allocated(InData%r)) then - call RegPackBounds(Buf, 1, lbound(InData%r), ubound(InData%r)) + call RegPackBounds(Buf, 1, lbound(InData%r, kind=B8Ki), ubound(InData%r, kind=B8Ki)) call RegPack(Buf, InData%r) end if call RegPack(Buf, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(Buf, 1, lbound(InData%y), ubound(InData%y)) + call RegPackBounds(Buf, 1, lbound(InData%y, kind=B8Ki), ubound(InData%y, kind=B8Ki)) call RegPack(Buf, InData%y) end if call RegPack(Buf, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(Buf, 1, lbound(InData%z), ubound(InData%z)) + call RegPackBounds(Buf, 1, lbound(InData%z, kind=B8Ki), ubound(InData%z, kind=B8Ki)) call RegPack(Buf, InData%z) end if call RegPack(Buf, InData%Mod_Wake) @@ -2174,7 +2174,7 @@ subroutine WD_UnPackParam(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackParam' - integer(IntKi) :: LB(1), UB(1) + integer(B8Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2302,7 +2302,7 @@ subroutine WD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyInput' ErrStat = ErrID_None @@ -2313,8 +2313,8 @@ subroutine WD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%chi_skew = SrcInputData%chi_skew DstInputData%p_hub = SrcInputData%p_hub if (allocated(SrcInputData%V_plane)) then - LB(1:2) = lbound(SrcInputData%V_plane) - UB(1:2) = ubound(SrcInputData%V_plane) + LB(1:2) = lbound(SrcInputData%V_plane, kind=B8Ki) + UB(1:2) = ubound(SrcInputData%V_plane, kind=B8Ki) if (.not. allocated(DstInputData%V_plane)) then allocate(DstInputData%V_plane(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2329,8 +2329,8 @@ subroutine WD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%D_rotor = SrcInputData%D_rotor DstInputData%Vx_rel_disk = SrcInputData%Vx_rel_disk if (allocated(SrcInputData%Ct_azavg)) then - LB(1:1) = lbound(SrcInputData%Ct_azavg) - UB(1:1) = ubound(SrcInputData%Ct_azavg) + LB(1:1) = lbound(SrcInputData%Ct_azavg, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%Ct_azavg, kind=B8Ki) if (.not. allocated(DstInputData%Ct_azavg)) then allocate(DstInputData%Ct_azavg(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2341,8 +2341,8 @@ subroutine WD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%Ct_azavg = SrcInputData%Ct_azavg end if if (allocated(SrcInputData%Cq_azavg)) then - LB(1:1) = lbound(SrcInputData%Cq_azavg) - UB(1:1) = ubound(SrcInputData%Cq_azavg) + LB(1:1) = lbound(SrcInputData%Cq_azavg, kind=B8Ki) + UB(1:1) = ubound(SrcInputData%Cq_azavg, kind=B8Ki) if (.not. allocated(DstInputData%Cq_azavg)) then allocate(DstInputData%Cq_azavg(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2384,7 +2384,7 @@ subroutine WD_PackInput(Buf, Indata) call RegPack(Buf, InData%p_hub) call RegPack(Buf, allocated(InData%V_plane)) if (allocated(InData%V_plane)) then - call RegPackBounds(Buf, 2, lbound(InData%V_plane), ubound(InData%V_plane)) + call RegPackBounds(Buf, 2, lbound(InData%V_plane, kind=B8Ki), ubound(InData%V_plane, kind=B8Ki)) call RegPack(Buf, InData%V_plane) end if call RegPack(Buf, InData%Vx_wind_disk) @@ -2393,12 +2393,12 @@ subroutine WD_PackInput(Buf, Indata) call RegPack(Buf, InData%Vx_rel_disk) call RegPack(Buf, allocated(InData%Ct_azavg)) if (allocated(InData%Ct_azavg)) then - call RegPackBounds(Buf, 1, lbound(InData%Ct_azavg), ubound(InData%Ct_azavg)) + call RegPackBounds(Buf, 1, lbound(InData%Ct_azavg, kind=B8Ki), ubound(InData%Ct_azavg, kind=B8Ki)) call RegPack(Buf, InData%Ct_azavg) end if call RegPack(Buf, allocated(InData%Cq_azavg)) if (allocated(InData%Cq_azavg)) then - call RegPackBounds(Buf, 1, lbound(InData%Cq_azavg), ubound(InData%Cq_azavg)) + call RegPackBounds(Buf, 1, lbound(InData%Cq_azavg, kind=B8Ki), ubound(InData%Cq_azavg, kind=B8Ki)) call RegPack(Buf, InData%Cq_azavg) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2408,7 +2408,7 @@ subroutine WD_UnPackInput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackInput' - integer(IntKi) :: LB(2), UB(2) + integer(B8Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return @@ -2480,14 +2480,14 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%xhat_plane)) then - LB(1:2) = lbound(SrcOutputData%xhat_plane) - UB(1:2) = ubound(SrcOutputData%xhat_plane) + LB(1:2) = lbound(SrcOutputData%xhat_plane, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%xhat_plane, kind=B8Ki) if (.not. allocated(DstOutputData%xhat_plane)) then allocate(DstOutputData%xhat_plane(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2498,8 +2498,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%xhat_plane = SrcOutputData%xhat_plane end if if (allocated(SrcOutputData%p_plane)) then - LB(1:2) = lbound(SrcOutputData%p_plane) - UB(1:2) = ubound(SrcOutputData%p_plane) + LB(1:2) = lbound(SrcOutputData%p_plane, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%p_plane, kind=B8Ki) if (.not. allocated(DstOutputData%p_plane)) then allocate(DstOutputData%p_plane(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2510,8 +2510,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%p_plane = SrcOutputData%p_plane end if if (allocated(SrcOutputData%Vx_wake)) then - LB(1:2) = lbound(SrcOutputData%Vx_wake) - UB(1:2) = ubound(SrcOutputData%Vx_wake) + LB(1:2) = lbound(SrcOutputData%Vx_wake, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Vx_wake, kind=B8Ki) if (.not. allocated(DstOutputData%Vx_wake)) then allocate(DstOutputData%Vx_wake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2522,8 +2522,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%Vx_wake = SrcOutputData%Vx_wake end if if (allocated(SrcOutputData%Vr_wake)) then - LB(1:2) = lbound(SrcOutputData%Vr_wake) - UB(1:2) = ubound(SrcOutputData%Vr_wake) + LB(1:2) = lbound(SrcOutputData%Vr_wake, kind=B8Ki) + UB(1:2) = ubound(SrcOutputData%Vr_wake, kind=B8Ki) if (.not. allocated(DstOutputData%Vr_wake)) then allocate(DstOutputData%Vr_wake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2534,8 +2534,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%Vr_wake = SrcOutputData%Vr_wake end if if (allocated(SrcOutputData%Vx_wake2)) then - LB(1:3) = lbound(SrcOutputData%Vx_wake2) - UB(1:3) = ubound(SrcOutputData%Vx_wake2) + LB(1:3) = lbound(SrcOutputData%Vx_wake2, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%Vx_wake2, kind=B8Ki) if (.not. allocated(DstOutputData%Vx_wake2)) then allocate(DstOutputData%Vx_wake2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2546,8 +2546,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%Vx_wake2 = SrcOutputData%Vx_wake2 end if if (allocated(SrcOutputData%Vy_wake2)) then - LB(1:3) = lbound(SrcOutputData%Vy_wake2) - UB(1:3) = ubound(SrcOutputData%Vy_wake2) + LB(1:3) = lbound(SrcOutputData%Vy_wake2, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%Vy_wake2, kind=B8Ki) if (.not. allocated(DstOutputData%Vy_wake2)) then allocate(DstOutputData%Vy_wake2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2558,8 +2558,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%Vy_wake2 = SrcOutputData%Vy_wake2 end if if (allocated(SrcOutputData%Vz_wake2)) then - LB(1:3) = lbound(SrcOutputData%Vz_wake2) - UB(1:3) = ubound(SrcOutputData%Vz_wake2) + LB(1:3) = lbound(SrcOutputData%Vz_wake2, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%Vz_wake2, kind=B8Ki) if (.not. allocated(DstOutputData%Vz_wake2)) then allocate(DstOutputData%Vz_wake2(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2570,8 +2570,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%Vz_wake2 = SrcOutputData%Vz_wake2 end if if (allocated(SrcOutputData%D_wake)) then - LB(1:1) = lbound(SrcOutputData%D_wake) - UB(1:1) = ubound(SrcOutputData%D_wake) + LB(1:1) = lbound(SrcOutputData%D_wake, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%D_wake, kind=B8Ki) if (.not. allocated(DstOutputData%D_wake)) then allocate(DstOutputData%D_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2582,8 +2582,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%D_wake = SrcOutputData%D_wake end if if (allocated(SrcOutputData%x_plane)) then - LB(1:1) = lbound(SrcOutputData%x_plane) - UB(1:1) = ubound(SrcOutputData%x_plane) + LB(1:1) = lbound(SrcOutputData%x_plane, kind=B8Ki) + UB(1:1) = ubound(SrcOutputData%x_plane, kind=B8Ki) if (.not. allocated(DstOutputData%x_plane)) then allocate(DstOutputData%x_plane(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2594,8 +2594,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%x_plane = SrcOutputData%x_plane end if if (allocated(SrcOutputData%WAT_k_mt)) then - LB(1:3) = lbound(SrcOutputData%WAT_k_mt) - UB(1:3) = ubound(SrcOutputData%WAT_k_mt) + LB(1:3) = lbound(SrcOutputData%WAT_k_mt, kind=B8Ki) + UB(1:3) = ubound(SrcOutputData%WAT_k_mt, kind=B8Ki) if (.not. allocated(DstOutputData%WAT_k_mt)) then allocate(DstOutputData%WAT_k_mt(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2653,52 +2653,52 @@ subroutine WD_PackOutput(Buf, Indata) if (Buf%ErrStat >= AbortErrLev) return call RegPack(Buf, allocated(InData%xhat_plane)) if (allocated(InData%xhat_plane)) then - call RegPackBounds(Buf, 2, lbound(InData%xhat_plane), ubound(InData%xhat_plane)) + call RegPackBounds(Buf, 2, lbound(InData%xhat_plane, kind=B8Ki), ubound(InData%xhat_plane, kind=B8Ki)) call RegPack(Buf, InData%xhat_plane) end if call RegPack(Buf, allocated(InData%p_plane)) if (allocated(InData%p_plane)) then - call RegPackBounds(Buf, 2, lbound(InData%p_plane), ubound(InData%p_plane)) + call RegPackBounds(Buf, 2, lbound(InData%p_plane, kind=B8Ki), ubound(InData%p_plane, kind=B8Ki)) call RegPack(Buf, InData%p_plane) end if call RegPack(Buf, allocated(InData%Vx_wake)) if (allocated(InData%Vx_wake)) then - call RegPackBounds(Buf, 2, lbound(InData%Vx_wake), ubound(InData%Vx_wake)) + call RegPackBounds(Buf, 2, lbound(InData%Vx_wake, kind=B8Ki), ubound(InData%Vx_wake, kind=B8Ki)) call RegPack(Buf, InData%Vx_wake) end if call RegPack(Buf, allocated(InData%Vr_wake)) if (allocated(InData%Vr_wake)) then - call RegPackBounds(Buf, 2, lbound(InData%Vr_wake), ubound(InData%Vr_wake)) + call RegPackBounds(Buf, 2, lbound(InData%Vr_wake, kind=B8Ki), ubound(InData%Vr_wake, kind=B8Ki)) call RegPack(Buf, InData%Vr_wake) end if call RegPack(Buf, allocated(InData%Vx_wake2)) if (allocated(InData%Vx_wake2)) then - call RegPackBounds(Buf, 3, lbound(InData%Vx_wake2), ubound(InData%Vx_wake2)) + call RegPackBounds(Buf, 3, lbound(InData%Vx_wake2, kind=B8Ki), ubound(InData%Vx_wake2, kind=B8Ki)) call RegPack(Buf, InData%Vx_wake2) end if call RegPack(Buf, allocated(InData%Vy_wake2)) if (allocated(InData%Vy_wake2)) then - call RegPackBounds(Buf, 3, lbound(InData%Vy_wake2), ubound(InData%Vy_wake2)) + call RegPackBounds(Buf, 3, lbound(InData%Vy_wake2, kind=B8Ki), ubound(InData%Vy_wake2, kind=B8Ki)) call RegPack(Buf, InData%Vy_wake2) end if call RegPack(Buf, allocated(InData%Vz_wake2)) if (allocated(InData%Vz_wake2)) then - call RegPackBounds(Buf, 3, lbound(InData%Vz_wake2), ubound(InData%Vz_wake2)) + call RegPackBounds(Buf, 3, lbound(InData%Vz_wake2, kind=B8Ki), ubound(InData%Vz_wake2, kind=B8Ki)) call RegPack(Buf, InData%Vz_wake2) end if call RegPack(Buf, allocated(InData%D_wake)) if (allocated(InData%D_wake)) then - call RegPackBounds(Buf, 1, lbound(InData%D_wake), ubound(InData%D_wake)) + call RegPackBounds(Buf, 1, lbound(InData%D_wake, kind=B8Ki), ubound(InData%D_wake, kind=B8Ki)) call RegPack(Buf, InData%D_wake) end if call RegPack(Buf, allocated(InData%x_plane)) if (allocated(InData%x_plane)) then - call RegPackBounds(Buf, 1, lbound(InData%x_plane), ubound(InData%x_plane)) + call RegPackBounds(Buf, 1, lbound(InData%x_plane, kind=B8Ki), ubound(InData%x_plane, kind=B8Ki)) call RegPack(Buf, InData%x_plane) end if call RegPack(Buf, allocated(InData%WAT_k_mt)) if (allocated(InData%WAT_k_mt)) then - call RegPackBounds(Buf, 3, lbound(InData%WAT_k_mt), ubound(InData%WAT_k_mt)) + call RegPackBounds(Buf, 3, lbound(InData%WAT_k_mt, kind=B8Ki), ubound(InData%WAT_k_mt, kind=B8Ki)) call RegPack(Buf, InData%WAT_k_mt) end if if (RegCheckErr(Buf, RoutineName)) return @@ -2708,7 +2708,7 @@ subroutine WD_UnPackOutput(Buf, OutData) type(PackBuffer), intent(inout) :: Buf type(WD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackOutput' - integer(IntKi) :: LB(3), UB(3) + integer(B8Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (Buf%ErrStat /= ErrID_None) return