diff --git a/glue-codes/fast-farm/src/FASTWrapper_Types.f90 b/glue-codes/fast-farm/src/FASTWrapper_Types.f90 index 87b334f83a..983b960364 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(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%fromSCGlob, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%fromSCGlob) + UB(1:1) = ubound(SrcInitInputData%fromSCGlob) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%fromSC) + UB(1:1) = ubound(SrcInitInputData%fromSC) if (.not. allocated(DstInitInputData%fromSC)) then allocate(DstInitInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -239,7 +239,7 @@ subroutine FWrap_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(FWrap_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackInitInput' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -478,8 +478,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FWrap_CopyMisc' @@ -489,8 +489,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%TempDisp, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%TempDisp) + UB(1:1) = ubound(SrcMiscData%TempDisp) if (.not. allocated(DstMiscData%TempDisp)) then allocate(DstMiscData%TempDisp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -505,8 +505,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%TempLoads)) then - LB(1:1) = lbound(SrcMiscData%TempLoads, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%TempLoads, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%TempLoads) + UB(1:1) = ubound(SrcMiscData%TempLoads) if (.not. allocated(DstMiscData%TempLoads)) then allocate(DstMiscData%TempLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -521,8 +521,8 @@ subroutine FWrap_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%ADRotorDisk)) then - LB(1:1) = lbound(SrcMiscData%ADRotorDisk, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%ADRotorDisk, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%ADRotorDisk) + UB(1:1) = ubound(SrcMiscData%ADRotorDisk) if (.not. allocated(DstMiscData%ADRotorDisk)) then allocate(DstMiscData%ADRotorDisk(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -537,8 +537,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AD_L2L, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AD_L2L) + UB(1:1) = ubound(SrcMiscData%AD_L2L) if (.not. allocated(DstMiscData%AD_L2L)) then allocate(DstMiscData%AD_L2L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -558,8 +558,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) type(FWrap_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FWrap_DestroyMisc' @@ -568,8 +568,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%TempDisp, kind=B8Ki) + LB(1:1) = lbound(MiscData%TempDisp) + UB(1:1) = ubound(MiscData%TempDisp) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%TempDisp(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -577,8 +577,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%TempDisp) end if if (allocated(MiscData%TempLoads)) then - LB(1:1) = lbound(MiscData%TempLoads, kind=B8Ki) - UB(1:1) = ubound(MiscData%TempLoads, kind=B8Ki) + LB(1:1) = lbound(MiscData%TempLoads) + UB(1:1) = ubound(MiscData%TempLoads) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%TempLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -586,8 +586,8 @@ subroutine FWrap_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%TempLoads) end if if (allocated(MiscData%ADRotorDisk)) then - LB(1:1) = lbound(MiscData%ADRotorDisk, kind=B8Ki) - UB(1:1) = ubound(MiscData%ADRotorDisk, kind=B8Ki) + LB(1:1) = lbound(MiscData%ADRotorDisk) + UB(1:1) = ubound(MiscData%ADRotorDisk) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%ADRotorDisk(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -595,8 +595,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%AD_L2L, kind=B8Ki) + LB(1:1) = lbound(MiscData%AD_L2L) + UB(1:1) = ubound(MiscData%AD_L2L) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%AD_L2L(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -609,42 +609,42 @@ subroutine FWrap_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(FWrap_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'FWrap_PackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call FAST_PackTurbineType(RF, InData%Turbine) call RegPack(RF, allocated(InData%TempDisp)) if (allocated(InData%TempDisp)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TempDisp), ubound(InData%TempDisp)) + LB(1:1) = lbound(InData%TempDisp) + UB(1:1) = ubound(InData%TempDisp) do i1 = LB(1), UB(1) call MeshPack(RF, InData%TempDisp(i1)) end do end if call RegPack(RF, allocated(InData%TempLoads)) if (allocated(InData%TempLoads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TempLoads), ubound(InData%TempLoads)) + LB(1:1) = lbound(InData%TempLoads) + UB(1:1) = ubound(InData%TempLoads) do i1 = LB(1), UB(1) call MeshPack(RF, InData%TempLoads(i1)) end do end if call RegPack(RF, allocated(InData%ADRotorDisk)) if (allocated(InData%ADRotorDisk)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%ADRotorDisk), ubound(InData%ADRotorDisk)) + LB(1:1) = lbound(InData%ADRotorDisk) + UB(1:1) = ubound(InData%ADRotorDisk) do i1 = LB(1), UB(1) call MeshPack(RF, InData%ADRotorDisk(i1)) end do end if call RegPack(RF, allocated(InData%AD_L2L)) if (allocated(InData%AD_L2L)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%AD_L2L), ubound(InData%AD_L2L)) + LB(1:1) = lbound(InData%AD_L2L) + UB(1:1) = ubound(InData%AD_L2L) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%AD_L2L(i1)) end do @@ -656,8 +656,8 @@ subroutine FWrap_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(FWrap_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -722,15 +722,15 @@ subroutine FWrap_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%r, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%r) + UB(1:1) = ubound(SrcParamData%r) if (.not. allocated(DstParamData%r)) then allocate(DstParamData%r(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -772,7 +772,7 @@ subroutine FWrap_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(FWrap_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -788,14 +788,14 @@ subroutine FWrap_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fromSCglob, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fromSCglob) + UB(1:1) = ubound(SrcInputData%fromSCglob) if (.not. allocated(DstInputData%fromSCglob)) then allocate(DstInputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -806,8 +806,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fromSC) + UB(1:1) = ubound(SrcInputData%fromSC) if (.not. allocated(DstInputData%fromSC)) then allocate(DstInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -848,7 +848,7 @@ subroutine FWrap_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(FWrap_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -862,14 +862,14 @@ subroutine FWrap_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%toSC, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%toSC) + UB(1:1) = ubound(SrcOutputData%toSC) if (.not. allocated(DstOutputData%toSC)) then allocate(DstOutputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -887,8 +887,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%AzimAvg_Ct, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%AzimAvg_Ct) + UB(1:1) = ubound(SrcOutputData%AzimAvg_Ct) if (.not. allocated(DstOutputData%AzimAvg_Ct)) then allocate(DstOutputData%AzimAvg_Ct(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -899,8 +899,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%AzimAvg_Cq, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%AzimAvg_Cq) + UB(1:1) = ubound(SrcOutputData%AzimAvg_Cq) if (.not. allocated(DstOutputData%AzimAvg_Cq)) then allocate(DstOutputData%AzimAvg_Cq(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -952,7 +952,7 @@ subroutine FWrap_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(FWrap_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FWrap_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%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 cafbfa0d2f..a03b686f1d 100644 --- a/glue-codes/fast-farm/src/FAST_Farm_Types.f90 +++ b/glue-codes/fast-farm/src/FAST_Farm_Types.f90 @@ -220,8 +220,8 @@ subroutine Farm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyParam' @@ -236,8 +236,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%WT_Position, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%WT_Position) + UB(1:2) = ubound(SrcParamData%WT_Position) 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 @@ -253,8 +253,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WT_FASTInFile, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WT_FASTInFile) + UB(1:1) = ubound(SrcParamData%WT_FASTInFile) if (.not. allocated(DstParamData%WT_FASTInFile)) then allocate(DstParamData%WT_FASTInFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -281,8 +281,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutRadii, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutRadii) + UB(1:1) = ubound(SrcParamData%OutRadii) if (.not. allocated(DstParamData%OutRadii)) then allocate(DstParamData%OutRadii(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -294,8 +294,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutDist, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutDist) + UB(1:1) = ubound(SrcParamData%OutDist) if (.not. allocated(DstParamData%OutDist)) then allocate(DstParamData%OutDist(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -307,8 +307,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WindVelX, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WindVelX) + UB(1:1) = ubound(SrcParamData%WindVelX) if (.not. allocated(DstParamData%WindVelX)) then allocate(DstParamData%WindVelX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -319,8 +319,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WindVelY, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WindVelY) + UB(1:1) = ubound(SrcParamData%WindVelY) if (.not. allocated(DstParamData%WindVelY)) then allocate(DstParamData%WindVelY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -331,8 +331,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WindVelZ, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WindVelZ) + UB(1:1) = ubound(SrcParamData%WindVelZ) if (.not. allocated(DstParamData%WindVelZ)) then allocate(DstParamData%WindVelZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -343,8 +343,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -361,8 +361,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Module_Ver) + UB(1:1) = ubound(SrcParamData%Module_Ver) 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) @@ -389,8 +389,8 @@ subroutine Farm_DestroyParam(ParamData, ErrStat, ErrMsg) type(Farm_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyParam' @@ -418,16 +418,16 @@ subroutine Farm_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WindVelZ) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) 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, kind=B8Ki) - UB(1:1) = ubound(ParamData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(ParamData%Module_Ver) + UB(1:1) = ubound(ParamData%Module_Ver) do i1 = LB(1), UB(1) call NWTC_Library_DestroyProgDesc(ParamData%Module_Ver(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -438,8 +438,8 @@ subroutine Farm_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(Farm_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT_low) call RegPack(RF, InData%DT_high) @@ -481,9 +481,9 @@ subroutine Farm_PackParam(RF, Indata) call RegPackAlloc(RF, InData%WindVelZ) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -491,8 +491,8 @@ subroutine Farm_PackParam(RF, Indata) call RegPack(RF, InData%NumOuts) call RegPack(RF, InData%NOutSteps) call RegPack(RF, InData%FileDescLines) - LB(1:1) = lbound(InData%Module_Ver, kind=B8Ki) - UB(1:1) = ubound(InData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(InData%Module_Ver) + UB(1:1) = ubound(InData%Module_Ver) do i1 = LB(1), UB(1) call NWTC_Library_PackProgDesc(RF, InData%Module_Ver(i1)) end do @@ -518,8 +518,8 @@ subroutine Farm_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(Farm_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -577,8 +577,8 @@ subroutine Farm_UnPackParam(RF, OutData) call RegUnpack(RF, OutData%NumOuts); if (RegCheckErr(RF, RoutineName)) return call RegUnpack(RF, OutData%NOutSteps); if (RegCheckErr(RF, RoutineName)) return call RegUnpack(RF, OutData%FileDescLines); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%Module_Ver, kind=B8Ki) - UB(1:1) = ubound(OutData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(OutData%Module_Ver) + UB(1:1) = ubound(OutData%Module_Ver) do i1 = LB(1), UB(1) call NWTC_Library_UnpackProgDesc(RF, OutData%Module_Ver(i1)) ! Module_Ver end do @@ -605,16 +605,16 @@ subroutine Farm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -625,8 +625,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%TimeData, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%TimeData) + UB(1:1) = ubound(SrcMiscData%TimeData) if (.not. allocated(DstMiscData%TimeData)) then allocate(DstMiscData%TimeData(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -637,8 +637,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%AllOutData, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%AllOutData) + UB(1:2) = ubound(SrcMiscData%AllOutData) if (.not. allocated(DstMiscData%AllOutData)) then allocate(DstMiscData%AllOutData(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -650,8 +650,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FWrap_2_MD, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FWrap_2_MD) + UB(1:1) = ubound(SrcMiscData%FWrap_2_MD) if (.not. allocated(DstMiscData%FWrap_2_MD)) then allocate(DstMiscData%FWrap_2_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -666,8 +666,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%MD_2_FWrap, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%MD_2_FWrap) + UB(1:1) = ubound(SrcMiscData%MD_2_FWrap) if (.not. allocated(DstMiscData%MD_2_FWrap)) then allocate(DstMiscData%MD_2_FWrap(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -687,8 +687,8 @@ subroutine Farm_DestroyMisc(MiscData, ErrStat, ErrMsg) type(Farm_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyMisc' @@ -704,8 +704,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%FWrap_2_MD, kind=B8Ki) + LB(1:1) = lbound(MiscData%FWrap_2_MD) + UB(1:1) = ubound(MiscData%FWrap_2_MD) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%FWrap_2_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -713,8 +713,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%MD_2_FWrap, kind=B8Ki) + LB(1:1) = lbound(MiscData%MD_2_FWrap) + UB(1:1) = ubound(MiscData%MD_2_FWrap) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%MD_2_FWrap(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -727,8 +727,8 @@ subroutine Farm_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(Farm_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%AllOuts) call RegPackAlloc(RF, InData%TimeData) @@ -736,18 +736,18 @@ subroutine Farm_PackMisc(RF, Indata) call RegPack(RF, InData%n_Out) call RegPack(RF, allocated(InData%FWrap_2_MD)) if (allocated(InData%FWrap_2_MD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%FWrap_2_MD(i1)) end do end if call RegPack(RF, allocated(InData%MD_2_FWrap)) if (allocated(InData%MD_2_FWrap)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%MD_2_FWrap(i1)) end do @@ -759,8 +759,8 @@ subroutine Farm_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(Farm_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1197,8 +1197,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyMD_Data' @@ -1223,8 +1223,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, kind=B8Ki) - UB(1:1) = ubound(SrcMD_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcMD_DataData%Input) + UB(1:1) = ubound(SrcMD_DataData%Input) if (.not. allocated(DstMD_DataData%Input)) then allocate(DstMD_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1239,8 +1239,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, kind=B8Ki) - UB(1:1) = ubound(SrcMD_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcMD_DataData%InputTimes) + UB(1:1) = ubound(SrcMD_DataData%InputTimes) if (.not. allocated(DstMD_DataData%InputTimes)) then allocate(DstMD_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1263,8 +1263,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyMD_Data' @@ -1283,8 +1283,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, kind=B8Ki) - UB(1:1) = ubound(MD_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(MD_DataData%Input) + UB(1:1) = ubound(MD_DataData%Input) do i1 = LB(1), UB(1) call MD_DestroyInput(MD_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1304,8 +1304,8 @@ subroutine Farm_PackMD_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(MD_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackMD_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call MD_PackContState(RF, InData%x) call MD_PackDiscState(RF, InData%xd) @@ -1315,9 +1315,9 @@ subroutine Farm_PackMD_Data(RF, Indata) call MD_PackInput(RF, InData%u) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call MD_PackInput(RF, InData%Input(i1)) end do @@ -1333,8 +1333,8 @@ subroutine Farm_UnPackMD_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackMD_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1467,8 +1467,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_CopyAll_FastFarm_Data' @@ -1481,8 +1481,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, kind=B8Ki) - UB(1:1) = ubound(SrcAll_FastFarm_DataData%FWrap, kind=B8Ki) + LB(1:1) = lbound(SrcAll_FastFarm_DataData%FWrap) + UB(1:1) = ubound(SrcAll_FastFarm_DataData%FWrap) if (.not. allocated(DstAll_FastFarm_DataData%FWrap)) then allocate(DstAll_FastFarm_DataData%FWrap(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1497,8 +1497,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, kind=B8Ki) - UB(1:1) = ubound(SrcAll_FastFarm_DataData%WD, kind=B8Ki) + LB(1:1) = lbound(SrcAll_FastFarm_DataData%WD) + UB(1:1) = ubound(SrcAll_FastFarm_DataData%WD) if (.not. allocated(DstAll_FastFarm_DataData%WD)) then allocate(DstAll_FastFarm_DataData%WD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1530,8 +1530,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Farm_DestroyAll_FastFarm_Data' @@ -1542,8 +1542,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, kind=B8Ki) - UB(1:1) = ubound(All_FastFarm_DataData%FWrap, kind=B8Ki) + LB(1:1) = lbound(All_FastFarm_DataData%FWrap) + UB(1:1) = ubound(All_FastFarm_DataData%FWrap) do i1 = LB(1), UB(1) call Farm_DestroyFASTWrapper_Data(All_FastFarm_DataData%FWrap(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1551,8 +1551,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, kind=B8Ki) - UB(1:1) = ubound(All_FastFarm_DataData%WD, kind=B8Ki) + LB(1:1) = lbound(All_FastFarm_DataData%WD) + UB(1:1) = ubound(All_FastFarm_DataData%WD) do i1 = LB(1), UB(1) call Farm_DestroyWakeDynamics_Data(All_FastFarm_DataData%WD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1573,25 +1573,25 @@ subroutine Farm_PackAll_FastFarm_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(All_FastFarm_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'Farm_PackAll_FastFarm_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call Farm_PackParam(RF, InData%p) call Farm_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%FWrap)) if (allocated(InData%FWrap)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%FWrap), ubound(InData%FWrap)) + LB(1:1) = lbound(InData%FWrap) + UB(1:1) = ubound(InData%FWrap) do i1 = LB(1), UB(1) call Farm_PackFASTWrapper_Data(RF, InData%FWrap(i1)) end do end if call RegPack(RF, allocated(InData%WD)) if (allocated(InData%WD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WD), ubound(InData%WD)) + LB(1:1) = lbound(InData%WD) + UB(1:1) = ubound(InData%WD) do i1 = LB(1), UB(1) call Farm_PackWakeDynamics_Data(RF, InData%WD(i1)) end do @@ -1607,8 +1607,8 @@ subroutine Farm_UnPackAll_FastFarm_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(All_FastFarm_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Farm_UnPackAll_FastFarm_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodisk/src/AeroDisk_Types.f90 b/modules/aerodisk/src/AeroDisk_Types.f90 index ad13fe6835..61fef67b28 100644 --- a/modules/aerodisk/src/AeroDisk_Types.f90 +++ b/modules/aerodisk/src/AeroDisk_Types.f90 @@ -171,7 +171,7 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ADsk_CopyAeroTable' ErrStat = ErrID_None @@ -182,8 +182,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%N_Pitch = SrcAeroTableData%N_Pitch DstAeroTableData%N_Skew = SrcAeroTableData%N_Skew if (allocated(SrcAeroTableData%TSR)) then - LB(1:1) = lbound(SrcAeroTableData%TSR, kind=B8Ki) - UB(1:1) = ubound(SrcAeroTableData%TSR, kind=B8Ki) + LB(1:1) = lbound(SrcAeroTableData%TSR) + UB(1:1) = ubound(SrcAeroTableData%TSR) if (.not. allocated(DstAeroTableData%TSR)) then allocate(DstAeroTableData%TSR(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -194,8 +194,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%TSR = SrcAeroTableData%TSR end if if (allocated(SrcAeroTableData%RtSpd)) then - LB(1:1) = lbound(SrcAeroTableData%RtSpd, kind=B8Ki) - UB(1:1) = ubound(SrcAeroTableData%RtSpd, kind=B8Ki) + LB(1:1) = lbound(SrcAeroTableData%RtSpd) + UB(1:1) = ubound(SrcAeroTableData%RtSpd) if (.not. allocated(DstAeroTableData%RtSpd)) then allocate(DstAeroTableData%RtSpd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -206,8 +206,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%RtSpd = SrcAeroTableData%RtSpd end if if (allocated(SrcAeroTableData%VRel)) then - LB(1:1) = lbound(SrcAeroTableData%VRel, kind=B8Ki) - UB(1:1) = ubound(SrcAeroTableData%VRel, kind=B8Ki) + LB(1:1) = lbound(SrcAeroTableData%VRel) + UB(1:1) = ubound(SrcAeroTableData%VRel) if (.not. allocated(DstAeroTableData%VRel)) then allocate(DstAeroTableData%VRel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -218,8 +218,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%VRel = SrcAeroTableData%VRel end if if (allocated(SrcAeroTableData%Pitch)) then - LB(1:1) = lbound(SrcAeroTableData%Pitch, kind=B8Ki) - UB(1:1) = ubound(SrcAeroTableData%Pitch, kind=B8Ki) + LB(1:1) = lbound(SrcAeroTableData%Pitch) + UB(1:1) = ubound(SrcAeroTableData%Pitch) if (.not. allocated(DstAeroTableData%Pitch)) then allocate(DstAeroTableData%Pitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -230,8 +230,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%Pitch = SrcAeroTableData%Pitch end if if (allocated(SrcAeroTableData%Skew)) then - LB(1:1) = lbound(SrcAeroTableData%Skew, kind=B8Ki) - UB(1:1) = ubound(SrcAeroTableData%Skew, kind=B8Ki) + LB(1:1) = lbound(SrcAeroTableData%Skew) + UB(1:1) = ubound(SrcAeroTableData%Skew) if (.not. allocated(DstAeroTableData%Skew)) then allocate(DstAeroTableData%Skew(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -242,8 +242,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%Skew = SrcAeroTableData%Skew end if if (allocated(SrcAeroTableData%C_Fx)) then - LB(1:5) = lbound(SrcAeroTableData%C_Fx, kind=B8Ki) - UB(1:5) = ubound(SrcAeroTableData%C_Fx, kind=B8Ki) + LB(1:5) = lbound(SrcAeroTableData%C_Fx) + UB(1:5) = ubound(SrcAeroTableData%C_Fx) if (.not. allocated(DstAeroTableData%C_Fx)) then allocate(DstAeroTableData%C_Fx(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 @@ -254,8 +254,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%C_Fx = SrcAeroTableData%C_Fx end if if (allocated(SrcAeroTableData%C_Fy)) then - LB(1:5) = lbound(SrcAeroTableData%C_Fy, kind=B8Ki) - UB(1:5) = ubound(SrcAeroTableData%C_Fy, kind=B8Ki) + LB(1:5) = lbound(SrcAeroTableData%C_Fy) + UB(1:5) = ubound(SrcAeroTableData%C_Fy) if (.not. allocated(DstAeroTableData%C_Fy)) then allocate(DstAeroTableData%C_Fy(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 @@ -266,8 +266,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%C_Fy = SrcAeroTableData%C_Fy end if if (allocated(SrcAeroTableData%C_Fz)) then - LB(1:5) = lbound(SrcAeroTableData%C_Fz, kind=B8Ki) - UB(1:5) = ubound(SrcAeroTableData%C_Fz, kind=B8Ki) + LB(1:5) = lbound(SrcAeroTableData%C_Fz) + UB(1:5) = ubound(SrcAeroTableData%C_Fz) if (.not. allocated(DstAeroTableData%C_Fz)) then allocate(DstAeroTableData%C_Fz(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 @@ -278,8 +278,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%C_Fz = SrcAeroTableData%C_Fz end if if (allocated(SrcAeroTableData%C_Mx)) then - LB(1:5) = lbound(SrcAeroTableData%C_Mx, kind=B8Ki) - UB(1:5) = ubound(SrcAeroTableData%C_Mx, kind=B8Ki) + LB(1:5) = lbound(SrcAeroTableData%C_Mx) + UB(1:5) = ubound(SrcAeroTableData%C_Mx) if (.not. allocated(DstAeroTableData%C_Mx)) then allocate(DstAeroTableData%C_Mx(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 @@ -290,8 +290,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%C_Mx = SrcAeroTableData%C_Mx end if if (allocated(SrcAeroTableData%C_My)) then - LB(1:5) = lbound(SrcAeroTableData%C_My, kind=B8Ki) - UB(1:5) = ubound(SrcAeroTableData%C_My, kind=B8Ki) + LB(1:5) = lbound(SrcAeroTableData%C_My) + UB(1:5) = ubound(SrcAeroTableData%C_My) if (.not. allocated(DstAeroTableData%C_My)) then allocate(DstAeroTableData%C_My(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 @@ -302,8 +302,8 @@ subroutine ADsk_CopyAeroTable(SrcAeroTableData, DstAeroTableData, CtrlCode, ErrS DstAeroTableData%C_My = SrcAeroTableData%C_My end if if (allocated(SrcAeroTableData%C_Mz)) then - LB(1:5) = lbound(SrcAeroTableData%C_Mz, kind=B8Ki) - UB(1:5) = ubound(SrcAeroTableData%C_Mz, kind=B8Ki) + LB(1:5) = lbound(SrcAeroTableData%C_Mz) + UB(1:5) = ubound(SrcAeroTableData%C_Mz) if (.not. allocated(DstAeroTableData%C_Mz)) then allocate(DstAeroTableData%C_Mz(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 @@ -385,7 +385,7 @@ subroutine ADsk_UnPackAeroTable(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_AeroTable), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackAeroTable' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -413,7 +413,7 @@ subroutine ADsk_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADsk_CopyInputFile' @@ -426,8 +426,8 @@ subroutine ADsk_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS DstInputFileData%SumPrint = SrcInputFileData%SumPrint DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -478,7 +478,7 @@ subroutine ADsk_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -498,7 +498,7 @@ subroutine ADsk_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADsk_CopyInitInput' @@ -561,7 +561,7 @@ subroutine ADsk_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackInitInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -602,15 +602,15 @@ subroutine ADsk_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADsk_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -621,8 +621,8 @@ subroutine ADsk_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -673,7 +673,7 @@ subroutine ADsk_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -741,7 +741,7 @@ subroutine ADsk_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADsk_CopyOutput' @@ -757,8 +757,8 @@ subroutine ADsk_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%Ct = SrcOutputData%Ct DstOutputData%Cq = SrcOutputData%Cq if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -806,7 +806,7 @@ subroutine ADsk_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -978,8 +978,8 @@ subroutine ADsk_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADsk_CopyParam' @@ -996,8 +996,8 @@ subroutine ADsk_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) if (ErrStat >= AbortErrLev) return DstParamData%UseTSR = SrcParamData%UseTSR if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1013,8 +1013,8 @@ subroutine ADsk_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%FlowField => SrcParamData%FlowField if (allocated(SrcParamData%DiskWindPosRel)) then - LB(1:2) = lbound(SrcParamData%DiskWindPosRel, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%DiskWindPosRel, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%DiskWindPosRel) + UB(1:2) = ubound(SrcParamData%DiskWindPosRel) if (.not. allocated(DstParamData%DiskWindPosRel)) then allocate(DstParamData%DiskWindPosRel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1030,8 +1030,8 @@ subroutine ADsk_DestroyParam(ParamData, ErrStat, ErrMsg) type(ADsk_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADsk_DestroyParam' @@ -1040,8 +1040,8 @@ subroutine ADsk_DestroyParam(ParamData, ErrStat, ErrMsg) call ADsk_DestroyAeroTable(ParamData%AeroTable, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1058,8 +1058,8 @@ subroutine ADsk_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(ADsk_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'ADsk_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%RootName) @@ -1072,9 +1072,9 @@ subroutine ADsk_PackParam(RF, Indata) call RegPack(RF, InData%UseTSR) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1094,8 +1094,8 @@ subroutine ADsk_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1149,15 +1149,15 @@ subroutine ADsk_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ADsk_CopyMisc' ErrStat = ErrID_None ErrMsg = '' DstMiscData%idx_last = SrcMiscData%idx_last if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1179,8 +1179,8 @@ subroutine ADsk_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Force = SrcMiscData%Force DstMiscData%Moment = SrcMiscData%Moment if (allocated(SrcMiscData%DiskWindPosAbs)) then - LB(1:2) = lbound(SrcMiscData%DiskWindPosAbs, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%DiskWindPosAbs, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%DiskWindPosAbs) + UB(1:2) = ubound(SrcMiscData%DiskWindPosAbs) if (.not. allocated(DstMiscData%DiskWindPosAbs)) then allocate(DstMiscData%DiskWindPosAbs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1191,8 +1191,8 @@ subroutine ADsk_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%DiskWindPosAbs = SrcMiscData%DiskWindPosAbs end if if (allocated(SrcMiscData%DiskWindVel)) then - LB(1:2) = lbound(SrcMiscData%DiskWindVel, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%DiskWindVel, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%DiskWindVel) + UB(1:2) = ubound(SrcMiscData%DiskWindVel) if (.not. allocated(DstMiscData%DiskWindVel)) then allocate(DstMiscData%DiskWindVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1251,7 +1251,7 @@ subroutine ADsk_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(ADsk_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADsk_UnPackMisc' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroAcoustics_Types.f90 b/modules/aerodyn/src/AeroAcoustics_Types.f90 index 8fbc988cf8..19b850b12c 100644 --- a/modules/aerodyn/src/AeroAcoustics_Types.f90 +++ b/modules/aerodyn/src/AeroAcoustics_Types.f90 @@ -321,8 +321,8 @@ subroutine AA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyInitInput' @@ -333,8 +333,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BlSpn, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BlSpn) + UB(1:2) = ubound(SrcInitInputData%BlSpn) if (.not. allocated(DstInitInputData%BlSpn)) then allocate(DstInitInputData%BlSpn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -345,8 +345,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BlChord, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BlChord) + UB(1:2) = ubound(SrcInitInputData%BlChord) if (.not. allocated(DstInitInputData%BlChord)) then allocate(DstInitInputData%BlChord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -361,8 +361,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BlAFID, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BlAFID) + UB(1:2) = ubound(SrcInitInputData%BlAFID) if (.not. allocated(DstInitInputData%BlAFID)) then allocate(DstInitInputData%BlAFID(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -373,8 +373,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%AFInfo, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%AFInfo) + UB(1:1) = ubound(SrcInitInputData%AFInfo) if (.not. allocated(DstInitInputData%AFInfo)) then allocate(DstInitInputData%AFInfo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -394,8 +394,8 @@ subroutine AA_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(AA_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_DestroyInitInput' @@ -411,8 +411,8 @@ subroutine AA_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%BlAFID) end if if (allocated(InitInputData%AFInfo)) then - LB(1:1) = lbound(InitInputData%AFInfo, kind=B8Ki) - UB(1:1) = ubound(InitInputData%AFInfo, kind=B8Ki) + LB(1:1) = lbound(InitInputData%AFInfo) + UB(1:1) = ubound(InitInputData%AFInfo) do i1 = LB(1), UB(1) call AFI_DestroyParam(InitInputData%AFInfo(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -425,8 +425,8 @@ subroutine AA_PackInitInput(RF, Indata) type(RegFile), intent(inout) :: RF type(AA_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AA_PackInitInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%InputFile) call RegPack(RF, InData%NumBlades) @@ -441,9 +441,9 @@ subroutine AA_PackInitInput(RF, Indata) call RegPackAlloc(RF, InData%BlAFID) call RegPack(RF, allocated(InData%AFInfo)) if (allocated(InData%AFInfo)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%AFInfo), ubound(InData%AFInfo)) + LB(1:1) = lbound(InData%AFInfo) + UB(1:1) = ubound(InData%AFInfo) do i1 = LB(1), UB(1) call AFI_PackParam(RF, InData%AFInfo(i1)) end do @@ -455,8 +455,8 @@ subroutine AA_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInitInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -492,15 +492,15 @@ subroutine AA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -511,8 +511,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -523,8 +523,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrforPE, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrforPE) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrforPE) if (.not. allocated(DstInitOutputData%WriteOutputHdrforPE)) then allocate(DstInitOutputData%WriteOutputHdrforPE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -535,8 +535,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntforPE, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntforPE) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntforPE) if (.not. allocated(DstInitOutputData%WriteOutputUntforPE)) then allocate(DstInitOutputData%WriteOutputUntforPE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -547,8 +547,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrSep, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrSep) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrSep) if (.not. allocated(DstInitOutputData%WriteOutputHdrSep)) then allocate(DstInitOutputData%WriteOutputHdrSep(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -559,8 +559,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntSep, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntSep) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntSep) if (.not. allocated(DstInitOutputData%WriteOutputUntSep)) then allocate(DstInitOutputData%WriteOutputUntSep(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -571,8 +571,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdrNodes) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdrNodes) if (.not. allocated(DstInitOutputData%WriteOutputHdrNodes)) then allocate(DstInitOutputData%WriteOutputHdrNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -583,8 +583,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUntNodes) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUntNodes) if (.not. allocated(DstInitOutputData%WriteOutputUntNodes)) then allocate(DstInitOutputData%WriteOutputUntNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -661,7 +661,7 @@ subroutine AA_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -684,8 +684,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyInputFile' @@ -707,8 +707,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%ObsX, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%ObsX) + UB(1:1) = ubound(SrcInputFileData%ObsX) if (.not. allocated(DstInputFileData%ObsX)) then allocate(DstInputFileData%ObsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -719,8 +719,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%ObsY, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%ObsY) + UB(1:1) = ubound(SrcInputFileData%ObsY) if (.not. allocated(DstInputFileData%ObsY)) then allocate(DstInputFileData%ObsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -731,8 +731,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%ObsZ, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%ObsZ) + UB(1:1) = ubound(SrcInputFileData%ObsZ) if (.not. allocated(DstInputFileData%ObsZ)) then allocate(DstInputFileData%ObsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -743,8 +743,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BladeProps, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BladeProps) + UB(1:1) = ubound(SrcInputFileData%BladeProps) if (.not. allocated(DstInputFileData%BladeProps)) then allocate(DstInputFileData%BladeProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -760,8 +760,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%AAoutfile, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%AAoutfile) + UB(1:1) = ubound(SrcInputFileData%AAoutfile) if (.not. allocated(DstInputFileData%AAoutfile)) then allocate(DstInputFileData%AAoutfile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -777,8 +777,8 @@ subroutine AA_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%avgV = SrcInputFileData%avgV DstInputFileData%Lturb = SrcInputFileData%Lturb if (allocated(SrcInputFileData%ReListBL)) then - LB(1:1) = lbound(SrcInputFileData%ReListBL, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%ReListBL, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%ReListBL) + UB(1:1) = ubound(SrcInputFileData%ReListBL) if (.not. allocated(DstInputFileData%ReListBL)) then allocate(DstInputFileData%ReListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -789,8 +789,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%AoAListBL, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%AoAListBL) + UB(1:1) = ubound(SrcInputFileData%AoAListBL) if (.not. allocated(DstInputFileData%AoAListBL)) then allocate(DstInputFileData%AoAListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -801,8 +801,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Pres_DispThick, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Pres_DispThick) + UB(1:3) = ubound(SrcInputFileData%Pres_DispThick) 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 @@ -813,8 +813,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Suct_DispThick, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Suct_DispThick) + UB(1:3) = ubound(SrcInputFileData%Suct_DispThick) 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 @@ -825,8 +825,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Pres_BLThick, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Pres_BLThick) + UB(1:3) = ubound(SrcInputFileData%Pres_BLThick) 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 @@ -837,8 +837,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Suct_BLThick, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Suct_BLThick) + UB(1:3) = ubound(SrcInputFileData%Suct_BLThick) 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 @@ -849,8 +849,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Pres_Cf, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Pres_Cf) + UB(1:3) = ubound(SrcInputFileData%Pres_Cf) 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 @@ -861,8 +861,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Suct_Cf, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Suct_Cf) + UB(1:3) = ubound(SrcInputFileData%Suct_Cf) 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 @@ -873,8 +873,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Pres_EdgeVelRat, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Pres_EdgeVelRat) + UB(1:3) = ubound(SrcInputFileData%Pres_EdgeVelRat) 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 @@ -885,8 +885,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%Suct_EdgeVelRat, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%Suct_EdgeVelRat) + UB(1:3) = ubound(SrcInputFileData%Suct_EdgeVelRat) 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 @@ -902,8 +902,8 @@ subroutine AA_DestroyInputFile(InputFileData, ErrStat, ErrMsg) type(AA_InputFile), intent(inout) :: InputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_DestroyInputFile' @@ -919,8 +919,8 @@ subroutine AA_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%ObsZ) end if if (allocated(InputFileData%BladeProps)) then - LB(1:1) = lbound(InputFileData%BladeProps, kind=B8Ki) - UB(1:1) = ubound(InputFileData%BladeProps, kind=B8Ki) + LB(1:1) = lbound(InputFileData%BladeProps) + UB(1:1) = ubound(InputFileData%BladeProps) do i1 = LB(1), UB(1) call AA_DestroyBladePropsType(InputFileData%BladeProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -966,8 +966,8 @@ subroutine AA_PackInputFile(RF, Indata) type(RegFile), intent(inout) :: RF type(AA_InputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'AA_PackInputFile' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT_AA) call RegPack(RF, InData%IBLUNT) @@ -989,9 +989,9 @@ subroutine AA_PackInputFile(RF, Indata) call RegPackAlloc(RF, InData%ObsZ) call RegPack(RF, allocated(InData%BladeProps)) if (allocated(InData%BladeProps)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeProps), ubound(InData%BladeProps)) + LB(1:1) = lbound(InData%BladeProps) + UB(1:1) = ubound(InData%BladeProps) do i1 = LB(1), UB(1) call AA_PackBladePropsType(RF, InData%BladeProps(i1)) end do @@ -1020,8 +1020,8 @@ subroutine AA_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInputFile' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1119,14 +1119,14 @@ subroutine AA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%MeanVrel, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%MeanVrel) + UB(1:2) = ubound(SrcDiscStateData%MeanVrel) if (.not. allocated(DstDiscStateData%MeanVrel)) then allocate(DstDiscStateData%MeanVrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1137,8 +1137,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%VrelSq, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%VrelSq) + UB(1:2) = ubound(SrcDiscStateData%VrelSq) if (.not. allocated(DstDiscStateData%VrelSq)) then allocate(DstDiscStateData%VrelSq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1149,8 +1149,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%TIVrel, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%TIVrel) + UB(1:2) = ubound(SrcDiscStateData%TIVrel) if (.not. allocated(DstDiscStateData%TIVrel)) then allocate(DstDiscStateData%TIVrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1161,8 +1161,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, kind=B8Ki) - UB(1:3) = ubound(SrcDiscStateData%VrelStore, kind=B8Ki) + LB(1:3) = lbound(SrcDiscStateData%VrelStore) + UB(1:3) = ubound(SrcDiscStateData%VrelStore) 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 @@ -1173,8 +1173,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%TIVx, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%TIVx) + UB(1:2) = ubound(SrcDiscStateData%TIVx) if (.not. allocated(DstDiscStateData%TIVx)) then allocate(DstDiscStateData%TIVx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1185,8 +1185,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%MeanVxVyVz, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%MeanVxVyVz) + UB(1:2) = ubound(SrcDiscStateData%MeanVxVyVz) if (.not. allocated(DstDiscStateData%MeanVxVyVz)) then allocate(DstDiscStateData%MeanVxVyVz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1197,8 +1197,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%VxSq, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%VxSq) + UB(1:2) = ubound(SrcDiscStateData%VxSq) if (.not. allocated(DstDiscStateData%VxSq)) then allocate(DstDiscStateData%VxSq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1209,8 +1209,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%allregcounter, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%allregcounter) + UB(1:2) = ubound(SrcDiscStateData%allregcounter) if (.not. allocated(DstDiscStateData%allregcounter)) then allocate(DstDiscStateData%allregcounter(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1221,8 +1221,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%VxSqRegion, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%VxSqRegion) + UB(1:2) = ubound(SrcDiscStateData%VxSqRegion) if (.not. allocated(DstDiscStateData%VxSqRegion)) then allocate(DstDiscStateData%VxSqRegion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1233,8 +1233,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, kind=B8Ki) - UB(1:3) = ubound(SrcDiscStateData%RegVxStor, kind=B8Ki) + LB(1:3) = lbound(SrcDiscStateData%RegVxStor) + UB(1:3) = ubound(SrcDiscStateData%RegVxStor) 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 @@ -1245,8 +1245,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%RegionTIDelete, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%RegionTIDelete) + UB(1:2) = ubound(SrcDiscStateData%RegionTIDelete) if (.not. allocated(DstDiscStateData%RegionTIDelete)) then allocate(DstDiscStateData%RegionTIDelete(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1323,7 +1323,7 @@ subroutine AA_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackDiscState' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1422,14 +1422,14 @@ subroutine AA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1440,8 +1440,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%ChordAngleTE, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%ChordAngleTE) + UB(1:3) = ubound(SrcMiscData%ChordAngleTE) 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 @@ -1452,8 +1452,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%SpanAngleTE, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%SpanAngleTE) + UB(1:3) = ubound(SrcMiscData%SpanAngleTE) 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 @@ -1464,8 +1464,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%ChordAngleLE, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%ChordAngleLE) + UB(1:3) = ubound(SrcMiscData%ChordAngleLE) 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 @@ -1476,8 +1476,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%SpanAngleLE, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%SpanAngleLE) + UB(1:3) = ubound(SrcMiscData%SpanAngleLE) 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 @@ -1488,8 +1488,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%rTEtoObserve, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%rTEtoObserve) + UB(1:3) = ubound(SrcMiscData%rTEtoObserve) 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 @@ -1500,8 +1500,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%rLEtoObserve, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%rLEtoObserve) + UB(1:3) = ubound(SrcMiscData%rLEtoObserve) 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 @@ -1512,8 +1512,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%LE_Location, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%LE_Location) + UB(1:3) = ubound(SrcMiscData%LE_Location) 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 @@ -1525,8 +1525,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLLBL, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLLBL) + UB(1:1) = ubound(SrcMiscData%SPLLBL) if (.not. allocated(DstMiscData%SPLLBL)) then allocate(DstMiscData%SPLLBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1537,8 +1537,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLP, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLP) + UB(1:1) = ubound(SrcMiscData%SPLP) if (.not. allocated(DstMiscData%SPLP)) then allocate(DstMiscData%SPLP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1549,8 +1549,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLS, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLS) + UB(1:1) = ubound(SrcMiscData%SPLS) if (.not. allocated(DstMiscData%SPLS)) then allocate(DstMiscData%SPLS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1561,8 +1561,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLALPH, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLALPH) + UB(1:1) = ubound(SrcMiscData%SPLALPH) if (.not. allocated(DstMiscData%SPLALPH)) then allocate(DstMiscData%SPLALPH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1573,8 +1573,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLTBL, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLTBL) + UB(1:1) = ubound(SrcMiscData%SPLTBL) if (.not. allocated(DstMiscData%SPLTBL)) then allocate(DstMiscData%SPLTBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1585,8 +1585,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLTIP, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLTIP) + UB(1:1) = ubound(SrcMiscData%SPLTIP) if (.not. allocated(DstMiscData%SPLTIP)) then allocate(DstMiscData%SPLTIP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1597,8 +1597,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLTI, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLTI) + UB(1:1) = ubound(SrcMiscData%SPLTI) if (.not. allocated(DstMiscData%SPLTI)) then allocate(DstMiscData%SPLTI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1609,8 +1609,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLTIGui, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLTIGui) + UB(1:1) = ubound(SrcMiscData%SPLTIGui) if (.not. allocated(DstMiscData%SPLTIGui)) then allocate(DstMiscData%SPLTIGui(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1621,8 +1621,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SPLBLUNT, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SPLBLUNT) + UB(1:1) = ubound(SrcMiscData%SPLBLUNT) if (.not. allocated(DstMiscData%SPLBLUNT)) then allocate(DstMiscData%SPLBLUNT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1633,8 +1633,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%CfVar, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%CfVar) + UB(1:1) = ubound(SrcMiscData%CfVar) if (.not. allocated(DstMiscData%CfVar)) then allocate(DstMiscData%CfVar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1645,8 +1645,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%d99Var, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%d99Var) + UB(1:1) = ubound(SrcMiscData%d99Var) if (.not. allocated(DstMiscData%d99Var)) then allocate(DstMiscData%d99Var(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1657,8 +1657,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%dStarVar, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%dStarVar) + UB(1:1) = ubound(SrcMiscData%dStarVar) if (.not. allocated(DstMiscData%dStarVar)) then allocate(DstMiscData%dStarVar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1669,8 +1669,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%EdgeVelVar, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%EdgeVelVar) + UB(1:1) = ubound(SrcMiscData%EdgeVelVar) if (.not. allocated(DstMiscData%EdgeVelVar)) then allocate(DstMiscData%EdgeVelVar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1792,7 +1792,7 @@ subroutine AA_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackMisc' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1828,8 +1828,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_CopyParam' @@ -1855,8 +1855,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsVert, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsVert) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsVert) if (.not. allocated(DstParamData%rotorregionlimitsVert)) then allocate(DstParamData%rotorregionlimitsVert(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1867,8 +1867,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsHorz, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsHorz) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsHorz) if (.not. allocated(DstParamData%rotorregionlimitsHorz)) then allocate(DstParamData%rotorregionlimitsHorz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1879,8 +1879,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsalph, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsalph) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsalph) if (.not. allocated(DstParamData%rotorregionlimitsalph)) then allocate(DstParamData%rotorregionlimitsalph(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1891,8 +1891,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rotorregionlimitsrad, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rotorregionlimitsrad) + UB(1:1) = ubound(SrcParamData%rotorregionlimitsrad) if (.not. allocated(DstParamData%rotorregionlimitsrad)) then allocate(DstParamData%rotorregionlimitsrad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1907,8 +1907,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ObsX, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ObsX) + UB(1:1) = ubound(SrcParamData%ObsX) if (.not. allocated(DstParamData%ObsX)) then allocate(DstParamData%ObsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1919,8 +1919,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ObsY, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ObsY) + UB(1:1) = ubound(SrcParamData%ObsY) if (.not. allocated(DstParamData%ObsY)) then allocate(DstParamData%ObsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1931,8 +1931,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ObsZ, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ObsZ) + UB(1:1) = ubound(SrcParamData%ObsZ) if (.not. allocated(DstParamData%ObsZ)) then allocate(DstParamData%ObsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1943,8 +1943,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FreqList, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FreqList) + UB(1:1) = ubound(SrcParamData%FreqList) if (.not. allocated(DstParamData%FreqList)) then allocate(DstParamData%FreqList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1955,8 +1955,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Aweight, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Aweight) + UB(1:1) = ubound(SrcParamData%Aweight) if (.not. allocated(DstParamData%Aweight)) then allocate(DstParamData%Aweight(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1988,8 +1988,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2004,8 +2004,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%StallStart)) then - LB(1:2) = lbound(SrcParamData%StallStart, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%StallStart, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%StallStart) + UB(1:2) = ubound(SrcParamData%StallStart) if (.not. allocated(DstParamData%StallStart)) then allocate(DstParamData%StallStart(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2016,8 +2016,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%TEThick, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%TEThick) + UB(1:2) = ubound(SrcParamData%TEThick) if (.not. allocated(DstParamData%TEThick)) then allocate(DstParamData%TEThick(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2028,8 +2028,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%TEAngle, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%TEAngle) + UB(1:2) = ubound(SrcParamData%TEAngle) if (.not. allocated(DstParamData%TEAngle)) then allocate(DstParamData%TEAngle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2040,8 +2040,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AerCent, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AerCent) + UB(1:3) = ubound(SrcParamData%AerCent) 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 @@ -2052,8 +2052,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BlAFID, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BlAFID) + UB(1:2) = ubound(SrcParamData%BlAFID) if (.not. allocated(DstParamData%BlAFID)) then allocate(DstParamData%BlAFID(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2064,8 +2064,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%AFInfo, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%AFInfo) + UB(1:1) = ubound(SrcParamData%AFInfo) if (.not. allocated(DstParamData%AFInfo)) then allocate(DstParamData%AFInfo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2080,8 +2080,8 @@ subroutine AA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%AFLECo)) then - LB(1:3) = lbound(SrcParamData%AFLECo, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AFLECo, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AFLECo) + UB(1:3) = ubound(SrcParamData%AFLECo) 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 @@ -2092,8 +2092,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AFTECo, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AFTECo) + UB(1:3) = ubound(SrcParamData%AFTECo) 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 @@ -2104,8 +2104,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BlSpn, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BlSpn) + UB(1:2) = ubound(SrcParamData%BlSpn) if (.not. allocated(DstParamData%BlSpn)) then allocate(DstParamData%BlSpn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2116,8 +2116,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BlChord, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BlChord) + UB(1:2) = ubound(SrcParamData%BlChord) if (.not. allocated(DstParamData%BlChord)) then allocate(DstParamData%BlChord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2128,8 +2128,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ReListBL, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ReListBL) + UB(1:1) = ubound(SrcParamData%ReListBL) if (.not. allocated(DstParamData%ReListBL)) then allocate(DstParamData%ReListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2140,8 +2140,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%AOAListBL, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%AOAListBL) + UB(1:1) = ubound(SrcParamData%AOAListBL) if (.not. allocated(DstParamData%AOAListBL)) then allocate(DstParamData%AOAListBL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2152,8 +2152,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%dStarAll1, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%dStarAll1) + UB(1:3) = ubound(SrcParamData%dStarAll1) 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 @@ -2164,8 +2164,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%dStarAll2, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%dStarAll2) + UB(1:3) = ubound(SrcParamData%dStarAll2) 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 @@ -2176,8 +2176,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%d99All1, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%d99All1) + UB(1:3) = ubound(SrcParamData%d99All1) 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 @@ -2188,8 +2188,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%d99All2, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%d99All2) + UB(1:3) = ubound(SrcParamData%d99All2) 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 @@ -2200,8 +2200,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%CfAll1, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%CfAll1) + UB(1:3) = ubound(SrcParamData%CfAll1) 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 @@ -2212,8 +2212,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%CfAll2, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%CfAll2) + UB(1:3) = ubound(SrcParamData%CfAll2) 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 @@ -2224,8 +2224,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%EdgeVelRat1, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%EdgeVelRat1) + UB(1:3) = ubound(SrcParamData%EdgeVelRat1) 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 @@ -2236,8 +2236,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%EdgeVelRat2, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%EdgeVelRat2) + UB(1:3) = ubound(SrcParamData%EdgeVelRat2) 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 @@ -2248,8 +2248,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%AFThickGuida, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%AFThickGuida) + UB(1:2) = ubound(SrcParamData%AFThickGuida) if (.not. allocated(DstParamData%AFThickGuida)) then allocate(DstParamData%AFThickGuida(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2265,8 +2265,8 @@ subroutine AA_DestroyParam(ParamData, ErrStat, ErrMsg) type(AA_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AA_DestroyParam' @@ -2300,8 +2300,8 @@ subroutine AA_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%Aweight) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2324,8 +2324,8 @@ subroutine AA_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%BlAFID) end if if (allocated(ParamData%AFInfo)) then - LB(1:1) = lbound(ParamData%AFInfo, kind=B8Ki) - UB(1:1) = ubound(ParamData%AFInfo, kind=B8Ki) + LB(1:1) = lbound(ParamData%AFInfo) + UB(1:1) = ubound(ParamData%AFInfo) do i1 = LB(1), UB(1) call AFI_DestroyParam(ParamData%AFInfo(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2383,8 +2383,8 @@ subroutine AA_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(AA_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AA_PackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) call RegPack(RF, InData%IBLUNT) @@ -2441,9 +2441,9 @@ subroutine AA_PackParam(RF, Indata) call RegPack(RF, InData%RootName) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -2455,9 +2455,9 @@ subroutine AA_PackParam(RF, Indata) call RegPackAlloc(RF, InData%BlAFID) call RegPack(RF, allocated(InData%AFInfo)) if (allocated(InData%AFInfo)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%AFInfo), ubound(InData%AFInfo)) + LB(1:1) = lbound(InData%AFInfo) + UB(1:1) = ubound(InData%AFInfo) do i1 = LB(1), UB(1) call AFI_PackParam(RF, InData%AFInfo(i1)) end do @@ -2484,8 +2484,8 @@ subroutine AA_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2596,14 +2596,14 @@ subroutine AA_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:4) = ubound(SrcInputData%RotGtoL, kind=B8Ki) + LB(1:4) = lbound(SrcInputData%RotGtoL) + UB(1:4) = ubound(SrcInputData%RotGtoL) 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 @@ -2614,8 +2614,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputData%AeroCent_G, kind=B8Ki) + LB(1:3) = lbound(SrcInputData%AeroCent_G) + UB(1:3) = ubound(SrcInputData%AeroCent_G) 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 @@ -2626,8 +2626,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%Vrel, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%Vrel) + UB(1:2) = ubound(SrcInputData%Vrel) if (.not. allocated(DstInputData%Vrel)) then allocate(DstInputData%Vrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2638,8 +2638,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%AoANoise, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%AoANoise) + UB(1:2) = ubound(SrcInputData%AoANoise) if (.not. allocated(DstInputData%AoANoise)) then allocate(DstInputData%AoANoise(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2650,8 +2650,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputData%Inflow, kind=B8Ki) + LB(1:3) = lbound(SrcInputData%Inflow) + UB(1:3) = ubound(SrcInputData%Inflow) 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 @@ -2704,7 +2704,7 @@ subroutine AA_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackInput' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2721,14 +2721,14 @@ subroutine AA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%SumSpecNoise, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%SumSpecNoise) + UB(1:3) = ubound(SrcOutputData%SumSpecNoise) 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 @@ -2739,8 +2739,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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%SumSpecNoiseSep, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%SumSpecNoiseSep) + UB(1:3) = ubound(SrcOutputData%SumSpecNoiseSep) 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 @@ -2751,8 +2751,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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%OASPL, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%OASPL) + UB(1:3) = ubound(SrcOutputData%OASPL) 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 @@ -2763,8 +2763,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, kind=B8Ki) - UB(1:4) = ubound(SrcOutputData%OASPL_Mech, kind=B8Ki) + LB(1:4) = lbound(SrcOutputData%OASPL_Mech) + UB(1:4) = ubound(SrcOutputData%OASPL_Mech) 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 @@ -2775,8 +2775,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%DirectiviOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%DirectiviOutput) + UB(1:1) = ubound(SrcOutputData%DirectiviOutput) if (.not. allocated(DstOutputData%DirectiviOutput)) then allocate(DstOutputData%DirectiviOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2787,8 +2787,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, kind=B8Ki) - UB(1:4) = ubound(SrcOutputData%OutLECoords, kind=B8Ki) + LB(1:4) = lbound(SrcOutputData%OutLECoords) + UB(1:4) = ubound(SrcOutputData%OutLECoords) 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 @@ -2799,8 +2799,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%PtotalFreq, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%PtotalFreq) + UB(1:2) = ubound(SrcOutputData%PtotalFreq) if (.not. allocated(DstOutputData%PtotalFreq)) then allocate(DstOutputData%PtotalFreq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2811,8 +2811,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutputForPE, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutputForPE) + UB(1:1) = ubound(SrcOutputData%WriteOutputForPE) if (.not. allocated(DstOutputData%WriteOutputForPE)) then allocate(DstOutputData%WriteOutputForPE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2823,8 +2823,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2835,8 +2835,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutputSep, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutputSep) + UB(1:1) = ubound(SrcOutputData%WriteOutputSep) if (.not. allocated(DstOutputData%WriteOutputSep)) then allocate(DstOutputData%WriteOutputSep(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2847,8 +2847,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutputNode, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutputNode) + UB(1:1) = ubound(SrcOutputData%WriteOutputNode) if (.not. allocated(DstOutputData%WriteOutputNode)) then allocate(DstOutputData%WriteOutputNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2925,7 +2925,7 @@ subroutine AA_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(AA_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AA_UnPackOutput' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroDyn_Driver_Types.f90 b/modules/aerodyn/src/AeroDyn_Driver_Types.f90 index 7d2b77655f..8d3153e0a9 100644 --- a/modules/aerodyn/src/AeroDyn_Driver_Types.f90 +++ b/modules/aerodyn/src/AeroDyn_Driver_Types.f90 @@ -317,8 +317,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(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyDvr_Outputs' @@ -328,8 +328,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_OutputsData%unOutFile, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_OutputsData%unOutFile) + UB(1:1) = ubound(SrcDvr_OutputsData%unOutFile) if (.not. allocated(DstDvr_OutputsData%unOutFile)) then allocate(DstDvr_OutputsData%unOutFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -351,8 +351,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_OutputsData%WriteOutputHdr) + UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputHdr) if (.not. allocated(DstDvr_OutputsData%WriteOutputHdr)) then allocate(DstDvr_OutputsData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -363,8 +363,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_OutputsData%WriteOutputUnt) + UB(1:1) = ubound(SrcDvr_OutputsData%WriteOutputUnt) if (.not. allocated(DstDvr_OutputsData%WriteOutputUnt)) then allocate(DstDvr_OutputsData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -375,8 +375,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, kind=B8Ki) - UB(1:3) = ubound(SrcDvr_OutputsData%storage, kind=B8Ki) + LB(1:3) = lbound(SrcDvr_OutputsData%storage) + UB(1:3) = ubound(SrcDvr_OutputsData%storage) 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 @@ -387,8 +387,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_OutputsData%outLine, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_OutputsData%outLine) + UB(1:1) = ubound(SrcDvr_OutputsData%outLine) if (.not. allocated(DstDvr_OutputsData%outLine)) then allocate(DstDvr_OutputsData%outLine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -399,8 +399,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_OutputsData%VTK_surface, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_OutputsData%VTK_surface) + UB(1:1) = ubound(SrcDvr_OutputsData%VTK_surface) if (.not. allocated(DstDvr_OutputsData%VTK_surface)) then allocate(DstDvr_OutputsData%VTK_surface(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -427,8 +427,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(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_DestroyDvr_Outputs' @@ -452,8 +452,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, kind=B8Ki) - UB(1:1) = ubound(Dvr_OutputsData%VTK_surface, kind=B8Ki) + LB(1:1) = lbound(Dvr_OutputsData%VTK_surface) + UB(1:1) = ubound(Dvr_OutputsData%VTK_surface) 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) @@ -466,8 +466,8 @@ subroutine AD_Dvr_PackDvr_Outputs(RF, Indata) type(RegFile), intent(inout) :: RF type(Dvr_Outputs), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_Dvr_PackDvr_Outputs' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call NWTC_Library_PackProgDesc(RF, InData%AD_ver) call RegPackAlloc(RF, InData%unOutFile) @@ -488,9 +488,9 @@ subroutine AD_Dvr_PackDvr_Outputs(RF, Indata) call RegPackAlloc(RF, InData%outLine) call RegPack(RF, allocated(InData%VTK_surface)) if (allocated(InData%VTK_surface)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VTK_surface), ubound(InData%VTK_surface)) + LB(1:1) = lbound(InData%VTK_surface) + UB(1:1) = ubound(InData%VTK_surface) do i1 = LB(1), UB(1) call AD_Dvr_PackDvrVTK_SurfaceType(RF, InData%VTK_surface(i1)) end do @@ -509,8 +509,8 @@ subroutine AD_Dvr_UnPackDvr_Outputs(RF, OutData) type(RegFile), intent(inout) :: RF type(Dvr_Outputs), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackDvr_Outputs' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -559,7 +559,7 @@ subroutine AD_Dvr_CopyBladeData(SrcBladeDataData, DstBladeDataData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyBladeData' ErrStat = ErrID_None @@ -574,8 +574,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, kind=B8Ki) - UB(1:2) = ubound(SrcBladeDataData%motion, kind=B8Ki) + LB(1:2) = lbound(SrcBladeDataData%motion) + UB(1:2) = ubound(SrcBladeDataData%motion) if (.not. allocated(DstBladeDataData%motion)) then allocate(DstBladeDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -623,7 +623,7 @@ subroutine AD_Dvr_UnPackBladeData(RF, OutData) type(RegFile), intent(inout) :: RF type(BladeData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackBladeData' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -646,7 +646,7 @@ subroutine AD_Dvr_CopyHubData(SrcHubDataData, DstHubDataData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyHubData' ErrStat = ErrID_None @@ -660,8 +660,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, kind=B8Ki) - UB(1:2) = ubound(SrcHubDataData%motion, kind=B8Ki) + LB(1:2) = lbound(SrcHubDataData%motion) + UB(1:2) = ubound(SrcHubDataData%motion) if (.not. allocated(DstHubDataData%motion)) then allocate(DstHubDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -706,7 +706,7 @@ subroutine AD_Dvr_UnPackHubData(RF, OutData) type(RegFile), intent(inout) :: RF type(HubData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackHubData' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -727,7 +727,7 @@ subroutine AD_Dvr_CopyNacData(SrcNacDataData, DstNacDataData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyNacData' ErrStat = ErrID_None @@ -740,8 +740,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, kind=B8Ki) - UB(1:2) = ubound(SrcNacDataData%motion, kind=B8Ki) + LB(1:2) = lbound(SrcNacDataData%motion) + UB(1:2) = ubound(SrcNacDataData%motion) if (.not. allocated(DstNacDataData%motion)) then allocate(DstNacDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -785,7 +785,7 @@ subroutine AD_Dvr_UnPackNacData(RF, OutData) type(RegFile), intent(inout) :: RF type(NacData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackNacData' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -843,8 +843,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyWTData' @@ -862,8 +862,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, kind=B8Ki) - UB(1:1) = ubound(SrcWTDataData%map2BldPt, kind=B8Ki) + LB(1:1) = lbound(SrcWTDataData%map2BldPt) + UB(1:1) = ubound(SrcWTDataData%map2BldPt) if (.not. allocated(DstWTDataData%map2BldPt)) then allocate(DstWTDataData%map2BldPt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -878,8 +878,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, kind=B8Ki) - UB(1:1) = ubound(SrcWTDataData%bld, kind=B8Ki) + LB(1:1) = lbound(SrcWTDataData%bld) + UB(1:1) = ubound(SrcWTDataData%bld) if (.not. allocated(DstWTDataData%bld)) then allocate(DstWTDataData%bld(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -910,8 +910,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, kind=B8Ki) - UB(1:2) = ubound(SrcWTDataData%motion, kind=B8Ki) + LB(1:2) = lbound(SrcWTDataData%motion) + UB(1:2) = ubound(SrcWTDataData%motion) if (.not. allocated(DstWTDataData%motion)) then allocate(DstWTDataData%motion(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -927,8 +927,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, kind=B8Ki) - UB(1:1) = ubound(SrcWTDataData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcWTDataData%WriteOutput) + UB(1:1) = ubound(SrcWTDataData%WriteOutput) if (.not. allocated(DstWTDataData%WriteOutput)) then allocate(DstWTDataData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -939,8 +939,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, kind=B8Ki) - UB(1:1) = ubound(SrcWTDataData%userSwapArray, kind=B8Ki) + LB(1:1) = lbound(SrcWTDataData%userSwapArray) + UB(1:1) = ubound(SrcWTDataData%userSwapArray) if (.not. allocated(DstWTDataData%userSwapArray)) then allocate(DstWTDataData%userSwapArray(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -956,8 +956,8 @@ subroutine AD_Dvr_DestroyWTData(WTDataData, ErrStat, ErrMsg) type(WTData), intent(inout) :: WTDataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_DestroyWTData' @@ -970,8 +970,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, kind=B8Ki) - UB(1:1) = ubound(WTDataData%map2BldPt, kind=B8Ki) + LB(1:1) = lbound(WTDataData%map2BldPt) + UB(1:1) = ubound(WTDataData%map2BldPt) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(WTDataData%map2BldPt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -979,8 +979,8 @@ subroutine AD_Dvr_DestroyWTData(WTDataData, ErrStat, ErrMsg) deallocate(WTDataData%map2BldPt) end if if (allocated(WTDataData%bld)) then - LB(1:1) = lbound(WTDataData%bld, kind=B8Ki) - UB(1:1) = ubound(WTDataData%bld, kind=B8Ki) + LB(1:1) = lbound(WTDataData%bld) + UB(1:1) = ubound(WTDataData%bld) do i1 = LB(1), UB(1) call AD_Dvr_DestroyBladeData(WTDataData%bld(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1008,8 +1008,8 @@ subroutine AD_Dvr_PackWTData(RF, Indata) type(RegFile), intent(inout) :: RF type(WTData), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_Dvr_PackWTData' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%originInit) call RegPack(RF, InData%orientationInit) @@ -1018,18 +1018,18 @@ subroutine AD_Dvr_PackWTData(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%map2hubPt) call RegPack(RF, allocated(InData%map2BldPt)) if (allocated(InData%map2BldPt)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%map2BldPt), ubound(InData%map2BldPt)) + LB(1:1) = lbound(InData%map2BldPt) + UB(1:1) = ubound(InData%map2BldPt) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%map2BldPt(i1)) end do end if call RegPack(RF, allocated(InData%bld)) if (allocated(InData%bld)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%bld), ubound(InData%bld)) + LB(1:1) = lbound(InData%bld) + UB(1:1) = ubound(InData%bld) do i1 = LB(1), UB(1) call AD_Dvr_PackBladeData(RF, InData%bld(i1)) end do @@ -1059,8 +1059,8 @@ subroutine AD_Dvr_UnPackWTData(RF, OutData) type(RegFile), intent(inout) :: RF type(WTData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackWTData' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1121,8 +1121,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_Dvr_CopyDvr_SimData' @@ -1140,8 +1140,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_SimDataData%WT, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_SimDataData%WT) + UB(1:1) = ubound(SrcDvr_SimDataData%WT) if (.not. allocated(DstDvr_SimDataData%WT)) then allocate(DstDvr_SimDataData%WT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1160,8 +1160,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, kind=B8Ki) - UB(1:1) = ubound(SrcDvr_SimDataData%Cases, kind=B8Ki) + LB(1:1) = lbound(SrcDvr_SimDataData%Cases) + UB(1:1) = ubound(SrcDvr_SimDataData%Cases) if (.not. allocated(DstDvr_SimDataData%Cases)) then allocate(DstDvr_SimDataData%Cases(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1177,8 +1177,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, kind=B8Ki) - UB(1:2) = ubound(SrcDvr_SimDataData%timeSeries, kind=B8Ki) + LB(1:2) = lbound(SrcDvr_SimDataData%timeSeries) + UB(1:2) = ubound(SrcDvr_SimDataData%timeSeries) 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 @@ -1202,16 +1202,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(Dvr_SimDataData%WT, kind=B8Ki) + LB(1:1) = lbound(Dvr_SimDataData%WT) + UB(1:1) = ubound(Dvr_SimDataData%WT) do i1 = LB(1), UB(1) call AD_Dvr_DestroyWTData(Dvr_SimDataData%WT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1219,8 +1219,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, kind=B8Ki) - UB(1:1) = ubound(Dvr_SimDataData%Cases, kind=B8Ki) + LB(1:1) = lbound(Dvr_SimDataData%Cases) + UB(1:1) = ubound(Dvr_SimDataData%Cases) do i1 = LB(1), UB(1) call AD_Dvr_DestroyDvr_Case(Dvr_SimDataData%Cases(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1240,8 +1240,8 @@ subroutine AD_Dvr_PackDvr_SimData(RF, Indata) type(RegFile), intent(inout) :: RF type(Dvr_SimData), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_Dvr_PackDvr_SimData' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%AD_InputFile) call RegPack(RF, InData%MHK) @@ -1256,9 +1256,9 @@ subroutine AD_Dvr_PackDvr_SimData(RF, Indata) call RegPack(RF, InData%numTurbines) call RegPack(RF, allocated(InData%WT)) if (allocated(InData%WT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WT), ubound(InData%WT)) + LB(1:1) = lbound(InData%WT) + UB(1:1) = ubound(InData%WT) do i1 = LB(1), UB(1) call AD_Dvr_PackWTData(RF, InData%WT(i1)) end do @@ -1269,9 +1269,9 @@ subroutine AD_Dvr_PackDvr_SimData(RF, Indata) call RegPack(RF, InData%numCases) call RegPack(RF, allocated(InData%Cases)) if (allocated(InData%Cases)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Cases), ubound(InData%Cases)) + LB(1:1) = lbound(InData%Cases) + UB(1:1) = ubound(InData%Cases) do i1 = LB(1), UB(1) call AD_Dvr_PackDvr_Case(RF, InData%Cases(i1)) end do @@ -1289,8 +1289,8 @@ subroutine AD_Dvr_UnPackDvr_SimData(RF, OutData) type(RegFile), intent(inout) :: RF type(Dvr_SimData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_Dvr_UnPackDvr_SimData' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 b/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 index 83417c9152..295764d98a 100644 --- a/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 +++ b/modules/aerodyn/src/AeroDyn_Inflow_Types.f90 @@ -435,7 +435,7 @@ subroutine ADI_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyInitOutput' @@ -445,8 +445,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -457,8 +457,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -504,7 +504,7 @@ subroutine ADI_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ADI_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -703,8 +703,8 @@ subroutine ADI_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyMisc' @@ -717,8 +717,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%VTK_surfaces, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%VTK_surfaces) + UB(1:1) = ubound(SrcMiscData%VTK_surfaces) if (.not. allocated(DstMiscData%VTK_surfaces)) then allocate(DstMiscData%VTK_surfaces(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -738,8 +738,8 @@ subroutine ADI_DestroyMisc(MiscData, ErrStat, ErrMsg) type(ADI_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_DestroyMisc' @@ -750,8 +750,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%VTK_surfaces, kind=B8Ki) + LB(1:1) = lbound(MiscData%VTK_surfaces) + UB(1:1) = ubound(MiscData%VTK_surfaces) do i1 = LB(1), UB(1) call AD_DestroyVTK_RotSurfaceType(MiscData%VTK_surfaces(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -764,16 +764,16 @@ subroutine ADI_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(ADI_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call AD_PackMisc(RF, InData%AD) call ADI_PackInflowWindData(RF, InData%IW) call RegPack(RF, allocated(InData%VTK_surfaces)) if (allocated(InData%VTK_surfaces)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VTK_surfaces), ubound(InData%VTK_surfaces)) + LB(1:1) = lbound(InData%VTK_surfaces) + UB(1:1) = ubound(InData%VTK_surfaces) do i1 = LB(1), UB(1) call AD_PackVTK_RotSurfaceType(RF, InData%VTK_surfaces(i1)) end do @@ -785,8 +785,8 @@ subroutine ADI_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(ADI_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -926,7 +926,7 @@ subroutine ADI_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyOutput' @@ -936,8 +936,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%HHVel, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%HHVel) + UB(1:2) = ubound(SrcOutputData%HHVel) if (.not. allocated(DstOutputData%HHVel)) then allocate(DstOutputData%HHVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -949,8 +949,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%IW_WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%IW_WriteOutput) + UB(1:1) = ubound(SrcOutputData%IW_WriteOutput) if (.not. allocated(DstOutputData%IW_WriteOutput)) then allocate(DstOutputData%IW_WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -961,8 +961,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1013,7 +1013,7 @@ subroutine ADI_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ADI_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackOutput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1030,16 +1030,16 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcDataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcDataData%x) + UB(1:1) = ubound(SrcDataData%x) if (.not. allocated(DstDataData%x)) then allocate(DstDataData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1054,8 +1054,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcDataData%xd)) then - LB(1:1) = lbound(SrcDataData%xd, kind=B8Ki) - UB(1:1) = ubound(SrcDataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcDataData%xd) + UB(1:1) = ubound(SrcDataData%xd) if (.not. allocated(DstDataData%xd)) then allocate(DstDataData%xd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1070,8 +1070,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcDataData%z)) then - LB(1:1) = lbound(SrcDataData%z, kind=B8Ki) - UB(1:1) = ubound(SrcDataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcDataData%z) + UB(1:1) = ubound(SrcDataData%z) if (.not. allocated(DstDataData%z)) then allocate(DstDataData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1086,8 +1086,8 @@ subroutine ADI_CopyData(SrcDataData, DstDataData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcDataData%OtherState)) then - LB(1:1) = lbound(SrcDataData%OtherState, kind=B8Ki) - UB(1:1) = ubound(SrcDataData%OtherState, kind=B8Ki) + LB(1:1) = lbound(SrcDataData%OtherState) + UB(1:1) = ubound(SrcDataData%OtherState) if (.not. allocated(DstDataData%OtherState)) then allocate(DstDataData%OtherState(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1108,8 +1108,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, kind=B8Ki) - UB(1:1) = ubound(SrcDataData%u, kind=B8Ki) + LB(1:1) = lbound(SrcDataData%u) + UB(1:1) = ubound(SrcDataData%u) if (.not. allocated(DstDataData%u)) then allocate(DstDataData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1127,8 +1127,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, kind=B8Ki) - UB(1:1) = ubound(SrcDataData%inputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcDataData%inputTimes) + UB(1:1) = ubound(SrcDataData%inputTimes) if (.not. allocated(DstDataData%inputTimes)) then allocate(DstDataData%inputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1144,16 +1144,16 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) type(ADI_Data), intent(inout) :: DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(DataData%x, kind=B8Ki) + LB(1:1) = lbound(DataData%x) + UB(1:1) = ubound(DataData%x) do i1 = LB(1), UB(1) call ADI_DestroyContState(DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1161,8 +1161,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) deallocate(DataData%x) end if if (allocated(DataData%xd)) then - LB(1:1) = lbound(DataData%xd, kind=B8Ki) - UB(1:1) = ubound(DataData%xd, kind=B8Ki) + LB(1:1) = lbound(DataData%xd) + UB(1:1) = ubound(DataData%xd) do i1 = LB(1), UB(1) call ADI_DestroyDiscState(DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1170,8 +1170,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) deallocate(DataData%xd) end if if (allocated(DataData%z)) then - LB(1:1) = lbound(DataData%z, kind=B8Ki) - UB(1:1) = ubound(DataData%z, kind=B8Ki) + LB(1:1) = lbound(DataData%z) + UB(1:1) = ubound(DataData%z) do i1 = LB(1), UB(1) call ADI_DestroyConstrState(DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1179,8 +1179,8 @@ subroutine ADI_DestroyData(DataData, ErrStat, ErrMsg) deallocate(DataData%z) end if if (allocated(DataData%OtherState)) then - LB(1:1) = lbound(DataData%OtherState, kind=B8Ki) - UB(1:1) = ubound(DataData%OtherState, kind=B8Ki) + LB(1:1) = lbound(DataData%OtherState) + UB(1:1) = ubound(DataData%OtherState) do i1 = LB(1), UB(1) call ADI_DestroyOtherState(DataData%OtherState(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1192,8 +1192,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, kind=B8Ki) - UB(1:1) = ubound(DataData%u, kind=B8Ki) + LB(1:1) = lbound(DataData%u) + UB(1:1) = ubound(DataData%u) do i1 = LB(1), UB(1) call ADI_DestroyInput(DataData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1211,41 +1211,41 @@ subroutine ADI_PackData(RF, Indata) type(RegFile), intent(inout) :: RF type(ADI_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackData' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x), ubound(InData%x)) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call ADI_PackContState(RF, InData%x(i1)) end do end if call RegPack(RF, allocated(InData%xd)) if (allocated(InData%xd)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd), ubound(InData%xd)) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call ADI_PackDiscState(RF, InData%xd(i1)) end do end if call RegPack(RF, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z), ubound(InData%z)) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call ADI_PackConstrState(RF, InData%z(i1)) end do end if call RegPack(RF, allocated(InData%OtherState)) if (allocated(InData%OtherState)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherState), ubound(InData%OtherState)) + LB(1:1) = lbound(InData%OtherState) + UB(1:1) = ubound(InData%OtherState) do i1 = LB(1), UB(1) call ADI_PackOtherState(RF, InData%OtherState(i1)) end do @@ -1254,9 +1254,9 @@ subroutine ADI_PackData(RF, Indata) call ADI_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u), ubound(InData%u)) + LB(1:1) = lbound(InData%u) + UB(1:1) = ubound(InData%u) do i1 = LB(1), UB(1) call ADI_PackInput(RF, InData%u(i1)) end do @@ -1270,8 +1270,8 @@ subroutine ADI_UnPackData(RF, OutData) type(RegFile), intent(inout) :: RF type(ADI_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackData' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1352,8 +1352,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_CopyRotFED' @@ -1375,8 +1375,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotFEDData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(SrcRotFEDData%BladeRootMotion) + UB(1:1) = ubound(SrcRotFEDData%BladeRootMotion) if (.not. allocated(DstRotFEDData%BladeRootMotion)) then allocate(DstRotFEDData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1391,8 +1391,8 @@ subroutine ADI_CopyRotFED(SrcRotFEDData, DstRotFEDData, CtrlCode, ErrStat, ErrMs end do end if if (allocated(SrcRotFEDData%BladeLn2Mesh)) then - LB(1:1) = lbound(SrcRotFEDData%BladeLn2Mesh, kind=B8Ki) - UB(1:1) = ubound(SrcRotFEDData%BladeLn2Mesh, kind=B8Ki) + LB(1:1) = lbound(SrcRotFEDData%BladeLn2Mesh) + UB(1:1) = ubound(SrcRotFEDData%BladeLn2Mesh) if (.not. allocated(DstRotFEDData%BladeLn2Mesh)) then allocate(DstRotFEDData%BladeLn2Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1416,8 +1416,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotFEDData%AD_P_2_AD_L_B, kind=B8Ki) + LB(1:1) = lbound(SrcRotFEDData%AD_P_2_AD_L_B) + UB(1:1) = ubound(SrcRotFEDData%AD_P_2_AD_L_B) 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 @@ -1435,8 +1435,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotFEDData%ED_P_2_AD_P_R, kind=B8Ki) + LB(1:1) = lbound(SrcRotFEDData%ED_P_2_AD_P_R) + UB(1:1) = ubound(SrcRotFEDData%ED_P_2_AD_P_R) 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 @@ -1462,8 +1462,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) type(RotFED), intent(inout) :: RotFEDData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ADI_DestroyRotFED' @@ -1480,8 +1480,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, kind=B8Ki) - UB(1:1) = ubound(RotFEDData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(RotFEDData%BladeRootMotion) + UB(1:1) = ubound(RotFEDData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshDestroy( RotFEDData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1489,8 +1489,8 @@ subroutine ADI_DestroyRotFED(RotFEDData, ErrStat, ErrMsg) deallocate(RotFEDData%BladeRootMotion) end if if (allocated(RotFEDData%BladeLn2Mesh)) then - LB(1:1) = lbound(RotFEDData%BladeLn2Mesh, kind=B8Ki) - UB(1:1) = ubound(RotFEDData%BladeLn2Mesh, kind=B8Ki) + LB(1:1) = lbound(RotFEDData%BladeLn2Mesh) + UB(1:1) = ubound(RotFEDData%BladeLn2Mesh) do i1 = LB(1), UB(1) call MeshDestroy( RotFEDData%BladeLn2Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1502,8 +1502,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, kind=B8Ki) - UB(1:1) = ubound(RotFEDData%AD_P_2_AD_L_B, kind=B8Ki) + LB(1:1) = lbound(RotFEDData%AD_P_2_AD_L_B) + UB(1:1) = ubound(RotFEDData%AD_P_2_AD_L_B) 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) @@ -1513,8 +1513,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, kind=B8Ki) - UB(1:1) = ubound(RotFEDData%ED_P_2_AD_P_R, kind=B8Ki) + LB(1:1) = lbound(RotFEDData%ED_P_2_AD_P_R) + UB(1:1) = ubound(RotFEDData%ED_P_2_AD_P_R) 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) @@ -1531,8 +1531,8 @@ subroutine ADI_PackRotFED(RF, Indata) type(RegFile), intent(inout) :: RF type(RotFED), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackRotFED' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call MeshPack(RF, InData%PlatformPtMesh) call MeshPack(RF, InData%TwrPtMesh) @@ -1541,18 +1541,18 @@ subroutine ADI_PackRotFED(RF, Indata) call MeshPack(RF, InData%HubPtMotion) call RegPack(RF, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) + LB(1:1) = lbound(InData%BladeRootMotion) + UB(1:1) = ubound(InData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeRootMotion(i1)) end do end if call RegPack(RF, allocated(InData%BladeLn2Mesh)) if (allocated(InData%BladeLn2Mesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeLn2Mesh), ubound(InData%BladeLn2Mesh)) + LB(1:1) = lbound(InData%BladeLn2Mesh) + UB(1:1) = ubound(InData%BladeLn2Mesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeLn2Mesh(i1)) end do @@ -1564,9 +1564,9 @@ subroutine ADI_PackRotFED(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%AD_P_2_AD_L_T) call RegPack(RF, allocated(InData%AD_P_2_AD_L_B)) if (allocated(InData%AD_P_2_AD_L_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%AD_P_2_AD_L_B(i1)) end do @@ -1574,9 +1574,9 @@ subroutine ADI_PackRotFED(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_AD_P_TF) call RegPack(RF, allocated(InData%ED_P_2_AD_P_R)) if (allocated(InData%ED_P_2_AD_P_R)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_AD_P_R(i1)) end do @@ -1590,8 +1590,8 @@ subroutine ADI_UnPackRotFED(RF, OutData) type(RegFile), intent(inout) :: RF type(RotFED), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackRotFED' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1668,16 +1668,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcFED_DataData%WT, kind=B8Ki) + LB(1:1) = lbound(SrcFED_DataData%WT) + UB(1:1) = ubound(SrcFED_DataData%WT) if (.not. allocated(DstFED_DataData%WT)) then allocate(DstFED_DataData%WT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1697,16 +1697,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(FED_DataData%WT, kind=B8Ki) + LB(1:1) = lbound(FED_DataData%WT) + UB(1:1) = ubound(FED_DataData%WT) do i1 = LB(1), UB(1) call ADI_DestroyRotFED(FED_DataData%WT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1719,14 +1719,14 @@ subroutine ADI_PackFED_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(FED_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'ADI_PackFED_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%WT)) if (allocated(InData%WT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WT), ubound(InData%WT)) + LB(1:1) = lbound(InData%WT) + UB(1:1) = ubound(InData%WT) do i1 = LB(1), UB(1) call ADI_PackRotFED(RF, InData%WT(i1)) end do @@ -1738,8 +1738,8 @@ subroutine ADI_UnPackFED_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(FED_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ADI_UnPackFED_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/AeroDyn_Registry.txt b/modules/aerodyn/src/AeroDyn_Registry.txt index 662b3c1ed8..9060a08859 100644 --- a/modules/aerodyn/src/AeroDyn_Registry.txt +++ b/modules/aerodyn/src/AeroDyn_Registry.txt @@ -351,14 +351,6 @@ typedef ^ RotMiscVarType ReKi TFinSTV_i 3 - - "Structural velocity at the refer typedef ^ RotMiscVarType ReKi TFinF_i 3 - - "Forces at the reference point of the fin in the inertial system" typedef ^ RotMiscVarType ReKi TFinM_i 3 - - "Moments at the reference point of the fin in the inertial system" -typedef ^ MiscVarType RotMiscVarType rotors {:} - - "MiscVars for each rotor" - -typedef ^ MiscVarType FVW_InputType FVW_u : - - "Inputs to the FVW module" - -typedef ^ MiscVarType FVW_OutputType FVW_y - - - "Outputs from the FVW module" - -typedef ^ MiscVarType FVW_MiscVarType FVW - - - "MiscVars from the FVW module" - -typedef ^ MiscVarType ReKi WindPos {:}{:} - - "XYZ coordinates to query for wind velocity/acceleration" - -typedef ^ MiscVarType ReKi WindVel {:}{:} - - "XYZ components of wind velocity" - -typedef ^ MiscVarType ReKi WindAcc {:}{:} - - "XYZ components of wind acceleration" - - # Inflow data storage typedef ^ ElemInflowType ReKi InflowVel {:}{:} - - "U,V,W at nodes on element (note if we change the requirement that NumNodes is the same for each blade, this will need to change)" m/s typedef ^ ElemInflowType ReKi InflowAcc {:}{:} - - "Wind acceleration at nodes on element (blade or tower) (note if we change the requirement that NumNodes is the same for each blade, this will need to change)" m/s @@ -368,8 +360,17 @@ typedef ^ RotInflowType ReKi InflowOnHub {3}{1} - - "U,V,W at hub" m/s typedef ^ RotInflowType ReKi InflowOnNacelle {3}{1} - - "U,V,W at nacelle" m/s typedef ^ RotInflowType ReKi InflowOnTailFin {3}{1} - - "U,V,W at tailfin" m/s typedef ^ RotInflowType ReKi AvgDiskVel {3} - 0.0 "disk-averaged U,V,W" m/s + typedef ^ AD_InflowType ReKi InflowWakeVel {:}{:} - - "U,V,W at wake points" m/s typedef ^ AD_InflowType RotInflowType RotInflow {:} - - "Inflow on rotor" - + +typedef ^ MiscVarType RotMiscVarType rotors {:} - - "MiscVars for each rotor" - +typedef ^ MiscVarType FVW_InputType FVW_u : - - "Inputs to the FVW module" - +typedef ^ MiscVarType FVW_OutputType FVW_y - - - "Outputs from the FVW module" - +typedef ^ MiscVarType FVW_MiscVarType FVW - - - "MiscVars from the FVW module" - +typedef ^ MiscVarType ReKi WindPos {:}{:} - - "XYZ coordinates to query for wind velocity/acceleration" - +typedef ^ MiscVarType ReKi WindVel {:}{:} - - "XYZ components of wind velocity" - +typedef ^ MiscVarType ReKi WindAcc {:}{:} - - "XYZ components of wind acceleration" - typedef ^ MiscVarType AD_InflowType Inflow {:} - - "Inflow storage (size of u for history of inputs)" - diff --git a/modules/aerodyn/src/AeroDyn_Types.f90 b/modules/aerodyn/src/AeroDyn_Types.f90 index 1c79744070..68cc48710c 100644 --- a/modules/aerodyn/src/AeroDyn_Types.f90 +++ b/modules/aerodyn/src/AeroDyn_Types.f90 @@ -388,18 +388,6 @@ MODULE AeroDyn_Types REAL(ReKi) , DIMENSION(1:3) :: TFinM_i = 0.0_ReKi !< Moments at the reference point of the fin in the inertial system [-] END TYPE RotMiscVarType ! ======================= -! ========= AD_MiscVarType ======= - TYPE, PUBLIC :: AD_MiscVarType - TYPE(RotMiscVarType) , DIMENSION(:), ALLOCATABLE :: rotors !< MiscVars for each rotor [-] - TYPE(FVW_InputType) , DIMENSION(:), ALLOCATABLE :: FVW_u !< Inputs to the FVW module [-] - TYPE(FVW_OutputType) :: FVW_y !< Outputs from the FVW module [-] - TYPE(FVW_MiscVarType) :: FVW !< MiscVars from the FVW module [-] - REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: WindPos !< XYZ coordinates to query for wind velocity/acceleration [-] - REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: WindVel !< XYZ components of wind velocity [-] - REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: WindAcc !< XYZ components of wind acceleration [-] - TYPE(AD_InflowType) , DIMENSION(:), ALLOCATABLE :: Inflow !< Inflow storage (size of u for history of inputs) [-] - END TYPE AD_MiscVarType -! ======================= ! ========= ElemInflowType ======= TYPE, PUBLIC :: ElemInflowType REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: InflowVel !< U,V,W at nodes on element (note if we change the requirement that NumNodes is the same for each blade, this will need to change) [m/s] @@ -422,6 +410,18 @@ MODULE AeroDyn_Types TYPE(RotInflowType) , DIMENSION(:), ALLOCATABLE :: RotInflow !< Inflow on rotor [-] END TYPE AD_InflowType ! ======================= +! ========= AD_MiscVarType ======= + TYPE, PUBLIC :: AD_MiscVarType + TYPE(RotMiscVarType) , DIMENSION(:), ALLOCATABLE :: rotors !< MiscVars for each rotor [-] + TYPE(FVW_InputType) , DIMENSION(:), ALLOCATABLE :: FVW_u !< Inputs to the FVW module [-] + TYPE(FVW_OutputType) :: FVW_y !< Outputs from the FVW module [-] + TYPE(FVW_MiscVarType) :: FVW !< MiscVars from the FVW module [-] + REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: WindPos !< XYZ coordinates to query for wind velocity/acceleration [-] + REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: WindVel !< XYZ components of wind velocity [-] + REAL(ReKi) , DIMENSION(:,:), ALLOCATABLE :: WindAcc !< XYZ components of wind acceleration [-] + TYPE(AD_InflowType) , DIMENSION(:), ALLOCATABLE :: Inflow !< Inflow storage (size of u for history of inputs) [-] + END TYPE AD_MiscVarType +! ======================= ! ========= Jac_u_idxStarts ======= TYPE, PUBLIC :: Jac_u_idxStarts INTEGER(IntKi) :: Nacelle = 1 !< Index to first point in u jacobian for Nacelle [-] @@ -712,14 +712,14 @@ subroutine AD_CopyVTK_BLSurfaceType(SrcVTK_BLSurfaceTypeData, DstVTK_BLSurfaceTy integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords, kind=B8Ki) + LB(1:3) = lbound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) + UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) 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 @@ -756,7 +756,7 @@ subroutine AD_UnPackVTK_BLSurfaceType(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_VTK_BLSurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackVTK_BLSurfaceType' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -769,16 +769,16 @@ subroutine AD_CopyVTK_RotSurfaceType(SrcVTK_RotSurfaceTypeData, DstVTK_RotSurfac integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%BladeShape, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_RotSurfaceTypeData%BladeShape) + UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%BladeShape) if (.not. allocated(DstVTK_RotSurfaceTypeData%BladeShape)) then allocate(DstVTK_RotSurfaceTypeData%BladeShape(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -793,8 +793,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%TowerRad, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_RotSurfaceTypeData%TowerRad) + UB(1:1) = ubound(SrcVTK_RotSurfaceTypeData%TowerRad) if (.not. allocated(DstVTK_RotSurfaceTypeData%TowerRad)) then allocate(DstVTK_RotSurfaceTypeData%TowerRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -810,16 +810,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(VTK_RotSurfaceTypeData%BladeShape, kind=B8Ki) + LB(1:1) = lbound(VTK_RotSurfaceTypeData%BladeShape) + UB(1:1) = ubound(VTK_RotSurfaceTypeData%BladeShape) do i1 = LB(1), UB(1) call AD_DestroyVTK_BLSurfaceType(VTK_RotSurfaceTypeData%BladeShape(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -835,14 +835,14 @@ subroutine AD_PackVTK_RotSurfaceType(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_VTK_RotSurfaceType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackVTK_RotSurfaceType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%BladeShape)) if (allocated(InData%BladeShape)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeShape), ubound(InData%BladeShape)) + LB(1:1) = lbound(InData%BladeShape) + UB(1:1) = ubound(InData%BladeShape) do i1 = LB(1), UB(1) call AD_PackVTK_BLSurfaceType(RF, InData%BladeShape(i1)) end do @@ -855,8 +855,8 @@ subroutine AD_UnPackVTK_RotSurfaceType(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_VTK_RotSurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackVTK_RotSurfaceType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -882,7 +882,7 @@ subroutine AD_CopyRotInitInputType(SrcRotInitInputTypeData, DstRotInitInputTypeD integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyRotInitInputType' ErrStat = ErrID_None @@ -892,8 +892,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, kind=B8Ki) - UB(1:2) = ubound(SrcRotInitInputTypeData%BladeRootPosition, kind=B8Ki) + LB(1:2) = lbound(SrcRotInitInputTypeData%BladeRootPosition) + UB(1:2) = ubound(SrcRotInitInputTypeData%BladeRootPosition) if (.not. allocated(DstRotInitInputTypeData%BladeRootPosition)) then allocate(DstRotInitInputTypeData%BladeRootPosition(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -904,8 +904,8 @@ subroutine AD_CopyRotInitInputType(SrcRotInitInputTypeData, DstRotInitInputTypeD DstRotInitInputTypeData%BladeRootPosition = SrcRotInitInputTypeData%BladeRootPosition end if if (allocated(SrcRotInitInputTypeData%BladeRootOrientation)) then - LB(1:3) = lbound(SrcRotInitInputTypeData%BladeRootOrientation, kind=B8Ki) - UB(1:3) = ubound(SrcRotInitInputTypeData%BladeRootOrientation, kind=B8Ki) + LB(1:3) = lbound(SrcRotInitInputTypeData%BladeRootOrientation) + UB(1:3) = ubound(SrcRotInitInputTypeData%BladeRootOrientation) 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 @@ -958,7 +958,7 @@ subroutine AD_UnPackRotInitInputType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotInitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInitInputType' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -980,16 +980,16 @@ subroutine AD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%rotors) + UB(1:1) = ubound(SrcInitInputData%rotors) if (.not. allocated(DstInitInputData%rotors)) then allocate(DstInitInputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1027,16 +1027,16 @@ subroutine AD_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(AD_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InitInputData%rotors, kind=B8Ki) + LB(1:1) = lbound(InitInputData%rotors) + UB(1:1) = ubound(InitInputData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotInitInputType(InitInputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1052,15 +1052,15 @@ subroutine AD_PackInitInput(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInitInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotInitInputType(RF, InData%rotors(i1)) end do @@ -1094,8 +1094,8 @@ subroutine AD_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInitInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1155,15 +1155,15 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlSpn, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlSpn) + UB(1:1) = ubound(SrcBladePropsTypeData%BlSpn) if (.not. allocated(DstBladePropsTypeData%BlSpn)) then allocate(DstBladePropsTypeData%BlSpn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1174,8 +1174,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlSpn = SrcBladePropsTypeData%BlSpn end if if (allocated(SrcBladePropsTypeData%BlCrvAC)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAC, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAC, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAC) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAC) if (.not. allocated(DstBladePropsTypeData%BlCrvAC)) then allocate(DstBladePropsTypeData%BlCrvAC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1186,8 +1186,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCrvAC = SrcBladePropsTypeData%BlCrvAC end if if (allocated(SrcBladePropsTypeData%BlSwpAC)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlSwpAC, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlSwpAC, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlSwpAC) + UB(1:1) = ubound(SrcBladePropsTypeData%BlSwpAC) if (.not. allocated(DstBladePropsTypeData%BlSwpAC)) then allocate(DstBladePropsTypeData%BlSwpAC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1198,8 +1198,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlSwpAC = SrcBladePropsTypeData%BlSwpAC end if if (allocated(SrcBladePropsTypeData%BlCrvAng)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAng, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAng, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCrvAng) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCrvAng) if (.not. allocated(DstBladePropsTypeData%BlCrvAng)) then allocate(DstBladePropsTypeData%BlCrvAng(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1210,8 +1210,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCrvAng = SrcBladePropsTypeData%BlCrvAng end if if (allocated(SrcBladePropsTypeData%BlTwist)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlTwist, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlTwist, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlTwist) + UB(1:1) = ubound(SrcBladePropsTypeData%BlTwist) if (.not. allocated(DstBladePropsTypeData%BlTwist)) then allocate(DstBladePropsTypeData%BlTwist(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1222,8 +1222,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlTwist = SrcBladePropsTypeData%BlTwist end if if (allocated(SrcBladePropsTypeData%BlChord)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlChord, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlChord, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlChord) + UB(1:1) = ubound(SrcBladePropsTypeData%BlChord) if (.not. allocated(DstBladePropsTypeData%BlChord)) then allocate(DstBladePropsTypeData%BlChord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1234,8 +1234,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlChord = SrcBladePropsTypeData%BlChord end if if (allocated(SrcBladePropsTypeData%BlAFID)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlAFID, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlAFID, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlAFID) + UB(1:1) = ubound(SrcBladePropsTypeData%BlAFID) if (.not. allocated(DstBladePropsTypeData%BlAFID)) then allocate(DstBladePropsTypeData%BlAFID(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1246,8 +1246,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlAFID = SrcBladePropsTypeData%BlAFID end if if (allocated(SrcBladePropsTypeData%BlCb)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCb, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCb, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCb) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCb) if (.not. allocated(DstBladePropsTypeData%BlCb)) then allocate(DstBladePropsTypeData%BlCb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1258,8 +1258,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCb = SrcBladePropsTypeData%BlCb end if if (allocated(SrcBladePropsTypeData%BlCenBn)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBn, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBn, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBn) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBn) if (.not. allocated(DstBladePropsTypeData%BlCenBn)) then allocate(DstBladePropsTypeData%BlCenBn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1270,8 +1270,8 @@ subroutine AD_CopyBladePropsType(SrcBladePropsTypeData, DstBladePropsTypeData, C DstBladePropsTypeData%BlCenBn = SrcBladePropsTypeData%BlCenBn end if if (allocated(SrcBladePropsTypeData%BlCenBt)) then - LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBt, kind=B8Ki) - UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBt, kind=B8Ki) + LB(1:1) = lbound(SrcBladePropsTypeData%BlCenBt) + UB(1:1) = ubound(SrcBladePropsTypeData%BlCenBt) if (.not. allocated(DstBladePropsTypeData%BlCenBt)) then allocate(DstBladePropsTypeData%BlCenBt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1345,7 +1345,7 @@ subroutine AD_UnPackBladePropsType(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_BladePropsType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackBladePropsType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1368,14 +1368,14 @@ subroutine AD_CopyBladeShape(SrcBladeShapeData, DstBladeShapeData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcBladeShapeData%AirfoilCoords, kind=B8Ki) + LB(1:3) = lbound(SrcBladeShapeData%AirfoilCoords) + UB(1:3) = ubound(SrcBladeShapeData%AirfoilCoords) 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 @@ -1412,7 +1412,7 @@ subroutine AD_UnPackBladeShape(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_BladeShape), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackBladeShape' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1425,8 +1425,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotInitOutputType' @@ -1434,8 +1434,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy ErrMsg = '' DstRotInitOutputTypeData%AirDens = SrcRotInitOutputTypeData%AirDens if (allocated(SrcRotInitOutputTypeData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputHdr, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputHdr) + UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputHdr) if (.not. allocated(DstRotInitOutputTypeData%WriteOutputHdr)) then allocate(DstRotInitOutputTypeData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1446,8 +1446,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%WriteOutputHdr = SrcRotInitOutputTypeData%WriteOutputHdr end if if (allocated(SrcRotInitOutputTypeData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%WriteOutputUnt) + UB(1:1) = ubound(SrcRotInitOutputTypeData%WriteOutputUnt) if (.not. allocated(DstRotInitOutputTypeData%WriteOutputUnt)) then allocate(DstRotInitOutputTypeData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1458,8 +1458,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%WriteOutputUnt = SrcRotInitOutputTypeData%WriteOutputUnt end if if (allocated(SrcRotInitOutputTypeData%BladeShape)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeShape, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeShape, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeShape) + UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeShape) if (.not. allocated(DstRotInitOutputTypeData%BladeShape)) then allocate(DstRotInitOutputTypeData%BladeShape(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1474,8 +1474,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy end do end if if (allocated(SrcRotInitOutputTypeData%LinNames_y)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_y, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_y) + UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_y) if (.not. allocated(DstRotInitOutputTypeData%LinNames_y)) then allocate(DstRotInitOutputTypeData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1486,8 +1486,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_x) + UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_x) if (.not. allocated(DstRotInitOutputTypeData%LinNames_x)) then allocate(DstRotInitOutputTypeData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1498,8 +1498,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%LinNames_u) + UB(1:1) = ubound(SrcRotInitOutputTypeData%LinNames_u) if (.not. allocated(DstRotInitOutputTypeData%LinNames_u)) then allocate(DstRotInitOutputTypeData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1510,8 +1510,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_y) + UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_y) if (.not. allocated(DstRotInitOutputTypeData%RotFrame_y)) then allocate(DstRotInitOutputTypeData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1522,8 +1522,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_x) + UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_x) if (.not. allocated(DstRotInitOutputTypeData%RotFrame_x)) then allocate(DstRotInitOutputTypeData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1534,8 +1534,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%RotFrame_u) + UB(1:1) = ubound(SrcRotInitOutputTypeData%RotFrame_u) if (.not. allocated(DstRotInitOutputTypeData%RotFrame_u)) then allocate(DstRotInitOutputTypeData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1546,8 +1546,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%IsLoad_u) + UB(1:1) = ubound(SrcRotInitOutputTypeData%IsLoad_u) if (.not. allocated(DstRotInitOutputTypeData%IsLoad_u)) then allocate(DstRotInitOutputTypeData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1558,8 +1558,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeProps, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%BladeProps) + UB(1:1) = ubound(SrcRotInitOutputTypeData%BladeProps) if (.not. allocated(DstRotInitOutputTypeData%BladeProps)) then allocate(DstRotInitOutputTypeData%BladeProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1574,8 +1574,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy end do end if if (allocated(SrcRotInitOutputTypeData%DerivOrder_x)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%DerivOrder_x, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%DerivOrder_x) + UB(1:1) = ubound(SrcRotInitOutputTypeData%DerivOrder_x) if (.not. allocated(DstRotInitOutputTypeData%DerivOrder_x)) then allocate(DstRotInitOutputTypeData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1586,8 +1586,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrElev, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrElev) + UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrElev) if (.not. allocated(DstRotInitOutputTypeData%TwrElev)) then allocate(DstRotInitOutputTypeData%TwrElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1598,8 +1598,8 @@ subroutine AD_CopyRotInitOutputType(SrcRotInitOutputTypeData, DstRotInitOutputTy DstRotInitOutputTypeData%TwrElev = SrcRotInitOutputTypeData%TwrElev end if if (allocated(SrcRotInitOutputTypeData%TwrDiam)) then - LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrDiam, kind=B8Ki) - UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrDiam, kind=B8Ki) + LB(1:1) = lbound(SrcRotInitOutputTypeData%TwrDiam) + UB(1:1) = ubound(SrcRotInitOutputTypeData%TwrDiam) if (.not. allocated(DstRotInitOutputTypeData%TwrDiam)) then allocate(DstRotInitOutputTypeData%TwrDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1615,8 +1615,8 @@ subroutine AD_DestroyRotInitOutputType(RotInitOutputTypeData, ErrStat, ErrMsg) type(RotInitOutputType), intent(inout) :: RotInitOutputTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotInitOutputType' @@ -1629,8 +1629,8 @@ subroutine AD_DestroyRotInitOutputType(RotInitOutputTypeData, ErrStat, ErrMsg) deallocate(RotInitOutputTypeData%WriteOutputUnt) end if if (allocated(RotInitOutputTypeData%BladeShape)) then - LB(1:1) = lbound(RotInitOutputTypeData%BladeShape, kind=B8Ki) - UB(1:1) = ubound(RotInitOutputTypeData%BladeShape, kind=B8Ki) + LB(1:1) = lbound(RotInitOutputTypeData%BladeShape) + UB(1:1) = ubound(RotInitOutputTypeData%BladeShape) do i1 = LB(1), UB(1) call AD_DestroyBladeShape(RotInitOutputTypeData%BladeShape(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1659,8 +1659,8 @@ subroutine AD_DestroyRotInitOutputType(RotInitOutputTypeData, ErrStat, ErrMsg) deallocate(RotInitOutputTypeData%IsLoad_u) end if if (allocated(RotInitOutputTypeData%BladeProps)) then - LB(1:1) = lbound(RotInitOutputTypeData%BladeProps, kind=B8Ki) - UB(1:1) = ubound(RotInitOutputTypeData%BladeProps, kind=B8Ki) + LB(1:1) = lbound(RotInitOutputTypeData%BladeProps) + UB(1:1) = ubound(RotInitOutputTypeData%BladeProps) do i1 = LB(1), UB(1) call AD_DestroyBladePropsType(RotInitOutputTypeData%BladeProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1682,17 +1682,17 @@ subroutine AD_PackRotInitOutputType(RF, Indata) type(RegFile), intent(inout) :: RF type(RotInitOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInitOutputType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%AirDens) call RegPackAlloc(RF, InData%WriteOutputHdr) call RegPackAlloc(RF, InData%WriteOutputUnt) call RegPack(RF, allocated(InData%BladeShape)) if (allocated(InData%BladeShape)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeShape), ubound(InData%BladeShape)) + LB(1:1) = lbound(InData%BladeShape) + UB(1:1) = ubound(InData%BladeShape) do i1 = LB(1), UB(1) call AD_PackBladeShape(RF, InData%BladeShape(i1)) end do @@ -1706,9 +1706,9 @@ subroutine AD_PackRotInitOutputType(RF, Indata) call RegPackAlloc(RF, InData%IsLoad_u) call RegPack(RF, allocated(InData%BladeProps)) if (allocated(InData%BladeProps)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeProps), ubound(InData%BladeProps)) + LB(1:1) = lbound(InData%BladeProps) + UB(1:1) = ubound(InData%BladeProps) do i1 = LB(1), UB(1) call AD_PackBladePropsType(RF, InData%BladeProps(i1)) end do @@ -1723,8 +1723,8 @@ subroutine AD_UnPackRotInitOutputType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotInitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInitOutputType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1775,16 +1775,16 @@ subroutine AD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%rotors) + UB(1:1) = ubound(SrcInitOutputData%rotors) if (.not. allocated(DstInitOutputData%rotors)) then allocate(DstInitOutputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1808,16 +1808,16 @@ subroutine AD_DestroyInitOutput(InitOutputData, ErrStat, ErrMsg) type(AD_InitOutputType), intent(inout) :: InitOutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InitOutputData%rotors, kind=B8Ki) + LB(1:1) = lbound(InitOutputData%rotors) + UB(1:1) = ubound(InitOutputData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotInitOutputType(InitOutputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1832,14 +1832,14 @@ subroutine AD_PackInitOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_InitOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInitOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotInitOutputType(RF, InData%rotors(i1)) end do @@ -1853,8 +1853,8 @@ subroutine AD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInitOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1881,16 +1881,16 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputFileData%BladeProps, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputFileData%BladeProps) + UB(1:1) = ubound(SrcRotInputFileData%BladeProps) if (.not. allocated(DstRotInputFileData%BladeProps)) then allocate(DstRotInputFileData%BladeProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1906,8 +1906,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod end if DstRotInputFileData%NumTwrNds = SrcRotInputFileData%NumTwrNds if (allocated(SrcRotInputFileData%TwrElev)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrElev, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputFileData%TwrElev, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputFileData%TwrElev) + UB(1:1) = ubound(SrcRotInputFileData%TwrElev) if (.not. allocated(DstRotInputFileData%TwrElev)) then allocate(DstRotInputFileData%TwrElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1918,8 +1918,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrElev = SrcRotInputFileData%TwrElev end if if (allocated(SrcRotInputFileData%TwrDiam)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrDiam, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputFileData%TwrDiam, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputFileData%TwrDiam) + UB(1:1) = ubound(SrcRotInputFileData%TwrDiam) if (.not. allocated(DstRotInputFileData%TwrDiam)) then allocate(DstRotInputFileData%TwrDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1930,8 +1930,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrDiam = SrcRotInputFileData%TwrDiam end if if (allocated(SrcRotInputFileData%TwrCd)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrCd, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputFileData%TwrCd, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputFileData%TwrCd) + UB(1:1) = ubound(SrcRotInputFileData%TwrCd) if (.not. allocated(DstRotInputFileData%TwrCd)) then allocate(DstRotInputFileData%TwrCd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1942,8 +1942,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrCd = SrcRotInputFileData%TwrCd end if if (allocated(SrcRotInputFileData%TwrTI)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrTI, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputFileData%TwrTI, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputFileData%TwrTI) + UB(1:1) = ubound(SrcRotInputFileData%TwrTI) if (.not. allocated(DstRotInputFileData%TwrTI)) then allocate(DstRotInputFileData%TwrTI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1954,8 +1954,8 @@ subroutine AD_CopyRotInputFile(SrcRotInputFileData, DstRotInputFileData, CtrlCod DstRotInputFileData%TwrTI = SrcRotInputFileData%TwrTI end if if (allocated(SrcRotInputFileData%TwrCb)) then - LB(1:1) = lbound(SrcRotInputFileData%TwrCb, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputFileData%TwrCb, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputFileData%TwrCb) + UB(1:1) = ubound(SrcRotInputFileData%TwrCb) if (.not. allocated(DstRotInputFileData%TwrCb)) then allocate(DstRotInputFileData%TwrCb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1983,16 +1983,16 @@ subroutine AD_DestroyRotInputFile(RotInputFileData, ErrStat, ErrMsg) type(RotInputFile), intent(inout) :: RotInputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(RotInputFileData%BladeProps, kind=B8Ki) + LB(1:1) = lbound(RotInputFileData%BladeProps) + UB(1:1) = ubound(RotInputFileData%BladeProps) do i1 = LB(1), UB(1) call AD_DestroyBladePropsType(RotInputFileData%BladeProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2022,14 +2022,14 @@ subroutine AD_PackRotInputFile(RF, Indata) type(RegFile), intent(inout) :: RF type(RotInputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInputFile' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%BladeProps)) if (allocated(InData%BladeProps)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeProps), ubound(InData%BladeProps)) + LB(1:1) = lbound(InData%BladeProps) + UB(1:1) = ubound(InData%BladeProps) do i1 = LB(1), UB(1) call AD_PackBladePropsType(RF, InData%BladeProps(i1)) end do @@ -2057,8 +2057,8 @@ subroutine AD_UnPackRotInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(RotInputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInputFile' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2099,8 +2099,8 @@ subroutine AD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyInputFile' @@ -2119,8 +2119,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%ADBlFile, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%ADBlFile) + UB(1:1) = ubound(SrcInputFileData%ADBlFile) if (.not. allocated(DstInputFileData%ADBlFile)) then allocate(DstInputFileData%ADBlFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2164,8 +2164,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%AFNames, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%AFNames) + UB(1:1) = ubound(SrcInputFileData%AFNames) if (.not. allocated(DstInputFileData%AFNames)) then allocate(DstInputFileData%AFNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2183,8 +2183,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2198,8 +2198,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BldNd_OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BldNd_OutList) + UB(1:1) = ubound(SrcInputFileData%BldNd_OutList) if (.not. allocated(DstInputFileData%BldNd_OutList)) then allocate(DstInputFileData%BldNd_OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2214,8 +2214,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%rotors) + UB(1:1) = ubound(SrcInputFileData%rotors) if (.not. allocated(DstInputFileData%rotors)) then allocate(DstInputFileData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2235,8 +2235,8 @@ subroutine AD_DestroyInputFile(InputFileData, ErrStat, ErrMsg) type(AD_InputFile), intent(inout) :: InputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyInputFile' @@ -2257,8 +2257,8 @@ subroutine AD_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%BldNd_OutList) end if if (allocated(InputFileData%rotors)) then - LB(1:1) = lbound(InputFileData%rotors, kind=B8Ki) - UB(1:1) = ubound(InputFileData%rotors, kind=B8Ki) + LB(1:1) = lbound(InputFileData%rotors) + UB(1:1) = ubound(InputFileData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotInputFile(InputFileData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2271,8 +2271,8 @@ subroutine AD_PackInputFile(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_InputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInputFile' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%Echo) call RegPack(RF, InData%DTAero) @@ -2337,9 +2337,9 @@ subroutine AD_PackInputFile(RF, Indata) call RegPack(RF, InData%UAEndRad) call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotInputFile(RF, InData%rotors(i1)) end do @@ -2351,8 +2351,8 @@ subroutine AD_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInputFile' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2491,16 +2491,16 @@ subroutine AD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%rotors) + UB(1:1) = ubound(SrcContStateData%rotors) if (.not. allocated(DstContStateData%rotors)) then allocate(DstContStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2523,16 +2523,16 @@ subroutine AD_DestroyContState(ContStateData, ErrStat, ErrMsg) type(AD_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ContStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(ContStateData%rotors) + UB(1:1) = ubound(ContStateData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotContinuousStateType(ContStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2547,14 +2547,14 @@ subroutine AD_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotContinuousStateType(RF, InData%rotors(i1)) end do @@ -2567,8 +2567,8 @@ subroutine AD_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2647,16 +2647,16 @@ subroutine AD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%rotors) + UB(1:1) = ubound(SrcDiscStateData%rotors) if (.not. allocated(DstDiscStateData%rotors)) then allocate(DstDiscStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2679,16 +2679,16 @@ subroutine AD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(AD_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%rotors) + UB(1:1) = ubound(DiscStateData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotDiscreteStateType(DiscStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2703,14 +2703,14 @@ subroutine AD_PackDiscState(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotDiscreteStateType(RF, InData%rotors(i1)) end do @@ -2723,8 +2723,8 @@ subroutine AD_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2803,16 +2803,16 @@ subroutine AD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%rotors) + UB(1:1) = ubound(SrcConstrStateData%rotors) if (.not. allocated(DstConstrStateData%rotors)) then allocate(DstConstrStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2835,16 +2835,16 @@ subroutine AD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(AD_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%rotors) + UB(1:1) = ubound(ConstrStateData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotConstraintStateType(ConstrStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2859,14 +2859,14 @@ subroutine AD_PackConstrState(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotConstraintStateType(RF, InData%rotors(i1)) end do @@ -2879,8 +2879,8 @@ subroutine AD_UnPackConstrState(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2959,16 +2959,16 @@ subroutine AD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%rotors) + UB(1:1) = ubound(SrcOtherStateData%rotors) if (.not. allocated(DstOtherStateData%rotors)) then allocate(DstOtherStateData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2986,8 +2986,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%WakeLocationPoints, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%WakeLocationPoints) + UB(1:2) = ubound(SrcOtherStateData%WakeLocationPoints) if (.not. allocated(DstOtherStateData%WakeLocationPoints)) then allocate(DstOtherStateData%WakeLocationPoints(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3003,16 +3003,16 @@ subroutine AD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(AD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%rotors, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%rotors) + UB(1:1) = ubound(OtherStateData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotOtherStateType(OtherStateData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3030,14 +3030,14 @@ subroutine AD_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotOtherStateType(RF, InData%rotors(i1)) end do @@ -3051,8 +3051,8 @@ subroutine AD_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3079,8 +3079,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotMiscVarType' @@ -3092,8 +3092,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BEMT_u, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BEMT_u) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BEMT_u) 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) @@ -3109,8 +3109,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, kind=B8Ki) - UB(1:3) = ubound(SrcRotMiscVarTypeData%DisturbedInflow, kind=B8Ki) + LB(1:3) = lbound(SrcRotMiscVarTypeData%DisturbedInflow) + UB(1:3) = ubound(SrcRotMiscVarTypeData%DisturbedInflow) 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 @@ -3121,8 +3121,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%DisturbedInflow = SrcRotMiscVarTypeData%DisturbedInflow end if if (allocated(SrcRotMiscVarTypeData%SectAvgInflow)) then - LB(1:3) = lbound(SrcRotMiscVarTypeData%SectAvgInflow, kind=B8Ki) - UB(1:3) = ubound(SrcRotMiscVarTypeData%SectAvgInflow, kind=B8Ki) + LB(1:3) = lbound(SrcRotMiscVarTypeData%SectAvgInflow) + UB(1:3) = ubound(SrcRotMiscVarTypeData%SectAvgInflow) if (.not. allocated(DstRotMiscVarTypeData%SectAvgInflow)) then allocate(DstRotMiscVarTypeData%SectAvgInflow(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3133,8 +3133,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%SectAvgInflow = SrcRotMiscVarTypeData%SectAvgInflow end if if (allocated(SrcRotMiscVarTypeData%orientationAnnulus)) then - LB(1:4) = lbound(SrcRotMiscVarTypeData%orientationAnnulus, kind=B8Ki) - UB(1:4) = ubound(SrcRotMiscVarTypeData%orientationAnnulus, kind=B8Ki) + LB(1:4) = lbound(SrcRotMiscVarTypeData%orientationAnnulus) + UB(1:4) = ubound(SrcRotMiscVarTypeData%orientationAnnulus) 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 @@ -3145,8 +3145,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, kind=B8Ki) - UB(1:4) = ubound(SrcRotMiscVarTypeData%R_li, kind=B8Ki) + LB(1:4) = lbound(SrcRotMiscVarTypeData%R_li) + UB(1:4) = ubound(SrcRotMiscVarTypeData%R_li) 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 @@ -3157,8 +3157,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%AllOuts) + UB(1:1) = ubound(SrcRotMiscVarTypeData%AllOuts) if (.not. allocated(DstRotMiscVarTypeData%AllOuts)) then allocate(DstRotMiscVarTypeData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3169,8 +3169,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%W_Twr, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%W_Twr) + UB(1:1) = ubound(SrcRotMiscVarTypeData%W_Twr) if (.not. allocated(DstRotMiscVarTypeData%W_Twr)) then allocate(DstRotMiscVarTypeData%W_Twr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3181,8 +3181,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%X_Twr, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%X_Twr) + UB(1:1) = ubound(SrcRotMiscVarTypeData%X_Twr) if (.not. allocated(DstRotMiscVarTypeData%X_Twr)) then allocate(DstRotMiscVarTypeData%X_Twr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3193,8 +3193,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%Y_Twr, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%Y_Twr) + UB(1:1) = ubound(SrcRotMiscVarTypeData%Y_Twr) if (.not. allocated(DstRotMiscVarTypeData%Y_Twr)) then allocate(DstRotMiscVarTypeData%Y_Twr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3205,8 +3205,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Y_Twr = SrcRotMiscVarTypeData%Y_Twr end if if (allocated(SrcRotMiscVarTypeData%Cant)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Cant, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Cant, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Cant) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Cant) if (.not. allocated(DstRotMiscVarTypeData%Cant)) then allocate(DstRotMiscVarTypeData%Cant(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3217,8 +3217,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Cant = SrcRotMiscVarTypeData%Cant end if if (allocated(SrcRotMiscVarTypeData%Toe)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Toe, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Toe, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Toe) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Toe) if (.not. allocated(DstRotMiscVarTypeData%Toe)) then allocate(DstRotMiscVarTypeData%Toe(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3229,8 +3229,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Toe = SrcRotMiscVarTypeData%Toe end if if (allocated(SrcRotMiscVarTypeData%TwrClrnc)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrClrnc, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrClrnc, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrClrnc) + UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrClrnc) if (.not. allocated(DstRotMiscVarTypeData%TwrClrnc)) then allocate(DstRotMiscVarTypeData%TwrClrnc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3241,8 +3241,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%TwrClrnc = SrcRotMiscVarTypeData%TwrClrnc end if if (allocated(SrcRotMiscVarTypeData%X)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%X, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%X, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%X) + UB(1:2) = ubound(SrcRotMiscVarTypeData%X) if (.not. allocated(DstRotMiscVarTypeData%X)) then allocate(DstRotMiscVarTypeData%X(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3253,8 +3253,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%X = SrcRotMiscVarTypeData%X end if if (allocated(SrcRotMiscVarTypeData%Y)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Y, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Y, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Y) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Y) if (.not. allocated(DstRotMiscVarTypeData%Y)) then allocate(DstRotMiscVarTypeData%Y(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3265,8 +3265,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Y = SrcRotMiscVarTypeData%Y end if if (allocated(SrcRotMiscVarTypeData%Z)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Z, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Z, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Z) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Z) if (.not. allocated(DstRotMiscVarTypeData%Z)) then allocate(DstRotMiscVarTypeData%Z(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3277,8 +3277,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Z = SrcRotMiscVarTypeData%Z end if if (allocated(SrcRotMiscVarTypeData%M)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%M, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%M, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%M) + UB(1:2) = ubound(SrcRotMiscVarTypeData%M) if (.not. allocated(DstRotMiscVarTypeData%M)) then allocate(DstRotMiscVarTypeData%M(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3289,8 +3289,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%M = SrcRotMiscVarTypeData%M end if if (allocated(SrcRotMiscVarTypeData%Mx)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Mx, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Mx, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Mx) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Mx) if (.not. allocated(DstRotMiscVarTypeData%Mx)) then allocate(DstRotMiscVarTypeData%Mx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3301,8 +3301,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%Mx = SrcRotMiscVarTypeData%Mx end if if (allocated(SrcRotMiscVarTypeData%My)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%My, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%My, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%My) + UB(1:2) = ubound(SrcRotMiscVarTypeData%My) if (.not. allocated(DstRotMiscVarTypeData%My)) then allocate(DstRotMiscVarTypeData%My(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3313,8 +3313,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%My = SrcRotMiscVarTypeData%My end if if (allocated(SrcRotMiscVarTypeData%Mz)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%Mz, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%Mz, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%Mz) + UB(1:2) = ubound(SrcRotMiscVarTypeData%Mz) if (.not. allocated(DstRotMiscVarTypeData%Mz)) then allocate(DstRotMiscVarTypeData%Mz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3325,8 +3325,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, kind=B8Ki) - UB(1:3) = ubound(SrcRotMiscVarTypeData%Vind_i, kind=B8Ki) + LB(1:3) = lbound(SrcRotMiscVarTypeData%Vind_i) + UB(1:3) = ubound(SrcRotMiscVarTypeData%Vind_i) 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 @@ -3340,8 +3340,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%hub_theta_x_root, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%hub_theta_x_root) + UB(1:1) = ubound(SrcRotMiscVarTypeData%hub_theta_x_root) 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 @@ -3356,8 +3356,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_H_P, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%B_L_2_H_P) + UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_H_P) 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 @@ -3372,8 +3372,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%SigmaCavitCrit)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavitCrit, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavitCrit, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavitCrit) + UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavitCrit) if (.not. allocated(DstRotMiscVarTypeData%SigmaCavitCrit)) then allocate(DstRotMiscVarTypeData%SigmaCavitCrit(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3384,8 +3384,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%SigmaCavitCrit = SrcRotMiscVarTypeData%SigmaCavitCrit end if if (allocated(SrcRotMiscVarTypeData%SigmaCavit)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavit, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavit, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%SigmaCavit) + UB(1:2) = ubound(SrcRotMiscVarTypeData%SigmaCavit) if (.not. allocated(DstRotMiscVarTypeData%SigmaCavit)) then allocate(DstRotMiscVarTypeData%SigmaCavit(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3396,8 +3396,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%SigmaCavit = SrcRotMiscVarTypeData%SigmaCavit end if if (allocated(SrcRotMiscVarTypeData%CavitWarnSet)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%CavitWarnSet, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%CavitWarnSet, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%CavitWarnSet) + UB(1:2) = ubound(SrcRotMiscVarTypeData%CavitWarnSet) if (.not. allocated(DstRotMiscVarTypeData%CavitWarnSet)) then allocate(DstRotMiscVarTypeData%CavitWarnSet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3408,8 +3408,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%CavitWarnSet = SrcRotMiscVarTypeData%CavitWarnSet end if if (allocated(SrcRotMiscVarTypeData%TwrFB)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrFB, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrFB, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrFB) + UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrFB) if (.not. allocated(DstRotMiscVarTypeData%TwrFB)) then allocate(DstRotMiscVarTypeData%TwrFB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3420,8 +3420,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%TwrFB = SrcRotMiscVarTypeData%TwrFB end if if (allocated(SrcRotMiscVarTypeData%TwrMB)) then - LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrMB, kind=B8Ki) - UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrMB, kind=B8Ki) + LB(1:2) = lbound(SrcRotMiscVarTypeData%TwrMB) + UB(1:2) = ubound(SrcRotMiscVarTypeData%TwrMB) if (.not. allocated(DstRotMiscVarTypeData%TwrMB)) then allocate(DstRotMiscVarTypeData%TwrMB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3432,8 +3432,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%TwrMB = SrcRotMiscVarTypeData%TwrMB end if if (allocated(SrcRotMiscVarTypeData%HubFB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%HubFB, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%HubFB, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%HubFB) + UB(1:1) = ubound(SrcRotMiscVarTypeData%HubFB) if (.not. allocated(DstRotMiscVarTypeData%HubFB)) then allocate(DstRotMiscVarTypeData%HubFB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3444,8 +3444,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%HubFB = SrcRotMiscVarTypeData%HubFB end if if (allocated(SrcRotMiscVarTypeData%HubMB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%HubMB, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%HubMB, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%HubMB) + UB(1:1) = ubound(SrcRotMiscVarTypeData%HubMB) if (.not. allocated(DstRotMiscVarTypeData%HubMB)) then allocate(DstRotMiscVarTypeData%HubMB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3456,8 +3456,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%HubMB = SrcRotMiscVarTypeData%HubMB end if if (allocated(SrcRotMiscVarTypeData%NacFB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacFB, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacFB, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacFB) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacFB) if (.not. allocated(DstRotMiscVarTypeData%NacFB)) then allocate(DstRotMiscVarTypeData%NacFB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3468,8 +3468,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacFB = SrcRotMiscVarTypeData%NacFB end if if (allocated(SrcRotMiscVarTypeData%NacMB)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacMB, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacMB, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacMB) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacMB) if (.not. allocated(DstRotMiscVarTypeData%NacMB)) then allocate(DstRotMiscVarTypeData%NacMB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3480,8 +3480,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacMB = SrcRotMiscVarTypeData%NacMB end if if (allocated(SrcRotMiscVarTypeData%NacDragF)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacDragF, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacDragF, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacDragF) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacDragF) if (.not. allocated(DstRotMiscVarTypeData%NacDragF)) then allocate(DstRotMiscVarTypeData%NacDragF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3492,8 +3492,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacDragF = SrcRotMiscVarTypeData%NacDragF end if if (allocated(SrcRotMiscVarTypeData%NacDragM)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacDragM, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacDragM, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacDragM) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacDragM) if (.not. allocated(DstRotMiscVarTypeData%NacDragM)) then allocate(DstRotMiscVarTypeData%NacDragM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3504,8 +3504,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacDragM = SrcRotMiscVarTypeData%NacDragM end if if (allocated(SrcRotMiscVarTypeData%NacFi)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacFi, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacFi, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacFi) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacFi) if (.not. allocated(DstRotMiscVarTypeData%NacFi)) then allocate(DstRotMiscVarTypeData%NacFi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3516,8 +3516,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacFi = SrcRotMiscVarTypeData%NacFi end if if (allocated(SrcRotMiscVarTypeData%NacMi)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%NacMi, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%NacMi, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%NacMi) + UB(1:1) = ubound(SrcRotMiscVarTypeData%NacMi) if (.not. allocated(DstRotMiscVarTypeData%NacMi)) then allocate(DstRotMiscVarTypeData%NacMi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3528,8 +3528,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C DstRotMiscVarTypeData%NacMi = SrcRotMiscVarTypeData%NacMi end if if (allocated(SrcRotMiscVarTypeData%BladeRootLoad)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeRootLoad, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeRootLoad, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeRootLoad) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeRootLoad) if (.not. allocated(DstRotMiscVarTypeData%BladeRootLoad)) then allocate(DstRotMiscVarTypeData%BladeRootLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3544,8 +3544,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_R_P, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%B_L_2_R_P) + UB(1:1) = ubound(SrcRotMiscVarTypeData%B_L_2_R_P) 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 @@ -3560,8 +3560,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%BladeBuoyLoadPoint)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoadPoint) if (.not. allocated(DstRotMiscVarTypeData%BladeBuoyLoadPoint)) then allocate(DstRotMiscVarTypeData%BladeBuoyLoadPoint(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3576,8 +3576,8 @@ subroutine AD_CopyRotMiscVarType(SrcRotMiscVarTypeData, DstRotMiscVarTypeData, C end do end if if (allocated(SrcRotMiscVarTypeData%BladeBuoyLoad)) then - LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%BladeBuoyLoad) + UB(1:1) = ubound(SrcRotMiscVarTypeData%BladeBuoyLoad) if (.not. allocated(DstRotMiscVarTypeData%BladeBuoyLoad)) then allocate(DstRotMiscVarTypeData%BladeBuoyLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3592,8 +3592,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotMiscVarTypeData%B_P_2_B_L, kind=B8Ki) + LB(1:1) = lbound(SrcRotMiscVarTypeData%B_P_2_B_L) + UB(1:1) = ubound(SrcRotMiscVarTypeData%B_P_2_B_L) 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 @@ -3634,8 +3634,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) type(RotMiscVarType), intent(inout) :: RotMiscVarTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotMiscVarType' @@ -3645,8 +3645,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, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%BEMT_u, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%BEMT_u) + UB(1:1) = ubound(RotMiscVarTypeData%BEMT_u) do i1 = LB(1), UB(1) call BEMT_DestroyInput(RotMiscVarTypeData%BEMT_u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3720,8 +3720,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, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_H_P, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%B_L_2_H_P) + UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_H_P) 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) @@ -3768,8 +3768,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%NacMi) end if if (allocated(RotMiscVarTypeData%BladeRootLoad)) then - LB(1:1) = lbound(RotMiscVarTypeData%BladeRootLoad, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%BladeRootLoad, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%BladeRootLoad) + UB(1:1) = ubound(RotMiscVarTypeData%BladeRootLoad) do i1 = LB(1), UB(1) call MeshDestroy( RotMiscVarTypeData%BladeRootLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3777,8 +3777,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, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_R_P, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%B_L_2_R_P) + UB(1:1) = ubound(RotMiscVarTypeData%B_L_2_R_P) 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) @@ -3786,8 +3786,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, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoadPoint, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoadPoint) + UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoadPoint) do i1 = LB(1), UB(1) call MeshDestroy( RotMiscVarTypeData%BladeBuoyLoadPoint(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3795,8 +3795,8 @@ subroutine AD_DestroyRotMiscVarType(RotMiscVarTypeData, ErrStat, ErrMsg) deallocate(RotMiscVarTypeData%BladeBuoyLoadPoint) end if if (allocated(RotMiscVarTypeData%BladeBuoyLoad)) then - LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoad, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%BladeBuoyLoad) + UB(1:1) = ubound(RotMiscVarTypeData%BladeBuoyLoad) do i1 = LB(1), UB(1) call MeshDestroy( RotMiscVarTypeData%BladeBuoyLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3804,8 +3804,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, kind=B8Ki) - UB(1:1) = ubound(RotMiscVarTypeData%B_P_2_B_L, kind=B8Ki) + LB(1:1) = lbound(RotMiscVarTypeData%B_P_2_B_L) + UB(1:1) = ubound(RotMiscVarTypeData%B_P_2_B_L) 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) @@ -3824,13 +3824,13 @@ subroutine AD_PackRotMiscVarType(RF, Indata) type(RegFile), intent(inout) :: RF type(RotMiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotMiscVarType' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) if (RF%ErrStat >= AbortErrLev) return call BEMT_PackMisc(RF, InData%BEMT) call BEMT_PackOutput(RF, InData%BEMT_y) - LB(1:1) = lbound(InData%BEMT_u, kind=B8Ki) - UB(1:1) = ubound(InData%BEMT_u, kind=B8Ki) + LB(1:1) = lbound(InData%BEMT_u) + UB(1:1) = ubound(InData%BEMT_u) do i1 = LB(1), UB(1) call BEMT_PackInput(RF, InData%BEMT_u(i1)) end do @@ -3864,9 +3864,9 @@ subroutine AD_PackRotMiscVarType(RF, Indata) call MeshPack(RF, InData%HubLoad) call RegPack(RF, allocated(InData%B_L_2_H_P)) if (allocated(InData%B_L_2_H_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%B_L_2_H_P(i1)) end do @@ -3886,45 +3886,45 @@ subroutine AD_PackRotMiscVarType(RF, Indata) call RegPackAlloc(RF, InData%NacMi) call RegPack(RF, allocated(InData%BladeRootLoad)) if (allocated(InData%BladeRootLoad)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeRootLoad), ubound(InData%BladeRootLoad)) + LB(1:1) = lbound(InData%BladeRootLoad) + UB(1:1) = ubound(InData%BladeRootLoad) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeRootLoad(i1)) end do end if call RegPack(RF, allocated(InData%B_L_2_R_P)) if (allocated(InData%B_L_2_R_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%B_L_2_R_P(i1)) end do end if call RegPack(RF, allocated(InData%BladeBuoyLoadPoint)) if (allocated(InData%BladeBuoyLoadPoint)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeBuoyLoadPoint), ubound(InData%BladeBuoyLoadPoint)) + LB(1:1) = lbound(InData%BladeBuoyLoadPoint) + UB(1:1) = ubound(InData%BladeBuoyLoadPoint) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeBuoyLoadPoint(i1)) end do end if call RegPack(RF, allocated(InData%BladeBuoyLoad)) if (allocated(InData%BladeBuoyLoad)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeBuoyLoad), ubound(InData%BladeBuoyLoad)) + LB(1:1) = lbound(InData%BladeBuoyLoad) + UB(1:1) = ubound(InData%BladeBuoyLoad) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeBuoyLoad(i1)) end do end if call RegPack(RF, allocated(InData%B_P_2_B_L)) if (allocated(InData%B_P_2_B_L)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%B_P_2_B_L(i1)) end do @@ -3951,15 +3951,15 @@ subroutine AD_UnPackRotMiscVarType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotMiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotMiscVarType' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return call BEMT_UnpackMisc(RF, OutData%BEMT) ! BEMT call BEMT_UnpackOutput(RF, OutData%BEMT_y) ! BEMT_y - LB(1:1) = lbound(OutData%BEMT_u, kind=B8Ki) - UB(1:1) = ubound(OutData%BEMT_u, kind=B8Ki) + LB(1:1) = lbound(OutData%BEMT_u) + UB(1:1) = ubound(OutData%BEMT_u) do i1 = LB(1), UB(1) call BEMT_UnpackInput(RF, OutData%BEMT_u(i1)) ! BEMT_u end do @@ -4099,275 +4099,20 @@ subroutine AD_UnPackRotMiscVarType(RF, OutData) call RegUnpack(RF, OutData%TFinM_i); if (RegCheckErr(RF, RoutineName)) return end subroutine -subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) - type(AD_MiscVarType), intent(inout) :: SrcMiscData - type(AD_MiscVarType), intent(inout) :: DstMiscData - integer(IntKi), intent(in ) :: CtrlCode - integer(IntKi), intent( out) :: ErrStat - character(*), intent( out) :: ErrMsg - 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, 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 - call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%rotors.', ErrStat, ErrMsg, RoutineName) - return - end if - end if - do i1 = LB(1), UB(1) - call AD_CopyRotMiscVarType(SrcMiscData%rotors(i1), DstMiscData%rotors(i1), CtrlCode, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - if (ErrStat >= AbortErrLev) return - end do - end if - if (allocated(SrcMiscData%FVW_u)) then - 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 - call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%FVW_u.', ErrStat, ErrMsg, RoutineName) - return - end if - end if - do i1 = LB(1), UB(1) - call FVW_CopyInput(SrcMiscData%FVW_u(i1), DstMiscData%FVW_u(i1), CtrlCode, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - if (ErrStat >= AbortErrLev) return - end do - end if - call FVW_CopyOutput(SrcMiscData%FVW_y, DstMiscData%FVW_y, CtrlCode, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - if (ErrStat >= AbortErrLev) return - call FVW_CopyMisc(SrcMiscData%FVW, DstMiscData%FVW, CtrlCode, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - if (ErrStat >= AbortErrLev) return - if (allocated(SrcMiscData%WindPos)) then - 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 - call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%WindPos.', ErrStat, ErrMsg, RoutineName) - return - end if - end if - DstMiscData%WindPos = SrcMiscData%WindPos - end if - if (allocated(SrcMiscData%WindVel)) then - 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 - call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%WindVel.', ErrStat, ErrMsg, RoutineName) - return - end if - end if - DstMiscData%WindVel = SrcMiscData%WindVel - end if - if (allocated(SrcMiscData%WindAcc)) then - 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 - call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%WindAcc.', ErrStat, ErrMsg, RoutineName) - return - end if - end if - DstMiscData%WindAcc = SrcMiscData%WindAcc - end if - if (allocated(SrcMiscData%Inflow)) then - LB(1:1) = lbound(SrcMiscData%Inflow, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Inflow, kind=B8Ki) - if (.not. allocated(DstMiscData%Inflow)) then - allocate(DstMiscData%Inflow(LB(1):UB(1)), stat=ErrStat2) - if (ErrStat2 /= 0) then - call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%Inflow.', ErrStat, ErrMsg, RoutineName) - return - end if - end if - do i1 = LB(1), UB(1) - call AD_CopyInflowType(SrcMiscData%Inflow(i1), DstMiscData%Inflow(i1), CtrlCode, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - if (ErrStat >= AbortErrLev) return - end do - end if -end subroutine - -subroutine AD_DestroyMisc(MiscData, ErrStat, ErrMsg) - type(AD_MiscVarType), intent(inout) :: MiscData - integer(IntKi), intent( out) :: ErrStat - character(*), intent( out) :: ErrMsg - 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, 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) - end do - deallocate(MiscData%rotors) - end if - if (allocated(MiscData%FVW_u)) then - 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) - end do - deallocate(MiscData%FVW_u) - end if - call FVW_DestroyOutput(MiscData%FVW_y, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - call FVW_DestroyMisc(MiscData%FVW, ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - if (allocated(MiscData%WindPos)) then - deallocate(MiscData%WindPos) - end if - if (allocated(MiscData%WindVel)) then - deallocate(MiscData%WindVel) - end if - if (allocated(MiscData%WindAcc)) then - deallocate(MiscData%WindAcc) - end if - if (allocated(MiscData%Inflow)) then - LB(1:1) = lbound(MiscData%Inflow, kind=B8Ki) - UB(1:1) = ubound(MiscData%Inflow, kind=B8Ki) - do i1 = LB(1), UB(1) - call AD_DestroyInflowType(MiscData%Inflow(i1), ErrStat2, ErrMsg2) - call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) - end do - deallocate(MiscData%Inflow) - end if -end subroutine - -subroutine AD_PackMisc(RF, Indata) - type(RegFile), intent(inout) :: RF - type(AD_MiscVarType), intent(in) :: InData - character(*), parameter :: RoutineName = 'AD_PackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) - if (RF%ErrStat >= AbortErrLev) return - call RegPack(RF, allocated(InData%rotors)) - if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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(RF, InData%rotors(i1)) - end do - end if - call RegPack(RF, allocated(InData%FVW_u)) - if (allocated(InData%FVW_u)) then - call RegPackBounds(RF, 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(RF, InData%FVW_u(i1)) - end do - end if - call FVW_PackOutput(RF, InData%FVW_y) - call FVW_PackMisc(RF, InData%FVW) - call RegPackAlloc(RF, InData%WindPos) - call RegPackAlloc(RF, InData%WindVel) - call RegPackAlloc(RF, InData%WindAcc) - call RegPack(RF, allocated(InData%Inflow)) - if (allocated(InData%Inflow)) then - call RegPackBounds(RF, 1, lbound(InData%Inflow, kind=B8Ki), ubound(InData%Inflow, kind=B8Ki)) - LB(1:1) = lbound(InData%Inflow, kind=B8Ki) - UB(1:1) = ubound(InData%Inflow, kind=B8Ki) - do i1 = LB(1), UB(1) - call AD_PackInflowType(RF, InData%Inflow(i1)) - end do - end if - if (RegCheckErr(RF, RoutineName)) return -end subroutine - -subroutine AD_UnPackMisc(RF, OutData) - type(RegFile), intent(inout) :: RF - type(AD_MiscVarType), intent(inout) :: OutData - character(*), parameter :: RoutineName = 'AD_UnPackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) - integer(IntKi) :: stat - logical :: IsAllocAssoc - if (RF%ErrStat /= ErrID_None) return - if (allocated(OutData%rotors)) deallocate(OutData%rotors) - call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return - if (IsAllocAssoc) then - call RegUnpackBounds(RF, 1, LB, UB); if (RegCheckErr(RF, RoutineName)) return - allocate(OutData%rotors(LB(1):UB(1)),stat=stat) - if (stat /= 0) then - call SetErrStat(ErrID_Fatal, 'Error allocating OutData%rotors.', RF%ErrStat, RF%ErrMsg, RoutineName) - return - end if - do i1 = LB(1), UB(1) - call AD_UnpackRotMiscVarType(RF, OutData%rotors(i1)) ! rotors - end do - end if - if (allocated(OutData%FVW_u)) deallocate(OutData%FVW_u) - call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return - if (IsAllocAssoc) then - call RegUnpackBounds(RF, 1, LB, UB); if (RegCheckErr(RF, RoutineName)) return - allocate(OutData%FVW_u(LB(1):UB(1)),stat=stat) - if (stat /= 0) then - call SetErrStat(ErrID_Fatal, 'Error allocating OutData%FVW_u.', RF%ErrStat, RF%ErrMsg, RoutineName) - return - end if - do i1 = LB(1), UB(1) - call FVW_UnpackInput(RF, OutData%FVW_u(i1)) ! FVW_u - end do - end if - call FVW_UnpackOutput(RF, OutData%FVW_y) ! FVW_y - call FVW_UnpackMisc(RF, OutData%FVW) ! FVW - call RegUnpackAlloc(RF, OutData%WindPos); if (RegCheckErr(RF, RoutineName)) return - call RegUnpackAlloc(RF, OutData%WindVel); if (RegCheckErr(RF, RoutineName)) return - call RegUnpackAlloc(RF, OutData%WindAcc); if (RegCheckErr(RF, RoutineName)) return - if (allocated(OutData%Inflow)) deallocate(OutData%Inflow) - call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return - if (IsAllocAssoc) then - call RegUnpackBounds(RF, 1, LB, UB); if (RegCheckErr(RF, RoutineName)) return - allocate(OutData%Inflow(LB(1):UB(1)),stat=stat) - if (stat /= 0) then - call SetErrStat(ErrID_Fatal, 'Error allocating OutData%Inflow.', RF%ErrStat, RF%ErrMsg, RoutineName) - return - end if - do i1 = LB(1), UB(1) - call AD_UnpackInflowType(RF, OutData%Inflow(i1)) ! Inflow - end do - end if -end subroutine - subroutine AD_CopyElemInflowType(SrcElemInflowTypeData, DstElemInflowTypeData, CtrlCode, ErrStat, ErrMsg) type(ElemInflowType), intent(in) :: SrcElemInflowTypeData type(ElemInflowType), intent(inout) :: DstElemInflowTypeData integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AD_CopyElemInflowType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcElemInflowTypeData%InflowVel)) then - LB(1:2) = lbound(SrcElemInflowTypeData%InflowVel, kind=B8Ki) - UB(1:2) = ubound(SrcElemInflowTypeData%InflowVel, kind=B8Ki) + LB(1:2) = lbound(SrcElemInflowTypeData%InflowVel) + UB(1:2) = ubound(SrcElemInflowTypeData%InflowVel) if (.not. allocated(DstElemInflowTypeData%InflowVel)) then allocate(DstElemInflowTypeData%InflowVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4378,8 +4123,8 @@ subroutine AD_CopyElemInflowType(SrcElemInflowTypeData, DstElemInflowTypeData, C DstElemInflowTypeData%InflowVel = SrcElemInflowTypeData%InflowVel end if if (allocated(SrcElemInflowTypeData%InflowAcc)) then - LB(1:2) = lbound(SrcElemInflowTypeData%InflowAcc, kind=B8Ki) - UB(1:2) = ubound(SrcElemInflowTypeData%InflowAcc, kind=B8Ki) + LB(1:2) = lbound(SrcElemInflowTypeData%InflowAcc) + UB(1:2) = ubound(SrcElemInflowTypeData%InflowAcc) if (.not. allocated(DstElemInflowTypeData%InflowAcc)) then allocate(DstElemInflowTypeData%InflowAcc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4420,7 +4165,7 @@ subroutine AD_UnPackElemInflowType(RF, OutData) type(RegFile), intent(inout) :: RF type(ElemInflowType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackElemInflowType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4434,16 +4179,16 @@ subroutine AD_CopyRotInflowType(SrcRotInflowTypeData, DstRotInflowTypeData, Ctrl integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotInflowType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcRotInflowTypeData%Blade)) then - LB(1:1) = lbound(SrcRotInflowTypeData%Blade, kind=B8Ki) - UB(1:1) = ubound(SrcRotInflowTypeData%Blade, kind=B8Ki) + LB(1:1) = lbound(SrcRotInflowTypeData%Blade) + UB(1:1) = ubound(SrcRotInflowTypeData%Blade) if (.not. allocated(DstRotInflowTypeData%Blade)) then allocate(DstRotInflowTypeData%Blade(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4470,16 +4215,16 @@ subroutine AD_DestroyRotInflowType(RotInflowTypeData, ErrStat, ErrMsg) type(RotInflowType), intent(inout) :: RotInflowTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotInflowType' ErrStat = ErrID_None ErrMsg = '' if (allocated(RotInflowTypeData%Blade)) then - LB(1:1) = lbound(RotInflowTypeData%Blade, kind=B8Ki) - UB(1:1) = ubound(RotInflowTypeData%Blade, kind=B8Ki) + LB(1:1) = lbound(RotInflowTypeData%Blade) + UB(1:1) = ubound(RotInflowTypeData%Blade) do i1 = LB(1), UB(1) call AD_DestroyElemInflowType(RotInflowTypeData%Blade(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4494,14 +4239,14 @@ subroutine AD_PackRotInflowType(RF, Indata) type(RegFile), intent(inout) :: RF type(RotInflowType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInflowType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%Blade)) if (allocated(InData%Blade)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Blade), ubound(InData%Blade)) + LB(1:1) = lbound(InData%Blade) + UB(1:1) = ubound(InData%Blade) do i1 = LB(1), UB(1) call AD_PackElemInflowType(RF, InData%Blade(i1)) end do @@ -4518,8 +4263,8 @@ subroutine AD_UnPackRotInflowType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotInflowType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInflowType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4549,16 +4294,16 @@ subroutine AD_CopyInflowType(SrcInflowTypeData, DstInflowTypeData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyInflowType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInflowTypeData%InflowWakeVel)) then - LB(1:2) = lbound(SrcInflowTypeData%InflowWakeVel, kind=B8Ki) - UB(1:2) = ubound(SrcInflowTypeData%InflowWakeVel, kind=B8Ki) + LB(1:2) = lbound(SrcInflowTypeData%InflowWakeVel) + UB(1:2) = ubound(SrcInflowTypeData%InflowWakeVel) if (.not. allocated(DstInflowTypeData%InflowWakeVel)) then allocate(DstInflowTypeData%InflowWakeVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4569,8 +4314,8 @@ subroutine AD_CopyInflowType(SrcInflowTypeData, DstInflowTypeData, CtrlCode, Err DstInflowTypeData%InflowWakeVel = SrcInflowTypeData%InflowWakeVel end if if (allocated(SrcInflowTypeData%RotInflow)) then - LB(1:1) = lbound(SrcInflowTypeData%RotInflow, kind=B8Ki) - UB(1:1) = ubound(SrcInflowTypeData%RotInflow, kind=B8Ki) + LB(1:1) = lbound(SrcInflowTypeData%RotInflow) + UB(1:1) = ubound(SrcInflowTypeData%RotInflow) if (.not. allocated(DstInflowTypeData%RotInflow)) then allocate(DstInflowTypeData%RotInflow(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4590,8 +4335,8 @@ subroutine AD_DestroyInflowType(InflowTypeData, ErrStat, ErrMsg) type(AD_InflowType), intent(inout) :: InflowTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyInflowType' @@ -4601,8 +4346,8 @@ subroutine AD_DestroyInflowType(InflowTypeData, ErrStat, ErrMsg) deallocate(InflowTypeData%InflowWakeVel) end if if (allocated(InflowTypeData%RotInflow)) then - LB(1:1) = lbound(InflowTypeData%RotInflow, kind=B8Ki) - UB(1:1) = ubound(InflowTypeData%RotInflow, kind=B8Ki) + LB(1:1) = lbound(InflowTypeData%RotInflow) + UB(1:1) = ubound(InflowTypeData%RotInflow) do i1 = LB(1), UB(1) call AD_DestroyRotInflowType(InflowTypeData%RotInflow(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4615,15 +4360,15 @@ subroutine AD_PackInflowType(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_InflowType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInflowType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%InflowWakeVel) call RegPack(RF, allocated(InData%RotInflow)) if (allocated(InData%RotInflow)) then - call RegPackBounds(RF, 1, lbound(InData%RotInflow, kind=B8Ki), ubound(InData%RotInflow, kind=B8Ki)) - LB(1:1) = lbound(InData%RotInflow, kind=B8Ki) - UB(1:1) = ubound(InData%RotInflow, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%RotInflow), ubound(InData%RotInflow)) + LB(1:1) = lbound(InData%RotInflow) + UB(1:1) = ubound(InData%RotInflow) do i1 = LB(1), UB(1) call AD_PackRotInflowType(RF, InData%RotInflow(i1)) end do @@ -4635,8 +4380,8 @@ subroutine AD_UnPackInflowType(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_InflowType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInflowType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4656,6 +4401,261 @@ subroutine AD_UnPackInflowType(RF, OutData) end if end subroutine +subroutine AD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) + type(AD_MiscVarType), intent(inout) :: SrcMiscData + type(AD_MiscVarType), intent(inout) :: DstMiscData + integer(IntKi), intent(in ) :: CtrlCode + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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) + if (.not. allocated(DstMiscData%rotors)) then + allocate(DstMiscData%rotors(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%rotors.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + do i1 = LB(1), UB(1) + call AD_CopyRotMiscVarType(SrcMiscData%rotors(i1), DstMiscData%rotors(i1), CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + end do + end if + if (allocated(SrcMiscData%FVW_u)) then + LB(1:1) = lbound(SrcMiscData%FVW_u) + UB(1:1) = ubound(SrcMiscData%FVW_u) + if (.not. allocated(DstMiscData%FVW_u)) then + allocate(DstMiscData%FVW_u(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%FVW_u.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + do i1 = LB(1), UB(1) + call FVW_CopyInput(SrcMiscData%FVW_u(i1), DstMiscData%FVW_u(i1), CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + end do + end if + call FVW_CopyOutput(SrcMiscData%FVW_y, DstMiscData%FVW_y, CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + call FVW_CopyMisc(SrcMiscData%FVW, DstMiscData%FVW, CtrlCode, ErrStat2, ErrMsg2) + 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) + if (.not. allocated(DstMiscData%WindPos)) then + allocate(DstMiscData%WindPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%WindPos.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMiscData%WindPos = SrcMiscData%WindPos + end if + if (allocated(SrcMiscData%WindVel)) then + LB(1:2) = lbound(SrcMiscData%WindVel) + UB(1:2) = ubound(SrcMiscData%WindVel) + if (.not. allocated(DstMiscData%WindVel)) then + allocate(DstMiscData%WindVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%WindVel.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMiscData%WindVel = SrcMiscData%WindVel + end if + if (allocated(SrcMiscData%WindAcc)) then + LB(1:2) = lbound(SrcMiscData%WindAcc) + UB(1:2) = ubound(SrcMiscData%WindAcc) + if (.not. allocated(DstMiscData%WindAcc)) then + allocate(DstMiscData%WindAcc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%WindAcc.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + DstMiscData%WindAcc = SrcMiscData%WindAcc + end if + if (allocated(SrcMiscData%Inflow)) then + LB(1:1) = lbound(SrcMiscData%Inflow) + UB(1:1) = ubound(SrcMiscData%Inflow) + if (.not. allocated(DstMiscData%Inflow)) then + allocate(DstMiscData%Inflow(LB(1):UB(1)), stat=ErrStat2) + if (ErrStat2 /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating DstMiscData%Inflow.', ErrStat, ErrMsg, RoutineName) + return + end if + end if + do i1 = LB(1), UB(1) + call AD_CopyInflowType(SrcMiscData%Inflow(i1), DstMiscData%Inflow(i1), CtrlCode, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (ErrStat >= AbortErrLev) return + end do + end if +end subroutine + +subroutine AD_DestroyMisc(MiscData, ErrStat, ErrMsg) + type(AD_MiscVarType), intent(inout) :: MiscData + integer(IntKi), intent( out) :: ErrStat + character(*), intent( out) :: ErrMsg + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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) + do i1 = LB(1), UB(1) + call AD_DestroyRotMiscVarType(MiscData%rotors(i1), ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + end do + 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) + do i1 = LB(1), UB(1) + call FVW_DestroyInput(MiscData%FVW_u(i1), ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + end do + deallocate(MiscData%FVW_u) + end if + call FVW_DestroyOutput(MiscData%FVW_y, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + call FVW_DestroyMisc(MiscData%FVW, ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + if (allocated(MiscData%WindPos)) then + deallocate(MiscData%WindPos) + end if + if (allocated(MiscData%WindVel)) then + deallocate(MiscData%WindVel) + end if + if (allocated(MiscData%WindAcc)) then + deallocate(MiscData%WindAcc) + end if + if (allocated(MiscData%Inflow)) then + LB(1:1) = lbound(MiscData%Inflow) + UB(1:1) = ubound(MiscData%Inflow) + do i1 = LB(1), UB(1) + call AD_DestroyInflowType(MiscData%Inflow(i1), ErrStat2, ErrMsg2) + call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) + end do + deallocate(MiscData%Inflow) + end if +end subroutine + +subroutine AD_PackMisc(RF, Indata) + type(RegFile), intent(inout) :: RF + type(AD_MiscVarType), intent(in) :: InData + character(*), parameter :: RoutineName = 'AD_PackMisc' + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) + if (RF%ErrStat >= AbortErrLev) return + call RegPack(RF, allocated(InData%rotors)) + if (allocated(InData%rotors)) then + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) + do i1 = LB(1), UB(1) + call AD_PackRotMiscVarType(RF, InData%rotors(i1)) + end do + end if + call RegPack(RF, allocated(InData%FVW_u)) + if (allocated(InData%FVW_u)) then + call RegPackBounds(RF, 1, lbound(InData%FVW_u), ubound(InData%FVW_u)) + LB(1:1) = lbound(InData%FVW_u) + UB(1:1) = ubound(InData%FVW_u) + do i1 = LB(1), UB(1) + call FVW_PackInput(RF, InData%FVW_u(i1)) + end do + end if + call FVW_PackOutput(RF, InData%FVW_y) + call FVW_PackMisc(RF, InData%FVW) + call RegPackAlloc(RF, InData%WindPos) + call RegPackAlloc(RF, InData%WindVel) + call RegPackAlloc(RF, InData%WindAcc) + call RegPack(RF, allocated(InData%Inflow)) + if (allocated(InData%Inflow)) then + call RegPackBounds(RF, 1, lbound(InData%Inflow), ubound(InData%Inflow)) + LB(1:1) = lbound(InData%Inflow) + UB(1:1) = ubound(InData%Inflow) + do i1 = LB(1), UB(1) + call AD_PackInflowType(RF, InData%Inflow(i1)) + end do + end if + if (RegCheckErr(RF, RoutineName)) return +end subroutine + +subroutine AD_UnPackMisc(RF, OutData) + type(RegFile), intent(inout) :: RF + type(AD_MiscVarType), intent(inout) :: OutData + character(*), parameter :: RoutineName = 'AD_UnPackMisc' + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) + integer(IntKi) :: stat + logical :: IsAllocAssoc + if (RF%ErrStat /= ErrID_None) return + if (allocated(OutData%rotors)) deallocate(OutData%rotors) + call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return + if (IsAllocAssoc) then + call RegUnpackBounds(RF, 1, LB, UB); if (RegCheckErr(RF, RoutineName)) return + allocate(OutData%rotors(LB(1):UB(1)),stat=stat) + if (stat /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating OutData%rotors.', RF%ErrStat, RF%ErrMsg, RoutineName) + return + end if + do i1 = LB(1), UB(1) + call AD_UnpackRotMiscVarType(RF, OutData%rotors(i1)) ! rotors + end do + end if + if (allocated(OutData%FVW_u)) deallocate(OutData%FVW_u) + call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return + if (IsAllocAssoc) then + call RegUnpackBounds(RF, 1, LB, UB); if (RegCheckErr(RF, RoutineName)) return + allocate(OutData%FVW_u(LB(1):UB(1)),stat=stat) + if (stat /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating OutData%FVW_u.', RF%ErrStat, RF%ErrMsg, RoutineName) + return + end if + do i1 = LB(1), UB(1) + call FVW_UnpackInput(RF, OutData%FVW_u(i1)) ! FVW_u + end do + end if + call FVW_UnpackOutput(RF, OutData%FVW_y) ! FVW_y + call FVW_UnpackMisc(RF, OutData%FVW) ! FVW + call RegUnpackAlloc(RF, OutData%WindPos); if (RegCheckErr(RF, RoutineName)) return + call RegUnpackAlloc(RF, OutData%WindVel); if (RegCheckErr(RF, RoutineName)) return + call RegUnpackAlloc(RF, OutData%WindAcc); if (RegCheckErr(RF, RoutineName)) return + if (allocated(OutData%Inflow)) deallocate(OutData%Inflow) + call RegUnpack(RF, IsAllocAssoc); if (RegCheckErr(RF, RoutineName)) return + if (IsAllocAssoc) then + call RegUnpackBounds(RF, 1, LB, UB); if (RegCheckErr(RF, RoutineName)) return + allocate(OutData%Inflow(LB(1):UB(1)),stat=stat) + if (stat /= 0) then + call SetErrStat(ErrID_Fatal, 'Error allocating OutData%Inflow.', RF%ErrStat, RF%ErrMsg, RoutineName) + return + end if + do i1 = LB(1), UB(1) + call AD_UnpackInflowType(RF, OutData%Inflow(i1)) ! Inflow + end do + end if +end subroutine + subroutine AD_CopyJac_u_idxStarts(SrcJac_u_idxStartsData, DstJac_u_idxStartsData, CtrlCode, ErrStat, ErrMsg) type(Jac_u_idxStarts), intent(in) :: SrcJac_u_idxStartsData type(Jac_u_idxStarts), intent(inout) :: DstJac_u_idxStartsData @@ -4771,8 +4771,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotParameterType' @@ -4782,8 +4782,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrDiam, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrDiam) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrDiam) if (.not. allocated(DstRotParameterTypeData%TwrDiam)) then allocate(DstRotParameterTypeData%TwrDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4794,8 +4794,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrDiam = SrcRotParameterTypeData%TwrDiam end if if (allocated(SrcRotParameterTypeData%TwrCd)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrCd, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrCd, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrCd) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrCd) if (.not. allocated(DstRotParameterTypeData%TwrCd)) then allocate(DstRotParameterTypeData%TwrCd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4806,8 +4806,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrCd = SrcRotParameterTypeData%TwrCd end if if (allocated(SrcRotParameterTypeData%TwrTI)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrTI, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrTI, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrTI) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrTI) if (.not. allocated(DstRotParameterTypeData%TwrTI)) then allocate(DstRotParameterTypeData%TwrTI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4818,8 +4818,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrTI = SrcRotParameterTypeData%TwrTI end if if (allocated(SrcRotParameterTypeData%BlTwist)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlTwist, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlTwist, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlTwist) + UB(1:2) = ubound(SrcRotParameterTypeData%BlTwist) if (.not. allocated(DstRotParameterTypeData%BlTwist)) then allocate(DstRotParameterTypeData%BlTwist(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4830,8 +4830,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlTwist = SrcRotParameterTypeData%BlTwist end if if (allocated(SrcRotParameterTypeData%TwrCb)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrCb, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrCb, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrCb) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrCb) if (.not. allocated(DstRotParameterTypeData%TwrCb)) then allocate(DstRotParameterTypeData%TwrCb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4842,8 +4842,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrCb = SrcRotParameterTypeData%TwrCb end if if (allocated(SrcRotParameterTypeData%BlCenBn)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBn, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBn, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBn) + UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBn) if (.not. allocated(DstRotParameterTypeData%BlCenBn)) then allocate(DstRotParameterTypeData%BlCenBn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4854,8 +4854,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlCenBn = SrcRotParameterTypeData%BlCenBn end if if (allocated(SrcRotParameterTypeData%BlCenBt)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBt, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBt, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlCenBt) + UB(1:2) = ubound(SrcRotParameterTypeData%BlCenBt) if (.not. allocated(DstRotParameterTypeData%BlCenBt)) then allocate(DstRotParameterTypeData%BlCenBt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4875,8 +4875,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, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlRad, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlRad) + UB(1:2) = ubound(SrcRotParameterTypeData%BlRad) if (.not. allocated(DstRotParameterTypeData%BlRad)) then allocate(DstRotParameterTypeData%BlRad(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4887,8 +4887,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlRad = SrcRotParameterTypeData%BlRad end if if (allocated(SrcRotParameterTypeData%BlDL)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlDL, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlDL, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlDL) + UB(1:2) = ubound(SrcRotParameterTypeData%BlDL) if (.not. allocated(DstRotParameterTypeData%BlDL)) then allocate(DstRotParameterTypeData%BlDL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4899,8 +4899,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlDL = SrcRotParameterTypeData%BlDL end if if (allocated(SrcRotParameterTypeData%BlTaper)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlTaper, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlTaper, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlTaper) + UB(1:2) = ubound(SrcRotParameterTypeData%BlTaper) if (.not. allocated(DstRotParameterTypeData%BlTaper)) then allocate(DstRotParameterTypeData%BlTaper(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4911,8 +4911,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlTaper = SrcRotParameterTypeData%BlTaper end if if (allocated(SrcRotParameterTypeData%BlAxCent)) then - LB(1:2) = lbound(SrcRotParameterTypeData%BlAxCent, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%BlAxCent, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%BlAxCent) + UB(1:2) = ubound(SrcRotParameterTypeData%BlAxCent) if (.not. allocated(DstRotParameterTypeData%BlAxCent)) then allocate(DstRotParameterTypeData%BlAxCent(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4923,8 +4923,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%BlAxCent = SrcRotParameterTypeData%BlAxCent end if if (allocated(SrcRotParameterTypeData%TwrRad)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrRad, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrRad, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrRad) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrRad) if (.not. allocated(DstRotParameterTypeData%TwrRad)) then allocate(DstRotParameterTypeData%TwrRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4935,8 +4935,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrRad = SrcRotParameterTypeData%TwrRad end if if (allocated(SrcRotParameterTypeData%TwrDL)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrDL, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrDL, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrDL) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrDL) if (.not. allocated(DstRotParameterTypeData%TwrDL)) then allocate(DstRotParameterTypeData%TwrDL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4947,8 +4947,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrDL = SrcRotParameterTypeData%TwrDL end if if (allocated(SrcRotParameterTypeData%TwrTaper)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrTaper, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrTaper, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrTaper) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrTaper) if (.not. allocated(DstRotParameterTypeData%TwrTaper)) then allocate(DstRotParameterTypeData%TwrTaper(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4959,8 +4959,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%TwrTaper = SrcRotParameterTypeData%TwrTaper end if if (allocated(SrcRotParameterTypeData%TwrAxCent)) then - LB(1:1) = lbound(SrcRotParameterTypeData%TwrAxCent, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%TwrAxCent, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%TwrAxCent) + UB(1:1) = ubound(SrcRotParameterTypeData%TwrAxCent) if (.not. allocated(DstRotParameterTypeData%TwrAxCent)) then allocate(DstRotParameterTypeData%TwrAxCent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4977,8 +4977,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, kind=B8Ki) - UB(1:2) = ubound(SrcRotParameterTypeData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcRotParameterTypeData%Jac_u_indx) + UB(1:2) = ubound(SrcRotParameterTypeData%Jac_u_indx) 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 @@ -4996,8 +4996,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD if (ErrStat >= AbortErrLev) return DstRotParameterTypeData%NumExtendedInputs = SrcRotParameterTypeData%NumExtendedInputs if (allocated(SrcRotParameterTypeData%du)) then - LB(1:1) = lbound(SrcRotParameterTypeData%du, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%du, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%du) + UB(1:1) = ubound(SrcRotParameterTypeData%du) if (.not. allocated(DstRotParameterTypeData%du)) then allocate(DstRotParameterTypeData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5008,8 +5008,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD DstRotParameterTypeData%du = SrcRotParameterTypeData%du end if if (allocated(SrcRotParameterTypeData%dx)) then - LB(1:1) = lbound(SrcRotParameterTypeData%dx, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%dx, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%dx) + UB(1:1) = ubound(SrcRotParameterTypeData%dx) if (.not. allocated(DstRotParameterTypeData%dx)) then allocate(DstRotParameterTypeData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5043,8 +5043,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%OutParam) + UB(1:1) = ubound(SrcRotParameterTypeData%OutParam) if (.not. allocated(DstRotParameterTypeData%OutParam)) then allocate(DstRotParameterTypeData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5065,8 +5065,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_OutParam) + UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_OutParam) if (.not. allocated(DstRotParameterTypeData%BldNd_OutParam)) then allocate(DstRotParameterTypeData%BldNd_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5081,8 +5081,8 @@ subroutine AD_CopyRotParameterType(SrcRotParameterTypeData, DstRotParameterTypeD end do end if if (allocated(SrcRotParameterTypeData%BldNd_BlOutNd)) then - LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_BlOutNd, kind=B8Ki) - UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_BlOutNd, kind=B8Ki) + LB(1:1) = lbound(SrcRotParameterTypeData%BldNd_BlOutNd) + UB(1:1) = ubound(SrcRotParameterTypeData%BldNd_BlOutNd) if (.not. allocated(DstRotParameterTypeData%BldNd_BlOutNd)) then allocate(DstRotParameterTypeData%BldNd_BlOutNd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5104,8 +5104,8 @@ subroutine AD_DestroyRotParameterType(RotParameterTypeData, ErrStat, ErrMsg) type(RotParameterType), intent(inout) :: RotParameterTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotParameterType' @@ -5174,8 +5174,8 @@ subroutine AD_DestroyRotParameterType(RotParameterTypeData, ErrStat, ErrMsg) deallocate(RotParameterTypeData%dx) end if if (allocated(RotParameterTypeData%OutParam)) then - LB(1:1) = lbound(RotParameterTypeData%OutParam, kind=B8Ki) - UB(1:1) = ubound(RotParameterTypeData%OutParam, kind=B8Ki) + LB(1:1) = lbound(RotParameterTypeData%OutParam) + UB(1:1) = ubound(RotParameterTypeData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(RotParameterTypeData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5183,8 +5183,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, kind=B8Ki) - UB(1:1) = ubound(RotParameterTypeData%BldNd_OutParam, kind=B8Ki) + LB(1:1) = lbound(RotParameterTypeData%BldNd_OutParam) + UB(1:1) = ubound(RotParameterTypeData%BldNd_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(RotParameterTypeData%BldNd_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5202,8 +5202,8 @@ subroutine AD_PackRotParameterType(RF, Indata) type(RegFile), intent(inout) :: RF type(RotParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotParameterType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%NumBlades) call RegPack(RF, InData%NumBlNds) @@ -5265,9 +5265,9 @@ subroutine AD_PackRotParameterType(RF, Indata) call RegPack(RF, InData%RootName) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -5280,9 +5280,9 @@ subroutine AD_PackRotParameterType(RF, Indata) call RegPack(RF, InData%BldNd_TotNumOuts) call RegPack(RF, allocated(InData%BldNd_OutParam)) if (allocated(InData%BldNd_OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BldNd_OutParam), ubound(InData%BldNd_OutParam)) + LB(1:1) = lbound(InData%BldNd_OutParam) + UB(1:1) = ubound(InData%BldNd_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%BldNd_OutParam(i1)) end do @@ -5299,8 +5299,8 @@ subroutine AD_UnPackRotParameterType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotParameterType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5407,16 +5407,16 @@ subroutine AD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rotors) + UB(1:1) = ubound(SrcParamData%rotors) if (.not. allocated(DstParamData%rotors)) then allocate(DstParamData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5433,8 +5433,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%AFI, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%AFI) + UB(1:1) = ubound(SrcParamData%AFI) if (.not. allocated(DstParamData%AFI)) then allocate(DstParamData%AFI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5467,16 +5467,16 @@ subroutine AD_DestroyParam(ParamData, ErrStat, ErrMsg) type(AD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ParamData%rotors, kind=B8Ki) + LB(1:1) = lbound(ParamData%rotors) + UB(1:1) = ubound(ParamData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotParameterType(ParamData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5484,8 +5484,8 @@ subroutine AD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%rotors) end if if (allocated(ParamData%AFI)) then - LB(1:1) = lbound(ParamData%AFI, kind=B8Ki) - UB(1:1) = ubound(ParamData%AFI, kind=B8Ki) + LB(1:1) = lbound(ParamData%AFI) + UB(1:1) = ubound(ParamData%AFI) do i1 = LB(1), UB(1) call AFI_DestroyParam(ParamData%AFI(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5501,15 +5501,15 @@ subroutine AD_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotParameterType(RF, InData%rotors(i1)) end do @@ -5518,9 +5518,9 @@ subroutine AD_PackParam(RF, Indata) call RegPack(RF, InData%RootName) call RegPack(RF, allocated(InData%AFI)) if (allocated(InData%AFI)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%AFI), ubound(InData%AFI)) + LB(1:1) = lbound(InData%AFI) + UB(1:1) = ubound(InData%AFI) do i1 = LB(1), UB(1) call AFI_PackParam(RF, InData%AFI(i1)) end do @@ -5549,8 +5549,8 @@ subroutine AD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -5620,8 +5620,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotInputType' @@ -5637,8 +5637,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputTypeData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputTypeData%BladeRootMotion) + UB(1:1) = ubound(SrcRotInputTypeData%BladeRootMotion) if (.not. allocated(DstRotInputTypeData%BladeRootMotion)) then allocate(DstRotInputTypeData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5653,8 +5653,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod end do end if if (allocated(SrcRotInputTypeData%BladeMotion)) then - LB(1:1) = lbound(SrcRotInputTypeData%BladeMotion, kind=B8Ki) - UB(1:1) = ubound(SrcRotInputTypeData%BladeMotion, kind=B8Ki) + LB(1:1) = lbound(SrcRotInputTypeData%BladeMotion) + UB(1:1) = ubound(SrcRotInputTypeData%BladeMotion) if (.not. allocated(DstRotInputTypeData%BladeMotion)) then allocate(DstRotInputTypeData%BladeMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5672,8 +5672,8 @@ subroutine AD_CopyRotInputType(SrcRotInputTypeData, DstRotInputTypeData, CtrlCod call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcRotInputTypeData%UserProp)) then - LB(1:2) = lbound(SrcRotInputTypeData%UserProp, kind=B8Ki) - UB(1:2) = ubound(SrcRotInputTypeData%UserProp, kind=B8Ki) + LB(1:2) = lbound(SrcRotInputTypeData%UserProp) + UB(1:2) = ubound(SrcRotInputTypeData%UserProp) if (.not. allocated(DstRotInputTypeData%UserProp)) then allocate(DstRotInputTypeData%UserProp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5689,8 +5689,8 @@ subroutine AD_DestroyRotInputType(RotInputTypeData, ErrStat, ErrMsg) type(RotInputType), intent(inout) :: RotInputTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotInputType' @@ -5703,8 +5703,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, kind=B8Ki) - UB(1:1) = ubound(RotInputTypeData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(RotInputTypeData%BladeRootMotion) + UB(1:1) = ubound(RotInputTypeData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshDestroy( RotInputTypeData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5712,8 +5712,8 @@ subroutine AD_DestroyRotInputType(RotInputTypeData, ErrStat, ErrMsg) deallocate(RotInputTypeData%BladeRootMotion) end if if (allocated(RotInputTypeData%BladeMotion)) then - LB(1:1) = lbound(RotInputTypeData%BladeMotion, kind=B8Ki) - UB(1:1) = ubound(RotInputTypeData%BladeMotion, kind=B8Ki) + LB(1:1) = lbound(RotInputTypeData%BladeMotion) + UB(1:1) = ubound(RotInputTypeData%BladeMotion) do i1 = LB(1), UB(1) call MeshDestroy( RotInputTypeData%BladeMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5731,26 +5731,26 @@ subroutine AD_PackRotInputType(RF, Indata) type(RegFile), intent(inout) :: RF type(RotInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotInputType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call MeshPack(RF, InData%NacelleMotion) call MeshPack(RF, InData%TowerMotion) call MeshPack(RF, InData%HubMotion) call RegPack(RF, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) + LB(1:1) = lbound(InData%BladeRootMotion) + UB(1:1) = ubound(InData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeRootMotion(i1)) end do end if call RegPack(RF, allocated(InData%BladeMotion)) if (allocated(InData%BladeMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeMotion), ubound(InData%BladeMotion)) + LB(1:1) = lbound(InData%BladeMotion) + UB(1:1) = ubound(InData%BladeMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeMotion(i1)) end do @@ -5764,8 +5764,8 @@ subroutine AD_UnPackRotInputType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotInputType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5808,16 +5808,16 @@ subroutine AD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%rotors) + UB(1:1) = ubound(SrcInputData%rotors) if (.not. allocated(DstInputData%rotors)) then allocate(DstInputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5837,16 +5837,16 @@ subroutine AD_DestroyInput(InputData, ErrStat, ErrMsg) type(AD_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) 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, kind=B8Ki) - UB(1:1) = ubound(InputData%rotors, kind=B8Ki) + LB(1:1) = lbound(InputData%rotors) + UB(1:1) = ubound(InputData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotInputType(InputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5859,14 +5859,14 @@ subroutine AD_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotInputType(RF, InData%rotors(i1)) end do @@ -5878,8 +5878,8 @@ subroutine AD_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5904,8 +5904,8 @@ subroutine AD_CopyRotOutputType(SrcRotOutputTypeData, DstRotOutputTypeData, Ctrl integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_CopyRotOutputType' @@ -5921,8 +5921,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotOutputTypeData%BladeLoad, kind=B8Ki) + LB(1:1) = lbound(SrcRotOutputTypeData%BladeLoad) + UB(1:1) = ubound(SrcRotOutputTypeData%BladeLoad) if (.not. allocated(DstRotOutputTypeData%BladeLoad)) then allocate(DstRotOutputTypeData%BladeLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5940,8 +5940,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, kind=B8Ki) - UB(1:1) = ubound(SrcRotOutputTypeData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcRotOutputTypeData%WriteOutput) + UB(1:1) = ubound(SrcRotOutputTypeData%WriteOutput) if (.not. allocated(DstRotOutputTypeData%WriteOutput)) then allocate(DstRotOutputTypeData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5957,8 +5957,8 @@ subroutine AD_DestroyRotOutputType(RotOutputTypeData, ErrStat, ErrMsg) type(RotOutputType), intent(inout) :: RotOutputTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AD_DestroyRotOutputType' @@ -5971,8 +5971,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, kind=B8Ki) - UB(1:1) = ubound(RotOutputTypeData%BladeLoad, kind=B8Ki) + LB(1:1) = lbound(RotOutputTypeData%BladeLoad) + UB(1:1) = ubound(RotOutputTypeData%BladeLoad) do i1 = LB(1), UB(1) call MeshDestroy( RotOutputTypeData%BladeLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5990,17 +5990,17 @@ subroutine AD_PackRotOutputType(RF, Indata) type(RegFile), intent(inout) :: RF type(RotOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackRotOutputType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call MeshPack(RF, InData%NacelleLoad) call MeshPack(RF, InData%HubLoad) call MeshPack(RF, InData%TowerLoad) call RegPack(RF, allocated(InData%BladeLoad)) if (allocated(InData%BladeLoad)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeLoad), ubound(InData%BladeLoad)) + LB(1:1) = lbound(InData%BladeLoad) + UB(1:1) = ubound(InData%BladeLoad) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeLoad(i1)) end do @@ -6014,8 +6014,8 @@ subroutine AD_UnPackRotOutputType(RF, OutData) type(RegFile), intent(inout) :: RF type(RotOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackRotOutputType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6045,16 +6045,16 @@ subroutine AD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%rotors) + UB(1:1) = ubound(SrcOutputData%rotors) if (.not. allocated(DstOutputData%rotors)) then allocate(DstOutputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6074,16 +6074,16 @@ subroutine AD_DestroyOutput(OutputData, ErrStat, ErrMsg) type(AD_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%rotors, kind=B8Ki) + LB(1:1) = lbound(OutputData%rotors) + UB(1:1) = ubound(OutputData%rotors) do i1 = LB(1), UB(1) call AD_DestroyRotOutputType(OutputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6096,14 +6096,14 @@ subroutine AD_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(AD_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AD_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call AD_PackRotOutputType(RF, InData%rotors(i1)) end do @@ -6115,8 +6115,8 @@ subroutine AD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(AD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AD_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6235,39 +6235,39 @@ 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) IF (ALLOCATED(u_out%rotors(i01)%BladeRootMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeRootMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(u_out%rotors(i01)%BladeRootMotion,1),ubound(u_out%rotors(i01)%BladeRootMotion,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) IF (ALLOCATED(u_out%rotors(i01)%BladeMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki) + do i1 = lbound(u_out%rotors(i01)%BladeMotion,1),ubound(u_out%rotors(i01)%BladeMotion,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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 @@ -6333,39 +6333,39 @@ 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) IF (ALLOCATED(u_out%rotors(i01)%BladeRootMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeRootMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(u_out%rotors(i01)%BladeRootMotion,1),ubound(u_out%rotors(i01)%BladeRootMotion,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) IF (ALLOCATED(u_out%rotors(i01)%BladeMotion) .AND. ALLOCATED(u1%rotors(i01)%BladeMotion)) THEN - DO i1 = LBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki),UBOUND(u_out%rotors(i01)%BladeMotion,1, kind=B8Ki) + do i1 = lbound(u_out%rotors(i01)%BladeMotion,1),ubound(u_out%rotors(i01)%BladeMotion,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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 @@ -6471,31 +6471,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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) IF (ALLOCATED(y_out%rotors(i01)%BladeLoad) .AND. ALLOCATED(y1%rotors(i01)%BladeLoad)) THEN - DO i1 = LBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki),UBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki) + do i1 = lbound(y_out%rotors(i01)%BladeLoad,1),ubound(y_out%rotors(i01)%BladeLoad,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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 @@ -6559,31 +6559,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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) IF (ALLOCATED(y_out%rotors(i01)%BladeLoad) .AND. ALLOCATED(y1%rotors(i01)%BladeLoad)) THEN - DO i1 = LBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki),UBOUND(y_out%rotors(i01)%BladeLoad,1, kind=B8Ki) + do i1 = lbound(y_out%rotors(i01)%BladeLoad,1),ubound(y_out%rotors(i01)%BladeLoad,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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, kind=B8Ki),UBOUND(y_out%rotors,1, kind=B8Ki) + do i01 = lbound(y_out%rotors,1),ubound(y_out%rotors,1) 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 @@ -6696,21 +6696,21 @@ SUBROUTINE AD_InflowType_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, Err u_out%InflowWakeVel = a1*u1%InflowWakeVel + a2*u2%InflowWakeVel END IF ! check if allocated IF (ALLOCATED(u_out%RotInflow) .AND. ALLOCATED(u1%RotInflow)) THEN - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) IF (ALLOCATED(u_out%RotInflow(i01)%Blade) .AND. ALLOCATED(u1%RotInflow(i01)%Blade)) THEN - DO i11 = LBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki),UBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki) + do i11 = lbound(u_out%RotInflow(i01)%Blade,1),ubound(u_out%RotInflow(i01)%Blade,1) IF (ALLOCATED(u_out%RotInflow(i01)%Blade(i11)%InflowVel) .AND. ALLOCATED(u1%RotInflow(i01)%Blade(i11)%InflowVel)) THEN u_out%RotInflow(i01)%Blade(i11)%InflowVel = a1*u1%RotInflow(i01)%Blade(i11)%InflowVel + a2*u2%RotInflow(i01)%Blade(i11)%InflowVel END IF ! check if allocated END DO - DO i11 = LBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki),UBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki) + do i11 = lbound(u_out%RotInflow(i01)%Blade,1),ubound(u_out%RotInflow(i01)%Blade,1) IF (ALLOCATED(u_out%RotInflow(i01)%Blade(i11)%InflowAcc) .AND. ALLOCATED(u1%RotInflow(i01)%Blade(i11)%InflowAcc)) THEN u_out%RotInflow(i01)%Blade(i11)%InflowAcc = a1*u1%RotInflow(i01)%Blade(i11)%InflowAcc + a2*u2%RotInflow(i01)%Blade(i11)%InflowAcc END IF ! check if allocated END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) IF (ALLOCATED(u_out%RotInflow(i01)%Tower%InflowVel) .AND. ALLOCATED(u1%RotInflow(i01)%Tower%InflowVel)) THEN u_out%RotInflow(i01)%Tower%InflowVel = a1*u1%RotInflow(i01)%Tower%InflowVel + a2*u2%RotInflow(i01)%Tower%InflowVel END IF ! check if allocated @@ -6718,16 +6718,16 @@ SUBROUTINE AD_InflowType_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, Err u_out%RotInflow(i01)%Tower%InflowAcc = a1*u1%RotInflow(i01)%Tower%InflowAcc + a2*u2%RotInflow(i01)%Tower%InflowAcc END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%InflowOnHub = a1*u1%RotInflow(i01)%InflowOnHub + a2*u2%RotInflow(i01)%InflowOnHub END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%InflowOnNacelle = a1*u1%RotInflow(i01)%InflowOnNacelle + a2*u2%RotInflow(i01)%InflowOnNacelle END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%InflowOnTailFin = a1*u1%RotInflow(i01)%InflowOnTailFin + a2*u2%RotInflow(i01)%InflowOnTailFin END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%AvgDiskVel = a1*u1%RotInflow(i01)%AvgDiskVel + a2*u2%RotInflow(i01)%AvgDiskVel END DO END IF ! check if allocated @@ -6796,21 +6796,21 @@ SUBROUTINE AD_InflowType_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, u_out%InflowWakeVel = a1*u1%InflowWakeVel + a2*u2%InflowWakeVel + a3*u3%InflowWakeVel END IF ! check if allocated IF (ALLOCATED(u_out%RotInflow) .AND. ALLOCATED(u1%RotInflow)) THEN - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) IF (ALLOCATED(u_out%RotInflow(i01)%Blade) .AND. ALLOCATED(u1%RotInflow(i01)%Blade)) THEN - DO i11 = LBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki),UBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki) + do i11 = lbound(u_out%RotInflow(i01)%Blade,1),ubound(u_out%RotInflow(i01)%Blade,1) IF (ALLOCATED(u_out%RotInflow(i01)%Blade(i11)%InflowVel) .AND. ALLOCATED(u1%RotInflow(i01)%Blade(i11)%InflowVel)) THEN u_out%RotInflow(i01)%Blade(i11)%InflowVel = a1*u1%RotInflow(i01)%Blade(i11)%InflowVel + a2*u2%RotInflow(i01)%Blade(i11)%InflowVel + a3*u3%RotInflow(i01)%Blade(i11)%InflowVel END IF ! check if allocated END DO - DO i11 = LBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki),UBOUND(u_out%RotInflow(i01)%Blade,1, kind=B8Ki) + do i11 = lbound(u_out%RotInflow(i01)%Blade,1),ubound(u_out%RotInflow(i01)%Blade,1) IF (ALLOCATED(u_out%RotInflow(i01)%Blade(i11)%InflowAcc) .AND. ALLOCATED(u1%RotInflow(i01)%Blade(i11)%InflowAcc)) THEN u_out%RotInflow(i01)%Blade(i11)%InflowAcc = a1*u1%RotInflow(i01)%Blade(i11)%InflowAcc + a2*u2%RotInflow(i01)%Blade(i11)%InflowAcc + a3*u3%RotInflow(i01)%Blade(i11)%InflowAcc END IF ! check if allocated END DO END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) IF (ALLOCATED(u_out%RotInflow(i01)%Tower%InflowVel) .AND. ALLOCATED(u1%RotInflow(i01)%Tower%InflowVel)) THEN u_out%RotInflow(i01)%Tower%InflowVel = a1*u1%RotInflow(i01)%Tower%InflowVel + a2*u2%RotInflow(i01)%Tower%InflowVel + a3*u3%RotInflow(i01)%Tower%InflowVel END IF ! check if allocated @@ -6818,16 +6818,16 @@ SUBROUTINE AD_InflowType_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, u_out%RotInflow(i01)%Tower%InflowAcc = a1*u1%RotInflow(i01)%Tower%InflowAcc + a2*u2%RotInflow(i01)%Tower%InflowAcc + a3*u3%RotInflow(i01)%Tower%InflowAcc END IF ! check if allocated END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%InflowOnHub = a1*u1%RotInflow(i01)%InflowOnHub + a2*u2%RotInflow(i01)%InflowOnHub + a3*u3%RotInflow(i01)%InflowOnHub END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%InflowOnNacelle = a1*u1%RotInflow(i01)%InflowOnNacelle + a2*u2%RotInflow(i01)%InflowOnNacelle + a3*u3%RotInflow(i01)%InflowOnNacelle END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%InflowOnTailFin = a1*u1%RotInflow(i01)%InflowOnTailFin + a2*u2%RotInflow(i01)%InflowOnTailFin + a3*u3%RotInflow(i01)%InflowOnTailFin END DO - DO i01 = LBOUND(u_out%RotInflow,1, kind=B8Ki),UBOUND(u_out%RotInflow,1, kind=B8Ki) + do i01 = lbound(u_out%RotInflow,1),ubound(u_out%RotInflow,1) u_out%RotInflow(i01)%AvgDiskVel = a1*u1%RotInflow(i01)%AvgDiskVel + a2*u2%RotInflow(i01)%AvgDiskVel + a3*u3%RotInflow(i01)%AvgDiskVel END DO END IF ! check if allocated diff --git a/modules/aerodyn/src/AirfoilInfo_Types.f90 b/modules/aerodyn/src/AirfoilInfo_Types.f90 index f6a2b351fd..3ee973c9d5 100644 --- a/modules/aerodyn/src/AirfoilInfo_Types.f90 +++ b/modules/aerodyn/src/AirfoilInfo_Types.f90 @@ -522,15 +522,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(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcTable_TypeData%Alpha, kind=B8Ki) + LB(1:1) = lbound(SrcTable_TypeData%Alpha) + UB(1:1) = ubound(SrcTable_TypeData%Alpha) if (.not. allocated(DstTable_TypeData%Alpha)) then allocate(DstTable_TypeData%Alpha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -541,8 +541,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, kind=B8Ki) - UB(1:2) = ubound(SrcTable_TypeData%Coefs, kind=B8Ki) + LB(1:2) = lbound(SrcTable_TypeData%Coefs) + UB(1:2) = ubound(SrcTable_TypeData%Coefs) 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 @@ -553,8 +553,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, kind=B8Ki) - UB(1:3) = ubound(SrcTable_TypeData%SplineCoefs, kind=B8Ki) + LB(1:3) = lbound(SrcTable_TypeData%SplineCoefs) + UB(1:3) = ubound(SrcTable_TypeData%SplineCoefs) 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 @@ -617,7 +617,7 @@ subroutine AFI_UnPackTable_Type(RF, OutData) type(RegFile), intent(inout) :: RF type(AFI_Table_Type), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AFI_UnPackTable_Type' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -743,8 +743,8 @@ subroutine AFI_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AFI_CopyParam' @@ -757,8 +757,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%secondVals, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%secondVals) + UB(1:1) = ubound(SrcParamData%secondVals) if (.not. allocated(DstParamData%secondVals)) then allocate(DstParamData%secondVals(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -773,8 +773,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%X_Coord, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%X_Coord) + UB(1:1) = ubound(SrcParamData%X_Coord) if (.not. allocated(DstParamData%X_Coord)) then allocate(DstParamData%X_Coord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -785,8 +785,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Y_Coord, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Y_Coord) + UB(1:1) = ubound(SrcParamData%Y_Coord) if (.not. allocated(DstParamData%Y_Coord)) then allocate(DstParamData%Y_Coord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -798,8 +798,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Table, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Table) + UB(1:1) = ubound(SrcParamData%Table) if (.not. allocated(DstParamData%Table)) then allocate(DstParamData%Table(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -821,8 +821,8 @@ subroutine AFI_DestroyParam(ParamData, ErrStat, ErrMsg) type(AFI_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AFI_DestroyParam' @@ -838,8 +838,8 @@ subroutine AFI_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%Y_Coord) end if if (allocated(ParamData%Table)) then - LB(1:1) = lbound(ParamData%Table, kind=B8Ki) - UB(1:1) = ubound(ParamData%Table, kind=B8Ki) + LB(1:1) = lbound(ParamData%Table) + UB(1:1) = ubound(ParamData%Table) do i1 = LB(1), UB(1) call AFI_DestroyTable_Type(ParamData%Table(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -852,8 +852,8 @@ subroutine AFI_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(AFI_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AFI_PackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%ColCd) call RegPack(RF, InData%ColCl) @@ -871,9 +871,9 @@ subroutine AFI_PackParam(RF, Indata) call RegPack(RF, InData%NumTabs) call RegPack(RF, allocated(InData%Table)) if (allocated(InData%Table)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Table), ubound(InData%Table)) + LB(1:1) = lbound(InData%Table) + UB(1:1) = ubound(InData%Table) do i1 = LB(1), UB(1) call AFI_PackTable_Type(RF, InData%Table(i1)) end do @@ -887,8 +887,8 @@ subroutine AFI_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(AFI_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AFI_UnPackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/BEMT_Types.f90 b/modules/aerodyn/src/BEMT_Types.f90 index 68c43d1838..88dfc7823e 100644 --- a/modules/aerodyn/src/BEMT_Types.f90 +++ b/modules/aerodyn/src/BEMT_Types.f90 @@ -234,15 +234,15 @@ subroutine BEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyInitInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitInputData%chord)) then - LB(1:2) = lbound(SrcInitInputData%chord, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%chord, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%chord) + UB(1:2) = ubound(SrcInitInputData%chord) if (.not. allocated(DstInitInputData%chord)) then allocate(DstInitInputData%chord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -269,8 +269,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%AFindx, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%AFindx) + UB(1:2) = ubound(SrcInitInputData%AFindx) if (.not. allocated(DstInitInputData%AFindx)) then allocate(DstInitInputData%AFindx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -281,8 +281,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%zHub, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%zHub) + UB(1:1) = ubound(SrcInitInputData%zHub) if (.not. allocated(DstInitInputData%zHub)) then allocate(DstInitInputData%zHub(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -293,8 +293,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%zLocal, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%zLocal) + UB(1:2) = ubound(SrcInitInputData%zLocal) if (.not. allocated(DstInitInputData%zLocal)) then allocate(DstInitInputData%zLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -305,8 +305,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%zTip, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%zTip) + UB(1:1) = ubound(SrcInitInputData%zTip) if (.not. allocated(DstInitInputData%zTip)) then allocate(DstInitInputData%zTip(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -317,8 +317,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%rLocal, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%rLocal) + UB(1:2) = ubound(SrcInitInputData%rLocal) if (.not. allocated(DstInitInputData%rLocal)) then allocate(DstInitInputData%rLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -329,8 +329,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%rTipFix, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%rTipFix) + UB(1:1) = ubound(SrcInitInputData%rTipFix) if (.not. allocated(DstInitInputData%rTipFix)) then allocate(DstInitInputData%rTipFix(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -429,7 +429,7 @@ subroutine BEMT_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackInitInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -664,14 +664,14 @@ subroutine BEMT_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcConstrStateData%phi, kind=B8Ki) + LB(1:2) = lbound(SrcConstrStateData%phi) + UB(1:2) = ubound(SrcConstrStateData%phi) if (.not. allocated(DstConstrStateData%phi)) then allocate(DstConstrStateData%phi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -708,7 +708,7 @@ subroutine BEMT_UnPackConstrState(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackConstrState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -721,8 +721,8 @@ subroutine BEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyOtherState' @@ -735,8 +735,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%ValidPhi, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%ValidPhi) + UB(1:2) = ubound(SrcOtherStateData%ValidPhi) if (.not. allocated(DstOtherStateData%ValidPhi)) then allocate(DstOtherStateData%ValidPhi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -747,8 +747,8 @@ subroutine BEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E DstOtherStateData%ValidPhi = SrcOtherStateData%ValidPhi end if DstOtherStateData%nodesInitialized = SrcOtherStateData%nodesInitialized - LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) 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) @@ -761,8 +761,8 @@ subroutine BEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(BEMT_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_DestroyOtherState' @@ -775,8 +775,8 @@ subroutine BEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) if (allocated(OtherStateData%ValidPhi)) then deallocate(OtherStateData%ValidPhi) end if - LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call BEMT_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -787,15 +787,15 @@ subroutine BEMT_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(BEMT_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'BEMT_PackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call UA_PackOtherState(RF, InData%UA) call DBEMT_PackOtherState(RF, InData%DBEMT) call RegPackAlloc(RF, InData%ValidPhi) call RegPack(RF, InData%nodesInitialized) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call BEMT_PackContState(RF, InData%xdot(i1)) end do @@ -807,8 +807,8 @@ subroutine BEMT_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -816,8 +816,8 @@ subroutine BEMT_UnPackOtherState(RF, OutData) call DBEMT_UnpackOtherState(RF, OutData%DBEMT) ! DBEMT call RegUnpackAlloc(RF, OutData%ValidPhi); if (RegCheckErr(RF, RoutineName)) return call RegUnpack(RF, OutData%nodesInitialized); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call BEMT_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do @@ -830,8 +830,8 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyMisc' @@ -850,8 +850,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%u_UA, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%u_UA) + UB(1:3) = ubound(SrcMiscData%u_UA) 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 @@ -869,23 +869,23 @@ subroutine BEMT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end do end if - LB(1:1) = lbound(SrcMiscData%u_DBEMT, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%u_DBEMT, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%u_DBEMT) + UB(1:1) = ubound(SrcMiscData%u_DBEMT) 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%u_SkewWake, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%u_SkewWake) + UB(1:1) = ubound(SrcMiscData%u_SkewWake) 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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%TnInd_op, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%TnInd_op) + UB(1:2) = ubound(SrcMiscData%TnInd_op) 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 @@ -896,8 +896,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%AxInd_op, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%AxInd_op) + UB(1:2) = ubound(SrcMiscData%AxInd_op) 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 @@ -908,8 +908,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%AxInduction, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%AxInduction) + UB(1:2) = ubound(SrcMiscData%AxInduction) if (.not. allocated(DstMiscData%AxInduction)) then allocate(DstMiscData%AxInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -920,8 +920,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%TanInduction, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%TanInduction) + UB(1:2) = ubound(SrcMiscData%TanInduction) if (.not. allocated(DstMiscData%TanInduction)) then allocate(DstMiscData%TanInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -933,8 +933,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Rtip, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Rtip) + UB(1:1) = ubound(SrcMiscData%Rtip) if (.not. allocated(DstMiscData%Rtip)) then allocate(DstMiscData%Rtip(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -945,8 +945,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%phi, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%phi) + UB(1:2) = ubound(SrcMiscData%phi) if (.not. allocated(DstMiscData%phi)) then allocate(DstMiscData%phi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -957,8 +957,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%chi, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%chi) + UB(1:2) = ubound(SrcMiscData%chi) if (.not. allocated(DstMiscData%chi)) then allocate(DstMiscData%chi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -969,8 +969,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%ValidPhi, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%ValidPhi) + UB(1:2) = ubound(SrcMiscData%ValidPhi) if (.not. allocated(DstMiscData%ValidPhi)) then allocate(DstMiscData%ValidPhi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -987,8 +987,8 @@ subroutine BEMT_DestroyMisc(MiscData, ErrStat, ErrMsg) type(BEMT_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_DestroyMisc' @@ -1001,8 +1001,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, kind=B8Ki) - UB(1:3) = ubound(MiscData%u_UA, kind=B8Ki) + LB(1:3) = lbound(MiscData%u_UA) + UB(1:3) = ubound(MiscData%u_UA) do i3 = LB(3), UB(3) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) @@ -1013,14 +1013,14 @@ subroutine BEMT_DestroyMisc(MiscData, ErrStat, ErrMsg) end do deallocate(MiscData%u_UA) end if - LB(1:1) = lbound(MiscData%u_DBEMT, kind=B8Ki) - UB(1:1) = ubound(MiscData%u_DBEMT, kind=B8Ki) + LB(1:1) = lbound(MiscData%u_DBEMT) + UB(1:1) = ubound(MiscData%u_DBEMT) 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, kind=B8Ki) - UB(1:1) = ubound(MiscData%u_SkewWake, kind=B8Ki) + LB(1:1) = lbound(MiscData%u_SkewWake) + UB(1:1) = ubound(MiscData%u_SkewWake) do i1 = LB(1), UB(1) call BEMT_DestroySkewWake_InputType(MiscData%u_SkewWake(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1055,8 +1055,8 @@ subroutine BEMT_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(BEMT_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'BEMT_PackMisc' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%FirstWarn_Skew) call RegPack(RF, InData%FirstWarn_Phi) @@ -1066,9 +1066,9 @@ subroutine BEMT_PackMisc(RF, Indata) call UA_PackOutput(RF, InData%y_UA) call RegPack(RF, allocated(InData%u_UA)) if (allocated(InData%u_UA)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 3, lbound(InData%u_UA), ubound(InData%u_UA)) + LB(1:3) = lbound(InData%u_UA) + UB(1:3) = ubound(InData%u_UA) do i3 = LB(3), UB(3) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) @@ -1077,13 +1077,13 @@ subroutine BEMT_PackMisc(RF, Indata) end do end do end if - LB(1:1) = lbound(InData%u_DBEMT, kind=B8Ki) - UB(1:1) = ubound(InData%u_DBEMT, kind=B8Ki) + LB(1:1) = lbound(InData%u_DBEMT) + UB(1:1) = ubound(InData%u_DBEMT) do i1 = LB(1), UB(1) call DBEMT_PackInput(RF, InData%u_DBEMT(i1)) end do - LB(1:1) = lbound(InData%u_SkewWake, kind=B8Ki) - UB(1:1) = ubound(InData%u_SkewWake, kind=B8Ki) + LB(1:1) = lbound(InData%u_SkewWake) + UB(1:1) = ubound(InData%u_SkewWake) do i1 = LB(1), UB(1) call BEMT_PackSkewWake_InputType(RF, InData%u_SkewWake(i1)) end do @@ -1104,8 +1104,8 @@ subroutine BEMT_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackMisc' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1132,13 +1132,13 @@ subroutine BEMT_UnPackMisc(RF, OutData) end do end do end if - LB(1:1) = lbound(OutData%u_DBEMT, kind=B8Ki) - UB(1:1) = ubound(OutData%u_DBEMT, kind=B8Ki) + LB(1:1) = lbound(OutData%u_DBEMT) + UB(1:1) = ubound(OutData%u_DBEMT) do i1 = LB(1), UB(1) call DBEMT_UnpackInput(RF, OutData%u_DBEMT(i1)) ! u_DBEMT end do - LB(1:1) = lbound(OutData%u_SkewWake, kind=B8Ki) - UB(1:1) = ubound(OutData%u_SkewWake, kind=B8Ki) + LB(1:1) = lbound(OutData%u_SkewWake) + UB(1:1) = ubound(OutData%u_SkewWake) do i1 = LB(1), UB(1) call BEMT_UnpackSkewWake_InputType(RF, OutData%u_SkewWake(i1)) ! u_SkewWake end do @@ -1160,7 +1160,7 @@ subroutine BEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BEMT_CopyParam' @@ -1168,8 +1168,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%chord, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%chord) + UB(1:2) = ubound(SrcParamData%chord) if (.not. allocated(DstParamData%chord)) then allocate(DstParamData%chord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1195,8 +1195,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%AFindx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%AFindx) + UB(1:2) = ubound(SrcParamData%AFindx) if (.not. allocated(DstParamData%AFindx)) then allocate(DstParamData%AFindx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1207,8 +1207,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%tipLossConst, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%tipLossConst) + UB(1:2) = ubound(SrcParamData%tipLossConst) if (.not. allocated(DstParamData%tipLossConst)) then allocate(DstParamData%tipLossConst(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1219,8 +1219,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%hubLossConst, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%hubLossConst) + UB(1:2) = ubound(SrcParamData%hubLossConst) if (.not. allocated(DstParamData%hubLossConst)) then allocate(DstParamData%hubLossConst(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1231,8 +1231,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%zHub, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%zHub) + UB(1:1) = ubound(SrcParamData%zHub) if (.not. allocated(DstParamData%zHub)) then allocate(DstParamData%zHub(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1252,8 +1252,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%FixedInductions, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%FixedInductions) + UB(1:2) = ubound(SrcParamData%FixedInductions) if (.not. allocated(DstParamData%FixedInductions)) then allocate(DstParamData%FixedInductions(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1266,8 +1266,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%IntegrateWeight, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%IntegrateWeight) + UB(1:2) = ubound(SrcParamData%IntegrateWeight) if (.not. allocated(DstParamData%IntegrateWeight)) then allocate(DstParamData%IntegrateWeight(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1361,7 +1361,7 @@ subroutine BEMT_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1405,14 +1405,14 @@ subroutine BEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%theta, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%theta) + UB(1:2) = ubound(SrcInputData%theta) if (.not. allocated(DstInputData%theta)) then allocate(DstInputData%theta(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1425,8 +1425,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%psi_s, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%psi_s) + UB(1:1) = ubound(SrcInputData%psi_s) if (.not. allocated(DstInputData%psi_s)) then allocate(DstInputData%psi_s(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1439,8 +1439,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%Vx, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%Vx) + UB(1:2) = ubound(SrcInputData%Vx) if (.not. allocated(DstInputData%Vx)) then allocate(DstInputData%Vx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1451,8 +1451,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%Vy, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%Vy) + UB(1:2) = ubound(SrcInputData%Vy) if (.not. allocated(DstInputData%Vy)) then allocate(DstInputData%Vy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1463,8 +1463,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%Vz, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%Vz) + UB(1:2) = ubound(SrcInputData%Vz) if (.not. allocated(DstInputData%Vz)) then allocate(DstInputData%Vz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1475,8 +1475,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%omega_z, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%omega_z) + UB(1:2) = ubound(SrcInputData%omega_z) 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 @@ -1487,8 +1487,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%xVelCorr, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%xVelCorr) + UB(1:2) = ubound(SrcInputData%xVelCorr) if (.not. allocated(DstInputData%xVelCorr)) then allocate(DstInputData%xVelCorr(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1499,8 +1499,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%rLocal, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%rLocal) + UB(1:2) = ubound(SrcInputData%rLocal) if (.not. allocated(DstInputData%rLocal)) then allocate(DstInputData%rLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1514,8 +1514,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%UserProp, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%UserProp) + UB(1:2) = ubound(SrcInputData%UserProp) if (.not. allocated(DstInputData%UserProp)) then allocate(DstInputData%UserProp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1526,8 +1526,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%CantAngle, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%CantAngle) + UB(1:2) = ubound(SrcInputData%CantAngle) if (.not. allocated(DstInputData%CantAngle)) then allocate(DstInputData%CantAngle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1538,8 +1538,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%drdz, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%drdz) + UB(1:2) = ubound(SrcInputData%drdz) if (.not. allocated(DstInputData%drdz)) then allocate(DstInputData%drdz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1550,8 +1550,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%toeAngle, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%toeAngle) + UB(1:2) = ubound(SrcInputData%toeAngle) if (.not. allocated(DstInputData%toeAngle)) then allocate(DstInputData%toeAngle(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1639,7 +1639,7 @@ subroutine BEMT_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1670,14 +1670,14 @@ subroutine BEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Vrel, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Vrel) + UB(1:2) = ubound(SrcOutputData%Vrel) if (.not. allocated(DstOutputData%Vrel)) then allocate(DstOutputData%Vrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1688,8 +1688,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%phi, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%phi) + UB(1:2) = ubound(SrcOutputData%phi) if (.not. allocated(DstOutputData%phi)) then allocate(DstOutputData%phi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1700,8 +1700,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%axInduction, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%axInduction) + UB(1:2) = ubound(SrcOutputData%axInduction) if (.not. allocated(DstOutputData%axInduction)) then allocate(DstOutputData%axInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1712,8 +1712,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%tanInduction, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%tanInduction) + UB(1:2) = ubound(SrcOutputData%tanInduction) if (.not. allocated(DstOutputData%tanInduction)) then allocate(DstOutputData%tanInduction(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1724,8 +1724,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%axInduction_qs, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%axInduction_qs) + UB(1:2) = ubound(SrcOutputData%axInduction_qs) 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 @@ -1736,8 +1736,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%tanInduction_qs, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%tanInduction_qs) + UB(1:2) = ubound(SrcOutputData%tanInduction_qs) 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 @@ -1748,8 +1748,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%k, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%k) + UB(1:2) = ubound(SrcOutputData%k) if (.not. allocated(DstOutputData%k)) then allocate(DstOutputData%k(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1760,8 +1760,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%k_p, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%k_p) + UB(1:2) = ubound(SrcOutputData%k_p) 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 @@ -1772,8 +1772,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%F, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%F) + UB(1:2) = ubound(SrcOutputData%F) if (.not. allocated(DstOutputData%F)) then allocate(DstOutputData%F(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1784,8 +1784,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Re, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Re) + UB(1:2) = ubound(SrcOutputData%Re) if (.not. allocated(DstOutputData%Re)) then allocate(DstOutputData%Re(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1796,8 +1796,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%AOA, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%AOA) + UB(1:2) = ubound(SrcOutputData%AOA) if (.not. allocated(DstOutputData%AOA)) then allocate(DstOutputData%AOA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1808,8 +1808,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cx, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cx) + UB(1:2) = ubound(SrcOutputData%Cx) if (.not. allocated(DstOutputData%Cx)) then allocate(DstOutputData%Cx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1820,8 +1820,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cy, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cy) + UB(1:2) = ubound(SrcOutputData%Cy) if (.not. allocated(DstOutputData%Cy)) then allocate(DstOutputData%Cy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1832,8 +1832,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cz, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cz) + UB(1:2) = ubound(SrcOutputData%Cz) if (.not. allocated(DstOutputData%Cz)) then allocate(DstOutputData%Cz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1844,8 +1844,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cmx, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cmx) + UB(1:2) = ubound(SrcOutputData%Cmx) if (.not. allocated(DstOutputData%Cmx)) then allocate(DstOutputData%Cmx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1856,8 +1856,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cmy, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cmy) + UB(1:2) = ubound(SrcOutputData%Cmy) if (.not. allocated(DstOutputData%Cmy)) then allocate(DstOutputData%Cmy(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1868,8 +1868,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cmz, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cmz) + UB(1:2) = ubound(SrcOutputData%Cmz) if (.not. allocated(DstOutputData%Cmz)) then allocate(DstOutputData%Cmz(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1880,8 +1880,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cm, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cm) + UB(1:2) = ubound(SrcOutputData%Cm) if (.not. allocated(DstOutputData%Cm)) then allocate(DstOutputData%Cm(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1892,8 +1892,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cl, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cl) + UB(1:2) = ubound(SrcOutputData%Cl) if (.not. allocated(DstOutputData%Cl)) then allocate(DstOutputData%Cl(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1904,8 +1904,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cd, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cd) + UB(1:2) = ubound(SrcOutputData%Cd) if (.not. allocated(DstOutputData%Cd)) then allocate(DstOutputData%Cd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1916,8 +1916,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%chi, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%chi) + UB(1:2) = ubound(SrcOutputData%chi) if (.not. allocated(DstOutputData%chi)) then allocate(DstOutputData%chi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1928,8 +1928,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Cpmin, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Cpmin) + UB(1:2) = ubound(SrcOutputData%Cpmin) if (.not. allocated(DstOutputData%Cpmin)) then allocate(DstOutputData%Cpmin(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2050,7 +2050,7 @@ subroutine BEMT_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(BEMT_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BEMT_UnPackOutput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/aerodyn/src/DBEMT_Types.f90 b/modules/aerodyn/src/DBEMT_Types.f90 index 57e4bea283..967e43cf06 100644 --- a/modules/aerodyn/src/DBEMT_Types.f90 +++ b/modules/aerodyn/src/DBEMT_Types.f90 @@ -126,7 +126,7 @@ subroutine DBEMT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DBEMT_CopyInitInput' ErrStat = ErrID_None @@ -136,8 +136,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%rLocal, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%rLocal) + UB(1:2) = ubound(SrcInitInputData%rLocal) if (.not. allocated(DstInitInputData%rLocal)) then allocate(DstInitInputData%rLocal(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -178,7 +178,7 @@ subroutine DBEMT_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(DBEMT_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackInitInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -282,16 +282,16 @@ subroutine DBEMT_CopyContState(SrcContStateData, DstContStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%element, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%element) + UB(1:2) = ubound(SrcContStateData%element) if (.not. allocated(DstContStateData%element)) then allocate(DstContStateData%element(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -313,16 +313,16 @@ subroutine DBEMT_DestroyContState(ContStateData, ErrStat, ErrMsg) type(DBEMT_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(ContStateData%element, kind=B8Ki) + LB(1:2) = lbound(ContStateData%element) + UB(1:2) = ubound(ContStateData%element) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_DestroyElementContinuousStateType(ContStateData%element(i1,i2), ErrStat2, ErrMsg2) @@ -337,14 +337,14 @@ subroutine DBEMT_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(DBEMT_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'DBEMT_PackContState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%element)) if (allocated(InData%element)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%element), ubound(InData%element)) + LB(1:2) = lbound(InData%element) + UB(1:2) = ubound(InData%element) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_PackElementContinuousStateType(RF, InData%element(i1,i2)) @@ -358,8 +358,8 @@ subroutine DBEMT_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(DBEMT_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackContState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -462,16 +462,16 @@ subroutine DBEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%areStatesInitialized, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%areStatesInitialized) + UB(1:2) = ubound(SrcOtherStateData%areStatesInitialized) if (.not. allocated(DstOtherStateData%areStatesInitialized)) then allocate(DstOtherStateData%areStatesInitialized(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -484,8 +484,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%n, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%n) + UB(1:2) = ubound(SrcOtherStateData%n) if (.not. allocated(DstOtherStateData%n)) then allocate(DstOtherStateData%n(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -495,8 +495,8 @@ subroutine DBEMT_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, end if DstOtherStateData%n = SrcOtherStateData%n end if - LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) 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) @@ -508,8 +508,8 @@ subroutine DBEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(DBEMT_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_DestroyOtherState' @@ -521,8 +521,8 @@ subroutine DBEMT_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) if (allocated(OtherStateData%n)) then deallocate(OtherStateData%n) end if - LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call DBEMT_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -533,15 +533,15 @@ subroutine DBEMT_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(DBEMT_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'DBEMT_PackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%areStatesInitialized) call RegPack(RF, InData%tau1) call RegPack(RF, InData%tau2) call RegPackAlloc(RF, InData%n) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call DBEMT_PackContState(RF, InData%xdot(i1)) end do @@ -552,8 +552,8 @@ subroutine DBEMT_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(DBEMT_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -561,8 +561,8 @@ subroutine DBEMT_UnPackOtherState(RF, OutData) call RegUnpack(RF, OutData%tau1); if (RegCheckErr(RF, RoutineName)) return call RegUnpack(RF, OutData%tau2); if (RegCheckErr(RF, RoutineName)) return call RegUnpackAlloc(RF, OutData%n); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call DBEMT_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do @@ -612,7 +612,7 @@ subroutine DBEMT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'DBEMT_CopyParam' ErrStat = ErrID_None @@ -624,8 +624,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%spanRatio, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%spanRatio) + UB(1:2) = ubound(SrcParamData%spanRatio) if (.not. allocated(DstParamData%spanRatio)) then allocate(DstParamData%spanRatio(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -670,7 +670,7 @@ subroutine DBEMT_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(DBEMT_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -731,8 +731,8 @@ subroutine DBEMT_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'DBEMT_CopyInput' @@ -742,8 +742,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%element, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%element) + UB(1:2) = ubound(SrcInputData%element) if (.not. allocated(DstInputData%element)) then allocate(DstInputData%element(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -765,16 +765,16 @@ subroutine DBEMT_DestroyInput(InputData, ErrStat, ErrMsg) type(DBEMT_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(InputData%element, kind=B8Ki) + LB(1:2) = lbound(InputData%element) + UB(1:2) = ubound(InputData%element) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_DestroyElementInputType(InputData%element(i1,i2), ErrStat2, ErrMsg2) @@ -789,17 +789,17 @@ subroutine DBEMT_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(DBEMT_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'DBEMT_PackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%AxInd_disk) call RegPack(RF, InData%Un_disk) call RegPack(RF, InData%R_disk) call RegPack(RF, allocated(InData%element)) if (allocated(InData%element)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%element), ubound(InData%element)) + LB(1:2) = lbound(InData%element) + UB(1:2) = ubound(InData%element) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call DBEMT_PackElementInputType(RF, InData%element(i1,i2)) @@ -813,8 +813,8 @@ subroutine DBEMT_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(DBEMT_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -844,14 +844,14 @@ subroutine DBEMT_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%vind, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%vind) + UB(1:3) = ubound(SrcOutputData%vind) 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 @@ -888,7 +888,7 @@ subroutine DBEMT_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(DBEMT_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'DBEMT_UnPackOutput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1158,13 +1158,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, 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) + do i02 = lbound(u_out%element,2),ubound(u_out%element,2) + do i01 = lbound(u_out%element,1),ubound(u_out%element,1) 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, 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) + do i02 = lbound(u_out%element,2),ubound(u_out%element,2) + do i01 = lbound(u_out%element,1),ubound(u_out%element,1) u_out%element(i01,i02)%spanRatio = a1*u1%element(i01,i02)%spanRatio + a2*u2%element(i01,i02)%spanRatio END DO END DO @@ -1232,13 +1232,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, 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) + do i02 = lbound(u_out%element,2),ubound(u_out%element,2) + do i01 = lbound(u_out%element,1),ubound(u_out%element,1) 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, 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) + do i02 = lbound(u_out%element,2),ubound(u_out%element,2) + do i01 = lbound(u_out%element,1),ubound(u_out%element,1) 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 45b4b0e841..caad8c1935 100644 --- a/modules/aerodyn/src/FVW_Types.f90 +++ b/modules/aerodyn/src/FVW_Types.f90 @@ -360,7 +360,7 @@ subroutine FVW_CopyGridOutType(SrcGridOutTypeData, DstGridOutTypeData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FVW_CopyGridOutType' ErrStat = ErrID_None @@ -380,8 +380,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, kind=B8Ki) - UB(1:4) = ubound(SrcGridOutTypeData%uGrid, kind=B8Ki) + LB(1:4) = lbound(SrcGridOutTypeData%uGrid) + UB(1:4) = ubound(SrcGridOutTypeData%uGrid) 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 @@ -392,8 +392,8 @@ subroutine FVW_CopyGridOutType(SrcGridOutTypeData, DstGridOutTypeData, CtrlCode, DstGridOutTypeData%uGrid = SrcGridOutTypeData%uGrid end if if (allocated(SrcGridOutTypeData%omGrid)) then - LB(1:4) = lbound(SrcGridOutTypeData%omGrid, kind=B8Ki) - UB(1:4) = ubound(SrcGridOutTypeData%omGrid, kind=B8Ki) + LB(1:4) = lbound(SrcGridOutTypeData%omGrid) + UB(1:4) = ubound(SrcGridOutTypeData%omGrid) 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 @@ -450,7 +450,7 @@ subroutine FVW_UnPackGridOutType(RF, OutData) type(RegFile), intent(inout) :: RF type(GridOutType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackGridOutType' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -479,14 +479,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcT_SgmtData%Points, kind=B8Ki) + LB(1:2) = lbound(SrcT_SgmtData%Points) + UB(1:2) = ubound(SrcT_SgmtData%Points) 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 @@ -497,8 +497,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, kind=B8Ki) - UB(1:2) = ubound(SrcT_SgmtData%Connct, kind=B8Ki) + LB(1:2) = lbound(SrcT_SgmtData%Connct) + UB(1:2) = ubound(SrcT_SgmtData%Connct) 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 @@ -509,8 +509,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, kind=B8Ki) - UB(1:1) = ubound(SrcT_SgmtData%Gamma, kind=B8Ki) + LB(1:1) = lbound(SrcT_SgmtData%Gamma) + UB(1:1) = ubound(SrcT_SgmtData%Gamma) if (.not. allocated(DstT_SgmtData%Gamma)) then allocate(DstT_SgmtData%Gamma(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -521,8 +521,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, kind=B8Ki) - UB(1:1) = ubound(SrcT_SgmtData%Epsilon, kind=B8Ki) + LB(1:1) = lbound(SrcT_SgmtData%Epsilon) + UB(1:1) = ubound(SrcT_SgmtData%Epsilon) if (.not. allocated(DstT_SgmtData%Epsilon)) then allocate(DstT_SgmtData%Epsilon(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -577,7 +577,7 @@ subroutine FVW_UnPackT_Sgmt(RF, OutData) type(RegFile), intent(inout) :: RF type(T_Sgmt), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackT_Sgmt' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -596,14 +596,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcT_PartData%P, kind=B8Ki) + LB(1:2) = lbound(SrcT_PartData%P) + UB(1:2) = ubound(SrcT_PartData%P) 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 @@ -614,8 +614,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, kind=B8Ki) - UB(1:2) = ubound(SrcT_PartData%Alpha, kind=B8Ki) + LB(1:2) = lbound(SrcT_PartData%Alpha) + UB(1:2) = ubound(SrcT_PartData%Alpha) 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 @@ -626,8 +626,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, kind=B8Ki) - UB(1:1) = ubound(SrcT_PartData%RegParam, kind=B8Ki) + LB(1:1) = lbound(SrcT_PartData%RegParam) + UB(1:1) = ubound(SrcT_PartData%RegParam) if (.not. allocated(DstT_PartData%RegParam)) then allocate(DstT_PartData%RegParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -676,7 +676,7 @@ subroutine FVW_UnPackT_Part(RF, OutData) type(RegFile), intent(inout) :: RF type(T_Part), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackT_Part' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -693,14 +693,14 @@ subroutine FVW_CopyWng_ParameterType(SrcWng_ParameterTypeData, DstWng_ParameterT integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_LL, kind=B8Ki) + LB(1:1) = lbound(SrcWng_ParameterTypeData%chord_LL) + UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_LL) if (.not. allocated(DstWng_ParameterTypeData%chord_LL)) then allocate(DstWng_ParameterTypeData%chord_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -711,8 +711,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_CP, kind=B8Ki) + LB(1:1) = lbound(SrcWng_ParameterTypeData%chord_CP) + UB(1:1) = ubound(SrcWng_ParameterTypeData%chord_CP) if (.not. allocated(DstWng_ParameterTypeData%chord_CP)) then allocate(DstWng_ParameterTypeData%chord_CP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -723,8 +723,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_ParameterTypeData%s_LL, kind=B8Ki) + LB(1:1) = lbound(SrcWng_ParameterTypeData%s_LL) + UB(1:1) = ubound(SrcWng_ParameterTypeData%s_LL) if (.not. allocated(DstWng_ParameterTypeData%s_LL)) then allocate(DstWng_ParameterTypeData%s_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -735,8 +735,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_ParameterTypeData%s_CP, kind=B8Ki) + LB(1:1) = lbound(SrcWng_ParameterTypeData%s_CP) + UB(1:1) = ubound(SrcWng_ParameterTypeData%s_CP) if (.not. allocated(DstWng_ParameterTypeData%s_CP)) then allocate(DstWng_ParameterTypeData%s_CP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -748,8 +748,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_ParameterTypeData%AFindx, kind=B8Ki) + LB(1:2) = lbound(SrcWng_ParameterTypeData%AFindx) + UB(1:2) = ubound(SrcWng_ParameterTypeData%AFindx) 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 @@ -761,8 +761,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_ParameterTypeData%PrescribedCirculation, kind=B8Ki) + LB(1:1) = lbound(SrcWng_ParameterTypeData%PrescribedCirculation) + UB(1:1) = ubound(SrcWng_ParameterTypeData%PrescribedCirculation) if (.not. allocated(DstWng_ParameterTypeData%PrescribedCirculation)) then allocate(DstWng_ParameterTypeData%PrescribedCirculation(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -821,7 +821,7 @@ subroutine FVW_UnPackWng_ParameterType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_ParameterType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -841,8 +841,8 @@ subroutine FVW_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyParam' @@ -851,8 +851,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%W, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%W) + UB(1:1) = ubound(SrcParamData%W) if (.not. allocated(DstParamData%W)) then allocate(DstParamData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -867,8 +867,8 @@ subroutine FVW_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%Bld2Wings)) then - LB(1:2) = lbound(SrcParamData%Bld2Wings, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Bld2Wings, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Bld2Wings) + UB(1:2) = ubound(SrcParamData%Bld2Wings) if (.not. allocated(DstParamData%Bld2Wings)) then allocate(DstParamData%Bld2Wings(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -929,16 +929,16 @@ subroutine FVW_DestroyParam(ParamData, ErrStat, ErrMsg) type(FVW_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ParamData%W, kind=B8Ki) + LB(1:1) = lbound(ParamData%W) + UB(1:1) = ubound(ParamData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_ParameterType(ParamData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -954,16 +954,16 @@ subroutine FVW_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%nRotors) call RegPack(RF, InData%nWings) call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_ParameterType(RF, InData%W(i1)) end do @@ -1021,8 +1021,8 @@ subroutine FVW_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1095,14 +1095,14 @@ subroutine FVW_CopyWng_ContinuousStateType(SrcWng_ContinuousStateTypeData, DstWn integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_NW, kind=B8Ki) + LB(1:2) = lbound(SrcWng_ContinuousStateTypeData%Gamma_NW) + UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_NW) 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 @@ -1113,8 +1113,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_FW, kind=B8Ki) + LB(1:2) = lbound(SrcWng_ContinuousStateTypeData%Gamma_FW) + UB(1:2) = ubound(SrcWng_ContinuousStateTypeData%Gamma_FW) 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 @@ -1125,8 +1125,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_NW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%Eps_NW) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_NW) 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 @@ -1137,8 +1137,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_FW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%Eps_FW) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%Eps_FW) 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 @@ -1149,8 +1149,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_NW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%r_NW) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_NW) 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 @@ -1161,8 +1161,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_FW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_ContinuousStateTypeData%r_FW) + UB(1:3) = ubound(SrcWng_ContinuousStateTypeData%r_FW) 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 @@ -1219,7 +1219,7 @@ subroutine FVW_UnPackWng_ContinuousStateType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_ContinuousStateType' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1237,16 +1237,16 @@ subroutine FVW_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%W, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%W) + UB(1:1) = ubound(SrcContStateData%W) if (.not. allocated(DstContStateData%W)) then allocate(DstContStateData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1261,8 +1261,8 @@ subroutine FVW_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt end do end if if (allocated(SrcContStateData%UA)) then - LB(1:1) = lbound(SrcContStateData%UA, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%UA, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%UA) + UB(1:1) = ubound(SrcContStateData%UA) if (.not. allocated(DstContStateData%UA)) then allocate(DstContStateData%UA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1282,16 +1282,16 @@ subroutine FVW_DestroyContState(ContStateData, ErrStat, ErrMsg) type(FVW_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ContStateData%W, kind=B8Ki) + LB(1:1) = lbound(ContStateData%W) + UB(1:1) = ubound(ContStateData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_ContinuousStateType(ContStateData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1299,8 +1299,8 @@ subroutine FVW_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%W) end if if (allocated(ContStateData%UA)) then - LB(1:1) = lbound(ContStateData%UA, kind=B8Ki) - UB(1:1) = ubound(ContStateData%UA, kind=B8Ki) + LB(1:1) = lbound(ContStateData%UA) + UB(1:1) = ubound(ContStateData%UA) do i1 = LB(1), UB(1) call UA_DestroyContState(ContStateData%UA(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1313,23 +1313,23 @@ subroutine FVW_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_ContinuousStateType(RF, InData%W(i1)) end do end if call RegPack(RF, allocated(InData%UA)) if (allocated(InData%UA)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%UA), ubound(InData%UA)) + LB(1:1) = lbound(InData%UA) + UB(1:1) = ubound(InData%UA) do i1 = LB(1), UB(1) call UA_PackContState(RF, InData%UA(i1)) end do @@ -1341,8 +1341,8 @@ subroutine FVW_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1380,14 +1380,14 @@ subroutine FVW_CopyWng_OutputType(SrcWng_OutputTypeData, DstWng_OutputTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_OutputTypeData%Vind, kind=B8Ki) + LB(1:2) = lbound(SrcWng_OutputTypeData%Vind) + UB(1:2) = ubound(SrcWng_OutputTypeData%Vind) 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 @@ -1424,7 +1424,7 @@ subroutine FVW_UnPackWng_OutputType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_OutputType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1437,16 +1437,16 @@ subroutine FVW_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%W, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%W) + UB(1:1) = ubound(SrcOutputData%W) if (.not. allocated(DstOutputData%W)) then allocate(DstOutputData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1466,16 +1466,16 @@ subroutine FVW_DestroyOutput(OutputData, ErrStat, ErrMsg) type(FVW_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%W, kind=B8Ki) + LB(1:1) = lbound(OutputData%W) + UB(1:1) = ubound(OutputData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_OutputType(OutputData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1488,14 +1488,14 @@ subroutine FVW_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_OutputType(RF, InData%W(i1)) end do @@ -1507,8 +1507,8 @@ subroutine FVW_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1533,16 +1533,16 @@ subroutine FVW_CopyWng_MiscVarType(SrcWng_MiscVarTypeData, DstWng_MiscVarTypeDat 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%LE, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%LE) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%LE) 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 @@ -1553,8 +1553,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%TE, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%TE) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%TE) 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 @@ -1565,8 +1565,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%r_LL, kind=B8Ki) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%r_LL) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%r_LL) 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 @@ -1577,8 +1577,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%CP, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%CP) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%CP) 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 @@ -1589,8 +1589,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Tang, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Tang) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Tang) 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 @@ -1601,8 +1601,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Norm, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Norm) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Norm) 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 @@ -1613,8 +1613,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Orth, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Orth) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Orth) 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 @@ -1625,8 +1625,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%dl, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%dl) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%dl) 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 @@ -1637,8 +1637,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%Area, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%Area) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%Area) if (.not. allocated(DstWng_MiscVarTypeData%Area)) then allocate(DstWng_MiscVarTypeData%Area(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1649,8 +1649,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%diag_LL, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%diag_LL) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%diag_LL) if (.not. allocated(DstWng_MiscVarTypeData%diag_LL)) then allocate(DstWng_MiscVarTypeData%diag_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1661,8 +1661,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_CP, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vind_CP) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_CP) 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 @@ -1673,8 +1673,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vtot_CP, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vtot_CP) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vtot_CP) 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 @@ -1685,8 +1685,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vstr_CP, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vstr_CP) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vstr_CP) 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 @@ -1697,8 +1697,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vwnd_CP, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vwnd_CP) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vwnd_CP) 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 @@ -1709,8 +1709,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_NW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vwnd_NW) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_NW) 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 @@ -1721,8 +1721,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_FW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vwnd_FW) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vwnd_FW) 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 @@ -1733,8 +1733,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_NW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vind_NW) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_NW) 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 @@ -1745,8 +1745,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, kind=B8Ki) - UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_FW, kind=B8Ki) + LB(1:3) = lbound(SrcWng_MiscVarTypeData%Vind_FW) + UB(1:3) = ubound(SrcWng_MiscVarTypeData%Vind_FW) 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 @@ -1757,8 +1757,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%PitchAndTwist, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%PitchAndTwist) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%PitchAndTwist) if (.not. allocated(DstWng_MiscVarTypeData%PitchAndTwist)) then allocate(DstWng_MiscVarTypeData%PitchAndTwist(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1771,8 +1771,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%alpha_LL, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%alpha_LL) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%alpha_LL) if (.not. allocated(DstWng_MiscVarTypeData%alpha_LL)) then allocate(DstWng_MiscVarTypeData%alpha_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1783,8 +1783,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%Vreln_LL, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%Vreln_LL) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%Vreln_LL) if (.not. allocated(DstWng_MiscVarTypeData%Vreln_LL)) then allocate(DstWng_MiscVarTypeData%Vreln_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1795,8 +1795,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%u_UA, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%u_UA) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%u_UA) 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 @@ -1822,8 +1822,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_LL, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%Vind_LL) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%Vind_LL) 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 @@ -1834,8 +1834,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_AxInd, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_AxInd) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_AxInd) if (.not. allocated(DstWng_MiscVarTypeData%BN_AxInd)) then allocate(DstWng_MiscVarTypeData%BN_AxInd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1846,8 +1846,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_TanInd, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_TanInd) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_TanInd) if (.not. allocated(DstWng_MiscVarTypeData%BN_TanInd)) then allocate(DstWng_MiscVarTypeData%BN_TanInd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1858,8 +1858,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Vrel, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Vrel) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Vrel) if (.not. allocated(DstWng_MiscVarTypeData%BN_Vrel)) then allocate(DstWng_MiscVarTypeData%BN_Vrel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1870,8 +1870,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_alpha, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_alpha) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_alpha) if (.not. allocated(DstWng_MiscVarTypeData%BN_alpha)) then allocate(DstWng_MiscVarTypeData%BN_alpha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1882,8 +1882,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_phi, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_phi) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_phi) if (.not. allocated(DstWng_MiscVarTypeData%BN_phi)) then allocate(DstWng_MiscVarTypeData%BN_phi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1894,8 +1894,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Re, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Re) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Re) if (.not. allocated(DstWng_MiscVarTypeData%BN_Re)) then allocate(DstWng_MiscVarTypeData%BN_Re(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1906,8 +1906,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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_MiscVarTypeData%BN_URelWind_s, kind=B8Ki) + LB(1:2) = lbound(SrcWng_MiscVarTypeData%BN_URelWind_s) + UB(1:2) = ubound(SrcWng_MiscVarTypeData%BN_URelWind_s) 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 @@ -1918,8 +1918,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl_Static, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cl_Static) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl_Static) 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 @@ -1930,8 +1930,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd_Static, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cd_Static) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd_Static) 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 @@ -1942,8 +1942,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm_Static, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cm_Static) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm_Static) 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 @@ -1954,8 +1954,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cpmin, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cpmin) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cpmin) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cpmin)) then allocate(DstWng_MiscVarTypeData%BN_Cpmin(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1966,8 +1966,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cl) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cl) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cl)) then allocate(DstWng_MiscVarTypeData%BN_Cl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1978,8 +1978,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cd) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cd) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cd)) then allocate(DstWng_MiscVarTypeData%BN_Cd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1990,8 +1990,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cm) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cm) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cm)) then allocate(DstWng_MiscVarTypeData%BN_Cm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2002,8 +2002,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cx, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cx) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cx) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cx)) then allocate(DstWng_MiscVarTypeData%BN_Cx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2014,8 +2014,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cy, kind=B8Ki) + LB(1:1) = lbound(SrcWng_MiscVarTypeData%BN_Cy) + UB(1:1) = ubound(SrcWng_MiscVarTypeData%BN_Cy) if (.not. allocated(DstWng_MiscVarTypeData%BN_Cy)) then allocate(DstWng_MiscVarTypeData%BN_Cy(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2031,8 +2031,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(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_DestroyWng_MiscVarType' @@ -2102,8 +2102,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, kind=B8Ki) - UB(1:2) = ubound(Wng_MiscVarTypeData%u_UA, kind=B8Ki) + LB(1:2) = lbound(Wng_MiscVarTypeData%u_UA) + UB(1:2) = ubound(Wng_MiscVarTypeData%u_UA) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_DestroyInput(Wng_MiscVarTypeData%u_UA(i1,i2), ErrStat2, ErrMsg2) @@ -2175,8 +2175,8 @@ subroutine FVW_PackWng_MiscVarType(RF, Indata) type(RegFile), intent(inout) :: RF type(Wng_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackWng_MiscVarType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%LE) call RegPackAlloc(RF, InData%TE) @@ -2203,9 +2203,9 @@ subroutine FVW_PackWng_MiscVarType(RF, Indata) call RegPackAlloc(RF, InData%Vreln_LL) call RegPack(RF, allocated(InData%u_UA)) if (allocated(InData%u_UA)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_UA), ubound(InData%u_UA)) + LB(1:2) = lbound(InData%u_UA) + UB(1:2) = ubound(InData%u_UA) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_PackInput(RF, InData%u_UA(i1,i2)) @@ -2239,8 +2239,8 @@ subroutine FVW_UnPackWng_MiscVarType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_MiscVarType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2310,16 +2310,16 @@ subroutine FVW_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%W, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%W) + UB(1:1) = ubound(SrcMiscData%W) if (.not. allocated(DstMiscData%W)) then allocate(DstMiscData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2340,8 +2340,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%r_wind, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%r_wind) + UB(1:2) = ubound(SrcMiscData%r_wind) 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 @@ -2372,8 +2372,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%CPs, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%CPs) + UB(1:2) = ubound(SrcMiscData%CPs) if (.not. allocated(DstMiscData%CPs)) then allocate(DstMiscData%CPs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2384,8 +2384,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%Uind, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%Uind) + UB(1:2) = ubound(SrcMiscData%Uind) if (.not. allocated(DstMiscData%Uind)) then allocate(DstMiscData%Uind(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2396,8 +2396,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%GridOutputs, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%GridOutputs) + UB(1:1) = ubound(SrcMiscData%GridOutputs) if (.not. allocated(DstMiscData%GridOutputs)) then allocate(DstMiscData%GridOutputs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2418,16 +2418,16 @@ subroutine FVW_DestroyMisc(MiscData, ErrStat, ErrMsg) type(FVW_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(MiscData%W, kind=B8Ki) + LB(1:1) = lbound(MiscData%W) + UB(1:1) = ubound(MiscData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_MiscVarType(MiscData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2454,8 +2454,8 @@ subroutine FVW_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%Uind) end if if (allocated(MiscData%GridOutputs)) then - LB(1:1) = lbound(MiscData%GridOutputs, kind=B8Ki) - UB(1:1) = ubound(MiscData%GridOutputs, kind=B8Ki) + LB(1:1) = lbound(MiscData%GridOutputs) + UB(1:1) = ubound(MiscData%GridOutputs) do i1 = LB(1), UB(1) call FVW_DestroyGridOutType(MiscData%GridOutputs(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2468,14 +2468,14 @@ subroutine FVW_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_MiscVarType(RF, InData%W(i1)) end do @@ -2501,9 +2501,9 @@ subroutine FVW_PackMisc(RF, Indata) call RegPackAlloc(RF, InData%Uind) call RegPack(RF, allocated(InData%GridOutputs)) if (allocated(InData%GridOutputs)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%GridOutputs), ubound(InData%GridOutputs)) + LB(1:1) = lbound(InData%GridOutputs) + UB(1:1) = ubound(InData%GridOutputs) do i1 = LB(1), UB(1) call FVW_PackGridOutType(RF, InData%GridOutputs(i1)) end do @@ -2516,8 +2516,8 @@ subroutine FVW_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2616,14 +2616,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_InputTypeData%Vwnd_LL, kind=B8Ki) + LB(1:2) = lbound(SrcWng_InputTypeData%Vwnd_LL) + UB(1:2) = ubound(SrcWng_InputTypeData%Vwnd_LL) 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 @@ -2634,8 +2634,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_InputTypeData%omega_z, kind=B8Ki) + LB(1:1) = lbound(SrcWng_InputTypeData%omega_z) + UB(1:1) = ubound(SrcWng_InputTypeData%omega_z) if (.not. allocated(DstWng_InputTypeData%omega_z)) then allocate(DstWng_InputTypeData%omega_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2676,7 +2676,7 @@ subroutine FVW_UnPackWng_InputType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_InputType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2690,16 +2690,16 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%rotors, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%rotors) + UB(1:1) = ubound(SrcInputData%rotors) if (.not. allocated(DstInputData%rotors)) then allocate(DstInputData%rotors(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2714,8 +2714,8 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%W)) then - LB(1:1) = lbound(SrcInputData%W, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%W, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%W) + UB(1:1) = ubound(SrcInputData%W) if (.not. allocated(DstInputData%W)) then allocate(DstInputData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2730,8 +2730,8 @@ subroutine FVW_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%WingsMesh)) then - LB(1:1) = lbound(SrcInputData%WingsMesh, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%WingsMesh, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%WingsMesh) + UB(1:1) = ubound(SrcInputData%WingsMesh) if (.not. allocated(DstInputData%WingsMesh)) then allocate(DstInputData%WingsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2746,8 +2746,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%V_wind, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%V_wind) + UB(1:2) = ubound(SrcInputData%V_wind) 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 @@ -2763,16 +2763,16 @@ subroutine FVW_DestroyInput(InputData, ErrStat, ErrMsg) type(FVW_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InputData%rotors, kind=B8Ki) + LB(1:1) = lbound(InputData%rotors) + UB(1:1) = ubound(InputData%rotors) do i1 = LB(1), UB(1) call FVW_DestroyRot_InputType(InputData%rotors(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2780,8 +2780,8 @@ subroutine FVW_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%rotors) end if if (allocated(InputData%W)) then - LB(1:1) = lbound(InputData%W, kind=B8Ki) - UB(1:1) = ubound(InputData%W, kind=B8Ki) + LB(1:1) = lbound(InputData%W) + UB(1:1) = ubound(InputData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_InputType(InputData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2789,8 +2789,8 @@ subroutine FVW_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%W) end if if (allocated(InputData%WingsMesh)) then - LB(1:1) = lbound(InputData%WingsMesh, kind=B8Ki) - UB(1:1) = ubound(InputData%WingsMesh, kind=B8Ki) + LB(1:1) = lbound(InputData%WingsMesh) + UB(1:1) = ubound(InputData%WingsMesh) do i1 = LB(1), UB(1) call MeshDestroy( InputData%WingsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2806,32 +2806,32 @@ subroutine FVW_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%rotors)) if (allocated(InData%rotors)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%rotors), ubound(InData%rotors)) + LB(1:1) = lbound(InData%rotors) + UB(1:1) = ubound(InData%rotors) do i1 = LB(1), UB(1) call FVW_PackRot_InputType(RF, InData%rotors(i1)) end do end if call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_InputType(RF, InData%W(i1)) end do end if call RegPack(RF, allocated(InData%WingsMesh)) if (allocated(InData%WingsMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WingsMesh), ubound(InData%WingsMesh)) + LB(1:1) = lbound(InData%WingsMesh) + UB(1:1) = ubound(InData%WingsMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%WingsMesh(i1)) end do @@ -2844,8 +2844,8 @@ subroutine FVW_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2897,8 +2897,8 @@ subroutine FVW_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyDiscState' @@ -2906,8 +2906,8 @@ subroutine FVW_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSt ErrMsg = '' DstDiscStateData%Dummy = SrcDiscStateData%Dummy if (allocated(SrcDiscStateData%UA)) then - LB(1:1) = lbound(SrcDiscStateData%UA, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%UA, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%UA) + UB(1:1) = ubound(SrcDiscStateData%UA) if (.not. allocated(DstDiscStateData%UA)) then allocate(DstDiscStateData%UA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2927,16 +2927,16 @@ subroutine FVW_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(FVW_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%UA, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%UA) + UB(1:1) = ubound(DiscStateData%UA) do i1 = LB(1), UB(1) call UA_DestroyDiscState(DiscStateData%UA(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2949,15 +2949,15 @@ subroutine FVW_PackDiscState(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%Dummy) call RegPack(RF, allocated(InData%UA)) if (allocated(InData%UA)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%UA), ubound(InData%UA)) + LB(1:1) = lbound(InData%UA) + UB(1:1) = ubound(InData%UA) do i1 = LB(1), UB(1) call UA_PackDiscState(RF, InData%UA(i1)) end do @@ -2969,8 +2969,8 @@ subroutine FVW_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2996,14 +2996,14 @@ subroutine FVW_CopyWng_ConstraintStateType(SrcWng_ConstraintStateTypeData, DstWn integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_ConstraintStateTypeData%Gamma_LL, kind=B8Ki) + LB(1:1) = lbound(SrcWng_ConstraintStateTypeData%Gamma_LL) + UB(1:1) = ubound(SrcWng_ConstraintStateTypeData%Gamma_LL) if (.not. allocated(DstWng_ConstraintStateTypeData%Gamma_LL)) then allocate(DstWng_ConstraintStateTypeData%Gamma_LL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3040,7 +3040,7 @@ subroutine FVW_UnPackWng_ConstraintStateType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_ConstraintStateType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3053,16 +3053,16 @@ subroutine FVW_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%W, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%W) + UB(1:1) = ubound(SrcConstrStateData%W) if (.not. allocated(DstConstrStateData%W)) then allocate(DstConstrStateData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3083,16 +3083,16 @@ subroutine FVW_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(FVW_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%W, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%W) + UB(1:1) = ubound(ConstrStateData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_ConstraintStateType(ConstrStateData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3105,14 +3105,14 @@ subroutine FVW_PackConstrState(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_ConstraintStateType(RF, InData%W(i1)) end do @@ -3125,8 +3125,8 @@ subroutine FVW_UnPackConstrState(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3152,8 +3152,8 @@ subroutine FVW_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyOtherState' @@ -3161,8 +3161,8 @@ subroutine FVW_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er ErrMsg = '' DstOtherStateData%Dummy = SrcOtherStateData%Dummy if (allocated(SrcOtherStateData%UA)) then - LB(1:1) = lbound(SrcOtherStateData%UA, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%UA, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%UA) + UB(1:1) = ubound(SrcOtherStateData%UA) if (.not. allocated(DstOtherStateData%UA)) then allocate(DstOtherStateData%UA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3182,16 +3182,16 @@ subroutine FVW_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(FVW_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%UA, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%UA) + UB(1:1) = ubound(OtherStateData%UA) do i1 = LB(1), UB(1) call UA_DestroyOtherState(OtherStateData%UA(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3204,15 +3204,15 @@ subroutine FVW_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%Dummy) call RegPack(RF, allocated(InData%UA)) if (allocated(InData%UA)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%UA), ubound(InData%UA)) + LB(1:1) = lbound(InData%UA) + UB(1:1) = ubound(InData%UA) do i1 = LB(1), UB(1) call UA_PackOtherState(RF, InData%UA(i1)) end do @@ -3224,8 +3224,8 @@ subroutine FVW_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3251,14 +3251,14 @@ subroutine FVW_CopyWng_InitInputType(SrcWng_InitInputTypeData, DstWng_InitInputT integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcWng_InitInputTypeData%AFindx, kind=B8Ki) + LB(1:2) = lbound(SrcWng_InitInputTypeData%AFindx) + UB(1:2) = ubound(SrcWng_InitInputTypeData%AFindx) 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 @@ -3269,8 +3269,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_InitInputTypeData%chord, kind=B8Ki) + LB(1:1) = lbound(SrcWng_InitInputTypeData%chord) + UB(1:1) = ubound(SrcWng_InitInputTypeData%chord) if (.not. allocated(DstWng_InitInputTypeData%chord)) then allocate(DstWng_InitInputTypeData%chord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3281,8 +3281,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, kind=B8Ki) - UB(1:1) = ubound(SrcWng_InitInputTypeData%RElm, kind=B8Ki) + LB(1:1) = lbound(SrcWng_InitInputTypeData%RElm) + UB(1:1) = ubound(SrcWng_InitInputTypeData%RElm) if (.not. allocated(DstWng_InitInputTypeData%RElm)) then allocate(DstWng_InitInputTypeData%RElm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3333,7 +3333,7 @@ subroutine FVW_UnPackWng_InitInputType(RF, OutData) type(RegFile), intent(inout) :: RF type(Wng_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackWng_InitInputType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3351,8 +3351,8 @@ subroutine FVW_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FVW_CopyInitInput' @@ -3361,8 +3361,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%W, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%W) + UB(1:1) = ubound(SrcInitInputData%W) if (.not. allocated(DstInitInputData%W)) then allocate(DstInitInputData%W(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3377,8 +3377,8 @@ subroutine FVW_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt end do end if if (allocated(SrcInitInputData%WingsMesh)) then - LB(1:1) = lbound(SrcInitInputData%WingsMesh, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WingsMesh, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WingsMesh) + UB(1:1) = ubound(SrcInitInputData%WingsMesh) if (.not. allocated(DstInitInputData%WingsMesh)) then allocate(DstInitInputData%WingsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3407,16 +3407,16 @@ subroutine FVW_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(FVW_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InitInputData%W, kind=B8Ki) + LB(1:1) = lbound(InitInputData%W) + UB(1:1) = ubound(InitInputData%W) do i1 = LB(1), UB(1) call FVW_DestroyWng_InitInputType(InitInputData%W(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3424,8 +3424,8 @@ subroutine FVW_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%W) end if if (allocated(InitInputData%WingsMesh)) then - LB(1:1) = lbound(InitInputData%WingsMesh, kind=B8Ki) - UB(1:1) = ubound(InitInputData%WingsMesh, kind=B8Ki) + LB(1:1) = lbound(InitInputData%WingsMesh) + UB(1:1) = ubound(InitInputData%WingsMesh) do i1 = LB(1), UB(1) call MeshDestroy( InitInputData%WingsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3440,25 +3440,25 @@ subroutine FVW_PackInitInput(RF, Indata) type(RegFile), intent(inout) :: RF type(FVW_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'FVW_PackInitInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%FVWFileName) call RegPack(RF, InData%RootName) call RegPack(RF, allocated(InData%W)) if (allocated(InData%W)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%W), ubound(InData%W)) + LB(1:1) = lbound(InData%W) + UB(1:1) = ubound(InData%W) do i1 = LB(1), UB(1) call FVW_PackWng_InitInputType(RF, InData%W(i1)) end do end if call RegPack(RF, allocated(InData%WingsMesh)) if (allocated(InData%WingsMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WingsMesh), ubound(InData%WingsMesh)) + LB(1:1) = lbound(InData%WingsMesh) + UB(1:1) = ubound(InData%WingsMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%WingsMesh(i1)) end do @@ -3477,8 +3477,8 @@ subroutine FVW_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(FVW_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FVW_UnPackInitInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3788,27 +3788,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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) u_out%rotors(i01)%HubOrientation = a1*u1%rotors(i01)%HubOrientation + a2*u2%rotors(i01)%HubOrientation END DO - DO i01 = LBOUND(u_out%rotors,1, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) + do i01 = lbound(u_out%W,1),ubound(u_out%W,1) 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, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) + do i01 = lbound(u_out%W,1),ubound(u_out%W,1) 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, kind=B8Ki),UBOUND(u_out%WingsMesh,1, kind=B8Ki) + do i1 = lbound(u_out%WingsMesh,1),ubound(u_out%WingsMesh,1) 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 @@ -3876,27 +3876,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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%rotors,1, kind=B8Ki) + do i01 = lbound(u_out%rotors,1),ubound(u_out%rotors,1) 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, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) + do i01 = lbound(u_out%W,1),ubound(u_out%W,1) 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, kind=B8Ki),UBOUND(u_out%W,1, kind=B8Ki) + do i01 = lbound(u_out%W,1),ubound(u_out%W,1) 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, kind=B8Ki),UBOUND(u_out%WingsMesh,1, kind=B8Ki) + do i1 = lbound(u_out%WingsMesh,1),ubound(u_out%WingsMesh,1) 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 @@ -4006,7 +4006,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, kind=B8Ki),UBOUND(y_out%W,1, kind=B8Ki) + do i01 = lbound(y_out%W,1),ubound(y_out%W,1) 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 @@ -4072,7 +4072,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, kind=B8Ki),UBOUND(y_out%W,1, kind=B8Ki) + do i01 = lbound(y_out%W,1),ubound(y_out%W,1) 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 1d46fdb26d..8f26807364 100644 --- a/modules/aerodyn/src/UnsteadyAero_Types.f90 +++ b/modules/aerodyn/src/UnsteadyAero_Types.f90 @@ -257,7 +257,7 @@ subroutine UA_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyInitInput' ErrStat = ErrID_None @@ -265,8 +265,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%c, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%c) + UB(1:2) = ubound(SrcInitInputData%c) if (.not. allocated(DstInitInputData%c)) then allocate(DstInitInputData%c(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -285,8 +285,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%UAOff_innerNode, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%UAOff_innerNode) + UB(1:1) = ubound(SrcInitInputData%UAOff_innerNode) if (.not. allocated(DstInitInputData%UAOff_innerNode)) then allocate(DstInitInputData%UAOff_innerNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -297,8 +297,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%UAOff_outerNode, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%UAOff_outerNode) + UB(1:1) = ubound(SrcInitInputData%UAOff_outerNode) if (.not. allocated(DstInitInputData%UAOff_outerNode)) then allocate(DstInitInputData%UAOff_outerNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -357,7 +357,7 @@ subroutine UA_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackInitInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -384,7 +384,7 @@ subroutine UA_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_CopyInitOutput' @@ -394,8 +394,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -406,8 +406,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -453,7 +453,7 @@ subroutine UA_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -694,16 +694,16 @@ subroutine UA_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%element, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%element) + UB(1:2) = ubound(SrcContStateData%element) if (.not. allocated(DstContStateData%element)) then allocate(DstContStateData%element(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -725,16 +725,16 @@ subroutine UA_DestroyContState(ContStateData, ErrStat, ErrMsg) type(UA_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(ContStateData%element, kind=B8Ki) + LB(1:2) = lbound(ContStateData%element) + UB(1:2) = ubound(ContStateData%element) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_DestroyElementContinuousStateType(ContStateData%element(i1,i2), ErrStat2, ErrMsg2) @@ -749,14 +749,14 @@ subroutine UA_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(UA_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'UA_PackContState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%element)) if (allocated(InData%element)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%element), ubound(InData%element)) + LB(1:2) = lbound(InData%element) + UB(1:2) = ubound(InData%element) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call UA_PackElementContinuousStateType(RF, InData%element(i1,i2)) @@ -770,8 +770,8 @@ subroutine UA_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackContState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -798,14 +798,14 @@ subroutine UA_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%alpha_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%alpha_minus1) + UB(1:2) = ubound(SrcDiscStateData%alpha_minus1) 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 @@ -816,8 +816,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%alpha_filt_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%alpha_filt_minus1) + UB(1:2) = ubound(SrcDiscStateData%alpha_filt_minus1) 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 @@ -828,8 +828,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%alpha_dot, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%alpha_dot) + UB(1:2) = ubound(SrcDiscStateData%alpha_dot) 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 @@ -840,8 +840,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%alpha_dot_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%alpha_dot_minus1) + UB(1:2) = ubound(SrcDiscStateData%alpha_dot_minus1) 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 @@ -852,8 +852,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%q_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%q_minus1) + UB(1:2) = ubound(SrcDiscStateData%q_minus1) 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 @@ -864,8 +864,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Kalpha_f_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Kalpha_f_minus1) + UB(1:2) = ubound(SrcDiscStateData%Kalpha_f_minus1) 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 @@ -876,8 +876,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Kq_f_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Kq_f_minus1) + UB(1:2) = ubound(SrcDiscStateData%Kq_f_minus1) 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 @@ -888,8 +888,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%q_f_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%q_f_minus1) + UB(1:2) = ubound(SrcDiscStateData%q_f_minus1) 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 @@ -900,8 +900,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%X1_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%X1_minus1) + UB(1:2) = ubound(SrcDiscStateData%X1_minus1) 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 @@ -912,8 +912,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%X2_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%X2_minus1) + UB(1:2) = ubound(SrcDiscStateData%X2_minus1) 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 @@ -924,8 +924,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%X3_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%X3_minus1) + UB(1:2) = ubound(SrcDiscStateData%X3_minus1) 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 @@ -936,8 +936,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%X4_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%X4_minus1) + UB(1:2) = ubound(SrcDiscStateData%X4_minus1) 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 @@ -948,8 +948,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Kprime_alpha_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Kprime_alpha_minus1) + UB(1:2) = ubound(SrcDiscStateData%Kprime_alpha_minus1) 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 @@ -960,8 +960,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Kprime_q_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Kprime_q_minus1) + UB(1:2) = ubound(SrcDiscStateData%Kprime_q_minus1) 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 @@ -972,8 +972,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Kprimeprime_q_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Kprimeprime_q_minus1) + UB(1:2) = ubound(SrcDiscStateData%Kprimeprime_q_minus1) 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 @@ -984,8 +984,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%K3prime_q_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%K3prime_q_minus1) + UB(1:2) = ubound(SrcDiscStateData%K3prime_q_minus1) 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 @@ -996,8 +996,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Dp_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Dp_minus1) + UB(1:2) = ubound(SrcDiscStateData%Dp_minus1) 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 @@ -1008,8 +1008,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Cn_pot_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Cn_pot_minus1) + UB(1:2) = ubound(SrcDiscStateData%Cn_pot_minus1) 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 @@ -1020,8 +1020,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%fprimeprime_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%fprimeprime_minus1) + UB(1:2) = ubound(SrcDiscStateData%fprimeprime_minus1) 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 @@ -1032,8 +1032,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%fprimeprime_c_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%fprimeprime_c_minus1) + UB(1:2) = ubound(SrcDiscStateData%fprimeprime_c_minus1) 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 @@ -1044,8 +1044,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%fprimeprime_m_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%fprimeprime_m_minus1) + UB(1:2) = ubound(SrcDiscStateData%fprimeprime_m_minus1) 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 @@ -1056,8 +1056,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Df_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Df_minus1) + UB(1:2) = ubound(SrcDiscStateData%Df_minus1) 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 @@ -1068,8 +1068,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Df_c_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Df_c_minus1) + UB(1:2) = ubound(SrcDiscStateData%Df_c_minus1) 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 @@ -1080,8 +1080,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Df_m_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Df_m_minus1) + UB(1:2) = ubound(SrcDiscStateData%Df_m_minus1) 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 @@ -1092,8 +1092,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Dalphaf_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Dalphaf_minus1) + UB(1:2) = ubound(SrcDiscStateData%Dalphaf_minus1) 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 @@ -1104,8 +1104,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%alphaf_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%alphaf_minus1) + UB(1:2) = ubound(SrcDiscStateData%alphaf_minus1) 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 @@ -1116,8 +1116,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%fprime_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%fprime_minus1) + UB(1:2) = ubound(SrcDiscStateData%fprime_minus1) 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 @@ -1128,8 +1128,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%fprime_c_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%fprime_c_minus1) + UB(1:2) = ubound(SrcDiscStateData%fprime_c_minus1) 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 @@ -1140,8 +1140,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%fprime_m_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%fprime_m_minus1) + UB(1:2) = ubound(SrcDiscStateData%fprime_m_minus1) 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 @@ -1152,8 +1152,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%tau_V, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%tau_V) + UB(1:2) = ubound(SrcDiscStateData%tau_V) 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 @@ -1164,8 +1164,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%tau_V_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%tau_V_minus1) + UB(1:2) = ubound(SrcDiscStateData%tau_V_minus1) 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 @@ -1176,8 +1176,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Cn_v_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Cn_v_minus1) + UB(1:2) = ubound(SrcDiscStateData%Cn_v_minus1) 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 @@ -1188,8 +1188,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%C_V_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%C_V_minus1) + UB(1:2) = ubound(SrcDiscStateData%C_V_minus1) 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 @@ -1200,8 +1200,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Cn_prime_minus1, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Cn_prime_minus1) + UB(1:2) = ubound(SrcDiscStateData%Cn_prime_minus1) 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 @@ -1370,7 +1370,7 @@ subroutine UA_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackDiscState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1454,16 +1454,16 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%FirstPass, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%FirstPass) + UB(1:2) = ubound(SrcOtherStateData%FirstPass) if (.not. allocated(DstOtherStateData%FirstPass)) then allocate(DstOtherStateData%FirstPass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1474,8 +1474,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%sigma1, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%sigma1) + UB(1:2) = ubound(SrcOtherStateData%sigma1) if (.not. allocated(DstOtherStateData%sigma1)) then allocate(DstOtherStateData%sigma1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1486,8 +1486,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%sigma1c, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%sigma1c) + UB(1:2) = ubound(SrcOtherStateData%sigma1c) if (.not. allocated(DstOtherStateData%sigma1c)) then allocate(DstOtherStateData%sigma1c(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1498,8 +1498,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%sigma1m, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%sigma1m) + UB(1:2) = ubound(SrcOtherStateData%sigma1m) if (.not. allocated(DstOtherStateData%sigma1m)) then allocate(DstOtherStateData%sigma1m(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1510,8 +1510,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%sigma3, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%sigma3) + UB(1:2) = ubound(SrcOtherStateData%sigma3) if (.not. allocated(DstOtherStateData%sigma3)) then allocate(DstOtherStateData%sigma3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1522,8 +1522,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%n, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%n) + UB(1:2) = ubound(SrcOtherStateData%n) if (.not. allocated(DstOtherStateData%n)) then allocate(DstOtherStateData%n(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1533,23 +1533,23 @@ subroutine UA_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err end if DstOtherStateData%n = SrcOtherStateData%n end if - LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xHistory, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xHistory) + UB(1:1) = ubound(SrcOtherStateData%xHistory) 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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%t_vortexBegin, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%t_vortexBegin) + UB(1:2) = ubound(SrcOtherStateData%t_vortexBegin) 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 @@ -1560,8 +1560,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%SignOfOmega, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%SignOfOmega) + UB(1:2) = ubound(SrcOtherStateData%SignOfOmega) if (.not. allocated(DstOtherStateData%SignOfOmega)) then allocate(DstOtherStateData%SignOfOmega(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1572,8 +1572,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%PositivePressure, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%PositivePressure) + UB(1:2) = ubound(SrcOtherStateData%PositivePressure) if (.not. allocated(DstOtherStateData%PositivePressure)) then allocate(DstOtherStateData%PositivePressure(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1584,8 +1584,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%vortexOn, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%vortexOn) + UB(1:2) = ubound(SrcOtherStateData%vortexOn) if (.not. allocated(DstOtherStateData%vortexOn)) then allocate(DstOtherStateData%vortexOn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1596,8 +1596,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%BelowThreshold, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%BelowThreshold) + UB(1:2) = ubound(SrcOtherStateData%BelowThreshold) if (.not. allocated(DstOtherStateData%BelowThreshold)) then allocate(DstOtherStateData%BelowThreshold(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1608,8 +1608,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%activeL, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%activeL) + UB(1:2) = ubound(SrcOtherStateData%activeL) if (.not. allocated(DstOtherStateData%activeL)) then allocate(DstOtherStateData%activeL(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1620,8 +1620,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%activeD, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%activeD) + UB(1:2) = ubound(SrcOtherStateData%activeD) if (.not. allocated(DstOtherStateData%activeD)) then allocate(DstOtherStateData%activeD(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1637,8 +1637,8 @@ subroutine UA_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(UA_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'UA_DestroyOtherState' @@ -1662,14 +1662,14 @@ subroutine UA_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) if (allocated(OtherStateData%n)) then deallocate(OtherStateData%n) end if - LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xHistory, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xHistory) + UB(1:1) = ubound(OtherStateData%xHistory) do i1 = LB(1), UB(1) call UA_DestroyContState(OtherStateData%xHistory(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1701,8 +1701,8 @@ subroutine UA_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(UA_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'UA_PackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%FirstPass) call RegPackAlloc(RF, InData%sigma1) @@ -1710,13 +1710,13 @@ subroutine UA_PackOtherState(RF, Indata) call RegPackAlloc(RF, InData%sigma1m) call RegPackAlloc(RF, InData%sigma3) call RegPackAlloc(RF, InData%n) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call UA_PackContState(RF, InData%xdot(i1)) end do - LB(1:1) = lbound(InData%xHistory, kind=B8Ki) - UB(1:1) = ubound(InData%xHistory, kind=B8Ki) + LB(1:1) = lbound(InData%xHistory) + UB(1:1) = ubound(InData%xHistory) do i1 = LB(1), UB(1) call UA_PackContState(RF, InData%xHistory(i1)) end do @@ -1734,8 +1734,8 @@ subroutine UA_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackOtherState' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1745,13 +1745,13 @@ subroutine UA_UnPackOtherState(RF, OutData) call RegUnpackAlloc(RF, OutData%sigma1m); if (RegCheckErr(RF, RoutineName)) return call RegUnpackAlloc(RF, OutData%sigma3); if (RegCheckErr(RF, RoutineName)) return call RegUnpackAlloc(RF, OutData%n); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call UA_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do - LB(1:1) = lbound(OutData%xHistory, kind=B8Ki) - UB(1:1) = ubound(OutData%xHistory, kind=B8Ki) + LB(1:1) = lbound(OutData%xHistory) + UB(1:1) = ubound(OutData%xHistory) do i1 = LB(1), UB(1) call UA_UnpackContState(RF, OutData%xHistory(i1)) ! xHistory end do @@ -1770,7 +1770,7 @@ subroutine UA_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyMisc' ErrStat = ErrID_None @@ -1779,8 +1779,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%TESF, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%TESF) + UB(1:2) = ubound(SrcMiscData%TESF) if (.not. allocated(DstMiscData%TESF)) then allocate(DstMiscData%TESF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1791,8 +1791,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%LESF, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%LESF) + UB(1:2) = ubound(SrcMiscData%LESF) if (.not. allocated(DstMiscData%LESF)) then allocate(DstMiscData%LESF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1803,8 +1803,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%VRTX, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%VRTX) + UB(1:2) = ubound(SrcMiscData%VRTX) if (.not. allocated(DstMiscData%VRTX)) then allocate(DstMiscData%VRTX(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1815,8 +1815,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%T_Sh, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%T_Sh) + UB(1:2) = ubound(SrcMiscData%T_Sh) 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 @@ -1827,8 +1827,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%BEDSEP, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%BEDSEP) + UB(1:2) = ubound(SrcMiscData%BEDSEP) if (.not. allocated(DstMiscData%BEDSEP)) then allocate(DstMiscData%BEDSEP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1839,8 +1839,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%weight, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%weight) + UB(1:2) = ubound(SrcMiscData%weight) if (.not. allocated(DstMiscData%weight)) then allocate(DstMiscData%weight(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1900,7 +1900,7 @@ subroutine UA_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackMisc' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1921,15 +1921,15 @@ subroutine UA_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%c, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%c) + UB(1:2) = ubound(SrcParamData%c) if (.not. allocated(DstParamData%c)) then allocate(DstParamData%c(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1954,8 +1954,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%UA_off_forGood, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%UA_off_forGood) + UB(1:2) = ubound(SrcParamData%UA_off_forGood) 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 @@ -1966,8 +1966,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%lin_xIndx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%lin_xIndx) + UB(1:2) = ubound(SrcParamData%lin_xIndx) 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 @@ -2033,7 +2033,7 @@ subroutine UA_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2119,7 +2119,7 @@ subroutine UA_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'UA_CopyOutput' ErrStat = ErrID_None @@ -2130,8 +2130,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2173,7 +2173,7 @@ subroutine UA_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(UA_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'UA_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/awae/src/AWAE_Types.f90 b/modules/awae/src/AWAE_Types.f90 index 8f78bf78cf..06e9a5b90a 100644 --- a/modules/awae/src/AWAE_Types.f90 +++ b/modules/awae/src/AWAE_Types.f90 @@ -260,14 +260,14 @@ subroutine AWAE_CopyHighWindGrid(SrcHighWindGridData, DstHighWindGridData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:5) = ubound(SrcHighWindGridData%data, kind=B8Ki) + LB(1:5) = lbound(SrcHighWindGridData%data) + UB(1:5) = ubound(SrcHighWindGridData%data) 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 @@ -306,7 +306,7 @@ subroutine AWAE_UnPackHighWindGrid(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_HighWindGrid), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackHighWindGrid' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -321,7 +321,7 @@ subroutine AWAE_CopyHighWindGridPtr(SrcHighWindGridPtrData, DstHighWindGridPtrDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AWAE_CopyHighWindGridPtr' ErrStat = ErrID_None @@ -353,7 +353,7 @@ subroutine AWAE_UnPackHighWindGridPtr(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_HighWindGridPtr), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackHighWindGridPtr' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -368,7 +368,7 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'AWAE_CopyInputFileType' ErrStat = ErrID_None @@ -382,8 +382,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindZ, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindZ) + UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindZ) if (.not. allocated(DstInputFileTypeData%OutDisWindZ)) then allocate(DstInputFileTypeData%OutDisWindZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -395,8 +395,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct end if DstInputFileTypeData%NOutDisWindYZ = SrcInputFileTypeData%NOutDisWindYZ if (allocated(SrcInputFileTypeData%OutDisWindX)) then - LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindX, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindX, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindX) + UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindX) if (.not. allocated(DstInputFileTypeData%OutDisWindX)) then allocate(DstInputFileTypeData%OutDisWindX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -408,8 +408,8 @@ subroutine AWAE_CopyInputFileType(SrcInputFileTypeData, DstInputFileTypeData, Ct end if DstInputFileTypeData%NOutDisWindXZ = SrcInputFileTypeData%NOutDisWindXZ if (allocated(SrcInputFileTypeData%OutDisWindY)) then - LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindY, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindY, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%OutDisWindY) + UB(1:1) = ubound(SrcInputFileTypeData%OutDisWindY) if (.not. allocated(DstInputFileTypeData%OutDisWindY)) then allocate(DstInputFileTypeData%OutDisWindY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -427,8 +427,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%X0_high, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%X0_high) + UB(1:1) = ubound(SrcInputFileTypeData%X0_high) if (.not. allocated(DstInputFileTypeData%X0_high)) then allocate(DstInputFileTypeData%X0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -439,8 +439,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%Y0_high, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%Y0_high) + UB(1:1) = ubound(SrcInputFileTypeData%Y0_high) if (.not. allocated(DstInputFileTypeData%Y0_high)) then allocate(DstInputFileTypeData%Y0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -451,8 +451,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%Z0_high, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%Z0_high) + UB(1:1) = ubound(SrcInputFileTypeData%Z0_high) if (.not. allocated(DstInputFileTypeData%Z0_high)) then allocate(DstInputFileTypeData%Z0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -463,8 +463,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%dX_high, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%dX_high) + UB(1:1) = ubound(SrcInputFileTypeData%dX_high) if (.not. allocated(DstInputFileTypeData%dX_high)) then allocate(DstInputFileTypeData%dX_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -475,8 +475,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%dY_high, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%dY_high) + UB(1:1) = ubound(SrcInputFileTypeData%dY_high) if (.not. allocated(DstInputFileTypeData%dY_high)) then allocate(DstInputFileTypeData%dY_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -487,8 +487,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileTypeData%dZ_high, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileTypeData%dZ_high) + UB(1:1) = ubound(SrcInputFileTypeData%dZ_high) if (.not. allocated(DstInputFileTypeData%dZ_high)) then allocate(DstInputFileTypeData%dZ_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -511,8 +511,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputFileTypeData%WT_Position, kind=B8Ki) + LB(1:2) = lbound(SrcInputFileTypeData%WT_Position) + UB(1:2) = ubound(SrcInputFileTypeData%WT_Position) 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 @@ -616,7 +616,7 @@ subroutine AWAE_UnPackInputFileType(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_InputFileType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInputFileType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -668,7 +668,7 @@ subroutine AWAE_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(0), UB(0) + integer(B4Ki) :: LB(0), UB(0) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyInitInput' @@ -723,7 +723,7 @@ subroutine AWAE_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInitInput' - integer(B8Ki) :: LB(0), UB(0) + integer(B4Ki) :: LB(0), UB(0) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -760,8 +760,8 @@ subroutine AWAE_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyInitOutput' @@ -771,8 +771,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%X0_high, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%X0_high) + UB(1:1) = ubound(SrcInitOutputData%X0_high) if (.not. allocated(DstInitOutputData%X0_high)) then allocate(DstInitOutputData%X0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -783,8 +783,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%Y0_high, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%Y0_high) + UB(1:1) = ubound(SrcInitOutputData%Y0_high) if (.not. allocated(DstInitOutputData%Y0_high)) then allocate(DstInitOutputData%Y0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -795,8 +795,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%Z0_high, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%Z0_high) + UB(1:1) = ubound(SrcInitOutputData%Z0_high) if (.not. allocated(DstInitOutputData%Z0_high)) then allocate(DstInitOutputData%Z0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -807,8 +807,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%dX_high, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%dX_high) + UB(1:1) = ubound(SrcInitOutputData%dX_high) if (.not. allocated(DstInitOutputData%dX_high)) then allocate(DstInitOutputData%dX_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -819,8 +819,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%dY_high, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%dY_high) + UB(1:1) = ubound(SrcInitOutputData%dY_high) if (.not. allocated(DstInitOutputData%dY_high)) then allocate(DstInitOutputData%dY_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -831,8 +831,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%dZ_high, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%dZ_high) + UB(1:1) = ubound(SrcInitOutputData%dZ_high) if (.not. allocated(DstInitOutputData%dZ_high)) then allocate(DstInitOutputData%dZ_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -855,8 +855,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%Vdist_High, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%Vdist_High) + UB(1:1) = ubound(SrcInitOutputData%Vdist_High) if (.not. allocated(DstInitOutputData%Vdist_High)) then allocate(DstInitOutputData%Vdist_High(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -876,8 +876,8 @@ subroutine AWAE_DestroyInitOutput(InitOutputData, ErrStat, ErrMsg) type(AWAE_InitOutputType), intent(inout) :: InitOutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyInitOutput' @@ -904,8 +904,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, kind=B8Ki) - UB(1:1) = ubound(InitOutputData%Vdist_High, kind=B8Ki) + LB(1:1) = lbound(InitOutputData%Vdist_High) + UB(1:1) = ubound(InitOutputData%Vdist_High) do i1 = LB(1), UB(1) call AWAE_DestroyHighWindGridPtr(InitOutputData%Vdist_High(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -918,8 +918,8 @@ subroutine AWAE_PackInitOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_InitOutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackInitOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call NWTC_Library_PackProgDesc(RF, InData%Ver) call RegPackAlloc(RF, InData%X0_high) @@ -942,9 +942,9 @@ subroutine AWAE_PackInitOutput(RF, Indata) call RegPack(RF, InData%Z0_low) call RegPack(RF, allocated(InData%Vdist_High)) if (allocated(InData%Vdist_High)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Vdist_High), ubound(InData%Vdist_High)) + LB(1:1) = lbound(InData%Vdist_High) + UB(1:1) = ubound(InData%Vdist_High) do i1 = LB(1), UB(1) call AWAE_PackHighWindGridPtr(RF, InData%Vdist_High(i1)) end do @@ -956,8 +956,8 @@ subroutine AWAE_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInitOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1001,16 +1001,16 @@ subroutine AWAE_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%IfW) + UB(1:1) = ubound(SrcContStateData%IfW) if (.not. allocated(DstContStateData%IfW)) then allocate(DstContStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1030,16 +1030,16 @@ subroutine AWAE_DestroyContState(ContStateData, ErrStat, ErrMsg) type(AWAE_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ContStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(ContStateData%IfW) + UB(1:1) = ubound(ContStateData%IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyContState(ContStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1052,14 +1052,14 @@ subroutine AWAE_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%IfW), ubound(InData%IfW)) + LB(1:1) = lbound(InData%IfW) + UB(1:1) = ubound(InData%IfW) do i1 = LB(1), UB(1) call InflowWind_PackContState(RF, InData%IfW(i1)) end do @@ -1071,8 +1071,8 @@ subroutine AWAE_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1097,16 +1097,16 @@ subroutine AWAE_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%IfW) + UB(1:1) = ubound(SrcDiscStateData%IfW) if (.not. allocated(DstDiscStateData%IfW)) then allocate(DstDiscStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1128,16 +1128,16 @@ subroutine AWAE_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(AWAE_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%IfW) + UB(1:1) = ubound(DiscStateData%IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyDiscState(DiscStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1150,14 +1150,14 @@ subroutine AWAE_PackDiscState(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%IfW), ubound(InData%IfW)) + LB(1:1) = lbound(InData%IfW) + UB(1:1) = ubound(InData%IfW) do i1 = LB(1), UB(1) call InflowWind_PackDiscState(RF, InData%IfW(i1)) end do @@ -1171,8 +1171,8 @@ subroutine AWAE_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1199,16 +1199,16 @@ subroutine AWAE_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%IfW) + UB(1:1) = ubound(SrcConstrStateData%IfW) if (.not. allocated(DstConstrStateData%IfW)) then allocate(DstConstrStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1228,16 +1228,16 @@ subroutine AWAE_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(AWAE_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%IfW) + UB(1:1) = ubound(ConstrStateData%IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyConstrState(ConstrStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1250,14 +1250,14 @@ subroutine AWAE_PackConstrState(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%IfW), ubound(InData%IfW)) + LB(1:1) = lbound(InData%IfW) + UB(1:1) = ubound(InData%IfW) do i1 = LB(1), UB(1) call InflowWind_PackConstrState(RF, InData%IfW(i1)) end do @@ -1269,8 +1269,8 @@ subroutine AWAE_UnPackConstrState(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1295,16 +1295,16 @@ subroutine AWAE_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%IfW) + UB(1:1) = ubound(SrcOtherStateData%IfW) if (.not. allocated(DstOtherStateData%IfW)) then allocate(DstOtherStateData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1324,16 +1324,16 @@ subroutine AWAE_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(AWAE_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%IfW, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%IfW) + UB(1:1) = ubound(OtherStateData%IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyOtherState(OtherStateData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1346,14 +1346,14 @@ subroutine AWAE_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%IfW), ubound(InData%IfW)) + LB(1:1) = lbound(InData%IfW) + UB(1:1) = ubound(InData%IfW) do i1 = LB(1), UB(1) call InflowWind_PackOtherState(RF, InData%IfW(i1)) end do @@ -1365,8 +1365,8 @@ subroutine AWAE_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1391,16 +1391,16 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%Vamb_low, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%Vamb_low) + UB(1:4) = ubound(SrcMiscData%Vamb_low) 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 @@ -1411,8 +1411,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%Vamb_lowpol, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%Vamb_lowpol) + UB(1:2) = ubound(SrcMiscData%Vamb_lowpol) 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 @@ -1423,8 +1423,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%Vdist_low, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%Vdist_low) + UB(1:4) = ubound(SrcMiscData%Vdist_low) 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 @@ -1435,8 +1435,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%Vdist_low_full, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%Vdist_low_full) + UB(1:4) = ubound(SrcMiscData%Vdist_low_full) 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 @@ -1447,8 +1447,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Vamb_High, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Vamb_High) + UB(1:1) = ubound(SrcMiscData%Vamb_High) if (.not. allocated(DstMiscData%Vamb_High)) then allocate(DstMiscData%Vamb_High(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1463,8 +1463,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%parallelFlag)) then - LB(1:2) = lbound(SrcMiscData%parallelFlag, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%parallelFlag, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%parallelFlag) + UB(1:2) = ubound(SrcMiscData%parallelFlag) if (.not. allocated(DstMiscData%parallelFlag)) then allocate(DstMiscData%parallelFlag(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1475,8 +1475,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%r_s, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%r_s) + UB(1:2) = ubound(SrcMiscData%r_s) 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 @@ -1487,8 +1487,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%r_e, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%r_e) + UB(1:2) = ubound(SrcMiscData%r_e) 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 @@ -1499,8 +1499,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%rhat_s, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%rhat_s) + UB(1:3) = ubound(SrcMiscData%rhat_s) 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 @@ -1511,8 +1511,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%rhat_e, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%rhat_e) + UB(1:3) = ubound(SrcMiscData%rhat_e) 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 @@ -1523,8 +1523,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%pvec_cs, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%pvec_cs) + UB(1:3) = ubound(SrcMiscData%pvec_cs) 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 @@ -1535,8 +1535,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%pvec_ce, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%pvec_ce) + UB(1:3) = ubound(SrcMiscData%pvec_ce) 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 @@ -1547,8 +1547,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%outVizXYPlane, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%outVizXYPlane) + UB(1:4) = ubound(SrcMiscData%outVizXYPlane) 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 @@ -1559,8 +1559,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%outVizYZPlane, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%outVizYZPlane) + UB(1:4) = ubound(SrcMiscData%outVizYZPlane) 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 @@ -1571,8 +1571,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%outVizXZPlane, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%outVizXZPlane) + UB(1:4) = ubound(SrcMiscData%outVizXZPlane) 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 @@ -1583,8 +1583,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%IfW, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%IfW) + UB(1:1) = ubound(SrcMiscData%IfW) if (.not. allocated(DstMiscData%IfW)) then allocate(DstMiscData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1611,8 +1611,8 @@ subroutine AWAE_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%V_amb_low_disk)) then - LB(1:2) = lbound(SrcMiscData%V_amb_low_disk, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%V_amb_low_disk, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%V_amb_low_disk) + UB(1:2) = ubound(SrcMiscData%V_amb_low_disk) if (.not. allocated(DstMiscData%V_amb_low_disk)) then allocate(DstMiscData%V_amb_low_disk(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1628,8 +1628,8 @@ subroutine AWAE_DestroyMisc(MiscData, ErrStat, ErrMsg) type(AWAE_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyMisc' @@ -1648,8 +1648,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%Vamb_High, kind=B8Ki) + LB(1:1) = lbound(MiscData%Vamb_High) + UB(1:1) = ubound(MiscData%Vamb_High) do i1 = LB(1), UB(1) call AWAE_DestroyHighWindGrid(MiscData%Vamb_High(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1687,8 +1687,8 @@ subroutine AWAE_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%outVizXZPlane) end if if (allocated(MiscData%IfW)) then - LB(1:1) = lbound(MiscData%IfW, kind=B8Ki) - UB(1:1) = ubound(MiscData%IfW, kind=B8Ki) + LB(1:1) = lbound(MiscData%IfW) + UB(1:1) = ubound(MiscData%IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyMisc(MiscData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1712,8 +1712,8 @@ subroutine AWAE_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackMisc' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%Vamb_low) call RegPackAlloc(RF, InData%Vamb_lowpol) @@ -1721,9 +1721,9 @@ subroutine AWAE_PackMisc(RF, Indata) call RegPackAlloc(RF, InData%Vdist_low_full) call RegPack(RF, allocated(InData%Vamb_High)) if (allocated(InData%Vamb_High)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Vamb_High), ubound(InData%Vamb_High)) + LB(1:1) = lbound(InData%Vamb_High) + UB(1:1) = ubound(InData%Vamb_High) do i1 = LB(1), UB(1) call AWAE_PackHighWindGrid(RF, InData%Vamb_High(i1)) end do @@ -1740,9 +1740,9 @@ subroutine AWAE_PackMisc(RF, Indata) call RegPackAlloc(RF, InData%outVizXZPlane) call RegPack(RF, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%IfW), ubound(InData%IfW)) + LB(1:1) = lbound(InData%IfW) + UB(1:1) = ubound(InData%IfW) do i1 = LB(1), UB(1) call InflowWind_PackMisc(RF, InData%IfW(i1)) end do @@ -1759,8 +1759,8 @@ subroutine AWAE_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackMisc' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1817,8 +1817,8 @@ subroutine AWAE_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_CopyParam' @@ -1829,8 +1829,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%y, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%y) + UB(1:1) = ubound(SrcParamData%y) if (.not. allocated(DstParamData%y)) then allocate(DstParamData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1841,8 +1841,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%z, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%z) + UB(1:1) = ubound(SrcParamData%z) if (.not. allocated(DstParamData%z)) then allocate(DstParamData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1867,8 +1867,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%X0_high, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%X0_high) + UB(1:1) = ubound(SrcParamData%X0_high) if (.not. allocated(DstParamData%X0_high)) then allocate(DstParamData%X0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1879,8 +1879,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Y0_high, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Y0_high) + UB(1:1) = ubound(SrcParamData%Y0_high) if (.not. allocated(DstParamData%Y0_high)) then allocate(DstParamData%Y0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1891,8 +1891,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Z0_high, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Z0_high) + UB(1:1) = ubound(SrcParamData%Z0_high) if (.not. allocated(DstParamData%Z0_high)) then allocate(DstParamData%Z0_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1903,8 +1903,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dX_high, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dX_high) + UB(1:1) = ubound(SrcParamData%dX_high) if (.not. allocated(DstParamData%dX_high)) then allocate(DstParamData%dX_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1915,8 +1915,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dY_high, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dY_high) + UB(1:1) = ubound(SrcParamData%dY_high) if (.not. allocated(DstParamData%dY_high)) then allocate(DstParamData%dY_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1927,8 +1927,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dZ_high, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dZ_high) + UB(1:1) = ubound(SrcParamData%dZ_high) if (.not. allocated(DstParamData%dZ_high)) then allocate(DstParamData%dZ_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1942,8 +1942,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Grid_low, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Grid_low) + UB(1:2) = ubound(SrcParamData%Grid_low) 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 @@ -1954,8 +1954,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%Grid_high, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%Grid_high) + UB(1:3) = ubound(SrcParamData%Grid_high) 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 @@ -1966,8 +1966,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%WT_Position, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%WT_Position) + UB(1:2) = ubound(SrcParamData%WT_Position) 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 @@ -1986,8 +1986,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IfW, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IfW) + UB(1:1) = ubound(SrcParamData%IfW) if (.not. allocated(DstParamData%IfW)) then allocate(DstParamData%IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2005,8 +2005,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutDisWindZ, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutDisWindZ) + UB(1:1) = ubound(SrcParamData%OutDisWindZ) if (.not. allocated(DstParamData%OutDisWindZ)) then allocate(DstParamData%OutDisWindZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2018,8 +2018,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutDisWindX, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutDisWindX) + UB(1:1) = ubound(SrcParamData%OutDisWindX) if (.not. allocated(DstParamData%OutDisWindX)) then allocate(DstParamData%OutDisWindX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2031,8 +2031,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutDisWindY, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutDisWindY) + UB(1:1) = ubound(SrcParamData%OutDisWindY) if (.not. allocated(DstParamData%OutDisWindY)) then allocate(DstParamData%OutDisWindY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2053,8 +2053,8 @@ subroutine AWAE_DestroyParam(ParamData, ErrStat, ErrMsg) type(AWAE_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'AWAE_DestroyParam' @@ -2094,8 +2094,8 @@ subroutine AWAE_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WT_Position) end if if (allocated(ParamData%IfW)) then - LB(1:1) = lbound(ParamData%IfW, kind=B8Ki) - UB(1:1) = ubound(ParamData%IfW, kind=B8Ki) + LB(1:1) = lbound(ParamData%IfW) + UB(1:1) = ubound(ParamData%IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyParam(ParamData%IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2118,8 +2118,8 @@ subroutine AWAE_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%WindFilePath) @@ -2164,9 +2164,9 @@ subroutine AWAE_PackParam(RF, Indata) call RegPack(RF, InData%Mod_Projection) call RegPack(RF, allocated(InData%IfW)) if (allocated(InData%IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%IfW), ubound(InData%IfW)) + LB(1:1) = lbound(InData%IfW) + UB(1:1) = ubound(InData%IfW) do i1 = LB(1), UB(1) call InflowWind_PackParam(RF, InData%IfW(i1)) end do @@ -2197,8 +2197,8 @@ subroutine AWAE_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -2295,16 +2295,16 @@ subroutine AWAE_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%Vdist_High, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%Vdist_High) + UB(1:1) = ubound(SrcOutputData%Vdist_High) if (.not. allocated(DstOutputData%Vdist_High)) then allocate(DstOutputData%Vdist_High(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2319,8 +2319,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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%V_plane, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%V_plane) + UB(1:3) = ubound(SrcOutputData%V_plane) 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 @@ -2331,8 +2331,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%TI_amb, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%TI_amb) + UB(1:1) = ubound(SrcOutputData%TI_amb) if (.not. allocated(DstOutputData%TI_amb)) then allocate(DstOutputData%TI_amb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2343,8 +2343,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%Vx_wind_disk, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%Vx_wind_disk) + UB(1:1) = ubound(SrcOutputData%Vx_wind_disk) if (.not. allocated(DstOutputData%Vx_wind_disk)) then allocate(DstOutputData%Vx_wind_disk(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2360,16 +2360,16 @@ subroutine AWAE_DestroyOutput(OutputData, ErrStat, ErrMsg) type(AWAE_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%Vdist_High, kind=B8Ki) + LB(1:1) = lbound(OutputData%Vdist_High) + UB(1:1) = ubound(OutputData%Vdist_High) do i1 = LB(1), UB(1) call AWAE_DestroyHighWindGrid(OutputData%Vdist_High(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2391,14 +2391,14 @@ subroutine AWAE_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(AWAE_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'AWAE_PackOutput' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%Vdist_High)) if (allocated(InData%Vdist_High)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Vdist_High), ubound(InData%Vdist_High)) + LB(1:1) = lbound(InData%Vdist_High) + UB(1:1) = ubound(InData%Vdist_High) do i1 = LB(1), UB(1) call AWAE_PackHighWindGrid(RF, InData%Vdist_High(i1)) end do @@ -2413,8 +2413,8 @@ subroutine AWAE_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackOutput' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2442,14 +2442,14 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcInputData%xhat_plane, kind=B8Ki) + LB(1:3) = lbound(SrcInputData%xhat_plane) + UB(1:3) = ubound(SrcInputData%xhat_plane) 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 @@ -2460,8 +2460,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputData%p_plane, kind=B8Ki) + LB(1:3) = lbound(SrcInputData%p_plane) + UB(1:3) = ubound(SrcInputData%p_plane) 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 @@ -2472,8 +2472,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, kind=B8Ki) - UB(1:4) = ubound(SrcInputData%Vx_wake, kind=B8Ki) + LB(1:4) = lbound(SrcInputData%Vx_wake) + UB(1:4) = ubound(SrcInputData%Vx_wake) 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 @@ -2484,8 +2484,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, kind=B8Ki) - UB(1:4) = ubound(SrcInputData%Vy_wake, kind=B8Ki) + LB(1:4) = lbound(SrcInputData%Vy_wake) + UB(1:4) = ubound(SrcInputData%Vy_wake) 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 @@ -2496,8 +2496,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, kind=B8Ki) - UB(1:4) = ubound(SrcInputData%Vz_wake, kind=B8Ki) + LB(1:4) = lbound(SrcInputData%Vz_wake) + UB(1:4) = ubound(SrcInputData%Vz_wake) 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 @@ -2508,8 +2508,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%D_wake, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%D_wake) + UB(1:2) = ubound(SrcInputData%D_wake) 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 @@ -2520,8 +2520,8 @@ subroutine AWAE_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%D_wake = SrcInputData%D_wake end if if (allocated(SrcInputData%WAT_k)) then - LB(1:4) = lbound(SrcInputData%WAT_k, kind=B8Ki) - UB(1:4) = ubound(SrcInputData%WAT_k, kind=B8Ki) + LB(1:4) = lbound(SrcInputData%WAT_k) + UB(1:4) = ubound(SrcInputData%WAT_k) if (.not. allocated(DstInputData%WAT_k)) then allocate(DstInputData%WAT_k(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2582,7 +2582,7 @@ subroutine AWAE_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(AWAE_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'AWAE_UnPackInput' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/beamdyn/src/BeamDyn_Types.f90 b/modules/beamdyn/src/BeamDyn_Types.f90 index 6980255649..81632c30ff 100644 --- a/modules/beamdyn/src/BeamDyn_Types.f90 +++ b/modules/beamdyn/src/BeamDyn_Types.f90 @@ -415,15 +415,15 @@ subroutine BD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -434,8 +434,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -449,8 +449,8 @@ subroutine BD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -461,8 +461,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -473,8 +473,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -485,8 +485,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -497,8 +497,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -509,8 +509,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -521,8 +521,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -533,8 +533,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -612,7 +612,7 @@ subroutine BD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -635,7 +635,7 @@ subroutine BD_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'BD_CopyBladeInputData' ErrStat = ErrID_None @@ -643,8 +643,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%station_eta, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%station_eta) + UB(1:1) = ubound(SrcBladeInputDataData%station_eta) if (.not. allocated(DstBladeInputDataData%station_eta)) then allocate(DstBladeInputDataData%station_eta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -655,8 +655,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, kind=B8Ki) - UB(1:3) = ubound(SrcBladeInputDataData%stiff0, kind=B8Ki) + LB(1:3) = lbound(SrcBladeInputDataData%stiff0) + UB(1:3) = ubound(SrcBladeInputDataData%stiff0) 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 @@ -667,8 +667,8 @@ subroutine BD_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%stiff0 = SrcBladeInputDataData%stiff0 end if if (allocated(SrcBladeInputDataData%mass0)) then - LB(1:3) = lbound(SrcBladeInputDataData%mass0, kind=B8Ki) - UB(1:3) = ubound(SrcBladeInputDataData%mass0, kind=B8Ki) + LB(1:3) = lbound(SrcBladeInputDataData%mass0) + UB(1:3) = ubound(SrcBladeInputDataData%mass0) 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 @@ -719,7 +719,7 @@ subroutine BD_UnPackBladeInputData(RF, OutData) type(RegFile), intent(inout) :: RF type(BladeInputData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackBladeInputData' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -738,7 +738,7 @@ subroutine BD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyInputFile' @@ -747,8 +747,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%kp_member, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%kp_member) + UB(1:1) = ubound(SrcInputFileData%kp_member) if (.not. allocated(DstInputFileData%kp_member)) then allocate(DstInputFileData%kp_member(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -776,8 +776,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputFileData%kp_coordinate, kind=B8Ki) + LB(1:2) = lbound(SrcInputFileData%kp_coordinate) + UB(1:2) = ubound(SrcInputFileData%kp_coordinate) 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 @@ -799,8 +799,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -814,8 +814,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BldNd_OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BldNd_OutList) + UB(1:1) = ubound(SrcInputFileData%BldNd_OutList) if (.not. allocated(DstInputFileData%BldNd_OutList)) then allocate(DstInputFileData%BldNd_OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -826,8 +826,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BldNd_BlOutNd, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BldNd_BlOutNd) + UB(1:1) = ubound(SrcInputFileData%BldNd_BlOutNd) if (.not. allocated(DstInputFileData%BldNd_BlOutNd)) then allocate(DstInputFileData%BldNd_BlOutNd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -917,7 +917,7 @@ subroutine BD_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackInputFile' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -966,14 +966,14 @@ subroutine BD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%q, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%q) + UB(1:2) = ubound(SrcContStateData%q) if (.not. allocated(DstContStateData%q)) then allocate(DstContStateData%q(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -984,8 +984,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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%dqdt, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%dqdt) + UB(1:2) = ubound(SrcContStateData%dqdt) if (.not. allocated(DstContStateData%dqdt)) then allocate(DstContStateData%dqdt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1026,7 +1026,7 @@ subroutine BD_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackContState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1119,14 +1119,14 @@ subroutine BD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%acc, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%acc) + UB(1:2) = ubound(SrcOtherStateData%acc) if (.not. allocated(DstOtherStateData%acc)) then allocate(DstOtherStateData%acc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1137,8 +1137,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%xcc, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%xcc) + UB(1:2) = ubound(SrcOtherStateData%xcc) if (.not. allocated(DstOtherStateData%xcc)) then allocate(DstOtherStateData%xcc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1189,7 +1189,7 @@ subroutine BD_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackOtherState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1208,14 +1208,14 @@ subroutine BD_CopyqpParam(SrcqpParamData, DstqpParamData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcqpParamData%mmm, kind=B8Ki) + LB(1:2) = lbound(SrcqpParamData%mmm) + UB(1:2) = ubound(SrcqpParamData%mmm) if (.not. allocated(DstqpParamData%mmm)) then allocate(DstqpParamData%mmm(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1226,8 +1226,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, kind=B8Ki) - UB(1:3) = ubound(SrcqpParamData%mEta, kind=B8Ki) + LB(1:3) = lbound(SrcqpParamData%mEta) + UB(1:3) = ubound(SrcqpParamData%mEta) 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 @@ -1268,7 +1268,7 @@ subroutine BD_UnPackqpParam(RF, OutData) type(RegFile), intent(inout) :: RF type(qpParam), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackqpParam' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1282,8 +1282,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyParam' @@ -1293,8 +1293,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%uuN0, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%uuN0) + UB(1:3) = ubound(SrcParamData%uuN0) 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 @@ -1305,8 +1305,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uuN0 = SrcParamData%uuN0 end if if (allocated(SrcParamData%Stif0_QP)) then - LB(1:3) = lbound(SrcParamData%Stif0_QP, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%Stif0_QP, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%Stif0_QP) + UB(1:3) = ubound(SrcParamData%Stif0_QP) 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 @@ -1317,8 +1317,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%Mass0_QP, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%Mass0_QP) + UB(1:3) = ubound(SrcParamData%Mass0_QP) 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 @@ -1330,8 +1330,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%segment_eta, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%segment_eta) + UB(1:1) = ubound(SrcParamData%segment_eta) if (.not. allocated(DstParamData%segment_eta)) then allocate(DstParamData%segment_eta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1342,8 +1342,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%member_eta, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%member_eta) + UB(1:1) = ubound(SrcParamData%member_eta) if (.not. allocated(DstParamData%member_eta)) then allocate(DstParamData%member_eta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1360,8 +1360,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%QPtN, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%QPtN) + UB(1:1) = ubound(SrcParamData%QPtN) if (.not. allocated(DstParamData%QPtN)) then allocate(DstParamData%QPtN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1372,8 +1372,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%QPtWeight, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%QPtWeight) + UB(1:1) = ubound(SrcParamData%QPtWeight) if (.not. allocated(DstParamData%QPtWeight)) then allocate(DstParamData%QPtWeight(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1384,8 +1384,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Shp, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Shp) + UB(1:2) = ubound(SrcParamData%Shp) if (.not. allocated(DstParamData%Shp)) then allocate(DstParamData%Shp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1396,8 +1396,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%ShpDer, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%ShpDer) + UB(1:2) = ubound(SrcParamData%ShpDer) if (.not. allocated(DstParamData%ShpDer)) then allocate(DstParamData%ShpDer(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1408,8 +1408,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jacobian, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jacobian) + UB(1:2) = ubound(SrcParamData%Jacobian) if (.not. allocated(DstParamData%Jacobian)) then allocate(DstParamData%Jacobian(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1420,8 +1420,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%uu0, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%uu0) + UB(1:3) = ubound(SrcParamData%uu0) 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 @@ -1432,8 +1432,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%uu0 = SrcParamData%uu0 end if if (allocated(SrcParamData%rrN0)) then - LB(1:3) = lbound(SrcParamData%rrN0, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%rrN0, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%rrN0) + UB(1:3) = ubound(SrcParamData%rrN0) if (.not. allocated(DstParamData%rrN0)) then allocate(DstParamData%rrN0(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1444,8 +1444,8 @@ subroutine BD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rrN0 = SrcParamData%rrN0 end if if (allocated(SrcParamData%E10)) then - LB(1:3) = lbound(SrcParamData%E10, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%E10, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%E10) + UB(1:3) = ubound(SrcParamData%E10) 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 @@ -1457,8 +1457,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%node_elem_idx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%node_elem_idx) + UB(1:2) = ubound(SrcParamData%node_elem_idx) 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 @@ -1485,8 +1485,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1503,8 +1503,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NdIndx, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NdIndx) + UB(1:1) = ubound(SrcParamData%NdIndx) if (.not. allocated(DstParamData%NdIndx)) then allocate(DstParamData%NdIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1515,8 +1515,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NdIndxInverse, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NdIndxInverse) + UB(1:1) = ubound(SrcParamData%NdIndxInverse) if (.not. allocated(DstParamData%NdIndxInverse)) then allocate(DstParamData%NdIndxInverse(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1527,8 +1527,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%OutNd2NdElem, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%OutNd2NdElem) + UB(1:2) = ubound(SrcParamData%OutNd2NdElem) if (.not. allocated(DstParamData%OutNd2NdElem)) then allocate(DstParamData%OutNd2NdElem(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1556,8 +1556,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BldNd_OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BldNd_OutParam) + UB(1:1) = ubound(SrcParamData%BldNd_OutParam) if (.not. allocated(DstParamData%BldNd_OutParam)) then allocate(DstParamData%BldNd_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1572,8 +1572,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BldNd_BlOutNd, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BldNd_BlOutNd) + UB(1:1) = ubound(SrcParamData%BldNd_BlOutNd) if (.not. allocated(DstParamData%BldNd_BlOutNd)) then allocate(DstParamData%BldNd_BlOutNd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1584,8 +1584,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%QPtw_Shp_Shp_Jac, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%QPtw_Shp_Shp_Jac) + UB(1:4) = ubound(SrcParamData%QPtw_Shp_Shp_Jac) 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 @@ -1596,8 +1596,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%QPtw_Shp_ShpDer, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%QPtw_Shp_ShpDer) + UB(1:3) = ubound(SrcParamData%QPtw_Shp_ShpDer) 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 @@ -1608,8 +1608,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%QPtw_ShpDer_ShpDer_Jac, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%QPtw_ShpDer_ShpDer_Jac) + UB(1:4) = ubound(SrcParamData%QPtw_ShpDer_ShpDer_Jac) 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 @@ -1620,8 +1620,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%QPtw_Shp_Jac, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%QPtw_Shp_Jac) + UB(1:3) = ubound(SrcParamData%QPtw_Shp_Jac) 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 @@ -1632,8 +1632,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%QPtw_ShpDer, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%QPtw_ShpDer) + UB(1:2) = ubound(SrcParamData%QPtw_ShpDer) 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 @@ -1644,8 +1644,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%FEweight, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%FEweight) + UB(1:2) = ubound(SrcParamData%FEweight) if (.not. allocated(DstParamData%FEweight)) then allocate(DstParamData%FEweight(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1656,8 +1656,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_u_indx) + UB(1:2) = ubound(SrcParamData%Jac_u_indx) 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 @@ -1668,8 +1668,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%du) + UB(1:1) = ubound(SrcParamData%du) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1691,8 +1691,8 @@ subroutine BD_DestroyParam(ParamData, ErrStat, ErrMsg) type(BD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_DestroyParam' @@ -1741,8 +1741,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1761,8 +1761,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%BldNd_OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%BldNd_OutParam) + UB(1:1) = ubound(ParamData%BldNd_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%BldNd_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1802,8 +1802,8 @@ subroutine BD_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(BD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'BD_PackParam' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%dt) call RegPack(RF, InData%coef) @@ -1848,9 +1848,9 @@ subroutine BD_PackParam(RF, Indata) call RegPack(RF, InData%NumOuts) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1877,9 +1877,9 @@ subroutine BD_PackParam(RF, Indata) call RegPack(RF, InData%BldNd_TotNumOuts) call RegPack(RF, allocated(InData%BldNd_OutParam)) if (allocated(InData%BldNd_OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BldNd_OutParam), ubound(InData%BldNd_OutParam)) + LB(1:1) = lbound(InData%BldNd_OutParam) + UB(1:1) = ubound(InData%BldNd_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%BldNd_OutParam(i1)) end do @@ -1906,8 +1906,8 @@ subroutine BD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackParam' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2088,7 +2088,7 @@ subroutine BD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyOutput' @@ -2103,8 +2103,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2151,7 +2151,7 @@ subroutine BD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2168,14 +2168,14 @@ subroutine BD_CopyEqMotionQP(SrcEqMotionQPData, DstEqMotionQPData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%uuu, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%uuu) + UB(1:3) = ubound(SrcEqMotionQPData%uuu) 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 @@ -2186,8 +2186,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%uup, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%uup) + UB(1:3) = ubound(SrcEqMotionQPData%uup) 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 @@ -2198,8 +2198,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%vvv, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%vvv) + UB(1:3) = ubound(SrcEqMotionQPData%vvv) 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 @@ -2210,8 +2210,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%vvp, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%vvp) + UB(1:3) = ubound(SrcEqMotionQPData%vvp) 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 @@ -2222,8 +2222,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%aaa, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%aaa) + UB(1:3) = ubound(SrcEqMotionQPData%aaa) 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 @@ -2234,8 +2234,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%RR0, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%RR0) + UB(1:4) = ubound(SrcEqMotionQPData%RR0) 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 @@ -2246,8 +2246,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%kappa, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%kappa) + UB(1:3) = ubound(SrcEqMotionQPData%kappa) 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 @@ -2258,8 +2258,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%E1, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%E1) + UB(1:3) = ubound(SrcEqMotionQPData%E1) 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 @@ -2270,8 +2270,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Stif, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Stif) + UB(1:4) = ubound(SrcEqMotionQPData%Stif) 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 @@ -2282,8 +2282,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%Fb, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%Fb) + UB(1:3) = ubound(SrcEqMotionQPData%Fb) 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 @@ -2294,8 +2294,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%Fc, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%Fc) + UB(1:3) = ubound(SrcEqMotionQPData%Fc) 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 @@ -2306,8 +2306,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%Fd, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%Fd) + UB(1:3) = ubound(SrcEqMotionQPData%Fd) 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 @@ -2318,8 +2318,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%Fg, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%Fg) + UB(1:3) = ubound(SrcEqMotionQPData%Fg) 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 @@ -2330,8 +2330,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%Fi, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%Fi) + UB(1:3) = ubound(SrcEqMotionQPData%Fi) 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 @@ -2342,8 +2342,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%Ftemp, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%Ftemp) + UB(1:3) = ubound(SrcEqMotionQPData%Ftemp) 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 @@ -2354,8 +2354,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, kind=B8Ki) - UB(1:3) = ubound(SrcEqMotionQPData%RR0mEta, kind=B8Ki) + LB(1:3) = lbound(SrcEqMotionQPData%RR0mEta) + UB(1:3) = ubound(SrcEqMotionQPData%RR0mEta) 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 @@ -2366,8 +2366,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%rho, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%rho) + UB(1:4) = ubound(SrcEqMotionQPData%rho) 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 @@ -2378,8 +2378,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%betaC, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%betaC) + UB(1:4) = ubound(SrcEqMotionQPData%betaC) 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 @@ -2390,8 +2390,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Gi, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Gi) + UB(1:4) = ubound(SrcEqMotionQPData%Gi) 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 @@ -2402,8 +2402,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Ki, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Ki) + UB(1:4) = ubound(SrcEqMotionQPData%Ki) 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 @@ -2414,8 +2414,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Mi, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Mi) + UB(1:4) = ubound(SrcEqMotionQPData%Mi) 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 @@ -2426,8 +2426,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Oe, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Oe) + UB(1:4) = ubound(SrcEqMotionQPData%Oe) 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 @@ -2438,8 +2438,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Pe, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Pe) + UB(1:4) = ubound(SrcEqMotionQPData%Pe) 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 @@ -2450,8 +2450,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Qe, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Qe) + UB(1:4) = ubound(SrcEqMotionQPData%Qe) 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 @@ -2462,8 +2462,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Gd, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Gd) + UB(1:4) = ubound(SrcEqMotionQPData%Gd) 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 @@ -2474,8 +2474,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Od, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Od) + UB(1:4) = ubound(SrcEqMotionQPData%Od) 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 @@ -2486,8 +2486,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Pd, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Pd) + UB(1:4) = ubound(SrcEqMotionQPData%Pd) 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 @@ -2498,8 +2498,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Qd, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Qd) + UB(1:4) = ubound(SrcEqMotionQPData%Qd) 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 @@ -2510,8 +2510,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Sd, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Sd) + UB(1:4) = ubound(SrcEqMotionQPData%Sd) 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 @@ -2522,8 +2522,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Xd, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Xd) + UB(1:4) = ubound(SrcEqMotionQPData%Xd) 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 @@ -2534,8 +2534,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, kind=B8Ki) - UB(1:4) = ubound(SrcEqMotionQPData%Yd, kind=B8Ki) + LB(1:4) = lbound(SrcEqMotionQPData%Yd) + UB(1:4) = ubound(SrcEqMotionQPData%Yd) 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 @@ -2692,7 +2692,7 @@ subroutine BD_UnPackEqMotionQP(RF, OutData) type(RegFile), intent(inout) :: RF type(EqMotionQP), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackEqMotionQP' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2735,7 +2735,7 @@ subroutine BD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'BD_CopyMisc' @@ -2758,8 +2758,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%lin_A, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%lin_A) + UB(1:2) = ubound(SrcMiscData%lin_A) 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 @@ -2770,8 +2770,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%lin_C, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%lin_C) + UB(1:2) = ubound(SrcMiscData%lin_C) 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 @@ -2782,8 +2782,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%Nrrr, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%Nrrr) + UB(1:3) = ubound(SrcMiscData%Nrrr) 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 @@ -2794,8 +2794,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%elf, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%elf) + UB(1:2) = ubound(SrcMiscData%elf) if (.not. allocated(DstMiscData%elf)) then allocate(DstMiscData%elf(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2806,8 +2806,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%EFint, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%EFint) + UB(1:3) = ubound(SrcMiscData%EFint) 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 @@ -2818,8 +2818,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%elk, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%elk) + UB(1:4) = ubound(SrcMiscData%elk) 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 @@ -2830,8 +2830,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%elg, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%elg) + UB(1:4) = ubound(SrcMiscData%elg) 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 @@ -2842,8 +2842,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%elm, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%elm) + UB(1:4) = ubound(SrcMiscData%elm) 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 @@ -2854,8 +2854,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%DistrLoad_QP, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%DistrLoad_QP) + UB(1:3) = ubound(SrcMiscData%DistrLoad_QP) 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 @@ -2866,8 +2866,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%PointLoadLcl, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%PointLoadLcl) + UB(1:2) = ubound(SrcMiscData%PointLoadLcl) if (.not. allocated(DstMiscData%PointLoadLcl)) then allocate(DstMiscData%PointLoadLcl(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2878,8 +2878,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%StifK, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%StifK) + UB(1:4) = ubound(SrcMiscData%StifK) 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 @@ -2890,8 +2890,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%MassM, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%MassM) + UB(1:4) = ubound(SrcMiscData%MassM) 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 @@ -2902,8 +2902,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%DampG, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%DampG) + UB(1:4) = ubound(SrcMiscData%DampG) 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 @@ -2914,8 +2914,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%StifK_fd, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%StifK_fd) + UB(1:4) = ubound(SrcMiscData%StifK_fd) 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 @@ -2926,8 +2926,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%MassM_fd, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%MassM_fd) + UB(1:4) = ubound(SrcMiscData%MassM_fd) 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 @@ -2938,8 +2938,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, kind=B8Ki) - UB(1:4) = ubound(SrcMiscData%DampG_fd, kind=B8Ki) + LB(1:4) = lbound(SrcMiscData%DampG_fd) + UB(1:4) = ubound(SrcMiscData%DampG_fd) 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 @@ -2950,8 +2950,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%RHS, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%RHS) + UB(1:2) = ubound(SrcMiscData%RHS) if (.not. allocated(DstMiscData%RHS)) then allocate(DstMiscData%RHS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2962,8 +2962,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%RHS_p, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%RHS_p) + UB(1:2) = ubound(SrcMiscData%RHS_p) 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 @@ -2974,8 +2974,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%RHS_m, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%RHS_m) + UB(1:2) = ubound(SrcMiscData%RHS_m) 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 @@ -2986,8 +2986,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%BldInternalForceFE, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%BldInternalForceFE) + UB(1:2) = ubound(SrcMiscData%BldInternalForceFE) if (.not. allocated(DstMiscData%BldInternalForceFE)) then allocate(DstMiscData%BldInternalForceFE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2998,8 +2998,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%BldInternalForceQP, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%BldInternalForceQP) + UB(1:2) = ubound(SrcMiscData%BldInternalForceQP) if (.not. allocated(DstMiscData%BldInternalForceQP)) then allocate(DstMiscData%BldInternalForceQP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3010,8 +3010,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FirstNodeReactionLclForceMoment, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FirstNodeReactionLclForceMoment) + UB(1:1) = ubound(SrcMiscData%FirstNodeReactionLclForceMoment) if (.not. allocated(DstMiscData%FirstNodeReactionLclForceMoment)) then allocate(DstMiscData%FirstNodeReactionLclForceMoment(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3022,8 +3022,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%Solution, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%Solution) + UB(1:2) = ubound(SrcMiscData%Solution) if (.not. allocated(DstMiscData%Solution)) then allocate(DstMiscData%Solution(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3034,8 +3034,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%LP_StifK, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%LP_StifK) + UB(1:2) = ubound(SrcMiscData%LP_StifK) 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 @@ -3046,8 +3046,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%LP_MassM, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%LP_MassM) + UB(1:2) = ubound(SrcMiscData%LP_MassM) 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 @@ -3058,8 +3058,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%LP_MassM_LU, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%LP_MassM_LU) + UB(1:2) = ubound(SrcMiscData%LP_MassM_LU) 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 @@ -3070,8 +3070,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LP_RHS, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LP_RHS) + UB(1:1) = ubound(SrcMiscData%LP_RHS) if (.not. allocated(DstMiscData%LP_RHS)) then allocate(DstMiscData%LP_RHS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3082,8 +3082,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%LP_StifK_LU, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%LP_StifK_LU) + UB(1:2) = ubound(SrcMiscData%LP_StifK_LU) 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 @@ -3094,8 +3094,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LP_RHS_LU, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LP_RHS_LU) + UB(1:1) = ubound(SrcMiscData%LP_RHS_LU) if (.not. allocated(DstMiscData%LP_RHS_LU)) then allocate(DstMiscData%LP_RHS_LU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3106,8 +3106,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LP_indx, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LP_indx) + UB(1:1) = ubound(SrcMiscData%LP_indx) if (.not. allocated(DstMiscData%LP_indx)) then allocate(DstMiscData%LP_indx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3290,7 +3290,7 @@ subroutine BD_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(BD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'BD_UnPackMisc' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/elastodyn/src/ElastoDyn_Types.f90 b/modules/elastodyn/src/ElastoDyn_Types.f90 index 64046a0f0f..db494845e8 100644 --- a/modules/elastodyn/src/ElastoDyn_Types.f90 +++ b/modules/elastodyn/src/ElastoDyn_Types.f90 @@ -943,15 +943,15 @@ subroutine ED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -962,8 +962,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -978,8 +978,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%BlPitch, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%BlPitch) + UB(1:1) = ubound(SrcInitOutputData%BlPitch) if (.not. allocated(DstInitOutputData%BlPitch)) then allocate(DstInitOutputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -994,8 +994,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%BldRNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%BldRNodes) + UB(1:1) = ubound(SrcInitOutputData%BldRNodes) if (.not. allocated(DstInitOutputData%BldRNodes)) then allocate(DstInitOutputData%BldRNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1006,8 +1006,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%TwrHNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%TwrHNodes) + UB(1:1) = ubound(SrcInitOutputData%TwrHNodes) if (.not. allocated(DstInitOutputData%TwrHNodes)) then allocate(DstInitOutputData%TwrHNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1026,8 +1026,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1038,8 +1038,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1050,8 +1050,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1062,8 +1062,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1074,8 +1074,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1086,8 +1086,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1098,8 +1098,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1110,8 +1110,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1216,7 +1216,7 @@ subroutine ED_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackInitOutput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1256,15 +1256,15 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%BlFract, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%BlFract) + UB(1:1) = ubound(SrcBladeInputDataData%BlFract) if (.not. allocated(DstBladeInputDataData%BlFract)) then allocate(DstBladeInputDataData%BlFract(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1275,8 +1275,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BlFract = SrcBladeInputDataData%BlFract end if if (allocated(SrcBladeInputDataData%PitchAx)) then - LB(1:1) = lbound(SrcBladeInputDataData%PitchAx, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%PitchAx, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%PitchAx) + UB(1:1) = ubound(SrcBladeInputDataData%PitchAx) if (.not. allocated(DstBladeInputDataData%PitchAx)) then allocate(DstBladeInputDataData%PitchAx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1287,8 +1287,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%PitchAx = SrcBladeInputDataData%PitchAx end if if (allocated(SrcBladeInputDataData%StrcTwst)) then - LB(1:1) = lbound(SrcBladeInputDataData%StrcTwst, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%StrcTwst, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%StrcTwst) + UB(1:1) = ubound(SrcBladeInputDataData%StrcTwst) if (.not. allocated(DstBladeInputDataData%StrcTwst)) then allocate(DstBladeInputDataData%StrcTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1299,8 +1299,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%StrcTwst = SrcBladeInputDataData%StrcTwst end if if (allocated(SrcBladeInputDataData%BMassDen)) then - LB(1:1) = lbound(SrcBladeInputDataData%BMassDen, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%BMassDen, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%BMassDen) + UB(1:1) = ubound(SrcBladeInputDataData%BMassDen) if (.not. allocated(DstBladeInputDataData%BMassDen)) then allocate(DstBladeInputDataData%BMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1311,8 +1311,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BMassDen = SrcBladeInputDataData%BMassDen end if if (allocated(SrcBladeInputDataData%FlpStff)) then - LB(1:1) = lbound(SrcBladeInputDataData%FlpStff, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%FlpStff, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%FlpStff) + UB(1:1) = ubound(SrcBladeInputDataData%FlpStff) if (.not. allocated(DstBladeInputDataData%FlpStff)) then allocate(DstBladeInputDataData%FlpStff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1323,8 +1323,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%FlpStff = SrcBladeInputDataData%FlpStff end if if (allocated(SrcBladeInputDataData%EdgStff)) then - LB(1:1) = lbound(SrcBladeInputDataData%EdgStff, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%EdgStff, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%EdgStff) + UB(1:1) = ubound(SrcBladeInputDataData%EdgStff) if (.not. allocated(DstBladeInputDataData%EdgStff)) then allocate(DstBladeInputDataData%EdgStff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1338,8 +1338,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%BldFl1Sh, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%BldFl1Sh) + UB(1:1) = ubound(SrcBladeInputDataData%BldFl1Sh) if (.not. allocated(DstBladeInputDataData%BldFl1Sh)) then allocate(DstBladeInputDataData%BldFl1Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1350,8 +1350,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BldFl1Sh = SrcBladeInputDataData%BldFl1Sh end if if (allocated(SrcBladeInputDataData%BldFl2Sh)) then - LB(1:1) = lbound(SrcBladeInputDataData%BldFl2Sh, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%BldFl2Sh, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%BldFl2Sh) + UB(1:1) = ubound(SrcBladeInputDataData%BldFl2Sh) if (.not. allocated(DstBladeInputDataData%BldFl2Sh)) then allocate(DstBladeInputDataData%BldFl2Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1362,8 +1362,8 @@ subroutine ED_CopyBladeInputData(SrcBladeInputDataData, DstBladeInputDataData, C DstBladeInputDataData%BldFl2Sh = SrcBladeInputDataData%BldFl2Sh end if if (allocated(SrcBladeInputDataData%BldEdgSh)) then - LB(1:1) = lbound(SrcBladeInputDataData%BldEdgSh, kind=B8Ki) - UB(1:1) = ubound(SrcBladeInputDataData%BldEdgSh, kind=B8Ki) + LB(1:1) = lbound(SrcBladeInputDataData%BldEdgSh) + UB(1:1) = ubound(SrcBladeInputDataData%BldEdgSh) if (.not. allocated(DstBladeInputDataData%BldEdgSh)) then allocate(DstBladeInputDataData%BldEdgSh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1436,7 +1436,7 @@ subroutine ED_UnPackBladeInputData(RF, OutData) type(RegFile), intent(inout) :: RF type(BladeInputData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackBladeInputData' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1461,15 +1461,15 @@ subroutine ED_CopyBladeMeshInputData(SrcBladeMeshInputDataData, DstBladeMeshInpu integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcBladeMeshInputDataData%RNodes, kind=B8Ki) + LB(1:1) = lbound(SrcBladeMeshInputDataData%RNodes) + UB(1:1) = ubound(SrcBladeMeshInputDataData%RNodes) if (.not. allocated(DstBladeMeshInputDataData%RNodes)) then allocate(DstBladeMeshInputDataData%RNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1480,8 +1480,8 @@ subroutine ED_CopyBladeMeshInputData(SrcBladeMeshInputDataData, DstBladeMeshInpu DstBladeMeshInputDataData%RNodes = SrcBladeMeshInputDataData%RNodes end if if (allocated(SrcBladeMeshInputDataData%AeroTwst)) then - LB(1:1) = lbound(SrcBladeMeshInputDataData%AeroTwst, kind=B8Ki) - UB(1:1) = ubound(SrcBladeMeshInputDataData%AeroTwst, kind=B8Ki) + LB(1:1) = lbound(SrcBladeMeshInputDataData%AeroTwst) + UB(1:1) = ubound(SrcBladeMeshInputDataData%AeroTwst) if (.not. allocated(DstBladeMeshInputDataData%AeroTwst)) then allocate(DstBladeMeshInputDataData%AeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1492,8 +1492,8 @@ subroutine ED_CopyBladeMeshInputData(SrcBladeMeshInputDataData, DstBladeMeshInpu DstBladeMeshInputDataData%AeroTwst = SrcBladeMeshInputDataData%AeroTwst end if if (allocated(SrcBladeMeshInputDataData%Chord)) then - LB(1:1) = lbound(SrcBladeMeshInputDataData%Chord, kind=B8Ki) - UB(1:1) = ubound(SrcBladeMeshInputDataData%Chord, kind=B8Ki) + LB(1:1) = lbound(SrcBladeMeshInputDataData%Chord) + UB(1:1) = ubound(SrcBladeMeshInputDataData%Chord) if (.not. allocated(DstBladeMeshInputDataData%Chord)) then allocate(DstBladeMeshInputDataData%Chord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1539,7 +1539,7 @@ subroutine ED_UnPackBladeMeshInputData(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_BladeMeshInputData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackBladeMeshInputData' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1555,8 +1555,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyInputFile' @@ -1583,8 +1583,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BlPitch, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BlPitch) + UB(1:1) = ubound(SrcInputFileData%BlPitch) if (.not. allocated(DstInputFileData%BlPitch)) then allocate(DstInputFileData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1610,8 +1610,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PreCone, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PreCone) + UB(1:1) = ubound(SrcInputFileData%PreCone) if (.not. allocated(DstInputFileData%PreCone)) then allocate(DstInputFileData%PreCone(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1642,8 +1642,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TipMass, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TipMass) + UB(1:1) = ubound(SrcInputFileData%TipMass) if (.not. allocated(DstInputFileData%TipMass)) then allocate(DstInputFileData%TipMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1668,8 +1668,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta DstInputFileData%PtfmXZIner = SrcInputFileData%PtfmXZIner DstInputFileData%BldNodes = SrcInputFileData%BldNodes if (allocated(SrcInputFileData%InpBlMesh)) then - LB(1:1) = lbound(SrcInputFileData%InpBlMesh, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%InpBlMesh, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%InpBlMesh) + UB(1:1) = ubound(SrcInputFileData%InpBlMesh) if (.not. allocated(DstInputFileData%InpBlMesh)) then allocate(DstInputFileData%InpBlMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1684,8 +1684,8 @@ subroutine ED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSta end do end if if (allocated(SrcInputFileData%InpBl)) then - LB(1:1) = lbound(SrcInputFileData%InpBl, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%InpBl, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%InpBl) + UB(1:1) = ubound(SrcInputFileData%InpBl) if (.not. allocated(DstInputFileData%InpBl)) then allocate(DstInputFileData%InpBl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1729,8 +1729,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1746,8 +1746,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%HtFract, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%HtFract) + UB(1:1) = ubound(SrcInputFileData%HtFract) if (.not. allocated(DstInputFileData%HtFract)) then allocate(DstInputFileData%HtFract(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1758,8 +1758,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TMassDen, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TMassDen) + UB(1:1) = ubound(SrcInputFileData%TMassDen) if (.not. allocated(DstInputFileData%TMassDen)) then allocate(DstInputFileData%TMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1770,8 +1770,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TwFAStif, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TwFAStif) + UB(1:1) = ubound(SrcInputFileData%TwFAStif) if (.not. allocated(DstInputFileData%TwFAStif)) then allocate(DstInputFileData%TwFAStif(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1782,8 +1782,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TwSSStif, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TwSSStif) + UB(1:1) = ubound(SrcInputFileData%TwSSStif) if (.not. allocated(DstInputFileData%TwSSStif)) then allocate(DstInputFileData%TwSSStif(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1794,8 +1794,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TwFAM1Sh, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TwFAM1Sh) + UB(1:1) = ubound(SrcInputFileData%TwFAM1Sh) if (.not. allocated(DstInputFileData%TwFAM1Sh)) then allocate(DstInputFileData%TwFAM1Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1806,8 +1806,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TwFAM2Sh, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TwFAM2Sh) + UB(1:1) = ubound(SrcInputFileData%TwFAM2Sh) if (.not. allocated(DstInputFileData%TwFAM2Sh)) then allocate(DstInputFileData%TwFAM2Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1818,8 +1818,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TwSSM1Sh, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TwSSM1Sh) + UB(1:1) = ubound(SrcInputFileData%TwSSM1Sh) if (.not. allocated(DstInputFileData%TwSSM1Sh)) then allocate(DstInputFileData%TwSSM1Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1830,8 +1830,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TwSSM2Sh, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TwSSM2Sh) + UB(1:1) = ubound(SrcInputFileData%TwSSM2Sh) if (.not. allocated(DstInputFileData%TwSSM2Sh)) then allocate(DstInputFileData%TwSSM2Sh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1886,8 +1886,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BldNd_OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BldNd_OutList) + UB(1:1) = ubound(SrcInputFileData%BldNd_OutList) if (.not. allocated(DstInputFileData%BldNd_OutList)) then allocate(DstInputFileData%BldNd_OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1905,8 +1905,8 @@ subroutine ED_DestroyInputFile(InputFileData, ErrStat, ErrMsg) type(ED_InputFile), intent(inout) :: InputFileData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyInputFile' @@ -1922,8 +1922,8 @@ subroutine ED_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%TipMass) end if if (allocated(InputFileData%InpBlMesh)) then - LB(1:1) = lbound(InputFileData%InpBlMesh, kind=B8Ki) - UB(1:1) = ubound(InputFileData%InpBlMesh, kind=B8Ki) + LB(1:1) = lbound(InputFileData%InpBlMesh) + UB(1:1) = ubound(InputFileData%InpBlMesh) do i1 = LB(1), UB(1) call ED_DestroyBladeMeshInputData(InputFileData%InpBlMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1931,8 +1931,8 @@ subroutine ED_DestroyInputFile(InputFileData, ErrStat, ErrMsg) deallocate(InputFileData%InpBlMesh) end if if (allocated(InputFileData%InpBl)) then - LB(1:1) = lbound(InputFileData%InpBl, kind=B8Ki) - UB(1:1) = ubound(InputFileData%InpBl, kind=B8Ki) + LB(1:1) = lbound(InputFileData%InpBl) + UB(1:1) = ubound(InputFileData%InpBl) do i1 = LB(1), UB(1) call ED_DestroyBladeInputData(InputFileData%InpBl(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1975,8 +1975,8 @@ subroutine ED_PackInputFile(RF, Indata) type(RegFile), intent(inout) :: RF type(ED_InputFile), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackInputFile' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) call RegPack(RF, InData%FlapDOF1) @@ -2052,18 +2052,18 @@ subroutine ED_PackInputFile(RF, Indata) call RegPack(RF, InData%BldNodes) call RegPack(RF, allocated(InData%InpBlMesh)) if (allocated(InData%InpBlMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%InpBlMesh), ubound(InData%InpBlMesh)) + LB(1:1) = lbound(InData%InpBlMesh) + UB(1:1) = ubound(InData%InpBlMesh) do i1 = LB(1), UB(1) call ED_PackBladeMeshInputData(RF, InData%InpBlMesh(i1)) end do end if call RegPack(RF, allocated(InData%InpBl)) if (allocated(InData%InpBl)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%InpBl), ubound(InData%InpBl)) + LB(1:1) = lbound(InData%InpBl) + UB(1:1) = ubound(InData%InpBl) do i1 = LB(1), UB(1) call ED_PackBladeInputData(RF, InData%InpBl(i1)) end do @@ -2165,8 +2165,8 @@ subroutine ED_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackInputFile' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2366,7 +2366,7 @@ subroutine ED_CopyCoordSys(SrcCoordSysData, DstCoordSysData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyCoordSys' ErrStat = ErrID_None @@ -2399,8 +2399,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%i1, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%i1) + UB(1:2) = ubound(SrcCoordSysData%i1) if (.not. allocated(DstCoordSysData%i1)) then allocate(DstCoordSysData%i1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2411,8 +2411,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%i2, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%i2) + UB(1:2) = ubound(SrcCoordSysData%i2) if (.not. allocated(DstCoordSysData%i2)) then allocate(DstCoordSysData%i2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2423,8 +2423,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%i3, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%i3) + UB(1:2) = ubound(SrcCoordSysData%i3) if (.not. allocated(DstCoordSysData%i3)) then allocate(DstCoordSysData%i3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2435,8 +2435,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%j1, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%j1) + UB(1:2) = ubound(SrcCoordSysData%j1) if (.not. allocated(DstCoordSysData%j1)) then allocate(DstCoordSysData%j1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2447,8 +2447,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%j2, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%j2) + UB(1:2) = ubound(SrcCoordSysData%j2) if (.not. allocated(DstCoordSysData%j2)) then allocate(DstCoordSysData%j2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2459,8 +2459,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%j3, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%j3) + UB(1:2) = ubound(SrcCoordSysData%j3) if (.not. allocated(DstCoordSysData%j3)) then allocate(DstCoordSysData%j3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2471,8 +2471,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%m1, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%m1) + UB(1:3) = ubound(SrcCoordSysData%m1) 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 @@ -2483,8 +2483,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%m2, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%m2) + UB(1:3) = ubound(SrcCoordSysData%m2) 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 @@ -2495,8 +2495,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%m3, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%m3) + UB(1:3) = ubound(SrcCoordSysData%m3) 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 @@ -2507,8 +2507,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%n1, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%n1) + UB(1:3) = ubound(SrcCoordSysData%n1) 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 @@ -2519,8 +2519,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%n2, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%n2) + UB(1:3) = ubound(SrcCoordSysData%n2) 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 @@ -2531,8 +2531,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%n3, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%n3) + UB(1:3) = ubound(SrcCoordSysData%n3) 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 @@ -2547,8 +2547,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%t1, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%t1) + UB(1:2) = ubound(SrcCoordSysData%t1) if (.not. allocated(DstCoordSysData%t1)) then allocate(DstCoordSysData%t1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2559,8 +2559,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%t2, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%t2) + UB(1:2) = ubound(SrcCoordSysData%t2) if (.not. allocated(DstCoordSysData%t2)) then allocate(DstCoordSysData%t2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2571,8 +2571,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, kind=B8Ki) - UB(1:2) = ubound(SrcCoordSysData%t3, kind=B8Ki) + LB(1:2) = lbound(SrcCoordSysData%t3) + UB(1:2) = ubound(SrcCoordSysData%t3) if (.not. allocated(DstCoordSysData%t3)) then allocate(DstCoordSysData%t3(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2583,8 +2583,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%te1, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%te1) + UB(1:3) = ubound(SrcCoordSysData%te1) 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 @@ -2595,8 +2595,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%te2, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%te2) + UB(1:3) = ubound(SrcCoordSysData%te2) 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 @@ -2607,8 +2607,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, kind=B8Ki) - UB(1:3) = ubound(SrcCoordSysData%te3, kind=B8Ki) + LB(1:3) = lbound(SrcCoordSysData%te3) + UB(1:3) = ubound(SrcCoordSysData%te3) 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 @@ -2758,7 +2758,7 @@ subroutine ED_UnPackCoordSys(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_CoordSys), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackCoordSys' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2826,7 +2826,7 @@ subroutine ED_CopyActiveDOFs(SrcActiveDOFsData, DstActiveDOFsData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ED_CopyActiveDOFs' ErrStat = ErrID_None @@ -2838,8 +2838,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%NPSBE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%NPSBE) + UB(1:1) = ubound(SrcActiveDOFsData%NPSBE) if (.not. allocated(DstActiveDOFsData%NPSBE)) then allocate(DstActiveDOFsData%NPSBE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2850,8 +2850,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%NPSE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%NPSE) + UB(1:1) = ubound(SrcActiveDOFsData%NPSE) if (.not. allocated(DstActiveDOFsData%NPSE)) then allocate(DstActiveDOFsData%NPSE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2864,8 +2864,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PCE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PCE) + UB(1:1) = ubound(SrcActiveDOFsData%PCE) if (.not. allocated(DstActiveDOFsData%PCE)) then allocate(DstActiveDOFsData%PCE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2876,8 +2876,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PDE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PDE) + UB(1:1) = ubound(SrcActiveDOFsData%PDE) if (.not. allocated(DstActiveDOFsData%PDE)) then allocate(DstActiveDOFsData%PDE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2888,8 +2888,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PIE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PIE) + UB(1:1) = ubound(SrcActiveDOFsData%PIE) if (.not. allocated(DstActiveDOFsData%PIE)) then allocate(DstActiveDOFsData%PIE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2900,8 +2900,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PTE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PTE) + UB(1:1) = ubound(SrcActiveDOFsData%PTE) if (.not. allocated(DstActiveDOFsData%PTE)) then allocate(DstActiveDOFsData%PTE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2912,8 +2912,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PTTE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PTTE) + UB(1:1) = ubound(SrcActiveDOFsData%PTTE) if (.not. allocated(DstActiveDOFsData%PTTE)) then allocate(DstActiveDOFsData%PTTE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2924,8 +2924,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PS, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PS) + UB(1:1) = ubound(SrcActiveDOFsData%PS) if (.not. allocated(DstActiveDOFsData%PS)) then allocate(DstActiveDOFsData%PS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2936,8 +2936,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, kind=B8Ki) - UB(1:2) = ubound(SrcActiveDOFsData%PSBE, kind=B8Ki) + LB(1:2) = lbound(SrcActiveDOFsData%PSBE) + UB(1:2) = ubound(SrcActiveDOFsData%PSBE) if (.not. allocated(DstActiveDOFsData%PSBE)) then allocate(DstActiveDOFsData%PSBE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2948,8 +2948,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, kind=B8Ki) - UB(1:2) = ubound(SrcActiveDOFsData%PSE, kind=B8Ki) + LB(1:2) = lbound(SrcActiveDOFsData%PSE) + UB(1:2) = ubound(SrcActiveDOFsData%PSE) if (.not. allocated(DstActiveDOFsData%PSE)) then allocate(DstActiveDOFsData%PSE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2960,8 +2960,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PUE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PUE) + UB(1:1) = ubound(SrcActiveDOFsData%PUE) if (.not. allocated(DstActiveDOFsData%PUE)) then allocate(DstActiveDOFsData%PUE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2972,8 +2972,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%PYE, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%PYE) + UB(1:1) = ubound(SrcActiveDOFsData%PYE) if (.not. allocated(DstActiveDOFsData%PYE)) then allocate(DstActiveDOFsData%PYE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2984,8 +2984,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%SrtPS, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%SrtPS) + UB(1:1) = ubound(SrcActiveDOFsData%SrtPS) if (.not. allocated(DstActiveDOFsData%SrtPS)) then allocate(DstActiveDOFsData%SrtPS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2996,8 +2996,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%SrtPSNAUG, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%SrtPSNAUG) + UB(1:1) = ubound(SrcActiveDOFsData%SrtPSNAUG) if (.not. allocated(DstActiveDOFsData%SrtPSNAUG)) then allocate(DstActiveDOFsData%SrtPSNAUG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3008,8 +3008,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, kind=B8Ki) - UB(1:1) = ubound(SrcActiveDOFsData%Diag, kind=B8Ki) + LB(1:1) = lbound(SrcActiveDOFsData%Diag) + UB(1:1) = ubound(SrcActiveDOFsData%Diag) if (.not. allocated(DstActiveDOFsData%Diag)) then allocate(DstActiveDOFsData%Diag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3110,7 +3110,7 @@ subroutine ED_UnPackActiveDOFs(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_ActiveDOFs), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackActiveDOFs' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3145,15 +3145,15 @@ subroutine ED_CopyRtHndSide(SrcRtHndSideData, DstRtHndSideData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%rQS, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%rQS) + UB(1:3) = ubound(SrcRtHndSideData%rQS) 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 @@ -3164,8 +3164,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%rS, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%rS) + UB(1:3) = ubound(SrcRtHndSideData%rS) 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 @@ -3176,8 +3176,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%rS0S, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%rS0S) + UB(1:3) = ubound(SrcRtHndSideData%rS0S) 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 @@ -3188,8 +3188,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%rT, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%rT) + UB(1:2) = ubound(SrcRtHndSideData%rT) if (.not. allocated(DstRtHndSideData%rT)) then allocate(DstRtHndSideData%rT(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3201,8 +3201,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%rT0T, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%rT0T) + UB(1:2) = ubound(SrcRtHndSideData%rT0T) if (.not. allocated(DstRtHndSideData%rT0T)) then allocate(DstRtHndSideData%rT0T(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3215,8 +3215,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%rZT, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%rZT) + UB(1:2) = ubound(SrcRtHndSideData%rZT) if (.not. allocated(DstRtHndSideData%rZT)) then allocate(DstRtHndSideData%rZT(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3237,8 +3237,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%rPS0, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%rPS0) + UB(1:2) = ubound(SrcRtHndSideData%rPS0) if (.not. allocated(DstRtHndSideData%rPS0)) then allocate(DstRtHndSideData%rPS0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3256,8 +3256,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%AngPosEF, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%AngPosEF) + UB(1:2) = ubound(SrcRtHndSideData%AngPosEF) if (.not. allocated(DstRtHndSideData%AngPosEF)) then allocate(DstRtHndSideData%AngPosEF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3268,8 +3268,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%AngPosXF, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%AngPosXF) + UB(1:2) = ubound(SrcRtHndSideData%AngPosXF) if (.not. allocated(DstRtHndSideData%AngPosXF)) then allocate(DstRtHndSideData%AngPosXF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3280,8 +3280,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%AngPosHM, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%AngPosHM) + UB(1:3) = ubound(SrcRtHndSideData%AngPosHM) 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 @@ -3294,8 +3294,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEA, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEA) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEA) 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 @@ -3306,8 +3306,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, kind=B8Ki) - UB(1:4) = ubound(SrcRtHndSideData%PAngVelEF, kind=B8Ki) + LB(1:4) = lbound(SrcRtHndSideData%PAngVelEF) + UB(1:4) = ubound(SrcRtHndSideData%PAngVelEF) 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 @@ -3318,8 +3318,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEG, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEG) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEG) 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 @@ -3330,8 +3330,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEH, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEH) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEH) 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 @@ -3342,8 +3342,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEL, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEL) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEL) 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 @@ -3354,8 +3354,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, kind=B8Ki) - UB(1:5) = ubound(SrcRtHndSideData%PAngVelEM, kind=B8Ki) + LB(1:5) = lbound(SrcRtHndSideData%PAngVelEM) + UB(1:5) = ubound(SrcRtHndSideData%PAngVelEM) 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 @@ -3366,8 +3366,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%AngVelEM, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%AngVelEM) + UB(1:3) = ubound(SrcRtHndSideData%AngVelEM) 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 @@ -3378,8 +3378,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEN, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEN) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEN) 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 @@ -3391,8 +3391,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEB, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEB) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEB) 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 @@ -3403,8 +3403,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelER, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelER) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelER) 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 @@ -3415,8 +3415,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PAngVelEX, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PAngVelEX) + UB(1:3) = ubound(SrcRtHndSideData%PAngVelEX) 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 @@ -3438,8 +3438,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%AngAccEFt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%AngAccEFt) + UB(1:2) = ubound(SrcRtHndSideData%AngAccEFt) if (.not. allocated(DstRtHndSideData%AngAccEFt)) then allocate(DstRtHndSideData%AngAccEFt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3450,8 +3450,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%AngVelEF, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%AngVelEF) + UB(1:2) = ubound(SrcRtHndSideData%AngVelEF) if (.not. allocated(DstRtHndSideData%AngVelEF)) then allocate(DstRtHndSideData%AngVelEF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3462,8 +3462,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%AngVelHM, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%AngVelHM) + UB(1:3) = ubound(SrcRtHndSideData%AngVelHM) 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 @@ -3477,8 +3477,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%AngAccEKt, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%AngAccEKt) + UB(1:3) = ubound(SrcRtHndSideData%AngAccEKt) 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 @@ -3496,8 +3496,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%LinVelES, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%LinVelES) + UB(1:3) = ubound(SrcRtHndSideData%LinVelES) 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 @@ -3509,8 +3509,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%LinVelET, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%LinVelET) + UB(1:2) = ubound(SrcRtHndSideData%LinVelET) if (.not. allocated(DstRtHndSideData%LinVelET)) then allocate(DstRtHndSideData%LinVelET(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3521,8 +3521,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, kind=B8Ki) - UB(1:1) = ubound(SrcRtHndSideData%LinVelESm2, kind=B8Ki) + LB(1:1) = lbound(SrcRtHndSideData%LinVelESm2) + UB(1:1) = ubound(SrcRtHndSideData%LinVelESm2) if (.not. allocated(DstRtHndSideData%LinVelESm2)) then allocate(DstRtHndSideData%LinVelESm2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3533,8 +3533,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEIMU, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEIMU) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEIMU) 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 @@ -3545,8 +3545,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEO, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEO) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEO) 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 @@ -3557,8 +3557,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, kind=B8Ki) - UB(1:5) = ubound(SrcRtHndSideData%PLinVelES, kind=B8Ki) + LB(1:5) = lbound(SrcRtHndSideData%PLinVelES) + UB(1:5) = ubound(SrcRtHndSideData%PLinVelES) 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 @@ -3569,8 +3569,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, kind=B8Ki) - UB(1:4) = ubound(SrcRtHndSideData%PLinVelET, kind=B8Ki) + LB(1:4) = lbound(SrcRtHndSideData%PLinVelET) + UB(1:4) = ubound(SrcRtHndSideData%PLinVelET) 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 @@ -3581,8 +3581,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEZ, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEZ) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEZ) 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 @@ -3593,8 +3593,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEC, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEC) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEC) 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 @@ -3605,8 +3605,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelED, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelED) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelED) 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 @@ -3617,8 +3617,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEI, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEI) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEI) 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 @@ -3629,8 +3629,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEJ, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEJ) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEJ) 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 @@ -3641,8 +3641,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEP, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEP) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEP) 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 @@ -3653,8 +3653,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEQ, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEQ) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEQ) 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 @@ -3665,8 +3665,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEU, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEU) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEU) 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 @@ -3677,8 +3677,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEV, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEV) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEV) 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 @@ -3689,8 +3689,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEW, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEW) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEW) 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 @@ -3701,8 +3701,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PLinVelEY, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PLinVelEY) + UB(1:3) = ubound(SrcRtHndSideData%PLinVelEY) 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 @@ -3715,8 +3715,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%LinAccESt, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%LinAccESt) + UB(1:3) = ubound(SrcRtHndSideData%LinAccESt) 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 @@ -3727,8 +3727,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%LinAccETt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%LinAccETt) + UB(1:2) = ubound(SrcRtHndSideData%LinAccETt) if (.not. allocated(DstRtHndSideData%LinAccETt)) then allocate(DstRtHndSideData%LinAccETt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3746,8 +3746,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%FrcS0Bt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%FrcS0Bt) + UB(1:2) = ubound(SrcRtHndSideData%FrcS0Bt) if (.not. allocated(DstRtHndSideData%FrcS0Bt)) then allocate(DstRtHndSideData%FrcS0Bt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3759,8 +3759,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%FSAero, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%FSAero) + UB(1:3) = ubound(SrcRtHndSideData%FSAero) 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 @@ -3771,8 +3771,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%FSTipDrag, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%FSTipDrag) + UB(1:2) = ubound(SrcRtHndSideData%FSTipDrag) if (.not. allocated(DstRtHndSideData%FSTipDrag)) then allocate(DstRtHndSideData%FSTipDrag(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3783,8 +3783,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%FTHydrot, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%FTHydrot) + UB(1:2) = ubound(SrcRtHndSideData%FTHydrot) if (.not. allocated(DstRtHndSideData%FTHydrot)) then allocate(DstRtHndSideData%FTHydrot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3796,8 +3796,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%MFHydrot, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%MFHydrot) + UB(1:2) = ubound(SrcRtHndSideData%MFHydrot) if (.not. allocated(DstRtHndSideData%MFHydrot)) then allocate(DstRtHndSideData%MFHydrot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3809,8 +3809,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%MomH0Bt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%MomH0Bt) + UB(1:2) = ubound(SrcRtHndSideData%MomH0Bt) if (.not. allocated(DstRtHndSideData%MomH0Bt)) then allocate(DstRtHndSideData%MomH0Bt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3825,8 +3825,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%MMAero, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%MMAero) + UB(1:3) = ubound(SrcRtHndSideData%MMAero) 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 @@ -3838,8 +3838,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PFrcONcRt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PFrcONcRt) + UB(1:2) = ubound(SrcRtHndSideData%PFrcONcRt) if (.not. allocated(DstRtHndSideData%PFrcONcRt)) then allocate(DstRtHndSideData%PFrcONcRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3850,8 +3850,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PFrcPRot, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PFrcPRot) + UB(1:2) = ubound(SrcRtHndSideData%PFrcPRot) if (.not. allocated(DstRtHndSideData%PFrcPRot)) then allocate(DstRtHndSideData%PFrcPRot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3862,8 +3862,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PFrcS0B, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PFrcS0B) + UB(1:3) = ubound(SrcRtHndSideData%PFrcS0B) 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 @@ -3874,8 +3874,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PFrcT0Trb, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PFrcT0Trb) + UB(1:2) = ubound(SrcRtHndSideData%PFrcT0Trb) if (.not. allocated(DstRtHndSideData%PFrcT0Trb)) then allocate(DstRtHndSideData%PFrcT0Trb(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3886,8 +3886,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PFTHydro, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PFTHydro) + UB(1:3) = ubound(SrcRtHndSideData%PFTHydro) 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 @@ -3899,8 +3899,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PMFHydro, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PMFHydro) + UB(1:3) = ubound(SrcRtHndSideData%PMFHydro) 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 @@ -3911,8 +3911,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PMomBNcRt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PMomBNcRt) + UB(1:2) = ubound(SrcRtHndSideData%PMomBNcRt) if (.not. allocated(DstRtHndSideData%PMomBNcRt)) then allocate(DstRtHndSideData%PMomBNcRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3923,8 +3923,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%PMomH0B, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%PMomH0B) + UB(1:3) = ubound(SrcRtHndSideData%PMomH0B) 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 @@ -3935,8 +3935,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PMomLPRot, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PMomLPRot) + UB(1:2) = ubound(SrcRtHndSideData%PMomLPRot) if (.not. allocated(DstRtHndSideData%PMomLPRot)) then allocate(DstRtHndSideData%PMomLPRot(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3947,8 +3947,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PMomNGnRt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PMomNGnRt) + UB(1:2) = ubound(SrcRtHndSideData%PMomNGnRt) if (.not. allocated(DstRtHndSideData%PMomNGnRt)) then allocate(DstRtHndSideData%PMomNGnRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3959,8 +3959,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PMomNTail, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PMomNTail) + UB(1:2) = ubound(SrcRtHndSideData%PMomNTail) if (.not. allocated(DstRtHndSideData%PMomNTail)) then allocate(DstRtHndSideData%PMomNTail(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3971,8 +3971,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PMomX0Trb, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PMomX0Trb) + UB(1:2) = ubound(SrcRtHndSideData%PMomX0Trb) if (.not. allocated(DstRtHndSideData%PMomX0Trb)) then allocate(DstRtHndSideData%PMomX0Trb(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3989,8 +3989,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PFrcVGnRt, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PFrcVGnRt) + UB(1:2) = ubound(SrcRtHndSideData%PFrcVGnRt) if (.not. allocated(DstRtHndSideData%PFrcVGnRt)) then allocate(DstRtHndSideData%PFrcVGnRt(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4001,8 +4001,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PFrcWTail, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PFrcWTail) + UB(1:2) = ubound(SrcRtHndSideData%PFrcWTail) if (.not. allocated(DstRtHndSideData%PFrcWTail)) then allocate(DstRtHndSideData%PFrcWTail(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4013,8 +4013,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PFrcZAll, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PFrcZAll) + UB(1:2) = ubound(SrcRtHndSideData%PFrcZAll) if (.not. allocated(DstRtHndSideData%PFrcZAll)) then allocate(DstRtHndSideData%PFrcZAll(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4025,8 +4025,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, kind=B8Ki) - UB(1:2) = ubound(SrcRtHndSideData%PMomXAll, kind=B8Ki) + LB(1:2) = lbound(SrcRtHndSideData%PMomXAll) + UB(1:2) = ubound(SrcRtHndSideData%PMomXAll) if (.not. allocated(DstRtHndSideData%PMomXAll)) then allocate(DstRtHndSideData%PMomXAll(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4041,8 +4041,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, kind=B8Ki) - UB(1:3) = ubound(SrcRtHndSideData%rSAerCen, kind=B8Ki) + LB(1:3) = lbound(SrcRtHndSideData%rSAerCen) + UB(1:3) = ubound(SrcRtHndSideData%rSAerCen) 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 @@ -4427,7 +4427,7 @@ subroutine ED_UnPackRtHndSide(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_RtHndSide), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackRtHndSide' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4583,14 +4583,14 @@ subroutine ED_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%QT, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%QT) + UB(1:1) = ubound(SrcContStateData%QT) if (.not. allocated(DstContStateData%QT)) then allocate(DstContStateData%QT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4601,8 +4601,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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%QDT, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%QDT) + UB(1:1) = ubound(SrcContStateData%QDT) if (.not. allocated(DstContStateData%QDT)) then allocate(DstContStateData%QDT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4643,7 +4643,7 @@ subroutine ED_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4733,24 +4733,24 @@ subroutine ED_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%IC, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%IC) + UB(1:1) = ubound(SrcOtherStateData%IC) if (.not. allocated(DstOtherStateData%IC)) then allocate(DstOtherStateData%IC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4774,15 +4774,15 @@ subroutine ED_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(ED_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call ED_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4796,12 +4796,12 @@ subroutine ED_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(ED_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%n) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call ED_PackContState(RF, InData%xdot(i1)) end do @@ -4821,14 +4821,14 @@ subroutine ED_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return call RegUnpack(RF, OutData%n); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call ED_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do @@ -4849,7 +4849,7 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyMisc' @@ -4862,8 +4862,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4874,8 +4874,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%AugMat, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%AugMat) + UB(1:2) = ubound(SrcMiscData%AugMat) if (.not. allocated(DstMiscData%AugMat)) then allocate(DstMiscData%AugMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4886,8 +4886,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%AugMat_factor, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%AugMat_factor) + UB(1:2) = ubound(SrcMiscData%AugMat_factor) 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 @@ -4898,8 +4898,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SolnVec, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SolnVec) + UB(1:1) = ubound(SrcMiscData%SolnVec) if (.not. allocated(DstMiscData%SolnVec)) then allocate(DstMiscData%SolnVec(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4910,8 +4910,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AugMat_pivot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AugMat_pivot) + UB(1:1) = ubound(SrcMiscData%AugMat_pivot) if (.not. allocated(DstMiscData%AugMat_pivot)) then allocate(DstMiscData%AugMat_pivot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4922,8 +4922,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%OgnlGeAzRo, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%OgnlGeAzRo) + UB(1:1) = ubound(SrcMiscData%OgnlGeAzRo) if (.not. allocated(DstMiscData%OgnlGeAzRo)) then allocate(DstMiscData%OgnlGeAzRo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4934,8 +4934,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%QD2T, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%QD2T) + UB(1:1) = ubound(SrcMiscData%QD2T) if (.not. allocated(DstMiscData%QD2T)) then allocate(DstMiscData%QD2T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4947,8 +4947,8 @@ subroutine ED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end if DstMiscData%IgnoreMod = SrcMiscData%IgnoreMod if (allocated(SrcMiscData%OgnlYawRow)) then - LB(1:1) = lbound(SrcMiscData%OgnlYawRow, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%OgnlYawRow, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%OgnlYawRow) + UB(1:1) = ubound(SrcMiscData%OgnlYawRow) if (.not. allocated(DstMiscData%OgnlYawRow)) then allocate(DstMiscData%OgnlYawRow(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5026,7 +5026,7 @@ subroutine ED_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackMisc' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5163,8 +5163,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4, i5 - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: i1, i2, i3, i4, i5 + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_CopyParam' @@ -5179,8 +5179,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%PH, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%PH) + UB(1:1) = ubound(SrcParamData%PH) if (.not. allocated(DstParamData%PH)) then allocate(DstParamData%PH(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5192,8 +5192,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PM, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PM) + UB(1:2) = ubound(SrcParamData%PM) if (.not. allocated(DstParamData%PM)) then allocate(DstParamData%PM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5204,8 +5204,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DOF_Flag, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DOF_Flag) + UB(1:1) = ubound(SrcParamData%DOF_Flag) if (.not. allocated(DstParamData%DOF_Flag)) then allocate(DstParamData%DOF_Flag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5216,8 +5216,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DOF_Desc, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DOF_Desc) + UB(1:1) = ubound(SrcParamData%DOF_Desc) if (.not. allocated(DstParamData%DOF_Desc)) then allocate(DstParamData%DOF_Desc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5235,8 +5235,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5255,8 +5255,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%CosPreC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%CosPreC) + UB(1:1) = ubound(SrcParamData%CosPreC) if (.not. allocated(DstParamData%CosPreC)) then allocate(DstParamData%CosPreC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5310,8 +5310,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%SinPreC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%SinPreC) + UB(1:1) = ubound(SrcParamData%SinPreC) if (.not. allocated(DstParamData%SinPreC)) then allocate(DstParamData%SinPreC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5338,8 +5338,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AxRedTFA, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AxRedTFA) + UB(1:3) = ubound(SrcParamData%AxRedTFA) 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 @@ -5350,8 +5350,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AxRedTSS, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AxRedTSS) + UB(1:3) = ubound(SrcParamData%AxRedTSS) 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 @@ -5364,8 +5364,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DHNodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DHNodes) + UB(1:1) = ubound(SrcParamData%DHNodes) if (.not. allocated(DstParamData%DHNodes)) then allocate(DstParamData%DHNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5376,8 +5376,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%HNodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%HNodes) + UB(1:1) = ubound(SrcParamData%HNodes) if (.not. allocated(DstParamData%HNodes)) then allocate(DstParamData%HNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5388,8 +5388,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%HNodesNorm, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%HNodesNorm) + UB(1:1) = ubound(SrcParamData%HNodesNorm) if (.not. allocated(DstParamData%HNodesNorm)) then allocate(DstParamData%HNodesNorm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5402,8 +5402,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%MassT, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%MassT) + UB(1:1) = ubound(SrcParamData%MassT) if (.not. allocated(DstParamData%MassT)) then allocate(DstParamData%MassT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5414,8 +5414,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%StiffTSS, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%StiffTSS) + UB(1:1) = ubound(SrcParamData%StiffTSS) if (.not. allocated(DstParamData%StiffTSS)) then allocate(DstParamData%StiffTSS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5426,8 +5426,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%TwrFASF, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%TwrFASF) + UB(1:3) = ubound(SrcParamData%TwrFASF) 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 @@ -5439,8 +5439,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%TwrSSSF, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%TwrSSSF) + UB(1:3) = ubound(SrcParamData%TwrSSSF) 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 @@ -5454,8 +5454,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%StiffTFA, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%StiffTFA) + UB(1:1) = ubound(SrcParamData%StiffTFA) if (.not. allocated(DstParamData%StiffTFA)) then allocate(DstParamData%StiffTFA(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5467,8 +5467,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BldCG, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BldCG) + UB(1:1) = ubound(SrcParamData%BldCG) if (.not. allocated(DstParamData%BldCG)) then allocate(DstParamData%BldCG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5479,8 +5479,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BldMass, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BldMass) + UB(1:1) = ubound(SrcParamData%BldMass) if (.not. allocated(DstParamData%BldMass)) then allocate(DstParamData%BldMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5492,8 +5492,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FirstMom, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FirstMom) + UB(1:1) = ubound(SrcParamData%FirstMom) if (.not. allocated(DstParamData%FirstMom)) then allocate(DstParamData%FirstMom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5521,8 +5521,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%SecondMom, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%SecondMom) + UB(1:1) = ubound(SrcParamData%SecondMom) if (.not. allocated(DstParamData%SecondMom)) then allocate(DstParamData%SecondMom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5535,8 +5535,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%TipMass, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%TipMass) + UB(1:1) = ubound(SrcParamData%TipMass) if (.not. allocated(DstParamData%TipMass)) then allocate(DstParamData%TipMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5552,8 +5552,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PitchAxis, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PitchAxis) + UB(1:2) = ubound(SrcParamData%PitchAxis) if (.not. allocated(DstParamData%PitchAxis)) then allocate(DstParamData%PitchAxis(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5564,8 +5564,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%AeroTwst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%AeroTwst) + UB(1:1) = ubound(SrcParamData%AeroTwst) if (.not. allocated(DstParamData%AeroTwst)) then allocate(DstParamData%AeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5576,8 +5576,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%AxRedBld, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%AxRedBld) + UB(1:4) = ubound(SrcParamData%AxRedBld) 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 @@ -5588,8 +5588,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BldEDamp, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BldEDamp) + UB(1:2) = ubound(SrcParamData%BldEDamp) if (.not. allocated(DstParamData%BldEDamp)) then allocate(DstParamData%BldEDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5600,8 +5600,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BldFDamp, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BldFDamp) + UB(1:2) = ubound(SrcParamData%BldFDamp) if (.not. allocated(DstParamData%BldFDamp)) then allocate(DstParamData%BldFDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5613,8 +5613,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%CAeroTwst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%CAeroTwst) + UB(1:1) = ubound(SrcParamData%CAeroTwst) if (.not. allocated(DstParamData%CAeroTwst)) then allocate(DstParamData%CAeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5625,8 +5625,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%CBE, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%CBE) + UB(1:3) = ubound(SrcParamData%CBE) 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 @@ -5637,8 +5637,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%CBF, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%CBF) + UB(1:3) = ubound(SrcParamData%CBF) 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 @@ -5649,8 +5649,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Chord, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Chord) + UB(1:1) = ubound(SrcParamData%Chord) if (.not. allocated(DstParamData%Chord)) then allocate(DstParamData%Chord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5661,8 +5661,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CThetaS, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CThetaS) + UB(1:2) = ubound(SrcParamData%CThetaS) if (.not. allocated(DstParamData%CThetaS)) then allocate(DstParamData%CThetaS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5673,8 +5673,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DRNodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DRNodes) + UB(1:1) = ubound(SrcParamData%DRNodes) if (.not. allocated(DstParamData%DRNodes)) then allocate(DstParamData%DRNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5685,8 +5685,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%FStTunr, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%FStTunr) + UB(1:2) = ubound(SrcParamData%FStTunr) if (.not. allocated(DstParamData%FStTunr)) then allocate(DstParamData%FStTunr(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5697,8 +5697,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%KBE, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%KBE) + UB(1:3) = ubound(SrcParamData%KBE) 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 @@ -5709,8 +5709,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%KBF, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%KBF) + UB(1:3) = ubound(SrcParamData%KBF) 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 @@ -5721,8 +5721,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MassB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MassB) + UB(1:2) = ubound(SrcParamData%MassB) if (.not. allocated(DstParamData%MassB)) then allocate(DstParamData%MassB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5733,8 +5733,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%RNodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%RNodes) + UB(1:1) = ubound(SrcParamData%RNodes) if (.not. allocated(DstParamData%RNodes)) then allocate(DstParamData%RNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5745,8 +5745,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%RNodesNorm, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%RNodesNorm) + UB(1:1) = ubound(SrcParamData%RNodesNorm) if (.not. allocated(DstParamData%RNodesNorm)) then allocate(DstParamData%RNodesNorm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5757,8 +5757,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%rSAerCenn1, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%rSAerCenn1) + UB(1:2) = ubound(SrcParamData%rSAerCenn1) if (.not. allocated(DstParamData%rSAerCenn1)) then allocate(DstParamData%rSAerCenn1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5769,8 +5769,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%rSAerCenn2, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%rSAerCenn2) + UB(1:2) = ubound(SrcParamData%rSAerCenn2) if (.not. allocated(DstParamData%rSAerCenn2)) then allocate(DstParamData%rSAerCenn2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5781,8 +5781,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%SAeroTwst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%SAeroTwst) + UB(1:1) = ubound(SrcParamData%SAeroTwst) if (.not. allocated(DstParamData%SAeroTwst)) then allocate(DstParamData%SAeroTwst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5793,8 +5793,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%StiffBE, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%StiffBE) + UB(1:2) = ubound(SrcParamData%StiffBE) if (.not. allocated(DstParamData%StiffBE)) then allocate(DstParamData%StiffBE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5805,8 +5805,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%StiffBF, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%StiffBF) + UB(1:2) = ubound(SrcParamData%StiffBF) if (.not. allocated(DstParamData%StiffBF)) then allocate(DstParamData%StiffBF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5817,8 +5817,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%SThetaS, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%SThetaS) + UB(1:2) = ubound(SrcParamData%SThetaS) if (.not. allocated(DstParamData%SThetaS)) then allocate(DstParamData%SThetaS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5829,8 +5829,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%ThetaS, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%ThetaS) + UB(1:2) = ubound(SrcParamData%ThetaS) if (.not. allocated(DstParamData%ThetaS)) then allocate(DstParamData%ThetaS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5841,8 +5841,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, kind=B8Ki) - UB(1:5) = ubound(SrcParamData%TwistedSF, kind=B8Ki) + LB(1:5) = lbound(SrcParamData%TwistedSF) + UB(1:5) = ubound(SrcParamData%TwistedSF) 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 @@ -5853,8 +5853,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BldFl1Sh, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BldFl1Sh) + UB(1:2) = ubound(SrcParamData%BldFl1Sh) if (.not. allocated(DstParamData%BldFl1Sh)) then allocate(DstParamData%BldFl1Sh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5865,8 +5865,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BldFl2Sh, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BldFl2Sh) + UB(1:2) = ubound(SrcParamData%BldFl2Sh) if (.not. allocated(DstParamData%BldFl2Sh)) then allocate(DstParamData%BldFl2Sh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5877,8 +5877,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BldEdgSh, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BldEdgSh) + UB(1:2) = ubound(SrcParamData%BldEdgSh) if (.not. allocated(DstParamData%BldEdgSh)) then allocate(DstParamData%BldEdgSh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5889,8 +5889,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%FreqBE, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%FreqBE) + UB(1:3) = ubound(SrcParamData%FreqBE) 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 @@ -5901,8 +5901,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%FreqBF, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%FreqBF) + UB(1:3) = ubound(SrcParamData%FreqBF) 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 @@ -5955,8 +5955,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BElmntMass, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BElmntMass) + UB(1:2) = ubound(SrcParamData%BElmntMass) if (.not. allocated(DstParamData%BElmntMass)) then allocate(DstParamData%BElmntMass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5967,8 +5967,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%TElmntMass, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%TElmntMass) + UB(1:1) = ubound(SrcParamData%TElmntMass) if (.not. allocated(DstParamData%TElmntMass)) then allocate(DstParamData%TElmntMass(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5990,8 +5990,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BldNd_OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BldNd_OutParam) + UB(1:1) = ubound(SrcParamData%BldNd_OutParam) if (.not. allocated(DstParamData%BldNd_OutParam)) then allocate(DstParamData%BldNd_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6013,8 +6013,8 @@ subroutine ED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcParamData%Jac_u_indx)) then - LB(1:2) = lbound(SrcParamData%Jac_u_indx, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_u_indx) + UB(1:2) = ubound(SrcParamData%Jac_u_indx) 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 @@ -6025,8 +6025,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%du) + UB(1:1) = ubound(SrcParamData%du) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6037,8 +6037,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dx) + UB(1:1) = ubound(SrcParamData%dx) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6061,8 +6061,8 @@ subroutine ED_DestroyParam(ParamData, ErrStat, ErrMsg) type(ED_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4, i5 - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: i1, i2, i3, i4, i5 + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ED_DestroyParam' @@ -6083,8 +6083,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6239,8 +6239,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%BldNd_OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%BldNd_OutParam) + UB(1:1) = ubound(ParamData%BldNd_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%BldNd_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6266,8 +6266,8 @@ subroutine ED_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(ED_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackParam' - integer(B8Ki) :: i1, i2, i3, i4, i5 - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: i1, i2, i3, i4, i5 + integer(B4Ki) :: LB(5), UB(5) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) call RegPack(RF, InData%DT24) @@ -6289,9 +6289,9 @@ subroutine ED_PackParam(RF, Indata) call RegPack(RF, InData%NTwGages) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -6498,9 +6498,9 @@ subroutine ED_PackParam(RF, Indata) call RegPack(RF, InData%BldNd_TotNumOuts) call RegPack(RF, allocated(InData%BldNd_OutParam)) if (allocated(InData%BldNd_OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BldNd_OutParam), ubound(InData%BldNd_OutParam)) + LB(1:1) = lbound(InData%BldNd_OutParam) + UB(1:1) = ubound(InData%BldNd_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%BldNd_OutParam(i1)) end do @@ -6525,8 +6525,8 @@ subroutine ED_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackParam' - integer(B8Ki) :: i1, i2, i3, i4, i5 - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: i1, i2, i3, i4, i5 + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6795,16 +6795,16 @@ subroutine ED_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%BladePtLoads, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%BladePtLoads) + UB(1:1) = ubound(SrcInputData%BladePtLoads) if (.not. allocated(DstInputData%BladePtLoads)) then allocate(DstInputData%BladePtLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6834,8 +6834,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, kind=B8Ki) - UB(1:3) = ubound(SrcInputData%TwrAddedMass, kind=B8Ki) + LB(1:3) = lbound(SrcInputData%TwrAddedMass) + UB(1:3) = ubound(SrcInputData%TwrAddedMass) 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 @@ -6847,8 +6847,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%BlPitchCom, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%BlPitchCom) + UB(1:1) = ubound(SrcInputData%BlPitchCom) if (.not. allocated(DstInputData%BlPitchCom)) then allocate(DstInputData%BlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6867,16 +6867,16 @@ subroutine ED_DestroyInput(InputData, ErrStat, ErrMsg) type(ED_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InputData%BladePtLoads, kind=B8Ki) + LB(1:1) = lbound(InputData%BladePtLoads) + UB(1:1) = ubound(InputData%BladePtLoads) do i1 = LB(1), UB(1) call MeshDestroy( InputData%BladePtLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6905,14 +6905,14 @@ subroutine ED_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(ED_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackInput' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%BladePtLoads)) if (allocated(InData%BladePtLoads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladePtLoads), ubound(InData%BladePtLoads)) + LB(1:1) = lbound(InData%BladePtLoads) + UB(1:1) = ubound(InData%BladePtLoads) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladePtLoads(i1)) end do @@ -6935,8 +6935,8 @@ subroutine ED_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackInput' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6972,16 +6972,16 @@ subroutine ED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BladeLn2Mesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BladeLn2Mesh) + UB(1:1) = ubound(SrcOutputData%BladeLn2Mesh) if (.not. allocated(DstOutputData%BladeLn2Mesh)) then allocate(DstOutputData%BladeLn2Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7005,8 +7005,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BladeRootMotion) + UB(1:1) = ubound(SrcOutputData%BladeRootMotion) if (.not. allocated(DstOutputData%BladeRootMotion)) then allocate(DstOutputData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7027,8 +7027,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7039,8 +7039,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BlPitch, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BlPitch) + UB(1:1) = ubound(SrcOutputData%BlPitch) if (.not. allocated(DstOutputData%BlPitch)) then allocate(DstOutputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7082,16 +7082,16 @@ subroutine ED_DestroyOutput(OutputData, ErrStat, ErrMsg) type(ED_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%BladeLn2Mesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%BladeLn2Mesh) + UB(1:1) = ubound(OutputData%BladeLn2Mesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeLn2Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7105,8 +7105,8 @@ subroutine ED_DestroyOutput(OutputData, ErrStat, ErrMsg) call MeshDestroy( OutputData%HubPtMotion, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(OutputData%BladeRootMotion)) then - LB(1:1) = lbound(OutputData%BladeRootMotion, kind=B8Ki) - UB(1:1) = ubound(OutputData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(OutputData%BladeRootMotion) + UB(1:1) = ubound(OutputData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7129,14 +7129,14 @@ subroutine ED_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(ED_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'ED_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%BladeLn2Mesh)) if (allocated(InData%BladeLn2Mesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeLn2Mesh), ubound(InData%BladeLn2Mesh)) + LB(1:1) = lbound(InData%BladeLn2Mesh) + UB(1:1) = ubound(InData%BladeLn2Mesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeLn2Mesh(i1)) end do @@ -7146,9 +7146,9 @@ subroutine ED_PackOutput(RF, Indata) call MeshPack(RF, InData%HubPtMotion) call RegPack(RF, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) + LB(1:1) = lbound(InData%BladeRootMotion) + UB(1:1) = ubound(InData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeRootMotion(i1)) end do @@ -7190,8 +7190,8 @@ subroutine ED_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ED_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ED_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -7358,7 +7358,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, kind=B8Ki),UBOUND(u_out%BladePtLoads,1, kind=B8Ki) + do i1 = lbound(u_out%BladePtLoads,1),ubound(u_out%BladePtLoads,1) 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 @@ -7378,7 +7378,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, kind=B8Ki),UBOUND(u_out%BlPitchCom,1, kind=B8Ki) + do i1 = lbound(u_out%BlPitchCom,1),ubound(u_out%BlPitchCom,1) CALL Angles_ExtrapInterp( u1%BlPitchCom(i1), u2%BlPitchCom(i1), tin, u_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -7447,7 +7447,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, kind=B8Ki),UBOUND(u_out%BladePtLoads,1, kind=B8Ki) + do i1 = lbound(u_out%BladePtLoads,1),ubound(u_out%BladePtLoads,1) 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 @@ -7467,7 +7467,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, kind=B8Ki),UBOUND(u_out%BlPitchCom,1, kind=B8Ki) + do i1 = lbound(u_out%BlPitchCom,1),ubound(u_out%BlPitchCom,1) 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 @@ -7574,7 +7574,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, kind=B8Ki),UBOUND(y_out%BladeLn2Mesh,1, kind=B8Ki) + do i1 = lbound(y_out%BladeLn2Mesh,1),ubound(y_out%BladeLn2Mesh,1) 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 @@ -7586,7 +7586,7 @@ SUBROUTINE ED_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg CALL MeshExtrapInterp1(y1%HubPtMotion, y2%HubPtMotion, tin, y_out%HubPtMotion, 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, kind=B8Ki),UBOUND(y_out%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(y_out%BladeRootMotion,1),ubound(y_out%BladeRootMotion,1) 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 @@ -7599,7 +7599,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, kind=B8Ki),UBOUND(y_out%BlPitch,1, kind=B8Ki) + do i1 = lbound(y_out%BlPitch,1),ubound(y_out%BlPitch,1) CALL Angles_ExtrapInterp( y1%BlPitch(i1), y2%BlPitch(i1), tin, y_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated @@ -7687,7 +7687,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, kind=B8Ki),UBOUND(y_out%BladeLn2Mesh,1, kind=B8Ki) + do i1 = lbound(y_out%BladeLn2Mesh,1),ubound(y_out%BladeLn2Mesh,1) 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 @@ -7699,7 +7699,7 @@ SUBROUTINE ED_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Err CALL MeshExtrapInterp2(y1%HubPtMotion, y2%HubPtMotion, y3%HubPtMotion, tin, y_out%HubPtMotion, 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, kind=B8Ki),UBOUND(y_out%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(y_out%BladeRootMotion,1),ubound(y_out%BladeRootMotion,1) 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 @@ -7712,7 +7712,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, kind=B8Ki),UBOUND(y_out%BlPitch,1, kind=B8Ki) + do i1 = lbound(y_out%BlPitch,1),ubound(y_out%BlPitch,1) 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 0ac5ebdb96..934490c07a 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%StructBldRNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%StructBldRNodes) + UB(1:1) = ubound(SrcInitInputData%StructBldRNodes) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%StructTwrHNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%StructTwrHNodes) + UB(1:1) = ubound(SrcInitInputData%StructTwrHNodes) if (.not. associated(DstInitInputData%StructTwrHNodes)) then allocate(DstInitInputData%StructTwrHNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -307,7 +307,7 @@ subroutine ExtInfw_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtInfw_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -404,7 +404,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, kind=B8Ki))) + InitInputData%C_obj%StructBldRNodes = C_LOC(InitInputData%StructBldRNodes(lbound(InitInputData%StructBldRNodes,1))) END IF END IF @@ -416,7 +416,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, kind=B8Ki))) + InitInputData%C_obj%StructTwrHNodes = C_LOC(InitInputData%StructTwrHNodes(lbound(InitInputData%StructTwrHNodes,1))) END IF END IF InitInputData%C_obj%BladeLength = InitInputData%BladeLength @@ -431,15 +431,15 @@ subroutine ExtInfw_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -450,8 +450,8 @@ subroutine ExtInfw_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -514,7 +514,7 @@ subroutine ExtInfw_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtInfw_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -583,16 +583,16 @@ subroutine ExtInfw_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%ActForceMotionsPoints, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%ActForceMotionsPoints) + UB(1:1) = ubound(SrcMiscData%ActForceMotionsPoints) if (.not. allocated(DstMiscData%ActForceMotionsPoints)) then allocate(DstMiscData%ActForceMotionsPoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -607,8 +607,8 @@ subroutine ExtInfw_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%ActForceLoadsPoints)) then - LB(1:1) = lbound(SrcMiscData%ActForceLoadsPoints, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%ActForceLoadsPoints, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%ActForceLoadsPoints) + UB(1:1) = ubound(SrcMiscData%ActForceLoadsPoints) if (.not. allocated(DstMiscData%ActForceLoadsPoints)) then allocate(DstMiscData%ActForceLoadsPoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -623,8 +623,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Loads, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Line2_to_Point_Loads) + UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Loads) 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 @@ -639,8 +639,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Motions, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Line2_to_Point_Motions) + UB(1:1) = ubound(SrcMiscData%Line2_to_Point_Motions) 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 @@ -672,16 +672,16 @@ subroutine ExtInfw_DestroyMisc(MiscData, ErrStat, ErrMsg) type(ExtInfw_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(MiscData%ActForceMotionsPoints, kind=B8Ki) + LB(1:1) = lbound(MiscData%ActForceMotionsPoints) + UB(1:1) = ubound(MiscData%ActForceMotionsPoints) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%ActForceMotionsPoints(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -689,8 +689,8 @@ subroutine ExtInfw_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%ActForceMotionsPoints) end if if (allocated(MiscData%ActForceLoadsPoints)) then - LB(1:1) = lbound(MiscData%ActForceLoadsPoints, kind=B8Ki) - UB(1:1) = ubound(MiscData%ActForceLoadsPoints, kind=B8Ki) + LB(1:1) = lbound(MiscData%ActForceLoadsPoints) + UB(1:1) = ubound(MiscData%ActForceLoadsPoints) do i1 = LB(1), UB(1) call MeshDestroy( MiscData%ActForceLoadsPoints(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -698,8 +698,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%Line2_to_Point_Loads, kind=B8Ki) + LB(1:1) = lbound(MiscData%Line2_to_Point_Loads) + UB(1:1) = ubound(MiscData%Line2_to_Point_Loads) 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) @@ -707,8 +707,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%Line2_to_Point_Motions, kind=B8Ki) + LB(1:1) = lbound(MiscData%Line2_to_Point_Motions) + UB(1:1) = ubound(MiscData%Line2_to_Point_Motions) 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) @@ -727,8 +727,8 @@ subroutine ExtInfw_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtInfw_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtInfw_PackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return if (c_associated(InData%C_obj%object)) then @@ -737,36 +737,36 @@ subroutine ExtInfw_PackMisc(RF, Indata) end if call RegPack(RF, allocated(InData%ActForceMotionsPoints)) if (allocated(InData%ActForceMotionsPoints)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%ActForceMotionsPoints), ubound(InData%ActForceMotionsPoints)) + LB(1:1) = lbound(InData%ActForceMotionsPoints) + UB(1:1) = ubound(InData%ActForceMotionsPoints) do i1 = LB(1), UB(1) call MeshPack(RF, InData%ActForceMotionsPoints(i1)) end do end if call RegPack(RF, allocated(InData%ActForceLoadsPoints)) if (allocated(InData%ActForceLoadsPoints)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%ActForceLoadsPoints), ubound(InData%ActForceLoadsPoints)) + LB(1:1) = lbound(InData%ActForceLoadsPoints) + UB(1:1) = ubound(InData%ActForceLoadsPoints) do i1 = LB(1), UB(1) call MeshPack(RF, InData%ActForceLoadsPoints(i1)) end do end if call RegPack(RF, allocated(InData%Line2_to_Point_Loads)) if (allocated(InData%Line2_to_Point_Loads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%Line2_to_Point_Loads(i1)) end do end if call RegPack(RF, allocated(InData%Line2_to_Point_Motions)) if (allocated(InData%Line2_to_Point_Motions)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%Line2_to_Point_Motions(i1)) end do @@ -785,8 +785,8 @@ subroutine ExtInfw_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtInfw_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -904,7 +904,7 @@ subroutine ExtInfw_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtInfw_CopyParam' ErrStat = ErrID_None @@ -924,8 +924,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%forceBldRnodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%forceBldRnodes) + UB(1:1) = ubound(SrcParamData%forceBldRnodes) if (.not. associated(DstParamData%forceBldRnodes)) then allocate(DstParamData%forceBldRnodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -939,8 +939,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%forceTwrHnodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%forceTwrHnodes) + UB(1:1) = ubound(SrcParamData%forceTwrHnodes) if (.not. associated(DstParamData%forceTwrHnodes)) then allocate(DstParamData%forceTwrHnodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1014,7 +1014,7 @@ subroutine ExtInfw_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtInfw_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1131,7 +1131,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, kind=B8Ki))) + ParamData%C_obj%forceBldRnodes = C_LOC(ParamData%forceBldRnodes(lbound(ParamData%forceBldRnodes,1))) END IF END IF @@ -1143,7 +1143,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, kind=B8Ki))) + ParamData%C_obj%forceTwrHnodes = C_LOC(ParamData%forceTwrHnodes(lbound(ParamData%forceTwrHnodes,1))) END IF END IF ParamData%C_obj%BladeLength = ParamData%BladeLength @@ -1158,14 +1158,14 @@ subroutine ExtInfw_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pxVel, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pxVel) + UB(1:1) = ubound(SrcInputData%pxVel) if (.not. associated(DstInputData%pxVel)) then allocate(DstInputData%pxVel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1179,8 +1179,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pyVel, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pyVel) + UB(1:1) = ubound(SrcInputData%pyVel) if (.not. associated(DstInputData%pyVel)) then allocate(DstInputData%pyVel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1194,8 +1194,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pzVel, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pzVel) + UB(1:1) = ubound(SrcInputData%pzVel) if (.not. associated(DstInputData%pzVel)) then allocate(DstInputData%pzVel(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1209,8 +1209,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pxForce, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pxForce) + UB(1:1) = ubound(SrcInputData%pxForce) if (.not. associated(DstInputData%pxForce)) then allocate(DstInputData%pxForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1224,8 +1224,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pyForce, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pyForce) + UB(1:1) = ubound(SrcInputData%pyForce) if (.not. associated(DstInputData%pyForce)) then allocate(DstInputData%pyForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1239,8 +1239,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pzForce, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pzForce) + UB(1:1) = ubound(SrcInputData%pzForce) if (.not. associated(DstInputData%pzForce)) then allocate(DstInputData%pzForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1254,8 +1254,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%xdotForce, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%xdotForce) + UB(1:1) = ubound(SrcInputData%xdotForce) if (.not. associated(DstInputData%xdotForce)) then allocate(DstInputData%xdotForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1269,8 +1269,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%ydotForce, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%ydotForce) + UB(1:1) = ubound(SrcInputData%ydotForce) if (.not. associated(DstInputData%ydotForce)) then allocate(DstInputData%ydotForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1284,8 +1284,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%zdotForce, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%zdotForce) + UB(1:1) = ubound(SrcInputData%zdotForce) if (.not. associated(DstInputData%zdotForce)) then allocate(DstInputData%zdotForce(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1299,8 +1299,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%pOrientation, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%pOrientation) + UB(1:1) = ubound(SrcInputData%pOrientation) if (.not. associated(DstInputData%pOrientation)) then allocate(DstInputData%pOrientation(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1314,8 +1314,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fx, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fx) + UB(1:1) = ubound(SrcInputData%fx) if (.not. associated(DstInputData%fx)) then allocate(DstInputData%fx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1329,8 +1329,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fy, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fy) + UB(1:1) = ubound(SrcInputData%fy) if (.not. associated(DstInputData%fy)) then allocate(DstInputData%fy(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1344,8 +1344,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fz, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fz) + UB(1:1) = ubound(SrcInputData%fz) if (.not. associated(DstInputData%fz)) then allocate(DstInputData%fz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1359,8 +1359,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%momentx, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%momentx) + UB(1:1) = ubound(SrcInputData%momentx) if (.not. associated(DstInputData%momentx)) then allocate(DstInputData%momentx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1374,8 +1374,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%momenty, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%momenty) + UB(1:1) = ubound(SrcInputData%momenty) if (.not. associated(DstInputData%momenty)) then allocate(DstInputData%momenty(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1389,8 +1389,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%momentz, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%momentz) + UB(1:1) = ubound(SrcInputData%momentz) if (.not. associated(DstInputData%momentz)) then allocate(DstInputData%momentz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1404,8 +1404,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%forceNodesChord, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%forceNodesChord) + UB(1:1) = ubound(SrcInputData%forceNodesChord) if (.not. associated(DstInputData%forceNodesChord)) then allocate(DstInputData%forceNodesChord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1565,7 +1565,7 @@ subroutine ExtInfw_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtInfw_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1852,7 +1852,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, kind=B8Ki))) + InputData%C_obj%pxVel = C_LOC(InputData%pxVel(lbound(InputData%pxVel,1))) END IF END IF @@ -1864,7 +1864,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, kind=B8Ki))) + InputData%C_obj%pyVel = C_LOC(InputData%pyVel(lbound(InputData%pyVel,1))) END IF END IF @@ -1876,7 +1876,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, kind=B8Ki))) + InputData%C_obj%pzVel = C_LOC(InputData%pzVel(lbound(InputData%pzVel,1))) END IF END IF @@ -1888,7 +1888,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, kind=B8Ki))) + InputData%C_obj%pxForce = C_LOC(InputData%pxForce(lbound(InputData%pxForce,1))) END IF END IF @@ -1900,7 +1900,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, kind=B8Ki))) + InputData%C_obj%pyForce = C_LOC(InputData%pyForce(lbound(InputData%pyForce,1))) END IF END IF @@ -1912,7 +1912,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, kind=B8Ki))) + InputData%C_obj%pzForce = C_LOC(InputData%pzForce(lbound(InputData%pzForce,1))) END IF END IF @@ -1924,7 +1924,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, kind=B8Ki))) + InputData%C_obj%xdotForce = C_LOC(InputData%xdotForce(lbound(InputData%xdotForce,1))) END IF END IF @@ -1936,7 +1936,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, kind=B8Ki))) + InputData%C_obj%ydotForce = C_LOC(InputData%ydotForce(lbound(InputData%ydotForce,1))) END IF END IF @@ -1948,7 +1948,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, kind=B8Ki))) + InputData%C_obj%zdotForce = C_LOC(InputData%zdotForce(lbound(InputData%zdotForce,1))) END IF END IF @@ -1960,7 +1960,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, kind=B8Ki))) + InputData%C_obj%pOrientation = C_LOC(InputData%pOrientation(lbound(InputData%pOrientation,1))) END IF END IF @@ -1972,7 +1972,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, kind=B8Ki))) + InputData%C_obj%fx = C_LOC(InputData%fx(lbound(InputData%fx,1))) END IF END IF @@ -1984,7 +1984,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, kind=B8Ki))) + InputData%C_obj%fy = C_LOC(InputData%fy(lbound(InputData%fy,1))) END IF END IF @@ -1996,7 +1996,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, kind=B8Ki))) + InputData%C_obj%fz = C_LOC(InputData%fz(lbound(InputData%fz,1))) END IF END IF @@ -2008,7 +2008,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, kind=B8Ki))) + InputData%C_obj%momentx = C_LOC(InputData%momentx(lbound(InputData%momentx,1))) END IF END IF @@ -2020,7 +2020,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, kind=B8Ki))) + InputData%C_obj%momenty = C_LOC(InputData%momenty(lbound(InputData%momenty,1))) END IF END IF @@ -2032,7 +2032,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, kind=B8Ki))) + InputData%C_obj%momentz = C_LOC(InputData%momentz(lbound(InputData%momentz,1))) END IF END IF @@ -2044,7 +2044,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, kind=B8Ki))) + InputData%C_obj%forceNodesChord = C_LOC(InputData%forceNodesChord(lbound(InputData%forceNodesChord,1))) END IF END IF END SUBROUTINE @@ -2055,14 +2055,14 @@ subroutine ExtInfw_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%u, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%u) + UB(1:1) = ubound(SrcOutputData%u) if (.not. associated(DstOutputData%u)) then allocate(DstOutputData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2076,8 +2076,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%v, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%v) + UB(1:1) = ubound(SrcOutputData%v) if (.not. associated(DstOutputData%v)) then allocate(DstOutputData%v(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2091,8 +2091,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%w, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%w) + UB(1:1) = ubound(SrcOutputData%w) if (.not. associated(DstOutputData%w)) then allocate(DstOutputData%w(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2106,8 +2106,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2170,7 +2170,7 @@ subroutine ExtInfw_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtInfw_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtInfw_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -2262,7 +2262,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, kind=B8Ki))) + OutputData%C_obj%u = C_LOC(OutputData%u(lbound(OutputData%u,1))) END IF END IF @@ -2274,7 +2274,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, kind=B8Ki))) + OutputData%C_obj%v = C_LOC(OutputData%v(lbound(OutputData%v,1))) END IF END IF @@ -2286,7 +2286,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, kind=B8Ki))) + OutputData%C_obj%w = C_LOC(OutputData%w(lbound(OutputData%w,1))) END IF END IF END SUBROUTINE diff --git a/modules/extloads/src/ExtLoadsDX_Types.f90 b/modules/extloads/src/ExtLoadsDX_Types.f90 index 0f98dbac18..3d8434e68a 100644 --- a/modules/extloads/src/ExtLoadsDX_Types.f90 +++ b/modules/extloads/src/ExtLoadsDX_Types.f90 @@ -125,14 +125,14 @@ subroutine ExtLdDX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtLdDX_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcInputData%twrDef)) then - LB(1:1) = lbound(SrcInputData%twrDef, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%twrDef, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%twrDef) + UB(1:1) = ubound(SrcInputData%twrDef) if (.not. associated(DstInputData%twrDef)) then allocate(DstInputData%twrDef(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -146,8 +146,8 @@ subroutine ExtLdDX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%twrDef = SrcInputData%twrDef end if if (associated(SrcInputData%bldDef)) then - LB(1:1) = lbound(SrcInputData%bldDef, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%bldDef, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%bldDef) + UB(1:1) = ubound(SrcInputData%bldDef) if (.not. associated(DstInputData%bldDef)) then allocate(DstInputData%bldDef(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -161,8 +161,8 @@ subroutine ExtLdDX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%bldDef = SrcInputData%bldDef end if if (associated(SrcInputData%hubDef)) then - LB(1:1) = lbound(SrcInputData%hubDef, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%hubDef, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%hubDef) + UB(1:1) = ubound(SrcInputData%hubDef) if (.not. associated(DstInputData%hubDef)) then allocate(DstInputData%hubDef(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -176,8 +176,8 @@ subroutine ExtLdDX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%hubDef = SrcInputData%hubDef end if if (associated(SrcInputData%nacDef)) then - LB(1:1) = lbound(SrcInputData%nacDef, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%nacDef, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%nacDef) + UB(1:1) = ubound(SrcInputData%nacDef) if (.not. associated(DstInputData%nacDef)) then allocate(DstInputData%nacDef(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -191,8 +191,8 @@ subroutine ExtLdDX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%nacDef = SrcInputData%nacDef end if if (associated(SrcInputData%bldRootDef)) then - LB(1:1) = lbound(SrcInputData%bldRootDef, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%bldRootDef, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%bldRootDef) + UB(1:1) = ubound(SrcInputData%bldRootDef) if (.not. associated(DstInputData%bldRootDef)) then allocate(DstInputData%bldRootDef(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -206,8 +206,8 @@ subroutine ExtLdDX_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrM DstInputData%bldRootDef = SrcInputData%bldRootDef end if if (associated(SrcInputData%bldPitch)) then - LB(1:1) = lbound(SrcInputData%bldPitch, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%bldPitch, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%bldPitch) + UB(1:1) = ubound(SrcInputData%bldPitch) if (.not. associated(DstInputData%bldPitch)) then allocate(DstInputData%bldPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -290,7 +290,7 @@ subroutine ExtLdDX_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLdDX_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLdDX_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -423,7 +423,7 @@ SUBROUTINE ExtLdDX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%twrDef_Len = SIZE(InputData%twrDef) IF (InputData%C_obj%twrDef_Len > 0) & - InputData%C_obj%twrDef = C_LOC(InputData%twrDef(LBOUND(InputData%twrDef,1, kind=B8Ki))) + InputData%C_obj%twrDef = C_LOC(InputData%twrDef(lbound(InputData%twrDef,1))) END IF END IF @@ -435,7 +435,7 @@ SUBROUTINE ExtLdDX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%bldDef_Len = SIZE(InputData%bldDef) IF (InputData%C_obj%bldDef_Len > 0) & - InputData%C_obj%bldDef = C_LOC(InputData%bldDef(LBOUND(InputData%bldDef,1, kind=B8Ki))) + InputData%C_obj%bldDef = C_LOC(InputData%bldDef(lbound(InputData%bldDef,1))) END IF END IF @@ -447,7 +447,7 @@ SUBROUTINE ExtLdDX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%hubDef_Len = SIZE(InputData%hubDef) IF (InputData%C_obj%hubDef_Len > 0) & - InputData%C_obj%hubDef = C_LOC(InputData%hubDef(LBOUND(InputData%hubDef,1, kind=B8Ki))) + InputData%C_obj%hubDef = C_LOC(InputData%hubDef(lbound(InputData%hubDef,1))) END IF END IF @@ -459,7 +459,7 @@ SUBROUTINE ExtLdDX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%nacDef_Len = SIZE(InputData%nacDef) IF (InputData%C_obj%nacDef_Len > 0) & - InputData%C_obj%nacDef = C_LOC(InputData%nacDef(LBOUND(InputData%nacDef,1, kind=B8Ki))) + InputData%C_obj%nacDef = C_LOC(InputData%nacDef(lbound(InputData%nacDef,1))) END IF END IF @@ -471,7 +471,7 @@ SUBROUTINE ExtLdDX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%bldRootDef_Len = SIZE(InputData%bldRootDef) IF (InputData%C_obj%bldRootDef_Len > 0) & - InputData%C_obj%bldRootDef = C_LOC(InputData%bldRootDef(LBOUND(InputData%bldRootDef,1, kind=B8Ki))) + InputData%C_obj%bldRootDef = C_LOC(InputData%bldRootDef(lbound(InputData%bldRootDef,1))) END IF END IF @@ -483,7 +483,7 @@ SUBROUTINE ExtLdDX_F2C_CopyInput( InputData, ErrStat, ErrMsg, SkipPointers ) ELSE InputData%C_obj%bldPitch_Len = SIZE(InputData%bldPitch) IF (InputData%C_obj%bldPitch_Len > 0) & - InputData%C_obj%bldPitch = C_LOC(InputData%bldPitch(LBOUND(InputData%bldPitch,1, kind=B8Ki))) + InputData%C_obj%bldPitch = C_LOC(InputData%bldPitch(lbound(InputData%bldPitch,1))) END IF END IF END SUBROUTINE @@ -494,14 +494,14 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtLdDX_CopyParam' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcParamData%nBlades)) then - LB(1:1) = lbound(SrcParamData%nBlades, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nBlades, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nBlades) + UB(1:1) = ubound(SrcParamData%nBlades) if (.not. associated(DstParamData%nBlades)) then allocate(DstParamData%nBlades(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -515,8 +515,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%nBlades = SrcParamData%nBlades end if if (associated(SrcParamData%nBladeNodes)) then - LB(1:1) = lbound(SrcParamData%nBladeNodes, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nBladeNodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nBladeNodes) + UB(1:1) = ubound(SrcParamData%nBladeNodes) if (.not. associated(DstParamData%nBladeNodes)) then allocate(DstParamData%nBladeNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -530,8 +530,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%nBladeNodes = SrcParamData%nBladeNodes end if if (associated(SrcParamData%nTowerNodes)) then - LB(1:1) = lbound(SrcParamData%nTowerNodes, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nTowerNodes, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nTowerNodes) + UB(1:1) = ubound(SrcParamData%nTowerNodes) if (.not. associated(DstParamData%nTowerNodes)) then allocate(DstParamData%nTowerNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -545,8 +545,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%nTowerNodes = SrcParamData%nTowerNodes end if if (associated(SrcParamData%twrRefPos)) then - LB(1:1) = lbound(SrcParamData%twrRefPos, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%twrRefPos, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%twrRefPos) + UB(1:1) = ubound(SrcParamData%twrRefPos) if (.not. associated(DstParamData%twrRefPos)) then allocate(DstParamData%twrRefPos(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -560,8 +560,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%twrRefPos = SrcParamData%twrRefPos end if if (associated(SrcParamData%bldRefPos)) then - LB(1:1) = lbound(SrcParamData%bldRefPos, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%bldRefPos, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%bldRefPos) + UB(1:1) = ubound(SrcParamData%bldRefPos) if (.not. associated(DstParamData%bldRefPos)) then allocate(DstParamData%bldRefPos(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -575,8 +575,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%bldRefPos = SrcParamData%bldRefPos end if if (associated(SrcParamData%hubRefPos)) then - LB(1:1) = lbound(SrcParamData%hubRefPos, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%hubRefPos, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%hubRefPos) + UB(1:1) = ubound(SrcParamData%hubRefPos) if (.not. associated(DstParamData%hubRefPos)) then allocate(DstParamData%hubRefPos(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -590,8 +590,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%hubRefPos = SrcParamData%hubRefPos end if if (associated(SrcParamData%nacRefPos)) then - LB(1:1) = lbound(SrcParamData%nacRefPos, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nacRefPos, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nacRefPos) + UB(1:1) = ubound(SrcParamData%nacRefPos) if (.not. associated(DstParamData%nacRefPos)) then allocate(DstParamData%nacRefPos(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -605,8 +605,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%nacRefPos = SrcParamData%nacRefPos end if if (associated(SrcParamData%bldRootRefPos)) then - LB(1:1) = lbound(SrcParamData%bldRootRefPos, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%bldRootRefPos, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%bldRootRefPos) + UB(1:1) = ubound(SrcParamData%bldRootRefPos) if (.not. associated(DstParamData%bldRootRefPos)) then allocate(DstParamData%bldRootRefPos(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -620,8 +620,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%bldRootRefPos = SrcParamData%bldRootRefPos end if if (associated(SrcParamData%bldChord)) then - LB(1:1) = lbound(SrcParamData%bldChord, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%bldChord, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%bldChord) + UB(1:1) = ubound(SrcParamData%bldChord) if (.not. associated(DstParamData%bldChord)) then allocate(DstParamData%bldChord(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -635,8 +635,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%bldChord = SrcParamData%bldChord end if if (associated(SrcParamData%bldRloc)) then - LB(1:1) = lbound(SrcParamData%bldRloc, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%bldRloc, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%bldRloc) + UB(1:1) = ubound(SrcParamData%bldRloc) if (.not. associated(DstParamData%bldRloc)) then allocate(DstParamData%bldRloc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -650,8 +650,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%bldRloc = SrcParamData%bldRloc end if if (associated(SrcParamData%twrDia)) then - LB(1:1) = lbound(SrcParamData%twrDia, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%twrDia, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%twrDia) + UB(1:1) = ubound(SrcParamData%twrDia) if (.not. associated(DstParamData%twrDia)) then allocate(DstParamData%twrDia(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -665,8 +665,8 @@ subroutine ExtLdDX_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM DstParamData%twrDia = SrcParamData%twrDia end if if (associated(SrcParamData%twrHloc)) then - LB(1:1) = lbound(SrcParamData%twrHloc, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%twrHloc, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%twrHloc) + UB(1:1) = ubound(SrcParamData%twrHloc) if (.not. associated(DstParamData%twrHloc)) then allocate(DstParamData%twrHloc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -791,7 +791,7 @@ subroutine ExtLdDX_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLdDX_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLdDX_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1008,7 +1008,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%nBlades_Len = SIZE(ParamData%nBlades) IF (ParamData%C_obj%nBlades_Len > 0) & - ParamData%C_obj%nBlades = C_LOC(ParamData%nBlades(LBOUND(ParamData%nBlades,1, kind=B8Ki))) + ParamData%C_obj%nBlades = C_LOC(ParamData%nBlades(lbound(ParamData%nBlades,1))) END IF END IF @@ -1020,7 +1020,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%nBladeNodes_Len = SIZE(ParamData%nBladeNodes) IF (ParamData%C_obj%nBladeNodes_Len > 0) & - ParamData%C_obj%nBladeNodes = C_LOC(ParamData%nBladeNodes(LBOUND(ParamData%nBladeNodes,1, kind=B8Ki))) + ParamData%C_obj%nBladeNodes = C_LOC(ParamData%nBladeNodes(lbound(ParamData%nBladeNodes,1))) END IF END IF @@ -1032,7 +1032,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%nTowerNodes_Len = SIZE(ParamData%nTowerNodes) IF (ParamData%C_obj%nTowerNodes_Len > 0) & - ParamData%C_obj%nTowerNodes = C_LOC(ParamData%nTowerNodes(LBOUND(ParamData%nTowerNodes,1, kind=B8Ki))) + ParamData%C_obj%nTowerNodes = C_LOC(ParamData%nTowerNodes(lbound(ParamData%nTowerNodes,1))) END IF END IF @@ -1044,7 +1044,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%twrRefPos_Len = SIZE(ParamData%twrRefPos) IF (ParamData%C_obj%twrRefPos_Len > 0) & - ParamData%C_obj%twrRefPos = C_LOC(ParamData%twrRefPos(LBOUND(ParamData%twrRefPos,1, kind=B8Ki))) + ParamData%C_obj%twrRefPos = C_LOC(ParamData%twrRefPos(lbound(ParamData%twrRefPos,1))) END IF END IF @@ -1056,7 +1056,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%bldRefPos_Len = SIZE(ParamData%bldRefPos) IF (ParamData%C_obj%bldRefPos_Len > 0) & - ParamData%C_obj%bldRefPos = C_LOC(ParamData%bldRefPos(LBOUND(ParamData%bldRefPos,1, kind=B8Ki))) + ParamData%C_obj%bldRefPos = C_LOC(ParamData%bldRefPos(lbound(ParamData%bldRefPos,1))) END IF END IF @@ -1068,7 +1068,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%hubRefPos_Len = SIZE(ParamData%hubRefPos) IF (ParamData%C_obj%hubRefPos_Len > 0) & - ParamData%C_obj%hubRefPos = C_LOC(ParamData%hubRefPos(LBOUND(ParamData%hubRefPos,1, kind=B8Ki))) + ParamData%C_obj%hubRefPos = C_LOC(ParamData%hubRefPos(lbound(ParamData%hubRefPos,1))) END IF END IF @@ -1080,7 +1080,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%nacRefPos_Len = SIZE(ParamData%nacRefPos) IF (ParamData%C_obj%nacRefPos_Len > 0) & - ParamData%C_obj%nacRefPos = C_LOC(ParamData%nacRefPos(LBOUND(ParamData%nacRefPos,1, kind=B8Ki))) + ParamData%C_obj%nacRefPos = C_LOC(ParamData%nacRefPos(lbound(ParamData%nacRefPos,1))) END IF END IF @@ -1092,7 +1092,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%bldRootRefPos_Len = SIZE(ParamData%bldRootRefPos) IF (ParamData%C_obj%bldRootRefPos_Len > 0) & - ParamData%C_obj%bldRootRefPos = C_LOC(ParamData%bldRootRefPos(LBOUND(ParamData%bldRootRefPos,1, kind=B8Ki))) + ParamData%C_obj%bldRootRefPos = C_LOC(ParamData%bldRootRefPos(lbound(ParamData%bldRootRefPos,1))) END IF END IF @@ -1104,7 +1104,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%bldChord_Len = SIZE(ParamData%bldChord) IF (ParamData%C_obj%bldChord_Len > 0) & - ParamData%C_obj%bldChord = C_LOC(ParamData%bldChord(LBOUND(ParamData%bldChord,1, kind=B8Ki))) + ParamData%C_obj%bldChord = C_LOC(ParamData%bldChord(lbound(ParamData%bldChord,1))) END IF END IF @@ -1116,7 +1116,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%bldRloc_Len = SIZE(ParamData%bldRloc) IF (ParamData%C_obj%bldRloc_Len > 0) & - ParamData%C_obj%bldRloc = C_LOC(ParamData%bldRloc(LBOUND(ParamData%bldRloc,1, kind=B8Ki))) + ParamData%C_obj%bldRloc = C_LOC(ParamData%bldRloc(lbound(ParamData%bldRloc,1))) END IF END IF @@ -1128,7 +1128,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%twrDia_Len = SIZE(ParamData%twrDia) IF (ParamData%C_obj%twrDia_Len > 0) & - ParamData%C_obj%twrDia = C_LOC(ParamData%twrDia(LBOUND(ParamData%twrDia,1, kind=B8Ki))) + ParamData%C_obj%twrDia = C_LOC(ParamData%twrDia(lbound(ParamData%twrDia,1))) END IF END IF @@ -1140,7 +1140,7 @@ SUBROUTINE ExtLdDX_F2C_CopyParam( ParamData, ErrStat, ErrMsg, SkipPointers ) ELSE ParamData%C_obj%twrHloc_Len = SIZE(ParamData%twrHloc) IF (ParamData%C_obj%twrHloc_Len > 0) & - ParamData%C_obj%twrHloc = C_LOC(ParamData%twrHloc(LBOUND(ParamData%twrHloc,1, kind=B8Ki))) + ParamData%C_obj%twrHloc = C_LOC(ParamData%twrHloc(lbound(ParamData%twrHloc,1))) END IF END IF END SUBROUTINE @@ -1151,14 +1151,14 @@ subroutine ExtLdDX_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtLdDX_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (associated(SrcOutputData%twrLd)) then - LB(1:1) = lbound(SrcOutputData%twrLd, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%twrLd, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%twrLd) + UB(1:1) = ubound(SrcOutputData%twrLd) if (.not. associated(DstOutputData%twrLd)) then allocate(DstOutputData%twrLd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1172,8 +1172,8 @@ subroutine ExtLdDX_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E DstOutputData%twrLd = SrcOutputData%twrLd end if if (associated(SrcOutputData%bldLd)) then - LB(1:1) = lbound(SrcOutputData%bldLd, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%bldLd, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%bldLd) + UB(1:1) = ubound(SrcOutputData%bldLd) if (.not. associated(DstOutputData%bldLd)) then allocate(DstOutputData%bldLd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1228,7 +1228,7 @@ subroutine ExtLdDX_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLdDX_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLdDX_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1305,7 +1305,7 @@ SUBROUTINE ExtLdDX_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%twrLd_Len = SIZE(OutputData%twrLd) IF (OutputData%C_obj%twrLd_Len > 0) & - OutputData%C_obj%twrLd = C_LOC(OutputData%twrLd(LBOUND(OutputData%twrLd,1, kind=B8Ki))) + OutputData%C_obj%twrLd = C_LOC(OutputData%twrLd(lbound(OutputData%twrLd,1))) END IF END IF @@ -1317,7 +1317,7 @@ SUBROUTINE ExtLdDX_F2C_CopyOutput( OutputData, ErrStat, ErrMsg, SkipPointers ) ELSE OutputData%C_obj%bldLd_Len = SIZE(OutputData%bldLd) IF (OutputData%C_obj%bldLd_Len > 0) & - OutputData%C_obj%bldLd = C_LOC(OutputData%bldLd(LBOUND(OutputData%bldLd,1, kind=B8Ki))) + OutputData%C_obj%bldLd = C_LOC(OutputData%bldLd(lbound(OutputData%bldLd,1))) END IF END IF END SUBROUTINE diff --git a/modules/extloads/src/ExtLoads_Types.f90 b/modules/extloads/src/ExtLoads_Types.f90 index be9a970f7e..bccf4a53a5 100644 --- a/modules/extloads/src/ExtLoads_Types.f90 +++ b/modules/extloads/src/ExtLoads_Types.f90 @@ -135,15 +135,15 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtLd_CopyInitInput' ErrStat = ErrID_None ErrMsg = '' DstInitInputData%NumBlades = SrcInitInputData%NumBlades if (allocated(SrcInitInputData%NumBldNodes)) then - LB(1:1) = lbound(SrcInitInputData%NumBldNodes, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%NumBldNodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%NumBldNodes) + UB(1:1) = ubound(SrcInitInputData%NumBldNodes) if (.not. allocated(DstInitInputData%NumBldNodes)) then allocate(DstInitInputData%NumBldNodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -160,8 +160,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%NacellePos = SrcInitInputData%NacellePos DstInitInputData%NacelleOrient = SrcInitInputData%NacelleOrient if (allocated(SrcInitInputData%BldRootPos)) then - LB(1:2) = lbound(SrcInitInputData%BldRootPos, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BldRootPos, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BldRootPos) + UB(1:2) = ubound(SrcInitInputData%BldRootPos) if (.not. allocated(DstInitInputData%BldRootPos)) then allocate(DstInitInputData%BldRootPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -172,8 +172,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%BldRootPos = SrcInitInputData%BldRootPos end if if (allocated(SrcInitInputData%BldRootOrient)) then - LB(1:3) = lbound(SrcInitInputData%BldRootOrient, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%BldRootOrient, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%BldRootOrient) + UB(1:3) = ubound(SrcInitInputData%BldRootOrient) if (.not. allocated(DstInitInputData%BldRootOrient)) then allocate(DstInitInputData%BldRootOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -184,8 +184,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%BldRootOrient = SrcInitInputData%BldRootOrient end if if (allocated(SrcInitInputData%BldPos)) then - LB(1:3) = lbound(SrcInitInputData%BldPos, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%BldPos, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%BldPos) + UB(1:3) = ubound(SrcInitInputData%BldPos) if (.not. allocated(DstInitInputData%BldPos)) then allocate(DstInitInputData%BldPos(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -196,8 +196,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%BldPos = SrcInitInputData%BldPos end if if (allocated(SrcInitInputData%BldOrient)) then - LB(1:4) = lbound(SrcInitInputData%BldOrient, kind=B8Ki) - UB(1:4) = ubound(SrcInitInputData%BldOrient, kind=B8Ki) + LB(1:4) = lbound(SrcInitInputData%BldOrient) + UB(1:4) = ubound(SrcInitInputData%BldOrient) if (.not. allocated(DstInitInputData%BldOrient)) then allocate(DstInitInputData%BldOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3),LB(4):UB(4)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -208,8 +208,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%BldOrient = SrcInitInputData%BldOrient end if if (allocated(SrcInitInputData%TwrPos)) then - LB(1:2) = lbound(SrcInitInputData%TwrPos, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%TwrPos, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%TwrPos) + UB(1:2) = ubound(SrcInitInputData%TwrPos) if (.not. allocated(DstInitInputData%TwrPos)) then allocate(DstInitInputData%TwrPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -220,8 +220,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%TwrPos = SrcInitInputData%TwrPos end if if (allocated(SrcInitInputData%TwrOrient)) then - LB(1:3) = lbound(SrcInitInputData%TwrOrient, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%TwrOrient, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%TwrOrient) + UB(1:3) = ubound(SrcInitInputData%TwrOrient) if (.not. allocated(DstInitInputData%TwrOrient)) then allocate(DstInitInputData%TwrOrient(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -234,8 +234,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%az_blend_mean = SrcInitInputData%az_blend_mean DstInitInputData%az_blend_delta = SrcInitInputData%az_blend_delta if (allocated(SrcInitInputData%BldChord)) then - LB(1:2) = lbound(SrcInitInputData%BldChord, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BldChord, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BldChord) + UB(1:2) = ubound(SrcInitInputData%BldChord) if (.not. allocated(DstInitInputData%BldChord)) then allocate(DstInitInputData%BldChord(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -246,8 +246,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%BldChord = SrcInitInputData%BldChord end if if (allocated(SrcInitInputData%BldRloc)) then - LB(1:2) = lbound(SrcInitInputData%BldRloc, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BldRloc, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BldRloc) + UB(1:2) = ubound(SrcInitInputData%BldRloc) if (.not. allocated(DstInitInputData%BldRloc)) then allocate(DstInitInputData%BldRloc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -258,8 +258,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%BldRloc = SrcInitInputData%BldRloc end if if (allocated(SrcInitInputData%TwrDia)) then - LB(1:1) = lbound(SrcInitInputData%TwrDia, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%TwrDia, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%TwrDia) + UB(1:1) = ubound(SrcInitInputData%TwrDia) if (.not. allocated(DstInitInputData%TwrDia)) then allocate(DstInitInputData%TwrDia(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -270,8 +270,8 @@ subroutine ExtLd_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err DstInitInputData%TwrDia = SrcInitInputData%TwrDia end if if (allocated(SrcInitInputData%TwrHloc)) then - LB(1:1) = lbound(SrcInitInputData%TwrHloc, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%TwrHloc, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%TwrHloc) + UB(1:1) = ubound(SrcInitInputData%TwrHloc) if (.not. allocated(DstInitInputData%TwrHloc)) then allocate(DstInitInputData%TwrHloc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -359,7 +359,7 @@ subroutine ExtLd_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLd_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLd_UnPackInitInput' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -392,15 +392,15 @@ subroutine ExtLd_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -411,8 +411,8 @@ subroutine ExtLd_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -463,7 +463,7 @@ subroutine ExtLd_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLd_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLd_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -555,7 +555,7 @@ subroutine ExtLd_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(0), UB(0) + integer(B4Ki) :: LB(0), UB(0) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_CopyMisc' @@ -616,7 +616,7 @@ subroutine ExtLd_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLd_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLd_UnPackMisc' - integer(B8Ki) :: LB(0), UB(0) + integer(B4Ki) :: LB(0), UB(0) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -726,7 +726,7 @@ subroutine ExtLd_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_CopyParam' @@ -737,8 +737,8 @@ subroutine ExtLd_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg if (ErrStat >= AbortErrLev) return DstParamData%NumBlds = SrcParamData%NumBlds if (allocated(SrcParamData%NumBldNds)) then - LB(1:1) = lbound(SrcParamData%NumBldNds, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NumBldNds, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NumBldNds) + UB(1:1) = ubound(SrcParamData%NumBldNds) if (.not. allocated(DstParamData%NumBldNds)) then allocate(DstParamData%NumBldNds(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -791,7 +791,7 @@ subroutine ExtLd_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLd_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLd_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -811,8 +811,8 @@ subroutine ExtLd_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_CopyInput' @@ -832,8 +832,8 @@ subroutine ExtLd_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcInputData%BladeRootMotion)) then - LB(1:1) = lbound(SrcInputData%BladeRootMotion, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%BladeRootMotion) + UB(1:1) = ubound(SrcInputData%BladeRootMotion) if (.not. allocated(DstInputData%BladeRootMotion)) then allocate(DstInputData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -848,8 +848,8 @@ subroutine ExtLd_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcInputData%BladeMotion)) then - LB(1:1) = lbound(SrcInputData%BladeMotion, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%BladeMotion, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%BladeMotion) + UB(1:1) = ubound(SrcInputData%BladeMotion) if (.not. allocated(DstInputData%BladeMotion)) then allocate(DstInputData%BladeMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -869,8 +869,8 @@ subroutine ExtLd_DestroyInput(InputData, ErrStat, ErrMsg) type(ExtLd_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_DestroyInput' @@ -885,8 +885,8 @@ subroutine ExtLd_DestroyInput(InputData, ErrStat, ErrMsg) call MeshDestroy( InputData%NacelleMotion, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(InputData%BladeRootMotion)) then - LB(1:1) = lbound(InputData%BladeRootMotion, kind=B8Ki) - UB(1:1) = ubound(InputData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(InputData%BladeRootMotion) + UB(1:1) = ubound(InputData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshDestroy( InputData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -894,8 +894,8 @@ subroutine ExtLd_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%BladeRootMotion) end if if (allocated(InputData%BladeMotion)) then - LB(1:1) = lbound(InputData%BladeMotion, kind=B8Ki) - UB(1:1) = ubound(InputData%BladeMotion, kind=B8Ki) + LB(1:1) = lbound(InputData%BladeMotion) + UB(1:1) = ubound(InputData%BladeMotion) do i1 = LB(1), UB(1) call MeshDestroy( InputData%BladeMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -908,8 +908,8 @@ subroutine ExtLd_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtLd_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtLd_PackInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call ExtLdDX_PackInput(RF, InData%DX_u) call RegPack(RF, InData%az) @@ -918,18 +918,18 @@ subroutine ExtLd_PackInput(RF, Indata) call MeshPack(RF, InData%NacelleMotion) call RegPack(RF, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) + LB(1:1) = lbound(InData%BladeRootMotion) + UB(1:1) = ubound(InData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeRootMotion(i1)) end do end if call RegPack(RF, allocated(InData%BladeMotion)) if (allocated(InData%BladeMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeMotion), ubound(InData%BladeMotion)) + LB(1:1) = lbound(InData%BladeMotion) + UB(1:1) = ubound(InData%BladeMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeMotion(i1)) end do @@ -941,8 +941,8 @@ subroutine ExtLd_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLd_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLd_UnPackInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -985,8 +985,8 @@ subroutine ExtLd_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_CopyOutput' @@ -999,8 +999,8 @@ subroutine ExtLd_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%BladeLoad)) then - LB(1:1) = lbound(SrcOutputData%BladeLoad, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BladeLoad, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BladeLoad) + UB(1:1) = ubound(SrcOutputData%BladeLoad) if (.not. allocated(DstOutputData%BladeLoad)) then allocate(DstOutputData%BladeLoad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1018,8 +1018,8 @@ subroutine ExtLd_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcOutputData%BladeLoadAD)) then - LB(1:1) = lbound(SrcOutputData%BladeLoadAD, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BladeLoadAD, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BladeLoadAD) + UB(1:1) = ubound(SrcOutputData%BladeLoadAD) if (.not. allocated(DstOutputData%BladeLoadAD)) then allocate(DstOutputData%BladeLoadAD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1039,8 +1039,8 @@ subroutine ExtLd_DestroyOutput(OutputData, ErrStat, ErrMsg) type(ExtLd_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtLd_DestroyOutput' @@ -1051,8 +1051,8 @@ subroutine ExtLd_DestroyOutput(OutputData, ErrStat, ErrMsg) call MeshDestroy( OutputData%TowerLoad, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(OutputData%BladeLoad)) then - LB(1:1) = lbound(OutputData%BladeLoad, kind=B8Ki) - UB(1:1) = ubound(OutputData%BladeLoad, kind=B8Ki) + LB(1:1) = lbound(OutputData%BladeLoad) + UB(1:1) = ubound(OutputData%BladeLoad) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeLoad(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1062,8 +1062,8 @@ subroutine ExtLd_DestroyOutput(OutputData, ErrStat, ErrMsg) call MeshDestroy( OutputData%TowerLoadAD, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(OutputData%BladeLoadAD)) then - LB(1:1) = lbound(OutputData%BladeLoadAD, kind=B8Ki) - UB(1:1) = ubound(OutputData%BladeLoadAD, kind=B8Ki) + LB(1:1) = lbound(OutputData%BladeLoadAD) + UB(1:1) = ubound(OutputData%BladeLoadAD) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeLoadAD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1076,16 +1076,16 @@ subroutine ExtLd_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtLd_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtLd_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call ExtLdDX_PackOutput(RF, InData%DX_y) call MeshPack(RF, InData%TowerLoad) call RegPack(RF, allocated(InData%BladeLoad)) if (allocated(InData%BladeLoad)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeLoad), ubound(InData%BladeLoad)) + LB(1:1) = lbound(InData%BladeLoad) + UB(1:1) = ubound(InData%BladeLoad) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeLoad(i1)) end do @@ -1093,9 +1093,9 @@ subroutine ExtLd_PackOutput(RF, Indata) call MeshPack(RF, InData%TowerLoadAD) call RegPack(RF, allocated(InData%BladeLoadAD)) if (allocated(InData%BladeLoadAD)) then - call RegPackBounds(RF, 1, lbound(InData%BladeLoadAD, kind=B8Ki), ubound(InData%BladeLoadAD, kind=B8Ki)) - LB(1:1) = lbound(InData%BladeLoadAD, kind=B8Ki) - UB(1:1) = ubound(InData%BladeLoadAD, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%BladeLoadAD), ubound(InData%BladeLoadAD)) + LB(1:1) = lbound(InData%BladeLoadAD) + UB(1:1) = ubound(InData%BladeLoadAD) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeLoadAD(i1)) end do @@ -1107,8 +1107,8 @@ subroutine ExtLd_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLd_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtLd_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1250,13 +1250,13 @@ SUBROUTINE ExtLd_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMs CALL MeshExtrapInterp1(u1%NacelleMotion, u2%NacelleMotion, tin, u_out%NacelleMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(u_out%BladeRootMotion) .AND. ALLOCATED(u1%BladeRootMotion)) THEN - DO i1 = LBOUND(u_out%BladeRootMotion,1, kind=B8Ki),UBOUND(u_out%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(u_out%BladeRootMotion,1),ubound(u_out%BladeRootMotion,1) CALL MeshExtrapInterp1(u1%BladeRootMotion(i1), u2%BladeRootMotion(i1), tin, u_out%BladeRootMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(u_out%BladeMotion) .AND. ALLOCATED(u1%BladeMotion)) THEN - DO i1 = LBOUND(u_out%BladeMotion,1, kind=B8Ki),UBOUND(u_out%BladeMotion,1, kind=B8Ki) + do i1 = lbound(u_out%BladeMotion,1),ubound(u_out%BladeMotion,1) CALL MeshExtrapInterp1(u1%BladeMotion(i1), u2%BladeMotion(i1), tin, u_out%BladeMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -1328,13 +1328,13 @@ SUBROUTINE ExtLd_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, E CALL MeshExtrapInterp2(u1%NacelleMotion, u2%NacelleMotion, u3%NacelleMotion, tin, u_out%NacelleMotion, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(u_out%BladeRootMotion) .AND. ALLOCATED(u1%BladeRootMotion)) THEN - DO i1 = LBOUND(u_out%BladeRootMotion,1, kind=B8Ki),UBOUND(u_out%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(u_out%BladeRootMotion,1),ubound(u_out%BladeRootMotion,1) CALL MeshExtrapInterp2(u1%BladeRootMotion(i1), u2%BladeRootMotion(i1), u3%BladeRootMotion(i1), tin, u_out%BladeRootMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO END IF ! check if allocated IF (ALLOCATED(u_out%BladeMotion) .AND. ALLOCATED(u1%BladeMotion)) THEN - DO i1 = LBOUND(u_out%BladeMotion,1, kind=B8Ki),UBOUND(u_out%BladeMotion,1, kind=B8Ki) + do i1 = lbound(u_out%BladeMotion,1),ubound(u_out%BladeMotion,1) CALL MeshExtrapInterp2(u1%BladeMotion(i1), u2%BladeMotion(i1), u3%BladeMotion(i1), tin, u_out%BladeMotion(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -1443,7 +1443,7 @@ SUBROUTINE ExtLd_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrM CALL MeshExtrapInterp1(y1%TowerLoad, y2%TowerLoad, tin, y_out%TowerLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(y_out%BladeLoad) .AND. ALLOCATED(y1%BladeLoad)) THEN - DO i1 = LBOUND(y_out%BladeLoad,1, kind=B8Ki),UBOUND(y_out%BladeLoad,1, kind=B8Ki) + do i1 = lbound(y_out%BladeLoad,1),ubound(y_out%BladeLoad,1) CALL MeshExtrapInterp1(y1%BladeLoad(i1), y2%BladeLoad(i1), tin, y_out%BladeLoad(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -1451,7 +1451,7 @@ SUBROUTINE ExtLd_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrM CALL MeshExtrapInterp1(y1%TowerLoadAD, y2%TowerLoadAD, tin, y_out%TowerLoadAD, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(y_out%BladeLoadAD) .AND. ALLOCATED(y1%BladeLoadAD)) THEN - DO i1 = LBOUND(y_out%BladeLoadAD,1, kind=B8Ki),UBOUND(y_out%BladeLoadAD,1, kind=B8Ki) + do i1 = lbound(y_out%BladeLoadAD,1),ubound(y_out%BladeLoadAD,1) CALL MeshExtrapInterp1(y1%BladeLoadAD(i1), y2%BladeLoadAD(i1), tin, y_out%BladeLoadAD(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -1518,7 +1518,7 @@ SUBROUTINE ExtLd_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, CALL MeshExtrapInterp2(y1%TowerLoad, y2%TowerLoad, y3%TowerLoad, tin, y_out%TowerLoad, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(y_out%BladeLoad) .AND. ALLOCATED(y1%BladeLoad)) THEN - DO i1 = LBOUND(y_out%BladeLoad,1, kind=B8Ki),UBOUND(y_out%BladeLoad,1, kind=B8Ki) + do i1 = lbound(y_out%BladeLoad,1),ubound(y_out%BladeLoad,1) CALL MeshExtrapInterp2(y1%BladeLoad(i1), y2%BladeLoad(i1), y3%BladeLoad(i1), tin, y_out%BladeLoad(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO @@ -1526,7 +1526,7 @@ SUBROUTINE ExtLd_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, CALL MeshExtrapInterp2(y1%TowerLoadAD, y2%TowerLoadAD, y3%TowerLoadAD, tin, y_out%TowerLoadAD, tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) IF (ALLOCATED(y_out%BladeLoadAD) .AND. ALLOCATED(y1%BladeLoadAD)) THEN - DO i1 = LBOUND(y_out%BladeLoadAD,1, kind=B8Ki),UBOUND(y_out%BladeLoadAD,1, kind=B8Ki) + do i1 = lbound(y_out%BladeLoadAD,1),ubound(y_out%BladeLoadAD,1) CALL MeshExtrapInterp2(y1%BladeLoadAD(i1), y2%BladeLoadAD(i1), y3%BladeLoadAD(i1), tin, y_out%BladeLoadAD(i1), tin_out, ErrStat2, ErrMsg2) CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,RoutineName) END DO diff --git a/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 b/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 index 17debf3902..40c63127cb 100644 --- a/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 +++ b/modules/extptfm/src/ExtPtfm_MCKF_Types.f90 @@ -209,7 +209,7 @@ subroutine ExtPtfm_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyInputFile' ErrStat = ErrID_None @@ -221,8 +221,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%ActiveCBDOF, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%ActiveCBDOF) + UB(1:1) = ubound(SrcInputFileData%ActiveCBDOF) if (.not. allocated(DstInputFileData%ActiveCBDOF)) then allocate(DstInputFileData%ActiveCBDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -233,8 +233,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%InitPosList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%InitPosList) + UB(1:1) = ubound(SrcInputFileData%InitPosList) if (.not. allocated(DstInputFileData%InitPosList)) then allocate(DstInputFileData%InitPosList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -245,8 +245,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%InitVelList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%InitVelList) + UB(1:1) = ubound(SrcInputFileData%InitVelList) if (.not. allocated(DstInputFileData%InitVelList)) then allocate(DstInputFileData%InitVelList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -263,8 +263,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -325,7 +325,7 @@ subroutine ExtPtfm_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -353,7 +353,7 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyInitOutput' @@ -363,8 +363,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -375,8 +375,8 @@ subroutine ExtPtfm_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -387,8 +387,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -399,8 +399,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -411,8 +411,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -423,8 +423,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -435,8 +435,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -447,8 +447,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -459,8 +459,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -471,8 +471,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -550,7 +550,7 @@ subroutine ExtPtfm_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -573,14 +573,14 @@ subroutine ExtPtfm_CopyContState(SrcContStateData, DstContStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%qm, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%qm) + UB(1:1) = ubound(SrcContStateData%qm) if (.not. allocated(DstContStateData%qm)) then allocate(DstContStateData%qm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -591,8 +591,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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%qmdot, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%qmdot) + UB(1:1) = ubound(SrcContStateData%qmdot) if (.not. allocated(DstContStateData%qmdot)) then allocate(DstContStateData%qmdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -633,7 +633,7 @@ subroutine ExtPtfm_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -723,16 +723,16 @@ subroutine ExtPtfm_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -753,16 +753,16 @@ subroutine ExtPtfm_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(ExtPtfm_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call ExtPtfm_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -775,14 +775,14 @@ subroutine ExtPtfm_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtPtfm_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtPtfm_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xdot), ubound(InData%xdot)) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call ExtPtfm_PackContState(RF, InData%xdot(i1)) end do @@ -795,8 +795,8 @@ subroutine ExtPtfm_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -822,14 +822,14 @@ subroutine ExtPtfm_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%xFlat, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%xFlat) + UB(1:1) = ubound(SrcMiscData%xFlat) if (.not. allocated(DstMiscData%xFlat)) then allocate(DstMiscData%xFlat(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -841,8 +841,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_at_t, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_at_t) + UB(1:1) = ubound(SrcMiscData%F_at_t) if (.not. allocated(DstMiscData%F_at_t)) then allocate(DstMiscData%F_at_t(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -855,8 +855,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -904,7 +904,7 @@ subroutine ExtPtfm_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackMisc' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -922,16 +922,16 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Mass, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Mass) + UB(1:2) = ubound(SrcParamData%Mass) if (.not. allocated(DstParamData%Mass)) then allocate(DstParamData%Mass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -942,8 +942,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Damp, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Damp) + UB(1:2) = ubound(SrcParamData%Damp) if (.not. allocated(DstParamData%Damp)) then allocate(DstParamData%Damp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -954,8 +954,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Stff, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Stff) + UB(1:2) = ubound(SrcParamData%Stff) if (.not. allocated(DstParamData%Stff)) then allocate(DstParamData%Stff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -966,8 +966,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Forces, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Forces) + UB(1:2) = ubound(SrcParamData%Forces) if (.not. allocated(DstParamData%Forces)) then allocate(DstParamData%Forces(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -978,8 +978,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%times, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%times) + UB(1:1) = ubound(SrcParamData%times) if (.not. allocated(DstParamData%times)) then allocate(DstParamData%times(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -990,8 +990,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%AMat, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%AMat) + UB(1:2) = ubound(SrcParamData%AMat) if (.not. allocated(DstParamData%AMat)) then allocate(DstParamData%AMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1002,8 +1002,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BMat, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BMat) + UB(1:2) = ubound(SrcParamData%BMat) if (.not. allocated(DstParamData%BMat)) then allocate(DstParamData%BMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1014,8 +1014,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CMat, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CMat) + UB(1:2) = ubound(SrcParamData%CMat) if (.not. allocated(DstParamData%CMat)) then allocate(DstParamData%CMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1026,8 +1026,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%DMat, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%DMat) + UB(1:2) = ubound(SrcParamData%DMat) if (.not. allocated(DstParamData%DMat)) then allocate(DstParamData%DMat(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1038,8 +1038,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FX, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FX) + UB(1:1) = ubound(SrcParamData%FX) if (.not. allocated(DstParamData%FX)) then allocate(DstParamData%FX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1050,8 +1050,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FY, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FY) + UB(1:1) = ubound(SrcParamData%FY) if (.not. allocated(DstParamData%FY)) then allocate(DstParamData%FY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1062,8 +1062,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%M11, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%M11) + UB(1:2) = ubound(SrcParamData%M11) if (.not. allocated(DstParamData%M11)) then allocate(DstParamData%M11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1074,8 +1074,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%M12, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%M12) + UB(1:2) = ubound(SrcParamData%M12) if (.not. allocated(DstParamData%M12)) then allocate(DstParamData%M12(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1086,8 +1086,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%M22, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%M22) + UB(1:2) = ubound(SrcParamData%M22) if (.not. allocated(DstParamData%M22)) then allocate(DstParamData%M22(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1098,8 +1098,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%M21, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%M21) + UB(1:2) = ubound(SrcParamData%M21) if (.not. allocated(DstParamData%M21)) then allocate(DstParamData%M21(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1110,8 +1110,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%K11, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%K11) + UB(1:2) = ubound(SrcParamData%K11) if (.not. allocated(DstParamData%K11)) then allocate(DstParamData%K11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1122,8 +1122,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%K22, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%K22) + UB(1:2) = ubound(SrcParamData%K22) if (.not. allocated(DstParamData%K22)) then allocate(DstParamData%K22(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1134,8 +1134,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C11, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C11) + UB(1:2) = ubound(SrcParamData%C11) if (.not. allocated(DstParamData%C11)) then allocate(DstParamData%C11(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1146,8 +1146,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C12, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C12) + UB(1:2) = ubound(SrcParamData%C12) if (.not. allocated(DstParamData%C12)) then allocate(DstParamData%C12(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1158,8 +1158,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C22, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C22) + UB(1:2) = ubound(SrcParamData%C22) if (.not. allocated(DstParamData%C22)) then allocate(DstParamData%C22(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1170,8 +1170,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C21, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C21) + UB(1:2) = ubound(SrcParamData%C21) if (.not. allocated(DstParamData%C21)) then allocate(DstParamData%C21(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1189,8 +1189,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ActiveCBDOF, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ActiveCBDOF) + UB(1:1) = ubound(SrcParamData%ActiveCBDOF) if (.not. allocated(DstParamData%ActiveCBDOF)) then allocate(DstParamData%ActiveCBDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1201,8 +1201,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1217,8 +1217,8 @@ subroutine ExtPtfm_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcParamData%OutParamLinIndx)) then - LB(1:2) = lbound(SrcParamData%OutParamLinIndx, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%OutParamLinIndx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%OutParamLinIndx) + UB(1:2) = ubound(SrcParamData%OutParamLinIndx) if (.not. allocated(DstParamData%OutParamLinIndx)) then allocate(DstParamData%OutParamLinIndx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1234,8 +1234,8 @@ subroutine ExtPtfm_DestroyParam(ParamData, ErrStat, ErrMsg) type(ExtPtfm_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_DestroyParam' @@ -1308,8 +1308,8 @@ subroutine ExtPtfm_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%ActiveCBDOF) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1325,8 +1325,8 @@ subroutine ExtPtfm_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtPtfm_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'ExtPtfm_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%Mass) call RegPackAlloc(RF, InData%Damp) @@ -1359,9 +1359,9 @@ subroutine ExtPtfm_PackParam(RF, Indata) call RegPackAlloc(RF, InData%ActiveCBDOF) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1374,8 +1374,8 @@ subroutine ExtPtfm_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1476,7 +1476,7 @@ subroutine ExtPtfm_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'ExtPtfm_CopyOutput' @@ -1486,8 +1486,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1529,7 +1529,7 @@ subroutine ExtPtfm_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'ExtPtfm_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/feamooring/src/FEAMooring_Types.f90 b/modules/feamooring/src/FEAMooring_Types.f90 index a96fa832aa..986f9ea0ab 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(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LineCI, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LineCI) + UB(1:1) = ubound(SrcInputFileData%LineCI) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LineCD, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LineCD) + UB(1:1) = ubound(SrcInputFileData%LineCD) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LEAStiff, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LEAStiff) + UB(1:1) = ubound(SrcInputFileData%LEAStiff) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LMassDen, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LMassDen) + UB(1:1) = ubound(SrcInputFileData%LMassDen) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LDMassDen, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LDMassDen) + UB(1:1) = ubound(SrcInputFileData%LDMassDen) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BottmStiff, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BottmStiff) + UB(1:1) = ubound(SrcInputFileData%BottmStiff) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LRadAnch, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LRadAnch) + UB(1:1) = ubound(SrcInputFileData%LRadAnch) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LAngAnch, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LAngAnch) + UB(1:1) = ubound(SrcInputFileData%LAngAnch) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LDpthAnch, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LDpthAnch) + UB(1:1) = ubound(SrcInputFileData%LDpthAnch) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LRadFair, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LRadFair) + UB(1:1) = ubound(SrcInputFileData%LRadFair) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LAngFair, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LAngFair) + UB(1:1) = ubound(SrcInputFileData%LAngFair) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LDrftFair, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LDrftFair) + UB(1:1) = ubound(SrcInputFileData%LDrftFair) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LUnstrLen, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LUnstrLen) + UB(1:1) = ubound(SrcInputFileData%LUnstrLen) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%Tension, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%Tension) + UB(1:1) = ubound(SrcInputFileData%Tension) 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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%GSL, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%GSL) + UB(1:3) = ubound(SrcInputFileData%GSL) 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, kind=B8Ki) - UB(1:2) = ubound(SrcInputFileData%GSR, kind=B8Ki) + LB(1:2) = lbound(SrcInputFileData%GSR) + UB(1:2) = ubound(SrcInputFileData%GSR) 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, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%GE, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%GE) + UB(1:3) = ubound(SrcInputFileData%GE) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -573,7 +573,7 @@ subroutine FEAM_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackInputFile' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -616,7 +616,7 @@ subroutine FEAM_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FEAM_CopyInitInput' ErrStat = ErrID_None @@ -626,8 +626,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%WaveAcc0, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%WaveAcc0) + UB(1:3) = ubound(SrcInitInputData%WaveAcc0) 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 @@ -638,8 +638,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveTime, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveTime) + UB(1:1) = ubound(SrcInitInputData%WaveTime) if (.not. allocated(DstInitInputData%WaveTime)) then allocate(DstInitInputData%WaveTime(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -650,8 +650,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%WaveVel0, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%WaveVel0) + UB(1:3) = ubound(SrcInitInputData%WaveVel0) 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 @@ -704,7 +704,7 @@ subroutine FEAM_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackInitInput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -725,15 +725,15 @@ subroutine FEAM_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -744,8 +744,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -759,8 +759,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LAnchxi, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LAnchxi) + UB(1:1) = ubound(SrcInitOutputData%LAnchxi) if (.not. allocated(DstInitOutputData%LAnchxi)) then allocate(DstInitOutputData%LAnchxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -771,8 +771,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LAnchyi, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LAnchyi) + UB(1:1) = ubound(SrcInitOutputData%LAnchyi) if (.not. allocated(DstInitOutputData%LAnchyi)) then allocate(DstInitOutputData%LAnchyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -783,8 +783,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LAnchzi, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LAnchzi) + UB(1:1) = ubound(SrcInitOutputData%LAnchzi) if (.not. allocated(DstInitOutputData%LAnchzi)) then allocate(DstInitOutputData%LAnchzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -795,8 +795,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LFairxt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LFairxt) + UB(1:1) = ubound(SrcInitOutputData%LFairxt) if (.not. allocated(DstInitOutputData%LFairxt)) then allocate(DstInitOutputData%LFairxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -807,8 +807,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LFairyt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LFairyt) + UB(1:1) = ubound(SrcInitOutputData%LFairyt) if (.not. allocated(DstInitOutputData%LFairyt)) then allocate(DstInitOutputData%LFairyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -819,8 +819,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LFairzt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LFairzt) + UB(1:1) = ubound(SrcInitOutputData%LFairzt) if (.not. allocated(DstInitOutputData%LFairzt)) then allocate(DstInitOutputData%LFairzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -890,7 +890,7 @@ subroutine FEAM_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -911,14 +911,14 @@ subroutine FEAM_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%GLU, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%GLU) + UB(1:2) = ubound(SrcContStateData%GLU) if (.not. allocated(DstContStateData%GLU)) then allocate(DstContStateData%GLU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -929,8 +929,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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%GLDU, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%GLDU) + UB(1:2) = ubound(SrcContStateData%GLDU) if (.not. allocated(DstContStateData%GLDU)) then allocate(DstContStateData%GLDU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -971,7 +971,7 @@ subroutine FEAM_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackContState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1064,14 +1064,14 @@ subroutine FEAM_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%GLU0, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%GLU0) + UB(1:2) = ubound(SrcOtherStateData%GLU0) if (.not. allocated(DstOtherStateData%GLU0)) then allocate(DstOtherStateData%GLU0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1082,8 +1082,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%GLDDU, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%GLDDU) + UB(1:2) = ubound(SrcOtherStateData%GLDDU) if (.not. allocated(DstOtherStateData%GLDDU)) then allocate(DstOtherStateData%GLDDU(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1095,8 +1095,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, kind=B8Ki) - UB(1:3) = ubound(SrcOtherStateData%GFORC0, kind=B8Ki) + LB(1:3) = lbound(SrcOtherStateData%GFORC0) + UB(1:3) = ubound(SrcOtherStateData%GFORC0) 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 @@ -1107,8 +1107,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, kind=B8Ki) - UB(1:4) = ubound(SrcOtherStateData%GMASS0, kind=B8Ki) + LB(1:4) = lbound(SrcOtherStateData%GMASS0) + UB(1:4) = ubound(SrcOtherStateData%GMASS0) 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 @@ -1119,8 +1119,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%FAST_FPA, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%FAST_FPA) + UB(1:2) = ubound(SrcOtherStateData%FAST_FPA) 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 @@ -1131,8 +1131,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, kind=B8Ki) - UB(1:2) = ubound(SrcOtherStateData%FAST_RP, kind=B8Ki) + LB(1:2) = lbound(SrcOtherStateData%FAST_RP) + UB(1:2) = ubound(SrcOtherStateData%FAST_RP) 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 @@ -1198,7 +1198,7 @@ subroutine FEAM_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackOtherState' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1221,14 +1221,14 @@ subroutine FEAM_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%GLF, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%GLF) + UB(1:2) = ubound(SrcMiscData%GLF) if (.not. allocated(DstMiscData%GLF)) then allocate(DstMiscData%GLF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1239,8 +1239,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%GLK, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%GLK) + UB(1:3) = ubound(SrcMiscData%GLK) 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 @@ -1253,8 +1253,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%FAST_FP, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%FAST_FP) + UB(1:2) = ubound(SrcMiscData%FAST_FP) 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 @@ -1276,8 +1276,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%FAIR_ANG, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%FAIR_ANG) + UB(1:2) = ubound(SrcMiscData%FAIR_ANG) 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 @@ -1288,8 +1288,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FAIR_T, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FAIR_T) + UB(1:1) = ubound(SrcMiscData%FAIR_T) if (.not. allocated(DstMiscData%FAIR_T)) then allocate(DstMiscData%FAIR_T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1300,8 +1300,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%ANCH_ANG, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%ANCH_ANG) + UB(1:2) = ubound(SrcMiscData%ANCH_ANG) 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 @@ -1312,8 +1312,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%ANCH_T, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%ANCH_T) + UB(1:1) = ubound(SrcMiscData%ANCH_T) if (.not. allocated(DstMiscData%ANCH_T)) then allocate(DstMiscData%ANCH_T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1324,8 +1324,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%Line_Coordinate, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%Line_Coordinate) + UB(1:3) = ubound(SrcMiscData%Line_Coordinate) 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 @@ -1336,8 +1336,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%Line_Tangent, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%Line_Tangent) + UB(1:3) = ubound(SrcMiscData%Line_Tangent) 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 @@ -1348,8 +1348,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_Lines, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_Lines) + UB(1:2) = ubound(SrcMiscData%F_Lines) 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 @@ -1437,7 +1437,7 @@ subroutine FEAM_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackMisc' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1473,8 +1473,8 @@ subroutine FEAM_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FEAM_CopyParam' @@ -1489,8 +1489,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NEQ, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NEQ) + UB(1:1) = ubound(SrcParamData%NEQ) if (.not. allocated(DstParamData%NEQ)) then allocate(DstParamData%NEQ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1505,8 +1505,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%GSL, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%GSL) + UB(1:3) = ubound(SrcParamData%GSL) 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 @@ -1517,8 +1517,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%GP, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%GP) + UB(1:2) = ubound(SrcParamData%GP) if (.not. allocated(DstParamData%GP)) then allocate(DstParamData%GP(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1529,8 +1529,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Elength, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Elength) + UB(1:1) = ubound(SrcParamData%Elength) if (.not. allocated(DstParamData%Elength)) then allocate(DstParamData%Elength(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1541,8 +1541,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BottmElev, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BottmElev) + UB(1:1) = ubound(SrcParamData%BottmElev) if (.not. allocated(DstParamData%BottmElev)) then allocate(DstParamData%BottmElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1553,8 +1553,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BottmStiff, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BottmStiff) + UB(1:1) = ubound(SrcParamData%BottmStiff) if (.not. allocated(DstParamData%BottmStiff)) then allocate(DstParamData%BottmStiff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1565,8 +1565,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%LMassDen, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%LMassDen) + UB(1:1) = ubound(SrcParamData%LMassDen) if (.not. allocated(DstParamData%LMassDen)) then allocate(DstParamData%LMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1577,8 +1577,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%LDMassDen, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%LDMassDen) + UB(1:1) = ubound(SrcParamData%LDMassDen) if (.not. allocated(DstParamData%LDMassDen)) then allocate(DstParamData%LDMassDen(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1589,8 +1589,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%LEAStiff, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%LEAStiff) + UB(1:1) = ubound(SrcParamData%LEAStiff) if (.not. allocated(DstParamData%LEAStiff)) then allocate(DstParamData%LEAStiff(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1601,8 +1601,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%LineCI, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%LineCI) + UB(1:1) = ubound(SrcParamData%LineCI) if (.not. allocated(DstParamData%LineCI)) then allocate(DstParamData%LineCI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1613,8 +1613,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%LineCD, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%LineCD) + UB(1:1) = ubound(SrcParamData%LineCD) if (.not. allocated(DstParamData%LineCD)) then allocate(DstParamData%LineCD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1625,8 +1625,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Bvp, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Bvp) + UB(1:2) = ubound(SrcParamData%Bvp) if (.not. allocated(DstParamData%Bvp)) then allocate(DstParamData%Bvp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1637,8 +1637,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%WaveAcc0, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%WaveAcc0) + UB(1:3) = ubound(SrcParamData%WaveAcc0) 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 @@ -1649,8 +1649,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WaveTime, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WaveTime) + UB(1:1) = ubound(SrcParamData%WaveTime) if (.not. allocated(DstParamData%WaveTime)) then allocate(DstParamData%WaveTime(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1661,8 +1661,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%WaveVel0, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%WaveVel0) + UB(1:3) = ubound(SrcParamData%WaveVel0) 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 @@ -1694,8 +1694,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1711,8 +1711,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%GLUZR, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%GLUZR) + UB(1:3) = ubound(SrcParamData%GLUZR) 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 @@ -1723,8 +1723,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%GTZER, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%GTZER) + UB(1:2) = ubound(SrcParamData%GTZER) if (.not. allocated(DstParamData%GTZER)) then allocate(DstParamData%GTZER(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1740,8 +1740,8 @@ subroutine FEAM_DestroyParam(ParamData, ErrStat, ErrMsg) type(FEAM_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FEAM_DestroyParam' @@ -1793,8 +1793,8 @@ subroutine FEAM_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WaveVel0) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1813,8 +1813,8 @@ subroutine FEAM_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(FEAM_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'FEAM_PackParam' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) call RegPack(RF, InData%GRAV) @@ -1866,9 +1866,9 @@ subroutine FEAM_PackParam(RF, Indata) call RegPack(RF, InData%RootName) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1883,8 +1883,8 @@ subroutine FEAM_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackParam' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2013,15 +2013,15 @@ subroutine FEAM_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2072,7 +2072,7 @@ subroutine FEAM_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAM_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FEAM_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/Conv_Radiation_Types.f90 b/modules/hydrodyn/src/Conv_Radiation_Types.f90 index 4b47ee2a95..4104c950b5 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(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%HdroAddMs, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%HdroAddMs) + UB(1:3) = ubound(SrcInitInputData%HdroAddMs) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%HdroFreq, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%HdroFreq) + UB(1:1) = ubound(SrcInitInputData%HdroFreq) 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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%HdroDmpng, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%HdroDmpng) + UB(1:3) = ubound(SrcInitInputData%HdroDmpng) 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 @@ -196,7 +196,7 @@ subroutine Conv_Rdtn_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(Conv_Rdtn_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackInitInput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -294,14 +294,14 @@ subroutine Conv_Rdtn_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%XDHistory, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%XDHistory) + UB(1:2) = ubound(SrcDiscStateData%XDHistory) if (.not. allocated(DstDiscStateData%XDHistory)) then allocate(DstDiscStateData%XDHistory(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -340,7 +340,7 @@ subroutine Conv_Rdtn_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(Conv_Rdtn_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackDiscState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -468,7 +468,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(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Conv_Rdtn_CopyParam' ErrStat = ErrID_None @@ -477,8 +477,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%RdtnKrnl, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%RdtnKrnl) + UB(1:3) = ubound(SrcParamData%RdtnKrnl) 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 @@ -522,7 +522,7 @@ subroutine Conv_Rdtn_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(Conv_Rdtn_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackParam' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -540,14 +540,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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%Velocity, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%Velocity) + UB(1:1) = ubound(SrcInputData%Velocity) if (.not. allocated(DstInputData%Velocity)) then allocate(DstInputData%Velocity(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -584,7 +584,7 @@ subroutine Conv_Rdtn_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(Conv_Rdtn_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -597,14 +597,14 @@ subroutine Conv_Rdtn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%F_Rdtn, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%F_Rdtn) + UB(1:1) = ubound(SrcOutputData%F_Rdtn) if (.not. allocated(DstOutputData%F_Rdtn)) then allocate(DstOutputData%F_Rdtn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -641,7 +641,7 @@ subroutine Conv_Rdtn_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Conv_Rdtn_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Conv_Rdtn_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/HydroDyn_Types.f90 b/modules/hydrodyn/src/HydroDyn_Types.f90 index 175ff680f7..7d928a77b2 100644 --- a/modules/hydrodyn/src/HydroDyn_Types.f90 +++ b/modules/hydrodyn/src/HydroDyn_Types.f90 @@ -219,7 +219,7 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyInputFile' @@ -227,8 +227,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrMsg = '' DstInputFileData%EchoFlag = SrcInputFileData%EchoFlag if (allocated(SrcInputFileData%AddF0)) then - LB(1:2) = lbound(SrcInputFileData%AddF0, kind=B8Ki) - UB(1:2) = ubound(SrcInputFileData%AddF0, kind=B8Ki) + LB(1:2) = lbound(SrcInputFileData%AddF0) + UB(1:2) = ubound(SrcInputFileData%AddF0) if (.not. allocated(DstInputFileData%AddF0)) then allocate(DstInputFileData%AddF0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -239,8 +239,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddF0 = SrcInputFileData%AddF0 end if if (allocated(SrcInputFileData%AddCLin)) then - LB(1:3) = lbound(SrcInputFileData%AddCLin, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%AddCLin, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%AddCLin) + UB(1:3) = ubound(SrcInputFileData%AddCLin) 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 @@ -251,8 +251,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddCLin = SrcInputFileData%AddCLin end if if (allocated(SrcInputFileData%AddBLin)) then - LB(1:3) = lbound(SrcInputFileData%AddBLin, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%AddBLin, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%AddBLin) + UB(1:3) = ubound(SrcInputFileData%AddBLin) 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 @@ -263,8 +263,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddBLin = SrcInputFileData%AddBLin end if if (allocated(SrcInputFileData%AddBQuad)) then - LB(1:3) = lbound(SrcInputFileData%AddBQuad, kind=B8Ki) - UB(1:3) = ubound(SrcInputFileData%AddBQuad, kind=B8Ki) + LB(1:3) = lbound(SrcInputFileData%AddBQuad) + UB(1:3) = ubound(SrcInputFileData%AddBQuad) 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 @@ -275,8 +275,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%AddBQuad = SrcInputFileData%AddBQuad end if if (allocated(SrcInputFileData%PotFile)) then - LB(1:1) = lbound(SrcInputFileData%PotFile, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PotFile, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PotFile) + UB(1:1) = ubound(SrcInputFileData%PotFile) if (.not. allocated(DstInputFileData%PotFile)) then allocate(DstInputFileData%PotFile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -291,8 +291,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmVol0, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmVol0) + UB(1:1) = ubound(SrcInputFileData%PtfmVol0) if (.not. allocated(DstInputFileData%PtfmVol0)) then allocate(DstInputFileData%PtfmVol0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -304,8 +304,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, end if DstInputFileData%HasWAMIT = SrcInputFileData%HasWAMIT if (allocated(SrcInputFileData%WAMITULEN)) then - LB(1:1) = lbound(SrcInputFileData%WAMITULEN, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WAMITULEN, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WAMITULEN) + UB(1:1) = ubound(SrcInputFileData%WAMITULEN) if (.not. allocated(DstInputFileData%WAMITULEN)) then allocate(DstInputFileData%WAMITULEN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -316,8 +316,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%WAMITULEN = SrcInputFileData%WAMITULEN end if if (allocated(SrcInputFileData%PtfmRefxt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefxt, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmRefxt, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmRefxt) + UB(1:1) = ubound(SrcInputFileData%PtfmRefxt) if (.not. allocated(DstInputFileData%PtfmRefxt)) then allocate(DstInputFileData%PtfmRefxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -328,8 +328,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefxt = SrcInputFileData%PtfmRefxt end if if (allocated(SrcInputFileData%PtfmRefyt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefyt, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmRefyt, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmRefyt) + UB(1:1) = ubound(SrcInputFileData%PtfmRefyt) if (.not. allocated(DstInputFileData%PtfmRefyt)) then allocate(DstInputFileData%PtfmRefyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -340,8 +340,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefyt = SrcInputFileData%PtfmRefyt end if if (allocated(SrcInputFileData%PtfmRefzt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefzt, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmRefzt, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmRefzt) + UB(1:1) = ubound(SrcInputFileData%PtfmRefzt) if (.not. allocated(DstInputFileData%PtfmRefzt)) then allocate(DstInputFileData%PtfmRefzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -352,8 +352,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefzt = SrcInputFileData%PtfmRefzt end if if (allocated(SrcInputFileData%PtfmRefztRot)) then - LB(1:1) = lbound(SrcInputFileData%PtfmRefztRot, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmRefztRot, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmRefztRot) + UB(1:1) = ubound(SrcInputFileData%PtfmRefztRot) if (.not. allocated(DstInputFileData%PtfmRefztRot)) then allocate(DstInputFileData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -364,8 +364,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmRefztRot = SrcInputFileData%PtfmRefztRot end if if (allocated(SrcInputFileData%PtfmCOBxt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmCOBxt, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmCOBxt, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmCOBxt) + UB(1:1) = ubound(SrcInputFileData%PtfmCOBxt) if (.not. allocated(DstInputFileData%PtfmCOBxt)) then allocate(DstInputFileData%PtfmCOBxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -376,8 +376,8 @@ subroutine HydroDyn_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, DstInputFileData%PtfmCOBxt = SrcInputFileData%PtfmCOBxt end if if (allocated(SrcInputFileData%PtfmCOByt)) then - LB(1:1) = lbound(SrcInputFileData%PtfmCOByt, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%PtfmCOByt, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%PtfmCOByt) + UB(1:1) = ubound(SrcInputFileData%PtfmCOByt) if (.not. allocated(DstInputFileData%PtfmCOByt)) then allocate(DstInputFileData%PtfmCOByt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -400,8 +400,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%UserOutputs, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%UserOutputs) + UB(1:1) = ubound(SrcInputFileData%UserOutputs) if (.not. allocated(DstInputFileData%UserOutputs)) then allocate(DstInputFileData%UserOutputs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -415,8 +415,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -546,7 +546,7 @@ subroutine HydroDyn_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackInputFile' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -595,7 +595,7 @@ subroutine HydroDyn_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyInitInput' @@ -660,7 +660,7 @@ subroutine HydroDyn_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -702,7 +702,7 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyInitOutput' @@ -712,8 +712,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -724,8 +724,8 @@ subroutine HydroDyn_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCod DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -739,8 +739,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -751,8 +751,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -763,8 +763,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -775,8 +775,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -787,8 +787,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -857,7 +857,7 @@ subroutine HydroDyn_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -938,16 +938,16 @@ subroutine HydroDyn_CopyContState(SrcContStateData, DstContStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%WAMIT) + UB(1:1) = ubound(SrcContStateData%WAMIT) if (.not. allocated(DstContStateData%WAMIT)) then allocate(DstContStateData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -970,16 +970,16 @@ subroutine HydroDyn_DestroyContState(ContStateData, ErrStat, ErrMsg) type(HydroDyn_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ContStateData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(ContStateData%WAMIT) + UB(1:1) = ubound(ContStateData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyContState(ContStateData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -994,14 +994,14 @@ subroutine HydroDyn_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) + LB(1:1) = lbound(InData%WAMIT) + UB(1:1) = ubound(InData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackContState(RF, InData%WAMIT(i1)) end do @@ -1014,8 +1014,8 @@ subroutine HydroDyn_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1041,16 +1041,16 @@ subroutine HydroDyn_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%WAMIT) + UB(1:1) = ubound(SrcDiscStateData%WAMIT) if (.not. allocated(DstDiscStateData%WAMIT)) then allocate(DstDiscStateData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1068,8 +1068,8 @@ subroutine HydroDyn_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcDiscStateData%PtfmRefY)) then - LB(1:1) = lbound(SrcDiscStateData%PtfmRefY, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%PtfmRefY, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%PtfmRefY) + UB(1:1) = ubound(SrcDiscStateData%PtfmRefY) if (.not. allocated(DstDiscStateData%PtfmRefY)) then allocate(DstDiscStateData%PtfmRefY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1085,16 +1085,16 @@ subroutine HydroDyn_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(HydroDyn_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%WAMIT) + UB(1:1) = ubound(DiscStateData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyDiscState(DiscStateData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1112,14 +1112,14 @@ subroutine HydroDyn_PackDiscState(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) + LB(1:1) = lbound(InData%WAMIT) + UB(1:1) = ubound(InData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackDiscState(RF, InData%WAMIT(i1)) end do @@ -1133,8 +1133,8 @@ subroutine HydroDyn_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1214,16 +1214,16 @@ subroutine HydroDyn_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCod integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%WAMIT) + UB(1:1) = ubound(SrcOtherStateData%WAMIT) if (.not. allocated(DstOtherStateData%WAMIT)) then allocate(DstOtherStateData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1246,16 +1246,16 @@ subroutine HydroDyn_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(HydroDyn_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%WAMIT) + UB(1:1) = ubound(OtherStateData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyOtherState(OtherStateData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1270,14 +1270,14 @@ subroutine HydroDyn_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) + LB(1:1) = lbound(InData%WAMIT) + UB(1:1) = ubound(InData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackOtherState(RF, InData%WAMIT(i1)) end do @@ -1290,8 +1290,8 @@ subroutine HydroDyn_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1317,8 +1317,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyMisc' @@ -1333,8 +1333,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_PtfmAdd, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_PtfmAdd) + UB(1:1) = ubound(SrcMiscData%F_PtfmAdd) if (.not. allocated(DstMiscData%F_PtfmAdd)) then allocate(DstMiscData%F_PtfmAdd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1346,8 +1346,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_Waves, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_Waves) + UB(1:1) = ubound(SrcMiscData%F_Waves) if (.not. allocated(DstMiscData%F_Waves)) then allocate(DstMiscData%F_Waves(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1358,8 +1358,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%WAMIT) + UB(1:1) = ubound(SrcMiscData%WAMIT) if (.not. allocated(DstMiscData%WAMIT)) then allocate(DstMiscData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1374,8 +1374,8 @@ subroutine HydroDyn_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcMiscData%WAMIT2)) then - LB(1:1) = lbound(SrcMiscData%WAMIT2, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%WAMIT2, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%WAMIT2) + UB(1:1) = ubound(SrcMiscData%WAMIT2) if (.not. allocated(DstMiscData%WAMIT2)) then allocate(DstMiscData%WAMIT2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1393,8 +1393,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%u_WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%u_WAMIT) + UB(1:1) = ubound(SrcMiscData%u_WAMIT) if (.not. allocated(DstMiscData%u_WAMIT)) then allocate(DstMiscData%u_WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1414,8 +1414,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) type(HydroDyn_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_DestroyMisc' @@ -1432,8 +1432,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%F_Waves) end if if (allocated(MiscData%WAMIT)) then - LB(1:1) = lbound(MiscData%WAMIT, kind=B8Ki) - UB(1:1) = ubound(MiscData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(MiscData%WAMIT) + UB(1:1) = ubound(MiscData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyMisc(MiscData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1441,8 +1441,8 @@ subroutine HydroDyn_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%WAMIT) end if if (allocated(MiscData%WAMIT2)) then - LB(1:1) = lbound(MiscData%WAMIT2, kind=B8Ki) - UB(1:1) = ubound(MiscData%WAMIT2, kind=B8Ki) + LB(1:1) = lbound(MiscData%WAMIT2) + UB(1:1) = ubound(MiscData%WAMIT2) do i1 = LB(1), UB(1) call WAMIT2_DestroyMisc(MiscData%WAMIT2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1452,8 +1452,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%u_WAMIT, kind=B8Ki) + LB(1:1) = lbound(MiscData%u_WAMIT) + UB(1:1) = ubound(MiscData%u_WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyInput(MiscData%u_WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1466,8 +1466,8 @@ subroutine HydroDyn_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call MeshPack(RF, InData%AllHdroOrigin) call HydroDyn_PackHD_ModuleMapType(RF, InData%HD_MeshMap) @@ -1478,18 +1478,18 @@ subroutine HydroDyn_PackMisc(RF, Indata) call RegPackAlloc(RF, InData%F_Waves) call RegPack(RF, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) + LB(1:1) = lbound(InData%WAMIT) + UB(1:1) = ubound(InData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackMisc(RF, InData%WAMIT(i1)) end do end if call RegPack(RF, allocated(InData%WAMIT2)) if (allocated(InData%WAMIT2)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT2), ubound(InData%WAMIT2)) + LB(1:1) = lbound(InData%WAMIT2) + UB(1:1) = ubound(InData%WAMIT2) do i1 = LB(1), UB(1) call WAMIT2_PackMisc(RF, InData%WAMIT2(i1)) end do @@ -1497,9 +1497,9 @@ subroutine HydroDyn_PackMisc(RF, Indata) call Morison_PackMisc(RF, InData%Morison) call RegPack(RF, allocated(InData%u_WAMIT)) if (allocated(InData%u_WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_WAMIT), ubound(InData%u_WAMIT)) + LB(1:1) = lbound(InData%u_WAMIT) + UB(1:1) = ubound(InData%u_WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackInput(RF, InData%u_WAMIT(i1)) end do @@ -1511,8 +1511,8 @@ subroutine HydroDyn_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1571,8 +1571,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'HydroDyn_CopyParam' @@ -1581,8 +1581,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WAMIT) + UB(1:1) = ubound(SrcParamData%WAMIT) if (.not. allocated(DstParamData%WAMIT)) then allocate(DstParamData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1597,8 +1597,8 @@ subroutine HydroDyn_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, Err end do end if if (allocated(SrcParamData%WAMIT2)) then - LB(1:1) = lbound(SrcParamData%WAMIT2, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WAMIT2, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WAMIT2) + UB(1:1) = ubound(SrcParamData%WAMIT2) if (.not. allocated(DstParamData%WAMIT2)) then allocate(DstParamData%WAMIT2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1623,8 +1623,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%AddF0, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%AddF0) + UB(1:2) = ubound(SrcParamData%AddF0) if (.not. allocated(DstParamData%AddF0)) then allocate(DstParamData%AddF0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1635,8 +1635,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AddCLin, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AddCLin) + UB(1:3) = ubound(SrcParamData%AddCLin) 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 @@ -1647,8 +1647,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AddBLin, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AddBLin) + UB(1:3) = ubound(SrcParamData%AddBLin) 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 @@ -1659,8 +1659,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AddBQuad, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AddBQuad) + UB(1:3) = ubound(SrcParamData%AddBQuad) 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 @@ -1672,8 +1672,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1696,8 +1696,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_u_indx) + UB(1:2) = ubound(SrcParamData%Jac_u_indx) 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 @@ -1708,8 +1708,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%du) + UB(1:1) = ubound(SrcParamData%du) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1720,8 +1720,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dx) + UB(1:1) = ubound(SrcParamData%dx) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1742,16 +1742,16 @@ subroutine HydroDyn_DestroyParam(ParamData, ErrStat, ErrMsg) type(HydroDyn_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ParamData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(ParamData%WAMIT) + UB(1:1) = ubound(ParamData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyParam(ParamData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1759,8 +1759,8 @@ subroutine HydroDyn_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WAMIT) end if if (allocated(ParamData%WAMIT2)) then - LB(1:1) = lbound(ParamData%WAMIT2, kind=B8Ki) - UB(1:1) = ubound(ParamData%WAMIT2, kind=B8Ki) + LB(1:1) = lbound(ParamData%WAMIT2) + UB(1:1) = ubound(ParamData%WAMIT2) do i1 = LB(1), UB(1) call WAMIT2_DestroyParam(ParamData%WAMIT2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1782,8 +1782,8 @@ subroutine HydroDyn_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%AddBQuad) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1806,26 +1806,26 @@ subroutine HydroDyn_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%nWAMITObj) call RegPack(RF, InData%vecMultiplier) call RegPack(RF, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) + LB(1:1) = lbound(InData%WAMIT) + UB(1:1) = ubound(InData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackParam(RF, InData%WAMIT(i1)) end do end if call RegPack(RF, allocated(InData%WAMIT2)) if (allocated(InData%WAMIT2)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT2), ubound(InData%WAMIT2)) + LB(1:1) = lbound(InData%WAMIT2) + UB(1:1) = ubound(InData%WAMIT2) do i1 = LB(1), UB(1) call WAMIT2_PackParam(RF, InData%WAMIT2(i1)) end do @@ -1845,9 +1845,9 @@ subroutine HydroDyn_PackParam(RF, Indata) call RegPack(RF, InData%DT) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1881,8 +1881,8 @@ subroutine HydroDyn_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -2043,16 +2043,16 @@ subroutine HydroDyn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WAMIT) + UB(1:1) = ubound(SrcOutputData%WAMIT) if (.not. allocated(DstOutputData%WAMIT)) then allocate(DstOutputData%WAMIT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2067,8 +2067,8 @@ subroutine HydroDyn_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, end do end if if (allocated(SrcOutputData%WAMIT2)) then - LB(1:1) = lbound(SrcOutputData%WAMIT2, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WAMIT2, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WAMIT2) + UB(1:1) = ubound(SrcOutputData%WAMIT2) if (.not. allocated(DstOutputData%WAMIT2)) then allocate(DstOutputData%WAMIT2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2089,8 +2089,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2106,16 +2106,16 @@ subroutine HydroDyn_DestroyOutput(OutputData, ErrStat, ErrMsg) type(HydroDyn_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%WAMIT, kind=B8Ki) + LB(1:1) = lbound(OutputData%WAMIT) + UB(1:1) = ubound(OutputData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_DestroyOutput(OutputData%WAMIT(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2123,8 +2123,8 @@ subroutine HydroDyn_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%WAMIT) end if if (allocated(OutputData%WAMIT2)) then - LB(1:1) = lbound(OutputData%WAMIT2, kind=B8Ki) - UB(1:1) = ubound(OutputData%WAMIT2, kind=B8Ki) + LB(1:1) = lbound(OutputData%WAMIT2) + UB(1:1) = ubound(OutputData%WAMIT2) do i1 = LB(1), UB(1) call WAMIT2_DestroyOutput(OutputData%WAMIT2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2144,23 +2144,23 @@ subroutine HydroDyn_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'HydroDyn_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%WAMIT)) if (allocated(InData%WAMIT)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT), ubound(InData%WAMIT)) + LB(1:1) = lbound(InData%WAMIT) + UB(1:1) = ubound(InData%WAMIT) do i1 = LB(1), UB(1) call WAMIT_PackOutput(RF, InData%WAMIT(i1)) end do end if call RegPack(RF, allocated(InData%WAMIT2)) if (allocated(InData%WAMIT2)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%WAMIT2), ubound(InData%WAMIT2)) + LB(1:1) = lbound(InData%WAMIT2) + UB(1:1) = ubound(InData%WAMIT2) do i1 = LB(1), UB(1) call WAMIT2_PackOutput(RF, InData%WAMIT2(i1)) end do @@ -2175,8 +2175,8 @@ subroutine HydroDyn_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'HydroDyn_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2473,13 +2473,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, kind=B8Ki),UBOUND(y_out%WAMIT,1, kind=B8Ki) + do i1 = lbound(y_out%WAMIT,1),ubound(y_out%WAMIT,1) 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, kind=B8Ki),UBOUND(y_out%WAMIT2,1, kind=B8Ki) + do i1 = lbound(y_out%WAMIT2,1),ubound(y_out%WAMIT2,1) 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 @@ -2549,13 +2549,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, kind=B8Ki),UBOUND(y_out%WAMIT,1, kind=B8Ki) + do i1 = lbound(y_out%WAMIT,1),ubound(y_out%WAMIT,1) 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, kind=B8Ki),UBOUND(y_out%WAMIT2,1, kind=B8Ki) + do i1 = lbound(y_out%WAMIT2,1),ubound(y_out%WAMIT2,1) 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 0fe65d6c83..debd48162d 100644 --- a/modules/hydrodyn/src/Morison_Types.f90 +++ b/modules/hydrodyn/src/Morison_Types.f90 @@ -541,15 +541,15 @@ subroutine Morison_CopyFilledGroupType(SrcFilledGroupTypeData, DstFilledGroupTyp integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcFilledGroupTypeData%FillMList, kind=B8Ki) + LB(1:1) = lbound(SrcFilledGroupTypeData%FillMList) + UB(1:1) = ubound(SrcFilledGroupTypeData%FillMList) if (.not. allocated(DstFilledGroupTypeData%FillMList)) then allocate(DstFilledGroupTypeData%FillMList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -593,7 +593,7 @@ subroutine Morison_UnPackFilledGroupType(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_FilledGroupType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackFilledGroupType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -749,15 +749,15 @@ subroutine Morison_CopyMemberInputType(SrcMemberInputTypeData, DstMemberInputTyp integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberInputTypeData%NodeIndx, kind=B8Ki) + LB(1:1) = lbound(SrcMemberInputTypeData%NodeIndx) + UB(1:1) = ubound(SrcMemberInputTypeData%NodeIndx) if (.not. allocated(DstMemberInputTypeData%NodeIndx)) then allocate(DstMemberInputTypeData%NodeIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -831,7 +831,7 @@ subroutine Morison_UnPackMemberInputType(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_MemberInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMemberInputType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -943,14 +943,14 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%NodeIndx, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%NodeIndx) + UB(1:1) = ubound(SrcMemberTypeData%NodeIndx) if (.not. allocated(DstMemberTypeData%NodeIndx)) then allocate(DstMemberTypeData%NodeIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -969,8 +969,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%R, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%R) + UB(1:1) = ubound(SrcMemberTypeData%R) if (.not. allocated(DstMemberTypeData%R)) then allocate(DstMemberTypeData%R(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -981,8 +981,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%R = SrcMemberTypeData%R end if if (allocated(SrcMemberTypeData%RMG)) then - LB(1:1) = lbound(SrcMemberTypeData%RMG, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%RMG, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%RMG) + UB(1:1) = ubound(SrcMemberTypeData%RMG) if (.not. allocated(DstMemberTypeData%RMG)) then allocate(DstMemberTypeData%RMG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -993,8 +993,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%RMG = SrcMemberTypeData%RMG end if if (allocated(SrcMemberTypeData%RMGB)) then - LB(1:1) = lbound(SrcMemberTypeData%RMGB, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%RMGB, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%RMGB) + UB(1:1) = ubound(SrcMemberTypeData%RMGB) if (.not. allocated(DstMemberTypeData%RMGB)) then allocate(DstMemberTypeData%RMGB(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1005,8 +1005,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%RMGB = SrcMemberTypeData%RMGB end if if (allocated(SrcMemberTypeData%Rin)) then - LB(1:1) = lbound(SrcMemberTypeData%Rin, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Rin, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Rin) + UB(1:1) = ubound(SrcMemberTypeData%Rin) if (.not. allocated(DstMemberTypeData%Rin)) then allocate(DstMemberTypeData%Rin(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1017,8 +1017,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Rin = SrcMemberTypeData%Rin end if if (allocated(SrcMemberTypeData%tMG)) then - LB(1:1) = lbound(SrcMemberTypeData%tMG, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%tMG, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%tMG) + UB(1:1) = ubound(SrcMemberTypeData%tMG) if (.not. allocated(DstMemberTypeData%tMG)) then allocate(DstMemberTypeData%tMG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1029,8 +1029,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%tMG = SrcMemberTypeData%tMG end if if (allocated(SrcMemberTypeData%MGdensity)) then - LB(1:1) = lbound(SrcMemberTypeData%MGdensity, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%MGdensity, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%MGdensity) + UB(1:1) = ubound(SrcMemberTypeData%MGdensity) if (.not. allocated(DstMemberTypeData%MGdensity)) then allocate(DstMemberTypeData%MGdensity(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1041,8 +1041,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%dRdl_mg) + UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg) if (.not. allocated(DstMemberTypeData%dRdl_mg)) then allocate(DstMemberTypeData%dRdl_mg(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1053,8 +1053,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg_b, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%dRdl_mg_b) + UB(1:1) = ubound(SrcMemberTypeData%dRdl_mg_b) if (.not. allocated(DstMemberTypeData%dRdl_mg_b)) then allocate(DstMemberTypeData%dRdl_mg_b(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1065,8 +1065,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%dRdl_in, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%dRdl_in) + UB(1:1) = ubound(SrcMemberTypeData%dRdl_in) if (.not. allocated(DstMemberTypeData%dRdl_in)) then allocate(DstMemberTypeData%dRdl_in(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1088,8 +1088,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%floodstatus, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%floodstatus) + UB(1:1) = ubound(SrcMemberTypeData%floodstatus) if (.not. allocated(DstMemberTypeData%floodstatus)) then allocate(DstMemberTypeData%floodstatus(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1100,8 +1100,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%floodstatus = SrcMemberTypeData%floodstatus end if if (allocated(SrcMemberTypeData%alpha)) then - LB(1:1) = lbound(SrcMemberTypeData%alpha, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%alpha, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%alpha) + UB(1:1) = ubound(SrcMemberTypeData%alpha) if (.not. allocated(DstMemberTypeData%alpha)) then allocate(DstMemberTypeData%alpha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1112,8 +1112,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%alpha_fb, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%alpha_fb) + UB(1:1) = ubound(SrcMemberTypeData%alpha_fb) if (.not. allocated(DstMemberTypeData%alpha_fb)) then allocate(DstMemberTypeData%alpha_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1124,8 +1124,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%alpha_fb_star, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%alpha_fb_star) + UB(1:1) = ubound(SrcMemberTypeData%alpha_fb_star) if (.not. allocated(DstMemberTypeData%alpha_fb_star)) then allocate(DstMemberTypeData%alpha_fb_star(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1136,8 +1136,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Cd, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Cd) + UB(1:1) = ubound(SrcMemberTypeData%Cd) if (.not. allocated(DstMemberTypeData%Cd)) then allocate(DstMemberTypeData%Cd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1148,8 +1148,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cd = SrcMemberTypeData%Cd end if if (allocated(SrcMemberTypeData%Ca)) then - LB(1:1) = lbound(SrcMemberTypeData%Ca, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Ca, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Ca) + UB(1:1) = ubound(SrcMemberTypeData%Ca) if (.not. allocated(DstMemberTypeData%Ca)) then allocate(DstMemberTypeData%Ca(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1160,8 +1160,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Ca = SrcMemberTypeData%Ca end if if (allocated(SrcMemberTypeData%Cp)) then - LB(1:1) = lbound(SrcMemberTypeData%Cp, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Cp, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Cp) + UB(1:1) = ubound(SrcMemberTypeData%Cp) if (.not. allocated(DstMemberTypeData%Cp)) then allocate(DstMemberTypeData%Cp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1172,8 +1172,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%Cp = SrcMemberTypeData%Cp end if if (allocated(SrcMemberTypeData%AxCd)) then - LB(1:1) = lbound(SrcMemberTypeData%AxCd, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%AxCd, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%AxCd) + UB(1:1) = ubound(SrcMemberTypeData%AxCd) if (.not. allocated(DstMemberTypeData%AxCd)) then allocate(DstMemberTypeData%AxCd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1184,8 +1184,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%AxCd = SrcMemberTypeData%AxCd end if if (allocated(SrcMemberTypeData%AxCa)) then - LB(1:1) = lbound(SrcMemberTypeData%AxCa, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%AxCa, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%AxCa) + UB(1:1) = ubound(SrcMemberTypeData%AxCa) if (.not. allocated(DstMemberTypeData%AxCa)) then allocate(DstMemberTypeData%AxCa(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1196,8 +1196,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%AxCa = SrcMemberTypeData%AxCa end if if (allocated(SrcMemberTypeData%AxCp)) then - LB(1:1) = lbound(SrcMemberTypeData%AxCp, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%AxCp, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%AxCp) + UB(1:1) = ubound(SrcMemberTypeData%AxCp) if (.not. allocated(DstMemberTypeData%AxCp)) then allocate(DstMemberTypeData%AxCp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1208,8 +1208,8 @@ subroutine Morison_CopyMemberType(SrcMemberTypeData, DstMemberTypeData, CtrlCode DstMemberTypeData%AxCp = SrcMemberTypeData%AxCp end if if (allocated(SrcMemberTypeData%Cb)) then - LB(1:1) = lbound(SrcMemberTypeData%Cb, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Cb, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Cb) + UB(1:1) = ubound(SrcMemberTypeData%Cb) if (.not. allocated(DstMemberTypeData%Cb)) then allocate(DstMemberTypeData%Cb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1220,8 +1220,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%m_fb_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%m_fb_l) + UB(1:1) = ubound(SrcMemberTypeData%m_fb_l) if (.not. allocated(DstMemberTypeData%m_fb_l)) then allocate(DstMemberTypeData%m_fb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1232,8 +1232,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%m_fb_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%m_fb_u) + UB(1:1) = ubound(SrcMemberTypeData%m_fb_u) if (.not. allocated(DstMemberTypeData%m_fb_u)) then allocate(DstMemberTypeData%m_fb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1244,8 +1244,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%h_cfb_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%h_cfb_l) + UB(1:1) = ubound(SrcMemberTypeData%h_cfb_l) if (.not. allocated(DstMemberTypeData%h_cfb_l)) then allocate(DstMemberTypeData%h_cfb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1256,8 +1256,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%h_cfb_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%h_cfb_u) + UB(1:1) = ubound(SrcMemberTypeData%h_cfb_u) if (.not. allocated(DstMemberTypeData%h_cfb_u)) then allocate(DstMemberTypeData%h_cfb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1268,8 +1268,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_lfb_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_lfb_l) + UB(1:1) = ubound(SrcMemberTypeData%I_lfb_l) if (.not. allocated(DstMemberTypeData%I_lfb_l)) then allocate(DstMemberTypeData%I_lfb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1280,8 +1280,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_lfb_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_lfb_u) + UB(1:1) = ubound(SrcMemberTypeData%I_lfb_u) if (.not. allocated(DstMemberTypeData%I_lfb_u)) then allocate(DstMemberTypeData%I_lfb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1292,8 +1292,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_rfb_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_rfb_l) + UB(1:1) = ubound(SrcMemberTypeData%I_rfb_l) if (.not. allocated(DstMemberTypeData%I_rfb_l)) then allocate(DstMemberTypeData%I_rfb_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1304,8 +1304,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_rfb_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_rfb_u) + UB(1:1) = ubound(SrcMemberTypeData%I_rfb_u) if (.not. allocated(DstMemberTypeData%I_rfb_u)) then allocate(DstMemberTypeData%I_rfb_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1316,8 +1316,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%m_mg_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%m_mg_l) + UB(1:1) = ubound(SrcMemberTypeData%m_mg_l) if (.not. allocated(DstMemberTypeData%m_mg_l)) then allocate(DstMemberTypeData%m_mg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1328,8 +1328,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%m_mg_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%m_mg_u) + UB(1:1) = ubound(SrcMemberTypeData%m_mg_u) if (.not. allocated(DstMemberTypeData%m_mg_u)) then allocate(DstMemberTypeData%m_mg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1340,8 +1340,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%h_cmg_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%h_cmg_l) + UB(1:1) = ubound(SrcMemberTypeData%h_cmg_l) if (.not. allocated(DstMemberTypeData%h_cmg_l)) then allocate(DstMemberTypeData%h_cmg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1352,8 +1352,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%h_cmg_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%h_cmg_u) + UB(1:1) = ubound(SrcMemberTypeData%h_cmg_u) if (.not. allocated(DstMemberTypeData%h_cmg_u)) then allocate(DstMemberTypeData%h_cmg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1364,8 +1364,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_lmg_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_lmg_l) + UB(1:1) = ubound(SrcMemberTypeData%I_lmg_l) if (.not. allocated(DstMemberTypeData%I_lmg_l)) then allocate(DstMemberTypeData%I_lmg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1376,8 +1376,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_lmg_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_lmg_u) + UB(1:1) = ubound(SrcMemberTypeData%I_lmg_u) if (.not. allocated(DstMemberTypeData%I_lmg_u)) then allocate(DstMemberTypeData%I_lmg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1388,8 +1388,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_rmg_l, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_rmg_l) + UB(1:1) = ubound(SrcMemberTypeData%I_rmg_l) if (.not. allocated(DstMemberTypeData%I_rmg_l)) then allocate(DstMemberTypeData%I_rmg_l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1400,8 +1400,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%I_rmg_u, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%I_rmg_u) + UB(1:1) = ubound(SrcMemberTypeData%I_rmg_u) if (.not. allocated(DstMemberTypeData%I_rmg_u)) then allocate(DstMemberTypeData%I_rmg_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1412,8 +1412,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Cfl_fb, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Cfl_fb) + UB(1:1) = ubound(SrcMemberTypeData%Cfl_fb) if (.not. allocated(DstMemberTypeData%Cfl_fb)) then allocate(DstMemberTypeData%Cfl_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1424,8 +1424,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%Cfr_fb, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%Cfr_fb) + UB(1:1) = ubound(SrcMemberTypeData%Cfr_fb) if (.not. allocated(DstMemberTypeData%Cfr_fb)) then allocate(DstMemberTypeData%Cfr_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1436,8 +1436,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, kind=B8Ki) - UB(1:1) = ubound(SrcMemberTypeData%CM0_fb, kind=B8Ki) + LB(1:1) = lbound(SrcMemberTypeData%CM0_fb) + UB(1:1) = ubound(SrcMemberTypeData%CM0_fb) if (.not. allocated(DstMemberTypeData%CM0_fb)) then allocate(DstMemberTypeData%CM0_fb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1671,7 +1671,7 @@ subroutine Morison_UnPackMemberType(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_MemberType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMemberType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1753,14 +1753,14 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_D, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_D) + UB(1:2) = ubound(SrcMemberLoadsData%F_D) 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 @@ -1771,8 +1771,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_I, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_I) + UB(1:2) = ubound(SrcMemberLoadsData%F_I) 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 @@ -1783,8 +1783,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_A, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_A) + UB(1:2) = ubound(SrcMemberLoadsData%F_A) 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 @@ -1795,8 +1795,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_B, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_B) + UB(1:2) = ubound(SrcMemberLoadsData%F_B) 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 @@ -1807,8 +1807,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_BF, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_BF) + UB(1:2) = ubound(SrcMemberLoadsData%F_BF) 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 @@ -1819,8 +1819,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_If, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_If) + UB(1:2) = ubound(SrcMemberLoadsData%F_If) 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 @@ -1831,8 +1831,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_WMG, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_WMG) + UB(1:2) = ubound(SrcMemberLoadsData%F_WMG) 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 @@ -1843,8 +1843,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_IMG, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_IMG) + UB(1:2) = ubound(SrcMemberLoadsData%F_IMG) 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 @@ -1855,8 +1855,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%FV, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%FV) + UB(1:2) = ubound(SrcMemberLoadsData%FV) if (.not. allocated(DstMemberLoadsData%FV)) then allocate(DstMemberLoadsData%FV(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1867,8 +1867,8 @@ subroutine Morison_CopyMemberLoads(SrcMemberLoadsData, DstMemberLoadsData, CtrlC DstMemberLoadsData%FV = SrcMemberLoadsData%FV end if if (allocated(SrcMemberLoadsData%FA)) then - LB(1:2) = lbound(SrcMemberLoadsData%FA, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%FA, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%FA) + UB(1:2) = ubound(SrcMemberLoadsData%FA) if (.not. allocated(DstMemberLoadsData%FA)) then allocate(DstMemberLoadsData%FA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1879,8 +1879,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, kind=B8Ki) - UB(1:2) = ubound(SrcMemberLoadsData%F_DP, kind=B8Ki) + LB(1:2) = lbound(SrcMemberLoadsData%F_DP) + UB(1:2) = ubound(SrcMemberLoadsData%F_DP) 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 @@ -1957,7 +1957,7 @@ subroutine Morison_UnPackMemberLoads(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_MemberLoads), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMemberLoads' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2149,7 +2149,7 @@ subroutine Morison_CopyMOutput(SrcMOutputData, DstMOutputData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Morison_CopyMOutput' ErrStat = ErrID_None @@ -2157,8 +2157,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, kind=B8Ki) - UB(1:1) = ubound(SrcMOutputData%NodeLocs, kind=B8Ki) + LB(1:1) = lbound(SrcMOutputData%NodeLocs) + UB(1:1) = ubound(SrcMOutputData%NodeLocs) if (.not. allocated(DstMOutputData%NodeLocs)) then allocate(DstMOutputData%NodeLocs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2170,8 +2170,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, kind=B8Ki) - UB(1:1) = ubound(SrcMOutputData%MeshIndx1, kind=B8Ki) + LB(1:1) = lbound(SrcMOutputData%MeshIndx1) + UB(1:1) = ubound(SrcMOutputData%MeshIndx1) if (.not. allocated(DstMOutputData%MeshIndx1)) then allocate(DstMOutputData%MeshIndx1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2182,8 +2182,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, kind=B8Ki) - UB(1:1) = ubound(SrcMOutputData%MeshIndx2, kind=B8Ki) + LB(1:1) = lbound(SrcMOutputData%MeshIndx2) + UB(1:1) = ubound(SrcMOutputData%MeshIndx2) if (.not. allocated(DstMOutputData%MeshIndx2)) then allocate(DstMOutputData%MeshIndx2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2194,8 +2194,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, kind=B8Ki) - UB(1:1) = ubound(SrcMOutputData%MemberIndx1, kind=B8Ki) + LB(1:1) = lbound(SrcMOutputData%MemberIndx1) + UB(1:1) = ubound(SrcMOutputData%MemberIndx1) if (.not. allocated(DstMOutputData%MemberIndx1)) then allocate(DstMOutputData%MemberIndx1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2206,8 +2206,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, kind=B8Ki) - UB(1:1) = ubound(SrcMOutputData%MemberIndx2, kind=B8Ki) + LB(1:1) = lbound(SrcMOutputData%MemberIndx2) + UB(1:1) = ubound(SrcMOutputData%MemberIndx2) if (.not. allocated(DstMOutputData%MemberIndx2)) then allocate(DstMOutputData%MemberIndx2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2218,8 +2218,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, kind=B8Ki) - UB(1:1) = ubound(SrcMOutputData%s, kind=B8Ki) + LB(1:1) = lbound(SrcMOutputData%s) + UB(1:1) = ubound(SrcMOutputData%s) if (.not. allocated(DstMOutputData%s)) then allocate(DstMOutputData%s(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2279,7 +2279,7 @@ subroutine Morison_UnPackMOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_MOutput), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2341,8 +2341,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyInitInput' @@ -2354,8 +2354,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%InpJoints, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%InpJoints) + UB(1:1) = ubound(SrcInitInputData%InpJoints) if (.not. allocated(DstInitInputData%InpJoints)) then allocate(DstInitInputData%InpJoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2370,8 +2370,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end do end if if (allocated(SrcInitInputData%Nodes)) then - LB(1:1) = lbound(SrcInitInputData%Nodes, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%Nodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%Nodes) + UB(1:1) = ubound(SrcInitInputData%Nodes) if (.not. allocated(DstInitInputData%Nodes)) then allocate(DstInitInputData%Nodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2387,8 +2387,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%AxialCoefs, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%AxialCoefs) + UB(1:1) = ubound(SrcInitInputData%AxialCoefs) if (.not. allocated(DstInitInputData%AxialCoefs)) then allocate(DstInitInputData%AxialCoefs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2404,8 +2404,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%MPropSets, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%MPropSets) + UB(1:1) = ubound(SrcInitInputData%MPropSets) if (.not. allocated(DstInitInputData%MPropSets)) then allocate(DstInitInputData%MPropSets(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2436,8 +2436,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%CoefDpths, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%CoefDpths) + UB(1:1) = ubound(SrcInitInputData%CoefDpths) if (.not. allocated(DstInitInputData%CoefDpths)) then allocate(DstInitInputData%CoefDpths(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2453,8 +2453,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%CoefMembers, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%CoefMembers) + UB(1:1) = ubound(SrcInitInputData%CoefMembers) if (.not. allocated(DstInitInputData%CoefMembers)) then allocate(DstInitInputData%CoefMembers(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2470,8 +2470,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%InpMembers, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%InpMembers) + UB(1:1) = ubound(SrcInitInputData%InpMembers) if (.not. allocated(DstInitInputData%InpMembers)) then allocate(DstInitInputData%InpMembers(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2487,8 +2487,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%FilledGroups, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%FilledGroups) + UB(1:1) = ubound(SrcInitInputData%FilledGroups) if (.not. allocated(DstInitInputData%FilledGroups)) then allocate(DstInitInputData%FilledGroups(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2504,8 +2504,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%MGDepths, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%MGDepths) + UB(1:1) = ubound(SrcInitInputData%MGDepths) if (.not. allocated(DstInitInputData%MGDepths)) then allocate(DstInitInputData%MGDepths(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2523,8 +2523,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%MOutLst, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%MOutLst) + UB(1:1) = ubound(SrcInitInputData%MOutLst) if (.not. allocated(DstInitInputData%MOutLst)) then allocate(DstInitInputData%MOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2540,8 +2540,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%JOutLst, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%JOutLst) + UB(1:1) = ubound(SrcInitInputData%JOutLst) if (.not. allocated(DstInitInputData%JOutLst)) then allocate(DstInitInputData%JOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2556,8 +2556,8 @@ subroutine Morison_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, E end do end if if (allocated(SrcInitInputData%OutList)) then - LB(1:1) = lbound(SrcInitInputData%OutList, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%OutList) + UB(1:1) = ubound(SrcInitInputData%OutList) if (.not. allocated(DstInitInputData%OutList)) then allocate(DstInitInputData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2578,16 +2578,16 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) type(Morison_InitInputType), intent(inout) :: InitInputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InitInputData%InpJoints, kind=B8Ki) + LB(1:1) = lbound(InitInputData%InpJoints) + UB(1:1) = ubound(InitInputData%InpJoints) do i1 = LB(1), UB(1) call Morison_DestroyJointType(InitInputData%InpJoints(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2595,8 +2595,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%InpJoints) end if if (allocated(InitInputData%Nodes)) then - LB(1:1) = lbound(InitInputData%Nodes, kind=B8Ki) - UB(1:1) = ubound(InitInputData%Nodes, kind=B8Ki) + LB(1:1) = lbound(InitInputData%Nodes) + UB(1:1) = ubound(InitInputData%Nodes) do i1 = LB(1), UB(1) call Morison_DestroyNodeType(InitInputData%Nodes(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2604,8 +2604,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%Nodes) end if if (allocated(InitInputData%AxialCoefs)) then - LB(1:1) = lbound(InitInputData%AxialCoefs, kind=B8Ki) - UB(1:1) = ubound(InitInputData%AxialCoefs, kind=B8Ki) + LB(1:1) = lbound(InitInputData%AxialCoefs) + UB(1:1) = ubound(InitInputData%AxialCoefs) do i1 = LB(1), UB(1) call Morison_DestroyAxialCoefType(InitInputData%AxialCoefs(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2613,8 +2613,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%AxialCoefs) end if if (allocated(InitInputData%MPropSets)) then - LB(1:1) = lbound(InitInputData%MPropSets, kind=B8Ki) - UB(1:1) = ubound(InitInputData%MPropSets, kind=B8Ki) + LB(1:1) = lbound(InitInputData%MPropSets) + UB(1:1) = ubound(InitInputData%MPropSets) do i1 = LB(1), UB(1) call Morison_DestroyMemberPropType(InitInputData%MPropSets(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2622,8 +2622,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%MPropSets) end if if (allocated(InitInputData%CoefDpths)) then - LB(1:1) = lbound(InitInputData%CoefDpths, kind=B8Ki) - UB(1:1) = ubound(InitInputData%CoefDpths, kind=B8Ki) + LB(1:1) = lbound(InitInputData%CoefDpths) + UB(1:1) = ubound(InitInputData%CoefDpths) do i1 = LB(1), UB(1) call Morison_DestroyCoefDpths(InitInputData%CoefDpths(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2631,8 +2631,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%CoefDpths) end if if (allocated(InitInputData%CoefMembers)) then - LB(1:1) = lbound(InitInputData%CoefMembers, kind=B8Ki) - UB(1:1) = ubound(InitInputData%CoefMembers, kind=B8Ki) + LB(1:1) = lbound(InitInputData%CoefMembers) + UB(1:1) = ubound(InitInputData%CoefMembers) do i1 = LB(1), UB(1) call Morison_DestroyCoefMembers(InitInputData%CoefMembers(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2640,8 +2640,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%CoefMembers) end if if (allocated(InitInputData%InpMembers)) then - LB(1:1) = lbound(InitInputData%InpMembers, kind=B8Ki) - UB(1:1) = ubound(InitInputData%InpMembers, kind=B8Ki) + LB(1:1) = lbound(InitInputData%InpMembers) + UB(1:1) = ubound(InitInputData%InpMembers) do i1 = LB(1), UB(1) call Morison_DestroyMemberInputType(InitInputData%InpMembers(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2649,8 +2649,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%InpMembers) end if if (allocated(InitInputData%FilledGroups)) then - LB(1:1) = lbound(InitInputData%FilledGroups, kind=B8Ki) - UB(1:1) = ubound(InitInputData%FilledGroups, kind=B8Ki) + LB(1:1) = lbound(InitInputData%FilledGroups) + UB(1:1) = ubound(InitInputData%FilledGroups) do i1 = LB(1), UB(1) call Morison_DestroyFilledGroupType(InitInputData%FilledGroups(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2658,8 +2658,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%FilledGroups) end if if (allocated(InitInputData%MGDepths)) then - LB(1:1) = lbound(InitInputData%MGDepths, kind=B8Ki) - UB(1:1) = ubound(InitInputData%MGDepths, kind=B8Ki) + LB(1:1) = lbound(InitInputData%MGDepths) + UB(1:1) = ubound(InitInputData%MGDepths) do i1 = LB(1), UB(1) call Morison_DestroyMGDepthsType(InitInputData%MGDepths(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2667,8 +2667,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%MGDepths) end if if (allocated(InitInputData%MOutLst)) then - LB(1:1) = lbound(InitInputData%MOutLst, kind=B8Ki) - UB(1:1) = ubound(InitInputData%MOutLst, kind=B8Ki) + LB(1:1) = lbound(InitInputData%MOutLst) + UB(1:1) = ubound(InitInputData%MOutLst) do i1 = LB(1), UB(1) call Morison_DestroyMOutput(InitInputData%MOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2676,8 +2676,8 @@ subroutine Morison_DestroyInitInput(InitInputData, ErrStat, ErrMsg) deallocate(InitInputData%MOutLst) end if if (allocated(InitInputData%JOutLst)) then - LB(1:1) = lbound(InitInputData%JOutLst, kind=B8Ki) - UB(1:1) = ubound(InitInputData%JOutLst, kind=B8Ki) + LB(1:1) = lbound(InitInputData%JOutLst) + UB(1:1) = ubound(InitInputData%JOutLst) do i1 = LB(1), UB(1) call Morison_DestroyJOutput(InitInputData%JOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2694,8 +2694,8 @@ subroutine Morison_PackInitInput(RF, Indata) type(RegFile), intent(inout) :: RF type(Morison_InitInputType), intent(in) :: InData character(*), parameter :: RoutineName = 'Morison_PackInitInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%Gravity) @@ -2705,18 +2705,18 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NNodes) call RegPack(RF, allocated(InData%InpJoints)) if (allocated(InData%InpJoints)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%InpJoints), ubound(InData%InpJoints)) + LB(1:1) = lbound(InData%InpJoints) + UB(1:1) = ubound(InData%InpJoints) do i1 = LB(1), UB(1) call Morison_PackJointType(RF, InData%InpJoints(i1)) end do end if call RegPack(RF, allocated(InData%Nodes)) if (allocated(InData%Nodes)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Nodes), ubound(InData%Nodes)) + LB(1:1) = lbound(InData%Nodes) + UB(1:1) = ubound(InData%Nodes) do i1 = LB(1), UB(1) call Morison_PackNodeType(RF, InData%Nodes(i1)) end do @@ -2724,9 +2724,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NAxCoefs) call RegPack(RF, allocated(InData%AxialCoefs)) if (allocated(InData%AxialCoefs)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%AxialCoefs), ubound(InData%AxialCoefs)) + LB(1:1) = lbound(InData%AxialCoefs) + UB(1:1) = ubound(InData%AxialCoefs) do i1 = LB(1), UB(1) call Morison_PackAxialCoefType(RF, InData%AxialCoefs(i1)) end do @@ -2734,9 +2734,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NPropSets) call RegPack(RF, allocated(InData%MPropSets)) if (allocated(InData%MPropSets)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MPropSets), ubound(InData%MPropSets)) + LB(1:1) = lbound(InData%MPropSets) + UB(1:1) = ubound(InData%MPropSets) do i1 = LB(1), UB(1) call Morison_PackMemberPropType(RF, InData%MPropSets(i1)) end do @@ -2759,9 +2759,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NCoefDpth) call RegPack(RF, allocated(InData%CoefDpths)) if (allocated(InData%CoefDpths)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%CoefDpths), ubound(InData%CoefDpths)) + LB(1:1) = lbound(InData%CoefDpths) + UB(1:1) = ubound(InData%CoefDpths) do i1 = LB(1), UB(1) call Morison_PackCoefDpths(RF, InData%CoefDpths(i1)) end do @@ -2769,9 +2769,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NCoefMembers) call RegPack(RF, allocated(InData%CoefMembers)) if (allocated(InData%CoefMembers)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%CoefMembers), ubound(InData%CoefMembers)) + LB(1:1) = lbound(InData%CoefMembers) + UB(1:1) = ubound(InData%CoefMembers) do i1 = LB(1), UB(1) call Morison_PackCoefMembers(RF, InData%CoefMembers(i1)) end do @@ -2779,9 +2779,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NMembers) call RegPack(RF, allocated(InData%InpMembers)) if (allocated(InData%InpMembers)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%InpMembers), ubound(InData%InpMembers)) + LB(1:1) = lbound(InData%InpMembers) + UB(1:1) = ubound(InData%InpMembers) do i1 = LB(1), UB(1) call Morison_PackMemberInputType(RF, InData%InpMembers(i1)) end do @@ -2789,9 +2789,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NFillGroups) call RegPack(RF, allocated(InData%FilledGroups)) if (allocated(InData%FilledGroups)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%FilledGroups), ubound(InData%FilledGroups)) + LB(1:1) = lbound(InData%FilledGroups) + UB(1:1) = ubound(InData%FilledGroups) do i1 = LB(1), UB(1) call Morison_PackFilledGroupType(RF, InData%FilledGroups(i1)) end do @@ -2799,9 +2799,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NMGDepths) call RegPack(RF, allocated(InData%MGDepths)) if (allocated(InData%MGDepths)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MGDepths), ubound(InData%MGDepths)) + LB(1:1) = lbound(InData%MGDepths) + UB(1:1) = ubound(InData%MGDepths) do i1 = LB(1), UB(1) call Morison_PackMGDepthsType(RF, InData%MGDepths(i1)) end do @@ -2811,9 +2811,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NMOutputs) call RegPack(RF, allocated(InData%MOutLst)) if (allocated(InData%MOutLst)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MOutLst), ubound(InData%MOutLst)) + LB(1:1) = lbound(InData%MOutLst) + UB(1:1) = ubound(InData%MOutLst) do i1 = LB(1), UB(1) call Morison_PackMOutput(RF, InData%MOutLst(i1)) end do @@ -2821,9 +2821,9 @@ subroutine Morison_PackInitInput(RF, Indata) call RegPack(RF, InData%NJOutputs) call RegPack(RF, allocated(InData%JOutLst)) if (allocated(InData%JOutLst)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%JOutLst), ubound(InData%JOutLst)) + LB(1:1) = lbound(InData%JOutLst) + UB(1:1) = ubound(InData%JOutLst) do i1 = LB(1), UB(1) call Morison_PackJOutput(RF, InData%JOutLst(i1)) end do @@ -2847,8 +2847,8 @@ subroutine Morison_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackInitInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -3059,14 +3059,14 @@ subroutine Morison_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%MorisonVisRad, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%MorisonVisRad) + UB(1:1) = ubound(SrcInitOutputData%MorisonVisRad) if (.not. allocated(DstInitOutputData%MorisonVisRad)) then allocate(DstInitOutputData%MorisonVisRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3077,8 +3077,8 @@ subroutine Morison_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%MorisonVisRad = SrcInitOutputData%MorisonVisRad end if if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3089,8 +3089,8 @@ subroutine Morison_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3135,7 +3135,7 @@ subroutine Morison_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3188,14 +3188,14 @@ subroutine Morison_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%V_rel_n_FiltStat, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%V_rel_n_FiltStat) + UB(1:1) = ubound(SrcDiscStateData%V_rel_n_FiltStat) 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 @@ -3232,7 +3232,7 @@ subroutine Morison_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackDiscState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3321,16 +3321,16 @@ subroutine Morison_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%DispNodePosHdn, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%DispNodePosHdn) + UB(1:2) = ubound(SrcMiscData%DispNodePosHdn) if (.not. allocated(DstMiscData%DispNodePosHdn)) then allocate(DstMiscData%DispNodePosHdn(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3341,8 +3341,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%DispNodePosHst, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%DispNodePosHst) + UB(1:2) = ubound(SrcMiscData%DispNodePosHst) if (.not. allocated(DstMiscData%DispNodePosHst)) then allocate(DstMiscData%DispNodePosHst(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3353,8 +3353,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%FV, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%FV) + UB(1:2) = ubound(SrcMiscData%FV) if (.not. allocated(DstMiscData%FV)) then allocate(DstMiscData%FV(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3365,8 +3365,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%FA, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%FA) + UB(1:2) = ubound(SrcMiscData%FA) if (.not. allocated(DstMiscData%FA)) then allocate(DstMiscData%FA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3377,8 +3377,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%FAMCF, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%FAMCF) + UB(1:2) = ubound(SrcMiscData%FAMCF) if (.not. allocated(DstMiscData%FAMCF)) then allocate(DstMiscData%FAMCF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3389,8 +3389,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FDynP, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FDynP) + UB(1:1) = ubound(SrcMiscData%FDynP) if (.not. allocated(DstMiscData%FDynP)) then allocate(DstMiscData%FDynP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3401,8 +3401,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%WaveElev, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%WaveElev) + UB(1:1) = ubound(SrcMiscData%WaveElev) if (.not. allocated(DstMiscData%WaveElev)) then allocate(DstMiscData%WaveElev(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3413,8 +3413,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%WaveElev1, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%WaveElev1) + UB(1:1) = ubound(SrcMiscData%WaveElev1) if (.not. allocated(DstMiscData%WaveElev1)) then allocate(DstMiscData%WaveElev1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3425,8 +3425,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%WaveElev2, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%WaveElev2) + UB(1:1) = ubound(SrcMiscData%WaveElev2) if (.not. allocated(DstMiscData%WaveElev2)) then allocate(DstMiscData%WaveElev2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3437,8 +3437,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%vrel, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%vrel) + UB(1:2) = ubound(SrcMiscData%vrel) if (.not. allocated(DstMiscData%vrel)) then allocate(DstMiscData%vrel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3449,8 +3449,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%nodeInWater, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%nodeInWater) + UB(1:1) = ubound(SrcMiscData%nodeInWater) if (.not. allocated(DstMiscData%nodeInWater)) then allocate(DstMiscData%nodeInWater(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3461,8 +3461,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%memberLoads, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%memberLoads) + UB(1:1) = ubound(SrcMiscData%memberLoads) if (.not. allocated(DstMiscData%memberLoads)) then allocate(DstMiscData%memberLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3477,8 +3477,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_B_End, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_B_End) + UB(1:2) = ubound(SrcMiscData%F_B_End) 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 @@ -3489,8 +3489,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_D_End, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_D_End) + UB(1:2) = ubound(SrcMiscData%F_D_End) 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 @@ -3501,8 +3501,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_I_End, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_I_End) + UB(1:2) = ubound(SrcMiscData%F_I_End) 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 @@ -3513,8 +3513,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_IMG_End, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_IMG_End) + UB(1:2) = ubound(SrcMiscData%F_IMG_End) 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 @@ -3525,8 +3525,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_A_End, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_A_End) + UB(1:2) = ubound(SrcMiscData%F_A_End) 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 @@ -3537,8 +3537,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_BF_End, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_BF_End) + UB(1:2) = ubound(SrcMiscData%F_BF_End) 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 @@ -3549,8 +3549,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%V_rel_n, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%V_rel_n) + UB(1:1) = ubound(SrcMiscData%V_rel_n) if (.not. allocated(DstMiscData%V_rel_n)) then allocate(DstMiscData%V_rel_n(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3561,8 +3561,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%V_rel_n_HiPass, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%V_rel_n_HiPass) + UB(1:1) = ubound(SrcMiscData%V_rel_n_HiPass) 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 @@ -3584,8 +3584,8 @@ subroutine Morison_DestroyMisc(MiscData, ErrStat, ErrMsg) type(Morison_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_DestroyMisc' @@ -3625,8 +3625,8 @@ subroutine Morison_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%nodeInWater) end if if (allocated(MiscData%memberLoads)) then - LB(1:1) = lbound(MiscData%memberLoads, kind=B8Ki) - UB(1:1) = ubound(MiscData%memberLoads, kind=B8Ki) + LB(1:1) = lbound(MiscData%memberLoads) + UB(1:1) = ubound(MiscData%memberLoads) do i1 = LB(1), UB(1) call Morison_DestroyMemberLoads(MiscData%memberLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3667,8 +3667,8 @@ subroutine Morison_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(Morison_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'Morison_PackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%DispNodePosHdn) call RegPackAlloc(RF, InData%DispNodePosHst) @@ -3683,9 +3683,9 @@ subroutine Morison_PackMisc(RF, Indata) call RegPackAlloc(RF, InData%nodeInWater) call RegPack(RF, allocated(InData%memberLoads)) if (allocated(InData%memberLoads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%memberLoads), ubound(InData%memberLoads)) + LB(1:1) = lbound(InData%memberLoads) + UB(1:1) = ubound(InData%memberLoads) do i1 = LB(1), UB(1) call Morison_PackMemberLoads(RF, InData%memberLoads(i1)) end do @@ -3707,8 +3707,8 @@ subroutine Morison_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3754,8 +3754,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyParam' @@ -3767,8 +3767,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Members, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Members) + UB(1:1) = ubound(SrcParamData%Members) if (.not. allocated(DstParamData%Members)) then allocate(DstParamData%Members(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3785,8 +3785,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%I_MG_End, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%I_MG_End) + UB(1:3) = ubound(SrcParamData%I_MG_End) 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 @@ -3797,8 +3797,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%An_End, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%An_End) + UB(1:2) = ubound(SrcParamData%An_End) 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 @@ -3809,8 +3809,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DragConst_End, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DragConst_End) + UB(1:1) = ubound(SrcParamData%DragConst_End) if (.not. allocated(DstParamData%DragConst_End)) then allocate(DstParamData%DragConst_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3821,8 +3821,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%VRelNFiltConst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%VRelNFiltConst) + UB(1:1) = ubound(SrcParamData%VRelNFiltConst) if (.not. allocated(DstParamData%VRelNFiltConst)) then allocate(DstParamData%VRelNFiltConst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3833,8 +3833,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DragMod_End, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DragMod_End) + UB(1:1) = ubound(SrcParamData%DragMod_End) if (.not. allocated(DstParamData%DragMod_End)) then allocate(DstParamData%DragMod_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3845,8 +3845,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%DragLoFSc_End, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%DragLoFSc_End) + UB(1:1) = ubound(SrcParamData%DragLoFSc_End) if (.not. allocated(DstParamData%DragLoFSc_End)) then allocate(DstParamData%DragLoFSc_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3857,8 +3857,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%F_WMG_End, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%F_WMG_End) + UB(1:2) = ubound(SrcParamData%F_WMG_End) 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 @@ -3869,8 +3869,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%DP_Const_End, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%DP_Const_End) + UB(1:2) = ubound(SrcParamData%DP_Const_End) 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 @@ -3881,8 +3881,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Mass_MG_End, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Mass_MG_End) + UB(1:1) = ubound(SrcParamData%Mass_MG_End) if (.not. allocated(DstParamData%Mass_MG_End)) then allocate(DstParamData%Mass_MG_End(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3893,8 +3893,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%AM_End, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%AM_End) + UB(1:3) = ubound(SrcParamData%AM_End) 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 @@ -3906,8 +3906,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%MOutLst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%MOutLst) + UB(1:1) = ubound(SrcParamData%MOutLst) if (.not. allocated(DstParamData%MOutLst)) then allocate(DstParamData%MOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3923,8 +3923,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%JOutLst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%JOutLst) + UB(1:1) = ubound(SrcParamData%JOutLst) if (.not. allocated(DstParamData%JOutLst)) then allocate(DstParamData%JOutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3939,8 +3939,8 @@ subroutine Morison_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3964,16 +3964,16 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) type(Morison_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ParamData%Members, kind=B8Ki) + LB(1:1) = lbound(ParamData%Members) + UB(1:1) = ubound(ParamData%Members) do i1 = LB(1), UB(1) call Morison_DestroyMemberType(ParamData%Members(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4011,8 +4011,8 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%AM_End) end if if (allocated(ParamData%MOutLst)) then - LB(1:1) = lbound(ParamData%MOutLst, kind=B8Ki) - UB(1:1) = ubound(ParamData%MOutLst, kind=B8Ki) + LB(1:1) = lbound(ParamData%MOutLst) + UB(1:1) = ubound(ParamData%MOutLst) do i1 = LB(1), UB(1) call Morison_DestroyMOutput(ParamData%MOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4020,8 +4020,8 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MOutLst) end if if (allocated(ParamData%JOutLst)) then - LB(1:1) = lbound(ParamData%JOutLst, kind=B8Ki) - UB(1:1) = ubound(ParamData%JOutLst, kind=B8Ki) + LB(1:1) = lbound(ParamData%JOutLst) + UB(1:1) = ubound(ParamData%JOutLst) do i1 = LB(1), UB(1) call Morison_DestroyJOutput(ParamData%JOutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4029,8 +4029,8 @@ subroutine Morison_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%JOutLst) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4044,8 +4044,8 @@ subroutine Morison_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(Morison_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'Morison_PackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) @@ -4055,9 +4055,9 @@ subroutine Morison_PackParam(RF, Indata) call RegPack(RF, InData%NMembers) call RegPack(RF, allocated(InData%Members)) if (allocated(InData%Members)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Members), ubound(InData%Members)) + LB(1:1) = lbound(InData%Members) + UB(1:1) = ubound(InData%Members) do i1 = LB(1), UB(1) call Morison_PackMemberType(RF, InData%Members(i1)) end do @@ -4077,9 +4077,9 @@ subroutine Morison_PackParam(RF, Indata) call RegPack(RF, InData%NMOutputs) call RegPack(RF, allocated(InData%MOutLst)) if (allocated(InData%MOutLst)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MOutLst), ubound(InData%MOutLst)) + LB(1:1) = lbound(InData%MOutLst) + UB(1:1) = ubound(InData%MOutLst) do i1 = LB(1), UB(1) call Morison_PackMOutput(RF, InData%MOutLst(i1)) end do @@ -4087,18 +4087,18 @@ subroutine Morison_PackParam(RF, Indata) call RegPack(RF, InData%NJOutputs) call RegPack(RF, allocated(InData%JOutLst)) if (allocated(InData%JOutLst)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%JOutLst), ubound(InData%JOutLst)) + LB(1:1) = lbound(InData%JOutLst) + UB(1:1) = ubound(InData%JOutLst) do i1 = LB(1), UB(1) call Morison_PackJOutput(RF, InData%JOutLst(i1)) end do end if call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -4120,8 +4120,8 @@ subroutine Morison_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -4276,7 +4276,7 @@ subroutine Morison_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Morison_CopyOutput' @@ -4289,8 +4289,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4335,7 +4335,7 @@ subroutine Morison_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Morison_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Morison_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/SS_Excitation_Types.f90 b/modules/hydrodyn/src/SS_Excitation_Types.f90 index 3e7179fe5a..22ba2cac7b 100644 --- a/modules/hydrodyn/src/SS_Excitation_Types.f90 +++ b/modules/hydrodyn/src/SS_Excitation_Types.f90 @@ -109,7 +109,7 @@ subroutine SS_Exc_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Exc_CopyInitInput' @@ -119,8 +119,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -172,7 +172,7 @@ subroutine SS_Exc_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -208,14 +208,14 @@ subroutine SS_Exc_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -226,8 +226,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -268,7 +268,7 @@ subroutine SS_Exc_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -282,14 +282,14 @@ subroutine SS_Exc_CopyContState(SrcContStateData, DstContStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%x, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%x) + UB(1:1) = ubound(SrcContStateData%x) if (.not. allocated(DstContStateData%x)) then allocate(DstContStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -326,7 +326,7 @@ subroutine SS_Exc_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -415,16 +415,16 @@ subroutine SS_Exc_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) 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) @@ -436,15 +436,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call SS_Exc_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -455,12 +455,12 @@ subroutine SS_Exc_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(SS_Exc_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SS_Exc_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%n) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call SS_Exc_PackContState(RF, InData%xdot(i1)) end do @@ -471,12 +471,12 @@ subroutine SS_Exc_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat /= ErrID_None) return call RegUnpack(RF, OutData%n); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call SS_Exc_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do @@ -537,7 +537,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SS_Exc_CopyParam' @@ -547,8 +547,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%spDOF, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%spDOF) + UB(1:1) = ubound(SrcParamData%spDOF) if (.not. allocated(DstParamData%spDOF)) then allocate(DstParamData%spDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -559,8 +559,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%A, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%A) + UB(1:2) = ubound(SrcParamData%A) if (.not. allocated(DstParamData%A)) then allocate(DstParamData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -571,8 +571,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%B, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%B) + UB(1:1) = ubound(SrcParamData%B) if (.not. allocated(DstParamData%B)) then allocate(DstParamData%B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -583,8 +583,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C) + UB(1:2) = ubound(SrcParamData%C) if (.not. allocated(DstParamData%C)) then allocate(DstParamData%C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -652,7 +652,7 @@ subroutine SS_Exc_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -693,14 +693,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%PtfmPos, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%PtfmPos) + UB(1:2) = ubound(SrcInputData%PtfmPos) if (.not. allocated(DstInputData%PtfmPos)) then allocate(DstInputData%PtfmPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -737,7 +737,7 @@ subroutine SS_Exc_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -750,14 +750,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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%y, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%y) + UB(1:1) = ubound(SrcOutputData%y) if (.not. allocated(DstOutputData%y)) then allocate(DstOutputData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -768,8 +768,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -810,7 +810,7 @@ subroutine SS_Exc_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Exc_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Exc_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/SS_Radiation_Types.f90 b/modules/hydrodyn/src/SS_Radiation_Types.f90 index 1c91b852e4..59b45510aa 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%enabledDOFs, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%enabledDOFs) + UB(1:1) = ubound(SrcInitInputData%enabledDOFs) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -167,7 +167,7 @@ subroutine SS_Rad_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -183,14 +183,14 @@ subroutine SS_Rad_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -201,8 +201,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -243,7 +243,7 @@ subroutine SS_Rad_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -257,14 +257,14 @@ subroutine SS_Rad_CopyContState(SrcContStateData, DstContStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%x, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%x) + UB(1:1) = ubound(SrcContStateData%x) if (.not. allocated(DstContStateData%x)) then allocate(DstContStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -301,7 +301,7 @@ subroutine SS_Rad_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -390,16 +390,16 @@ subroutine SS_Rad_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) 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) @@ -411,15 +411,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call SS_Rad_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -430,12 +430,12 @@ subroutine SS_Rad_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(SS_Rad_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SS_Rad_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%n) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call SS_Rad_PackContState(RF, InData%xdot(i1)) end do @@ -446,12 +446,12 @@ subroutine SS_Rad_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat /= ErrID_None) return call RegUnpack(RF, OutData%n); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call SS_Rad_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do @@ -501,15 +501,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%A, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%A) + UB(1:2) = ubound(SrcParamData%A) if (.not. allocated(DstParamData%A)) then allocate(DstParamData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -520,8 +520,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%B, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%B) + UB(1:2) = ubound(SrcParamData%B) if (.not. allocated(DstParamData%B)) then allocate(DstParamData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -532,8 +532,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C) + UB(1:2) = ubound(SrcParamData%C) if (.not. allocated(DstParamData%C)) then allocate(DstParamData%C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -545,8 +545,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%spdof, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%spdof) + UB(1:1) = ubound(SrcParamData%spdof) if (.not. allocated(DstParamData%spdof)) then allocate(DstParamData%spdof(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -599,7 +599,7 @@ subroutine SS_Rad_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -618,14 +618,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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%dq, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%dq) + UB(1:1) = ubound(SrcInputData%dq) if (.not. allocated(DstInputData%dq)) then allocate(DstInputData%dq(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -662,7 +662,7 @@ subroutine SS_Rad_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -675,14 +675,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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%y, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%y) + UB(1:1) = ubound(SrcOutputData%y) if (.not. allocated(DstOutputData%y)) then allocate(DstOutputData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -693,8 +693,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -735,7 +735,7 @@ subroutine SS_Rad_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SS_Rad_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SS_Rad_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/WAMIT2_Types.f90 b/modules/hydrodyn/src/WAMIT2_Types.f90 index 11ccaf43c7..5f928caa56 100644 --- a/modules/hydrodyn/src/WAMIT2_Types.f90 +++ b/modules/hydrodyn/src/WAMIT2_Types.f90 @@ -50,7 +50,7 @@ MODULE WAMIT2_Types TYPE(SeaSt_WaveFieldType) , POINTER :: WaveField => NULL() !< Pointer to wave field [-] INTEGER(IntKi) :: PtfmYMod = 0_IntKi !< Large yaw model [-] REAL(ReKi) :: PtfmRefY = 0.0_ReKi !< Initial reference yaw offset [(rad)] - INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1 in the HydroDyn driver or in ElastoDyn] [-] + INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1] [-] INTEGER(IntKi) :: MnDrift = 0_IntKi !< Calculate the mean drift force {0: no mean drift; [7,8,9,10,11, or 12]: WAMIT file to use} [-] INTEGER(IntKi) :: NewmanApp = 0_IntKi !< Slow drift forces computed with Newman approximation from WAMIT file:{0: No slow drift; [7,8,9,10,11, or 12]: WAMIT file to use} [-] INTEGER(IntKi) :: DiffQTF = 0_IntKi !< Full Difference-Frequency forces computed with full QTF's from WAMIT file: {0: No diff-QTF; [10,11, or 12]: WAMIT file to use} [-] @@ -83,7 +83,7 @@ MODULE WAMIT2_Types LOGICAL :: DiffQTFF = .false. !< Flag indicating the full difference QTF should be calculated [-] LOGICAL :: SumQTFF = .false. !< Flag indicating the full sum QTF should be calculated [-] INTEGER(IntKi) :: PtfmYMod = 0_IntKi !< Large yaw model [-] - INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1 in the HydroDyn driver or in ElastoDyn] [-] + INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1] [-] END TYPE WAMIT2_ParameterType ! ======================= ! ========= WAMIT2_OutputType ======= @@ -99,7 +99,7 @@ subroutine WAMIT2_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT2_CopyInitInput' @@ -110,8 +110,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefxt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefxt) + UB(1:1) = ubound(SrcInitInputData%PtfmRefxt) if (.not. allocated(DstInitInputData%PtfmRefxt)) then allocate(DstInitInputData%PtfmRefxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -122,8 +122,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefyt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefyt) + UB(1:1) = ubound(SrcInitInputData%PtfmRefyt) if (.not. allocated(DstInitInputData%PtfmRefyt)) then allocate(DstInitInputData%PtfmRefyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -134,8 +134,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefzt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefzt) + UB(1:1) = ubound(SrcInitInputData%PtfmRefzt) if (.not. allocated(DstInitInputData%PtfmRefzt)) then allocate(DstInitInputData%PtfmRefzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -146,8 +146,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -238,7 +238,7 @@ subroutine WAMIT2_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT2_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT2_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -291,15 +291,15 @@ subroutine WAMIT2_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT2_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%LastIndWave)) then - LB(1:1) = lbound(SrcMiscData%LastIndWave, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LastIndWave, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LastIndWave) + UB(1:1) = ubound(SrcMiscData%LastIndWave) if (.not. allocated(DstMiscData%LastIndWave)) then allocate(DstMiscData%LastIndWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -310,8 +310,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_Waves2, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_Waves2) + UB(1:1) = ubound(SrcMiscData%F_Waves2) if (.not. allocated(DstMiscData%F_Waves2)) then allocate(DstMiscData%F_Waves2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -360,7 +360,7 @@ subroutine WAMIT2_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT2_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT2_UnPackMisc' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -375,7 +375,7 @@ subroutine WAMIT2_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT2_CopyParam' @@ -384,8 +384,8 @@ subroutine WAMIT2_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMs DstParamData%NBody = SrcParamData%NBody DstParamData%NBodyMod = SrcParamData%NBodyMod if (allocated(SrcParamData%WaveExctn2Grid)) then - LB(1:5) = lbound(SrcParamData%WaveExctn2Grid, kind=B8Ki) - UB(1:5) = ubound(SrcParamData%WaveExctn2Grid, kind=B8Ki) + LB(1:5) = lbound(SrcParamData%WaveExctn2Grid) + UB(1:5) = ubound(SrcParamData%WaveExctn2Grid) if (.not. allocated(DstParamData%WaveExctn2Grid)) then allocate(DstParamData%WaveExctn2Grid(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 @@ -452,7 +452,7 @@ subroutine WAMIT2_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT2_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT2_UnPackParam' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/hydrodyn/src/WAMIT_Types.f90 b/modules/hydrodyn/src/WAMIT_Types.f90 index d63ddd40d3..cfa511e855 100644 --- a/modules/hydrodyn/src/WAMIT_Types.f90 +++ b/modules/hydrodyn/src/WAMIT_Types.f90 @@ -54,7 +54,7 @@ MODULE WAMIT_Types INTEGER(IntKi) :: ExctnMod = 0_IntKi !< [-] INTEGER(IntKi) :: ExctnDisp = 0_IntKi !< 0: use undisplaced position, 1: use displaced position, 2: use low-pass filtered displaced position) [only used when PotMod=1 and ExctnMod>0] [-] REAL(ReKi) :: ExctnCutOff = 0.0_ReKi !< Cutoff (corner) frequency of the low-pass time-filtered displaced position (Hz) [>0.0] [Hz] - INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1 in the HydroDyn driver or in ElastoDyn] [-] + INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1] [-] REAL(DbKi) :: RdtnTMax = 0.0_R8Ki !< [-] CHARACTER(1024) :: WAMITFile !< [-] TYPE(Conv_Rdtn_InitInputType) :: Conv_Rdtn !< [-] @@ -123,7 +123,7 @@ MODULE WAMIT_Types INTEGER(IntKi) :: ExctnMod = 0_IntKi !< [-] INTEGER(IntKi) :: ExctnDisp = 0_IntKi !< 0: use undisplaced position, 1: use displaced position, 2: use low-pass filtered displaced position) [only used when PotMod=1 and ExctnMod>0] [-] REAL(ReKi) :: ExctnCutOff = 0.0_ReKi !< Cutoff (corner) frequency of the low-pass time-filtered displaced position (Hz) [>0.0] [Hz] - INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1 in the HydroDyn driver or in ElastoDyn] [-] + INTEGER(IntKi) :: NExctnHdg = 0_IntKi !< Number of PRP headings/yaw offset evenly distributed over the region [-180, 180) deg to be used when precomputing the wave excitation [only used when PtfmYMod=1] [-] REAL(ReKi) :: ExctnFiltConst = 0.0_ReKi !< Low-pass time filter constant computed from ExctnCutOff [-] REAL(SiKi) , DIMENSION(:,:,:), ALLOCATABLE :: WaveExctn !< [-] REAL(SiKi) , DIMENSION(:,:,:,:,:), ALLOCATABLE :: WaveExctnGrid !< WaveExctnGrid dimensions are: 1st: wavetime, 2nd: X, 3rd: Y, 4th: PRP Yaw, 5th: Force component for eac WAMIT Body [-] @@ -155,7 +155,7 @@ subroutine WAMIT_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyInitInput' @@ -165,8 +165,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmVol0, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmVol0) + UB(1:1) = ubound(SrcInitInputData%PtfmVol0) if (.not. allocated(DstInitInputData%PtfmVol0)) then allocate(DstInitInputData%PtfmVol0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -179,8 +179,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefxt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefxt) + UB(1:1) = ubound(SrcInitInputData%PtfmRefxt) if (.not. allocated(DstInitInputData%PtfmRefxt)) then allocate(DstInitInputData%PtfmRefxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -191,8 +191,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefyt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefyt) + UB(1:1) = ubound(SrcInitInputData%PtfmRefyt) if (.not. allocated(DstInitInputData%PtfmRefyt)) then allocate(DstInitInputData%PtfmRefyt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -203,8 +203,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefzt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefzt) + UB(1:1) = ubound(SrcInitInputData%PtfmRefzt) if (.not. allocated(DstInitInputData%PtfmRefzt)) then allocate(DstInitInputData%PtfmRefzt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -215,8 +215,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmRefztRot) + UB(1:1) = ubound(SrcInitInputData%PtfmRefztRot) if (.not. allocated(DstInitInputData%PtfmRefztRot)) then allocate(DstInitInputData%PtfmRefztRot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -227,8 +227,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmCOBxt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmCOBxt) + UB(1:1) = ubound(SrcInitInputData%PtfmCOBxt) if (.not. allocated(DstInitInputData%PtfmCOBxt)) then allocate(DstInitInputData%PtfmCOBxt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -239,8 +239,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%PtfmCOByt, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%PtfmCOByt) + UB(1:1) = ubound(SrcInitInputData%PtfmCOByt) if (.not. allocated(DstInitInputData%PtfmCOByt)) then allocate(DstInitInputData%PtfmCOByt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -344,7 +344,7 @@ subroutine WAMIT_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -459,7 +459,7 @@ subroutine WAMIT_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyDiscState' @@ -475,8 +475,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, kind=B8Ki) - UB(1:3) = ubound(SrcDiscStateData%BdyPosFilt, kind=B8Ki) + LB(1:3) = lbound(SrcDiscStateData%BdyPosFilt) + UB(1:3) = ubound(SrcDiscStateData%BdyPosFilt) 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 @@ -524,7 +524,7 @@ subroutine WAMIT_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackDiscState' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -660,7 +660,7 @@ subroutine WAMIT_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyMisc' @@ -668,8 +668,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_HS, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_HS) + UB(1:1) = ubound(SrcMiscData%F_HS) if (.not. allocated(DstMiscData%F_HS)) then allocate(DstMiscData%F_HS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -680,8 +680,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_Waves1, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_Waves1) + UB(1:1) = ubound(SrcMiscData%F_Waves1) if (.not. allocated(DstMiscData%F_Waves1)) then allocate(DstMiscData%F_Waves1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -692,8 +692,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_Rdtn, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_Rdtn) + UB(1:1) = ubound(SrcMiscData%F_Rdtn) if (.not. allocated(DstMiscData%F_Rdtn)) then allocate(DstMiscData%F_Rdtn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -704,8 +704,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_PtfmAM, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_PtfmAM) + UB(1:1) = ubound(SrcMiscData%F_PtfmAM) if (.not. allocated(DstMiscData%F_PtfmAM)) then allocate(DstMiscData%F_PtfmAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -817,7 +817,7 @@ subroutine WAMIT_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackMisc' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -844,7 +844,7 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'WAMIT_CopyParam' @@ -853,8 +853,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%F_HS_Moment_Offset, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%F_HS_Moment_Offset) + UB(1:2) = ubound(SrcParamData%F_HS_Moment_Offset) 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 @@ -865,8 +865,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%HdroAdMsI, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%HdroAdMsI) + UB(1:2) = ubound(SrcParamData%HdroAdMsI) if (.not. allocated(DstParamData%HdroAdMsI)) then allocate(DstParamData%HdroAdMsI(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -877,8 +877,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%HdroSttc, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%HdroSttc) + UB(1:2) = ubound(SrcParamData%HdroSttc) if (.not. allocated(DstParamData%HdroSttc)) then allocate(DstParamData%HdroSttc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -895,8 +895,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%NExctnHdg = SrcParamData%NExctnHdg DstParamData%ExctnFiltConst = SrcParamData%ExctnFiltConst if (allocated(SrcParamData%WaveExctn)) then - LB(1:3) = lbound(SrcParamData%WaveExctn, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%WaveExctn, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%WaveExctn) + UB(1:3) = ubound(SrcParamData%WaveExctn) if (.not. allocated(DstParamData%WaveExctn)) then allocate(DstParamData%WaveExctn(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -907,8 +907,8 @@ subroutine WAMIT_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg DstParamData%WaveExctn = SrcParamData%WaveExctn end if if (allocated(SrcParamData%WaveExctnGrid)) then - LB(1:5) = lbound(SrcParamData%WaveExctnGrid, kind=B8Ki) - UB(1:5) = ubound(SrcParamData%WaveExctnGrid, kind=B8Ki) + LB(1:5) = lbound(SrcParamData%WaveExctnGrid) + UB(1:5) = ubound(SrcParamData%WaveExctnGrid) 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),LB(5):UB(5)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1009,7 +1009,7 @@ subroutine WAMIT_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(WAMIT_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WAMIT_UnPackParam' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx diff --git a/modules/icedyn/src/IceDyn_Types.f90 b/modules/icedyn/src/IceDyn_Types.f90 index c62479cd44..30d8c26097 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LegPosX, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LegPosX) + UB(1:1) = ubound(SrcInputFileData%LegPosX) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%LegPosY, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%LegPosY) + UB(1:1) = ubound(SrcInputFileData%LegPosY) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%StrWd, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%StrWd) + UB(1:1) = ubound(SrcInputFileData%StrWd) if (.not. allocated(DstInputFileData%StrWd)) then allocate(DstInputFileData%StrWd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -422,7 +422,7 @@ subroutine IceD_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(IceD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -550,15 +550,15 @@ subroutine IceD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -569,8 +569,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -621,7 +621,7 @@ subroutine IceD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(IceD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -754,8 +754,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_CopyOtherState' @@ -763,8 +763,8 @@ subroutine IceD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E ErrMsg = '' DstOtherStateData%IceTthNo2 = SrcOtherStateData%IceTthNo2 if (allocated(SrcOtherStateData%Nc)) then - LB(1:1) = lbound(SrcOtherStateData%Nc, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Nc, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Nc) + UB(1:1) = ubound(SrcOtherStateData%Nc) if (.not. allocated(DstOtherStateData%Nc)) then allocate(DstOtherStateData%Nc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -775,8 +775,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Psum, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Psum) + UB(1:1) = ubound(SrcOtherStateData%Psum) if (.not. allocated(DstOtherStateData%Psum)) then allocate(DstOtherStateData%Psum(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -787,8 +787,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%IceTthNo, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%IceTthNo) + UB(1:1) = ubound(SrcOtherStateData%IceTthNo) if (.not. allocated(DstOtherStateData%IceTthNo)) then allocate(DstOtherStateData%IceTthNo(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -803,8 +803,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -825,8 +825,8 @@ subroutine IceD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(IceD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_DestroyOtherState' @@ -842,8 +842,8 @@ subroutine IceD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%IceTthNo) end if if (allocated(OtherStateData%xdot)) then - LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call IceD_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -856,8 +856,8 @@ subroutine IceD_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(IceD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'IceD_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%IceTthNo2) call RegPackAlloc(RF, InData%Nc) @@ -869,9 +869,9 @@ subroutine IceD_PackOtherState(RF, Indata) call RegPack(RF, InData%dxc) call RegPack(RF, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xdot), ubound(InData%xdot)) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call IceD_PackContState(RF, InData%xdot(i1)) end do @@ -884,8 +884,8 @@ subroutine IceD_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(IceD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -957,7 +957,7 @@ subroutine IceD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IceD_CopyParam' ErrStat = ErrID_None @@ -977,8 +977,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutName, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutName) + UB(1:1) = ubound(SrcParamData%OutName) if (.not. allocated(DstParamData%OutName)) then allocate(DstParamData%OutName(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -989,8 +989,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutUnit, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutUnit) + UB(1:1) = ubound(SrcParamData%OutUnit) if (.not. allocated(DstParamData%OutUnit)) then allocate(DstParamData%OutUnit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1014,8 +1014,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rdmFm, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rdmFm) + UB(1:1) = ubound(SrcParamData%rdmFm) if (.not. allocated(DstParamData%rdmFm)) then allocate(DstParamData%rdmFm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1026,8 +1026,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rdmt0, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rdmt0) + UB(1:1) = ubound(SrcParamData%rdmt0) if (.not. allocated(DstParamData%rdmt0)) then allocate(DstParamData%rdmt0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1038,8 +1038,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rdmtm, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rdmtm) + UB(1:1) = ubound(SrcParamData%rdmtm) if (.not. allocated(DstParamData%rdmtm)) then allocate(DstParamData%rdmtm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1050,8 +1050,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rdmDm, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rdmDm) + UB(1:1) = ubound(SrcParamData%rdmDm) if (.not. allocated(DstParamData%rdmDm)) then allocate(DstParamData%rdmDm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1062,8 +1062,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rdmP, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rdmP) + UB(1:1) = ubound(SrcParamData%rdmP) if (.not. allocated(DstParamData%rdmP)) then allocate(DstParamData%rdmP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1074,8 +1074,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rdmKi, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rdmKi) + UB(1:1) = ubound(SrcParamData%rdmKi) if (.not. allocated(DstParamData%rdmKi)) then allocate(DstParamData%rdmKi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1089,8 +1089,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Y0, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Y0) + UB(1:1) = ubound(SrcParamData%Y0) if (.not. allocated(DstParamData%Y0)) then allocate(DstParamData%Y0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1101,8 +1101,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ContPrfl, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ContPrfl) + UB(1:1) = ubound(SrcParamData%ContPrfl) if (.not. allocated(DstParamData%ContPrfl)) then allocate(DstParamData%ContPrfl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1241,7 +1241,7 @@ subroutine IceD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(IceD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1357,7 +1357,7 @@ subroutine IceD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceD_CopyOutput' @@ -1367,8 +1367,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1410,7 +1410,7 @@ subroutine IceD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(IceD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceD_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/icefloe/src/icefloe/IceFloe_Types.f90 b/modules/icefloe/src/icefloe/IceFloe_Types.f90 index 41cffbc0de..28befef3c4 100644 --- a/modules/icefloe/src/icefloe/IceFloe_Types.f90 +++ b/modules/icefloe/src/icefloe/IceFloe_Types.f90 @@ -166,15 +166,15 @@ subroutine IceFloe_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -185,8 +185,8 @@ subroutine IceFloe_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -235,7 +235,7 @@ subroutine IceFloe_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(IceFloe_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceFloe_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -440,14 +440,14 @@ subroutine IceFloe_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%loadSeries, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%loadSeries) + UB(1:2) = ubound(SrcParamData%loadSeries) if (.not. allocated(DstParamData%loadSeries)) then allocate(DstParamData%loadSeries(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -468,8 +468,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%legX, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%legX) + UB(1:1) = ubound(SrcParamData%legX) if (.not. allocated(DstParamData%legX)) then allocate(DstParamData%legX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -480,8 +480,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%legY, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%legY) + UB(1:1) = ubound(SrcParamData%legY) if (.not. allocated(DstParamData%legY)) then allocate(DstParamData%legY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -492,8 +492,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ks, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ks) + UB(1:1) = ubound(SrcParamData%ks) if (.not. allocated(DstParamData%ks)) then allocate(DstParamData%ks(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -562,7 +562,7 @@ subroutine IceFloe_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(IceFloe_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceFloe_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -639,7 +639,7 @@ subroutine IceFloe_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'IceFloe_CopyOutput' @@ -649,8 +649,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -692,7 +692,7 @@ subroutine IceFloe_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(IceFloe_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IceFloe_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/inflowwind/src/IfW_FlowField_Types.f90 b/modules/inflowwind/src/IfW_FlowField_Types.f90 index 74f0df30d9..5ffe11616d 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%Time, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%Time) + UB(1:1) = ubound(SrcUniformFieldTypeData%Time) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelH, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelH) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelH) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelHDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelHDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelHDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelV, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelV) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelV) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelVDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelVDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelVDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelGust, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelGust) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelGust) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%VelGustDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%VelGustDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%VelGustDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleH, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleH) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleH) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleHDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleHDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleHDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleV, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleV) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleV) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%AngleVDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%AngleVDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%AngleVDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrH, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrH) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrH) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrHDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrHDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrHDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrV, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrV) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrV) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%ShrVDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%ShrVDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%ShrVDot) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrV, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%LinShrV) + UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrV) 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, kind=B8Ki) - UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrVDot, kind=B8Ki) + LB(1:1) = lbound(SrcUniformFieldTypeData%LinShrVDot) + UB(1:1) = ubound(SrcUniformFieldTypeData%LinShrVDot) if (.not. allocated(DstUniformFieldTypeData%LinShrVDot)) then allocate(DstUniformFieldTypeData%LinShrVDot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -478,7 +478,7 @@ subroutine IfW_FlowField_UnPackUniformFieldType(RF, OutData) type(RegFile), intent(inout) :: RF type(UniformFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackUniformFieldType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -605,7 +605,7 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IfW_FlowField_CopyGrid3DFieldType' ErrStat = ErrID_None @@ -618,8 +618,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, kind=B8Ki) - UB(1:4) = ubound(SrcGrid3DFieldTypeData%Vel, kind=B8Ki) + LB(1:4) = lbound(SrcGrid3DFieldTypeData%Vel) + UB(1:4) = ubound(SrcGrid3DFieldTypeData%Vel) 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 @@ -630,8 +630,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%Vel = SrcGrid3DFieldTypeData%Vel end if if (allocated(SrcGrid3DFieldTypeData%Acc)) then - LB(1:4) = lbound(SrcGrid3DFieldTypeData%Acc, kind=B8Ki) - UB(1:4) = ubound(SrcGrid3DFieldTypeData%Acc, kind=B8Ki) + LB(1:4) = lbound(SrcGrid3DFieldTypeData%Acc) + UB(1:4) = ubound(SrcGrid3DFieldTypeData%Acc) 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 @@ -642,8 +642,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%Acc = SrcGrid3DFieldTypeData%Acc end if if (allocated(SrcGrid3DFieldTypeData%VelTower)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelTower, kind=B8Ki) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelTower, kind=B8Ki) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelTower) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelTower) 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 @@ -654,8 +654,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%VelTower = SrcGrid3DFieldTypeData%VelTower end if if (allocated(SrcGrid3DFieldTypeData%AccTower)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccTower, kind=B8Ki) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccTower, kind=B8Ki) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccTower) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccTower) 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 @@ -666,8 +666,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%AccTower = SrcGrid3DFieldTypeData%AccTower end if if (allocated(SrcGrid3DFieldTypeData%VelAvg)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelAvg, kind=B8Ki) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelAvg, kind=B8Ki) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%VelAvg) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%VelAvg) 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 @@ -678,8 +678,8 @@ subroutine IfW_FlowField_CopyGrid3DFieldType(SrcGrid3DFieldTypeData, DstGrid3DFi DstGrid3DFieldTypeData%VelAvg = SrcGrid3DFieldTypeData%VelAvg end if if (allocated(SrcGrid3DFieldTypeData%AccAvg)) then - LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccAvg, kind=B8Ki) - UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccAvg, kind=B8Ki) + LB(1:3) = lbound(SrcGrid3DFieldTypeData%AccAvg) + UB(1:3) = ubound(SrcGrid3DFieldTypeData%AccAvg) 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 @@ -787,7 +787,7 @@ subroutine IfW_FlowField_UnPackGrid3DFieldType(RF, OutData) type(RegFile), intent(inout) :: RF type(Grid3DFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackGrid3DFieldType' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -834,7 +834,7 @@ subroutine IfW_FlowField_CopyGrid4DFieldType(SrcGrid4DFieldTypeData, DstGrid4DFi integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'IfW_FlowField_CopyGrid4DFieldType' ErrStat = ErrID_None @@ -876,7 +876,7 @@ subroutine IfW_FlowField_UnPackGrid4DFieldType(RF, OutData) type(RegFile), intent(inout) :: RF type(Grid4DFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackGrid4DFieldType' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -896,14 +896,14 @@ subroutine IfW_FlowField_CopyPointsFieldType(SrcPointsFieldTypeData, DstPointsFi integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcPointsFieldTypeData%Vel, kind=B8Ki) + LB(1:2) = lbound(SrcPointsFieldTypeData%Vel) + UB(1:2) = ubound(SrcPointsFieldTypeData%Vel) if (.not. allocated(DstPointsFieldTypeData%Vel)) then allocate(DstPointsFieldTypeData%Vel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -940,7 +940,7 @@ subroutine IfW_FlowField_UnPackPointsFieldType(RF, OutData) type(RegFile), intent(inout) :: RF type(PointsFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'IfW_FlowField_UnPackPointsFieldType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/inflowwind/src/InflowWind_IO_Types.f90 b/modules/inflowwind/src/InflowWind_IO_Types.f90 index ce89bad165..c3bf300a51 100644 --- a/modules/inflowwind/src/InflowWind_IO_Types.f90 +++ b/modules/inflowwind/src/InflowWind_IO_Types.f90 @@ -650,7 +650,7 @@ subroutine InflowWind_IO_CopyGrid4D_InitInputType(SrcGrid4D_InitInputTypeData, D integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'InflowWind_IO_CopyGrid4D_InitInputType' ErrStat = ErrID_None @@ -688,7 +688,7 @@ subroutine InflowWind_IO_UnPackGrid4D_InitInputType(RF, OutData) type(RegFile), intent(inout) :: RF type(Grid4D_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_IO_UnPackGrid4D_InitInputType' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx diff --git a/modules/inflowwind/src/InflowWind_Types.f90 b/modules/inflowwind/src/InflowWind_Types.f90 index 1b8d4e4dc1..529267f23d 100644 --- a/modules/inflowwind/src/InflowWind_Types.f90 +++ b/modules/inflowwind/src/InflowWind_Types.f90 @@ -209,7 +209,7 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyInputFile' @@ -222,8 +222,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WindVxiList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WindVxiList) + UB(1:1) = ubound(SrcInputFileData%WindVxiList) if (.not. allocated(DstInputFileData%WindVxiList)) then allocate(DstInputFileData%WindVxiList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -234,8 +234,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%WindVxiList = SrcInputFileData%WindVxiList end if if (allocated(SrcInputFileData%WindVyiList)) then - LB(1:1) = lbound(SrcInputFileData%WindVyiList, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WindVyiList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WindVyiList) + UB(1:1) = ubound(SrcInputFileData%WindVyiList) if (.not. allocated(DstInputFileData%WindVyiList)) then allocate(DstInputFileData%WindVyiList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -246,8 +246,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%WindVyiList = SrcInputFileData%WindVyiList end if if (allocated(SrcInputFileData%WindVziList)) then - LB(1:1) = lbound(SrcInputFileData%WindVziList, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WindVziList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WindVziList) + UB(1:1) = ubound(SrcInputFileData%WindVziList) if (.not. allocated(DstInputFileData%WindVziList)) then allocate(DstInputFileData%WindVziList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -281,8 +281,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -297,8 +297,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%FocalDistanceX, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%FocalDistanceX) + UB(1:1) = ubound(SrcInputFileData%FocalDistanceX) if (.not. allocated(DstInputFileData%FocalDistanceX)) then allocate(DstInputFileData%FocalDistanceX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -309,8 +309,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%FocalDistanceX = SrcInputFileData%FocalDistanceX end if if (allocated(SrcInputFileData%FocalDistanceY)) then - LB(1:1) = lbound(SrcInputFileData%FocalDistanceY, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%FocalDistanceY, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%FocalDistanceY) + UB(1:1) = ubound(SrcInputFileData%FocalDistanceY) if (.not. allocated(DstInputFileData%FocalDistanceY)) then allocate(DstInputFileData%FocalDistanceY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -321,8 +321,8 @@ subroutine InflowWind_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode DstInputFileData%FocalDistanceY = SrcInputFileData%FocalDistanceY end if if (allocated(SrcInputFileData%FocalDistanceZ)) then - LB(1:1) = lbound(SrcInputFileData%FocalDistanceZ, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%FocalDistanceZ, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%FocalDistanceZ) + UB(1:1) = ubound(SrcInputFileData%FocalDistanceZ) if (.not. allocated(DstInputFileData%FocalDistanceZ)) then allocate(DstInputFileData%FocalDistanceZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -434,7 +434,7 @@ subroutine InflowWind_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -611,15 +611,15 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -630,8 +630,8 @@ subroutine InflowWind_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlC DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -648,8 +648,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -660,8 +660,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -672,8 +672,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -684,8 +684,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -696,8 +696,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -776,7 +776,7 @@ subroutine InflowWind_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -817,8 +817,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_CopyParam' @@ -827,8 +827,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%WindViXYZprime, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%WindViXYZprime) + UB(1:2) = ubound(SrcParamData%WindViXYZprime) if (.not. allocated(DstParamData%WindViXYZprime)) then allocate(DstParamData%WindViXYZprime(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -839,8 +839,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%WindViXYZ, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%WindViXYZ) + UB(1:2) = ubound(SrcParamData%WindViXYZ) if (.not. allocated(DstParamData%WindViXYZ)) then allocate(DstParamData%WindViXYZ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -863,8 +863,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PositionAvg, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PositionAvg) + UB(1:2) = ubound(SrcParamData%PositionAvg) if (.not. allocated(DstParamData%PositionAvg)) then allocate(DstParamData%PositionAvg(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -877,8 +877,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -893,8 +893,8 @@ subroutine InflowWind_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, E end do end if if (allocated(SrcParamData%OutParamLinIndx)) then - LB(1:2) = lbound(SrcParamData%OutParamLinIndx, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%OutParamLinIndx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%OutParamLinIndx) + UB(1:2) = ubound(SrcParamData%OutParamLinIndx) if (.not. allocated(DstParamData%OutParamLinIndx)) then allocate(DstParamData%OutParamLinIndx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -914,8 +914,8 @@ subroutine InflowWind_DestroyParam(ParamData, ErrStat, ErrMsg) type(InflowWind_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'InflowWind_DestroyParam' @@ -937,8 +937,8 @@ subroutine InflowWind_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%PositionAvg) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -956,8 +956,8 @@ subroutine InflowWind_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(InflowWind_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'InflowWind_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%RootFileName) @@ -976,9 +976,9 @@ subroutine InflowWind_PackParam(RF, Indata) call RegPack(RF, InData%NumOuts) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -993,8 +993,8 @@ subroutine InflowWind_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1049,15 +1049,15 @@ subroutine InflowWind_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%PositionXYZ, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%PositionXYZ) + UB(1:2) = ubound(SrcInputData%PositionXYZ) if (.not. allocated(DstInputData%PositionXYZ)) then allocate(DstInputData%PositionXYZ(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1106,7 +1106,7 @@ subroutine InflowWind_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1122,15 +1122,15 @@ subroutine InflowWind_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%VelocityUVW, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%VelocityUVW) + UB(1:2) = ubound(SrcOutputData%VelocityUVW) if (.not. allocated(DstOutputData%VelocityUVW)) then allocate(DstOutputData%VelocityUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1141,8 +1141,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%AccelUVW, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%AccelUVW) + UB(1:2) = ubound(SrcOutputData%AccelUVW) if (.not. allocated(DstOutputData%AccelUVW)) then allocate(DstOutputData%AccelUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1153,8 +1153,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1211,7 +1211,7 @@ subroutine InflowWind_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackOutput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1381,15 +1381,15 @@ subroutine InflowWind_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1400,8 +1400,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%WindViUVW, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%WindViUVW) + UB(1:2) = ubound(SrcMiscData%WindViUVW) if (.not. allocated(DstMiscData%WindViUVW)) then allocate(DstMiscData%WindViUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1412,8 +1412,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%WindAiUVW, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%WindAiUVW) + UB(1:2) = ubound(SrcMiscData%WindAiUVW) if (.not. allocated(DstMiscData%WindAiUVW)) then allocate(DstMiscData%WindAiUVW(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1484,7 +1484,7 @@ subroutine InflowWind_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'InflowWind_UnPackMisc' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/inflowwind/src/Lidar_Types.f90 b/modules/inflowwind/src/Lidar_Types.f90 index bb71c0ad4b..8277eb6a54 100644 --- a/modules/inflowwind/src/Lidar_Types.f90 +++ b/modules/inflowwind/src/Lidar_Types.f90 @@ -222,7 +222,7 @@ subroutine Lidar_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Lidar_CopyParam' ErrStat = ErrID_None @@ -243,8 +243,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FocalDistanceX, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FocalDistanceX) + UB(1:1) = ubound(SrcParamData%FocalDistanceX) if (.not. allocated(DstParamData%FocalDistanceX)) then allocate(DstParamData%FocalDistanceX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -255,8 +255,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FocalDistanceY, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FocalDistanceY) + UB(1:1) = ubound(SrcParamData%FocalDistanceY) if (.not. allocated(DstParamData%FocalDistanceY)) then allocate(DstParamData%FocalDistanceY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -267,8 +267,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FocalDistanceZ, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FocalDistanceZ) + UB(1:1) = ubound(SrcParamData%FocalDistanceZ) if (.not. allocated(DstParamData%FocalDistanceZ)) then allocate(DstParamData%FocalDistanceZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -279,8 +279,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MsrPosition, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MsrPosition) + UB(1:2) = ubound(SrcParamData%MsrPosition) if (.not. allocated(DstParamData%MsrPosition)) then allocate(DstParamData%MsrPosition(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -354,7 +354,7 @@ subroutine Lidar_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(Lidar_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Lidar_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -630,14 +630,14 @@ subroutine Lidar_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%LidSpeed, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%LidSpeed) + UB(1:1) = ubound(SrcOutputData%LidSpeed) if (.not. allocated(DstOutputData%LidSpeed)) then allocate(DstOutputData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -648,8 +648,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WtTrunc, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WtTrunc) + UB(1:1) = ubound(SrcOutputData%WtTrunc) if (.not. allocated(DstOutputData%WtTrunc)) then allocate(DstOutputData%WtTrunc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -660,8 +660,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%MsrPositionsX, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%MsrPositionsX) + UB(1:1) = ubound(SrcOutputData%MsrPositionsX) if (.not. allocated(DstOutputData%MsrPositionsX)) then allocate(DstOutputData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -672,8 +672,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%MsrPositionsY, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%MsrPositionsY) + UB(1:1) = ubound(SrcOutputData%MsrPositionsY) if (.not. allocated(DstOutputData%MsrPositionsY)) then allocate(DstOutputData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -684,8 +684,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%MsrPositionsZ, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%MsrPositionsZ) + UB(1:1) = ubound(SrcOutputData%MsrPositionsZ) if (.not. allocated(DstOutputData%MsrPositionsZ)) then allocate(DstOutputData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -738,7 +738,7 @@ subroutine Lidar_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Lidar_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Lidar_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/lindyn/src/LinDyn_Types.f90 b/modules/lindyn/src/LinDyn_Types.f90 index ebaaa657a2..b5d08e8d49 100644 --- a/modules/lindyn/src/LinDyn_Types.f90 +++ b/modules/lindyn/src/LinDyn_Types.f90 @@ -131,7 +131,7 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'LD_CopyInitInput' ErrStat = ErrID_None @@ -139,8 +139,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%dt = SrcInitInputData%dt DstInitInputData%IntMethod = SrcInitInputData%IntMethod if (allocated(SrcInitInputData%MM)) then - LB(1:2) = lbound(SrcInitInputData%MM, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%MM, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%MM) + UB(1:2) = ubound(SrcInitInputData%MM) if (.not. allocated(DstInitInputData%MM)) then allocate(DstInitInputData%MM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -151,8 +151,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%MM = SrcInitInputData%MM end if if (allocated(SrcInitInputData%CC)) then - LB(1:2) = lbound(SrcInitInputData%CC, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%CC, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%CC) + UB(1:2) = ubound(SrcInitInputData%CC) if (.not. allocated(DstInitInputData%CC)) then allocate(DstInitInputData%CC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -163,8 +163,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%CC = SrcInitInputData%CC end if if (allocated(SrcInitInputData%KK)) then - LB(1:2) = lbound(SrcInitInputData%KK, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%KK, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%KK) + UB(1:2) = ubound(SrcInitInputData%KK) if (.not. allocated(DstInitInputData%KK)) then allocate(DstInitInputData%KK(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -175,8 +175,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%KK = SrcInitInputData%KK end if if (allocated(SrcInitInputData%x0)) then - LB(1:1) = lbound(SrcInitInputData%x0, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%x0, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%x0) + UB(1:1) = ubound(SrcInitInputData%x0) if (.not. allocated(DstInitInputData%x0)) then allocate(DstInitInputData%x0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -187,8 +187,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%x0 = SrcInitInputData%x0 end if if (allocated(SrcInitInputData%xd0)) then - LB(1:1) = lbound(SrcInitInputData%xd0, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%xd0, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%xd0) + UB(1:1) = ubound(SrcInitInputData%xd0) if (.not. allocated(DstInitInputData%xd0)) then allocate(DstInitInputData%xd0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -199,8 +199,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%xd0 = SrcInitInputData%xd0 end if if (allocated(SrcInitInputData%activeDOFs)) then - LB(1:1) = lbound(SrcInitInputData%activeDOFs, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%activeDOFs, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%activeDOFs) + UB(1:1) = ubound(SrcInitInputData%activeDOFs) if (.not. allocated(DstInitInputData%activeDOFs)) then allocate(DstInitInputData%activeDOFs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -212,8 +212,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta end if DstInitInputData%prefix = SrcInitInputData%prefix if (allocated(SrcInitInputData%DOFsNames)) then - LB(1:1) = lbound(SrcInitInputData%DOFsNames, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%DOFsNames, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%DOFsNames) + UB(1:1) = ubound(SrcInitInputData%DOFsNames) if (.not. allocated(DstInitInputData%DOFsNames)) then allocate(DstInitInputData%DOFsNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -224,8 +224,8 @@ subroutine LD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta DstInitInputData%DOFsNames = SrcInitInputData%DOFsNames end if if (allocated(SrcInitInputData%DOFsUnits)) then - LB(1:1) = lbound(SrcInitInputData%DOFsUnits, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%DOFsUnits, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%DOFsUnits) + UB(1:1) = ubound(SrcInitInputData%DOFsUnits) if (.not. allocated(DstInitInputData%DOFsUnits)) then allocate(DstInitInputData%DOFsUnits(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -297,7 +297,7 @@ subroutine LD_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackInitInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -322,7 +322,7 @@ subroutine LD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'LD_CopyInitOutput' @@ -332,8 +332,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -344,8 +344,8 @@ subroutine LD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -356,8 +356,8 @@ subroutine LD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err DstInitOutputData%WriteOutputUnt = SrcInitOutputData%WriteOutputUnt end if if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -368,8 +368,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -380,8 +380,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -392,8 +392,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -404,8 +404,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -416,8 +416,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -428,8 +428,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -440,8 +440,8 @@ subroutine LD_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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -519,7 +519,7 @@ subroutine LD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -542,14 +542,14 @@ subroutine LD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'LD_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%q)) then - LB(1:1) = lbound(SrcContStateData%q, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%q, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%q) + UB(1:1) = ubound(SrcContStateData%q) if (.not. allocated(DstContStateData%q)) then allocate(DstContStateData%q(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -586,7 +586,7 @@ subroutine LD_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -675,16 +675,16 @@ subroutine LD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'LD_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOtherStateData%xdot)) then - LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -706,16 +706,16 @@ subroutine LD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(LD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'LD_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' if (allocated(OtherStateData%xdot)) then - LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call LD_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -728,14 +728,14 @@ subroutine LD_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(LD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'LD_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xdot), ubound(InData%xdot)) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call LD_PackContState(RF, InData%xdot(i1)) end do @@ -749,8 +749,8 @@ subroutine LD_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -777,15 +777,15 @@ subroutine LD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'LD_CopyMisc' ErrStat = ErrID_None ErrMsg = '' DstMiscData%Dummy = SrcMiscData%Dummy if (allocated(SrcMiscData%qPrescribed)) then - LB(1:1) = lbound(SrcMiscData%qPrescribed, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%qPrescribed, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%qPrescribed) + UB(1:1) = ubound(SrcMiscData%qPrescribed) if (.not. allocated(DstMiscData%qPrescribed)) then allocate(DstMiscData%qPrescribed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -823,7 +823,7 @@ subroutine LD_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackMisc' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -837,8 +837,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'LD_CopyParam' @@ -849,8 +849,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%nx = SrcParamData%nx DstParamData%nq = SrcParamData%nq if (allocated(SrcParamData%MM)) then - LB(1:2) = lbound(SrcParamData%MM, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MM, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MM) + UB(1:2) = ubound(SrcParamData%MM) if (.not. allocated(DstParamData%MM)) then allocate(DstParamData%MM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -861,8 +861,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%MM = SrcParamData%MM end if if (allocated(SrcParamData%CC)) then - LB(1:2) = lbound(SrcParamData%CC, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CC, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CC) + UB(1:2) = ubound(SrcParamData%CC) if (.not. allocated(DstParamData%CC)) then allocate(DstParamData%CC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -873,8 +873,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CC = SrcParamData%CC end if if (allocated(SrcParamData%KK)) then - LB(1:2) = lbound(SrcParamData%KK, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%KK, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%KK) + UB(1:2) = ubound(SrcParamData%KK) if (.not. allocated(DstParamData%KK)) then allocate(DstParamData%KK(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -885,8 +885,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%KK = SrcParamData%KK end if if (allocated(SrcParamData%Minv)) then - LB(1:2) = lbound(SrcParamData%Minv, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Minv, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Minv) + UB(1:2) = ubound(SrcParamData%Minv) if (.not. allocated(DstParamData%Minv)) then allocate(DstParamData%Minv(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -897,8 +897,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%Minv = SrcParamData%Minv end if if (allocated(SrcParamData%activeDOFs)) then - LB(1:1) = lbound(SrcParamData%activeDOFs, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%activeDOFs, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%activeDOFs) + UB(1:1) = ubound(SrcParamData%activeDOFs) if (.not. allocated(DstParamData%activeDOFs)) then allocate(DstParamData%activeDOFs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -909,8 +909,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%activeDOFs = SrcParamData%activeDOFs end if if (allocated(SrcParamData%AA)) then - LB(1:2) = lbound(SrcParamData%AA, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%AA, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%AA) + UB(1:2) = ubound(SrcParamData%AA) if (.not. allocated(DstParamData%AA)) then allocate(DstParamData%AA(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -921,8 +921,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%AA = SrcParamData%AA end if if (allocated(SrcParamData%BB)) then - LB(1:2) = lbound(SrcParamData%BB, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%BB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%BB) + UB(1:2) = ubound(SrcParamData%BB) if (.not. allocated(DstParamData%BB)) then allocate(DstParamData%BB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -934,8 +934,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end if DstParamData%NumOuts = SrcParamData%NumOuts if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -950,8 +950,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%OutParamLinIndx)) then - LB(1:2) = lbound(SrcParamData%OutParamLinIndx, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%OutParamLinIndx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%OutParamLinIndx) + UB(1:2) = ubound(SrcParamData%OutParamLinIndx) if (.not. allocated(DstParamData%OutParamLinIndx)) then allocate(DstParamData%OutParamLinIndx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -962,8 +962,8 @@ subroutine LD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%OutParamLinIndx = SrcParamData%OutParamLinIndx end if if (allocated(SrcParamData%PrescribedValues)) then - LB(1:2) = lbound(SrcParamData%PrescribedValues, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PrescribedValues, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PrescribedValues) + UB(1:2) = ubound(SrcParamData%PrescribedValues) if (.not. allocated(DstParamData%PrescribedValues)) then allocate(DstParamData%PrescribedValues(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -979,8 +979,8 @@ subroutine LD_DestroyParam(ParamData, ErrStat, ErrMsg) type(LD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'LD_DestroyParam' @@ -1008,8 +1008,8 @@ subroutine LD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%BB) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1028,8 +1028,8 @@ subroutine LD_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(LD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'LD_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%dt) call RegPack(RF, InData%IntMethod) @@ -1045,9 +1045,9 @@ subroutine LD_PackParam(RF, Indata) call RegPack(RF, InData%NumOuts) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1061,8 +1061,8 @@ subroutine LD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1101,14 +1101,14 @@ subroutine LD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'LD_CopyInput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInputData%Fext)) then - LB(1:1) = lbound(SrcInputData%Fext, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%Fext, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%Fext) + UB(1:1) = ubound(SrcInputData%Fext) if (.not. allocated(DstInputData%Fext)) then allocate(DstInputData%Fext(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1145,7 +1145,7 @@ subroutine LD_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1158,14 +1158,14 @@ subroutine LD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'LD_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%xdd)) then - LB(1:1) = lbound(SrcOutputData%xdd, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%xdd, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%xdd) + UB(1:1) = ubound(SrcOutputData%xdd) if (.not. allocated(DstOutputData%xdd)) then allocate(DstOutputData%xdd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1176,8 +1176,8 @@ subroutine LD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%xdd = SrcOutputData%xdd end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1218,7 +1218,7 @@ subroutine LD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(LD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'LD_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/map/src/MAP_Fortran_Types.f90 b/modules/map/src/MAP_Fortran_Types.f90 index 76bc63b701..ced2d55d68 100644 --- a/modules/map/src/MAP_Fortran_Types.f90 +++ b/modules/map/src/MAP_Fortran_Types.f90 @@ -98,14 +98,14 @@ subroutine MAP_Fortran_CopyLin_InitOutputType(SrcLin_InitOutputTypeData, DstLin_ integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcLin_InitOutputTypeData%LinNames_y) + UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_y) if (.not. allocated(DstLin_InitOutputTypeData%LinNames_y)) then allocate(DstLin_InitOutputTypeData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -116,8 +116,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, kind=B8Ki) - UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcLin_InitOutputTypeData%LinNames_u) + UB(1:1) = ubound(SrcLin_InitOutputTypeData%LinNames_u) if (.not. allocated(DstLin_InitOutputTypeData%LinNames_u)) then allocate(DstLin_InitOutputTypeData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -128,8 +128,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, kind=B8Ki) - UB(1:1) = ubound(SrcLin_InitOutputTypeData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcLin_InitOutputTypeData%IsLoad_u) + UB(1:1) = ubound(SrcLin_InitOutputTypeData%IsLoad_u) if (.not. allocated(DstLin_InitOutputTypeData%IsLoad_u)) then allocate(DstLin_InitOutputTypeData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -174,7 +174,7 @@ subroutine MAP_Fortran_UnPackLin_InitOutputType(RF, OutData) type(RegFile), intent(inout) :: RF type(Lin_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_Fortran_UnPackLin_InitOutputType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -189,14 +189,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcLin_ParamTypeData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcLin_ParamTypeData%Jac_u_indx) + UB(1:2) = ubound(SrcLin_ParamTypeData%Jac_u_indx) 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 @@ -237,7 +237,7 @@ subroutine MAP_Fortran_UnPackLin_ParamType(RF, OutData) type(RegFile), intent(inout) :: RF type(Lin_ParamType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_Fortran_UnPackLin_ParamType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/map/src/MAP_Types.f90 b/modules/map/src/MAP_Types.f90 index d9ce9ca53f..c83fae8198 100644 --- a/modules/map/src/MAP_Types.f90 +++ b/modules/map/src/MAP_Types.f90 @@ -400,7 +400,7 @@ subroutine MAP_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MAP_CopyInitOutput' @@ -413,8 +413,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%writeOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr) if (.not. allocated(DstInitOutputData%writeOutputHdr)) then allocate(DstInitOutputData%writeOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -425,8 +425,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%writeOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt) if (.not. allocated(DstInitOutputData%writeOutputUnt)) then allocate(DstInitOutputData%writeOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -488,7 +488,7 @@ subroutine MAP_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(MAP_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -710,14 +710,14 @@ subroutine MAP_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%H, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%H) + UB(1:1) = ubound(SrcOtherStateData%H) if (.not. associated(DstOtherStateData%H)) then allocate(DstOtherStateData%H(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -731,8 +731,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%V, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%V) + UB(1:1) = ubound(SrcOtherStateData%V) if (.not. associated(DstOtherStateData%V)) then allocate(DstOtherStateData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -746,8 +746,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Ha, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Ha) + UB(1:1) = ubound(SrcOtherStateData%Ha) if (.not. associated(DstOtherStateData%Ha)) then allocate(DstOtherStateData%Ha(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -761,8 +761,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Va, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Va) + UB(1:1) = ubound(SrcOtherStateData%Va) if (.not. associated(DstOtherStateData%Va)) then allocate(DstOtherStateData%Va(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -776,8 +776,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%x, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%x) + UB(1:1) = ubound(SrcOtherStateData%x) if (.not. associated(DstOtherStateData%x)) then allocate(DstOtherStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -791,8 +791,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%y, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%y) + UB(1:1) = ubound(SrcOtherStateData%y) if (.not. associated(DstOtherStateData%y)) then allocate(DstOtherStateData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -806,8 +806,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%z, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%z) + UB(1:1) = ubound(SrcOtherStateData%z) if (.not. associated(DstOtherStateData%z)) then allocate(DstOtherStateData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -821,8 +821,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xa, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xa) + UB(1:1) = ubound(SrcOtherStateData%xa) if (.not. associated(DstOtherStateData%xa)) then allocate(DstOtherStateData%xa(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -836,8 +836,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%ya, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%ya) + UB(1:1) = ubound(SrcOtherStateData%ya) if (.not. associated(DstOtherStateData%ya)) then allocate(DstOtherStateData%ya(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -851,8 +851,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%za, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%za) + UB(1:1) = ubound(SrcOtherStateData%za) if (.not. associated(DstOtherStateData%za)) then allocate(DstOtherStateData%za(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -866,8 +866,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Fx_connect, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Fx_connect) + UB(1:1) = ubound(SrcOtherStateData%Fx_connect) if (.not. associated(DstOtherStateData%Fx_connect)) then allocate(DstOtherStateData%Fx_connect(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -881,8 +881,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Fy_connect, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Fy_connect) + UB(1:1) = ubound(SrcOtherStateData%Fy_connect) if (.not. associated(DstOtherStateData%Fy_connect)) then allocate(DstOtherStateData%Fy_connect(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -896,8 +896,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Fz_connect, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Fz_connect) + UB(1:1) = ubound(SrcOtherStateData%Fz_connect) if (.not. associated(DstOtherStateData%Fz_connect)) then allocate(DstOtherStateData%Fz_connect(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -911,8 +911,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Fx_anchor, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Fx_anchor) + UB(1:1) = ubound(SrcOtherStateData%Fx_anchor) if (.not. associated(DstOtherStateData%Fx_anchor)) then allocate(DstOtherStateData%Fx_anchor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -926,8 +926,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Fy_anchor, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Fy_anchor) + UB(1:1) = ubound(SrcOtherStateData%Fy_anchor) if (.not. associated(DstOtherStateData%Fy_anchor)) then allocate(DstOtherStateData%Fy_anchor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -941,8 +941,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%Fz_anchor, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%Fz_anchor) + UB(1:1) = ubound(SrcOtherStateData%Fz_anchor) if (.not. associated(DstOtherStateData%Fz_anchor)) then allocate(DstOtherStateData%Fz_anchor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1095,7 +1095,7 @@ subroutine MAP_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(MAP_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackOtherState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1368,7 +1368,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, kind=B8Ki))) + OtherStateData%C_obj%H = C_LOC(OtherStateData%H(lbound(OtherStateData%H,1))) END IF END IF @@ -1380,7 +1380,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, kind=B8Ki))) + OtherStateData%C_obj%V = C_LOC(OtherStateData%V(lbound(OtherStateData%V,1))) END IF END IF @@ -1392,7 +1392,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, kind=B8Ki))) + OtherStateData%C_obj%Ha = C_LOC(OtherStateData%Ha(lbound(OtherStateData%Ha,1))) END IF END IF @@ -1404,7 +1404,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, kind=B8Ki))) + OtherStateData%C_obj%Va = C_LOC(OtherStateData%Va(lbound(OtherStateData%Va,1))) END IF END IF @@ -1416,7 +1416,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, kind=B8Ki))) + OtherStateData%C_obj%x = C_LOC(OtherStateData%x(lbound(OtherStateData%x,1))) END IF END IF @@ -1428,7 +1428,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, kind=B8Ki))) + OtherStateData%C_obj%y = C_LOC(OtherStateData%y(lbound(OtherStateData%y,1))) END IF END IF @@ -1440,7 +1440,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, kind=B8Ki))) + OtherStateData%C_obj%z = C_LOC(OtherStateData%z(lbound(OtherStateData%z,1))) END IF END IF @@ -1452,7 +1452,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, kind=B8Ki))) + OtherStateData%C_obj%xa = C_LOC(OtherStateData%xa(lbound(OtherStateData%xa,1))) END IF END IF @@ -1464,7 +1464,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, kind=B8Ki))) + OtherStateData%C_obj%ya = C_LOC(OtherStateData%ya(lbound(OtherStateData%ya,1))) END IF END IF @@ -1476,7 +1476,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, kind=B8Ki))) + OtherStateData%C_obj%za = C_LOC(OtherStateData%za(lbound(OtherStateData%za,1))) END IF END IF @@ -1488,7 +1488,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, kind=B8Ki))) + OtherStateData%C_obj%Fx_connect = C_LOC(OtherStateData%Fx_connect(lbound(OtherStateData%Fx_connect,1))) END IF END IF @@ -1500,7 +1500,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, kind=B8Ki))) + OtherStateData%C_obj%Fy_connect = C_LOC(OtherStateData%Fy_connect(lbound(OtherStateData%Fy_connect,1))) END IF END IF @@ -1512,7 +1512,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, kind=B8Ki))) + OtherStateData%C_obj%Fz_connect = C_LOC(OtherStateData%Fz_connect(lbound(OtherStateData%Fz_connect,1))) END IF END IF @@ -1524,7 +1524,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, kind=B8Ki))) + OtherStateData%C_obj%Fx_anchor = C_LOC(OtherStateData%Fx_anchor(lbound(OtherStateData%Fx_anchor,1))) END IF END IF @@ -1536,7 +1536,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, kind=B8Ki))) + OtherStateData%C_obj%Fy_anchor = C_LOC(OtherStateData%Fy_anchor(lbound(OtherStateData%Fy_anchor,1))) END IF END IF @@ -1548,7 +1548,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, kind=B8Ki))) + OtherStateData%C_obj%Fz_anchor = C_LOC(OtherStateData%Fz_anchor(lbound(OtherStateData%Fz_anchor,1))) END IF END IF END SUBROUTINE @@ -1559,14 +1559,14 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%H, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%H) + UB(1:1) = ubound(SrcConstrStateData%H) if (.not. associated(DstConstrStateData%H)) then allocate(DstConstrStateData%H(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1580,8 +1580,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%H = SrcConstrStateData%H end if if (associated(SrcConstrStateData%V)) then - LB(1:1) = lbound(SrcConstrStateData%V, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%V, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%V) + UB(1:1) = ubound(SrcConstrStateData%V) if (.not. associated(DstConstrStateData%V)) then allocate(DstConstrStateData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1595,8 +1595,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%V = SrcConstrStateData%V end if if (associated(SrcConstrStateData%x)) then - LB(1:1) = lbound(SrcConstrStateData%x, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%x, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%x) + UB(1:1) = ubound(SrcConstrStateData%x) if (.not. associated(DstConstrStateData%x)) then allocate(DstConstrStateData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1610,8 +1610,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%x = SrcConstrStateData%x end if if (associated(SrcConstrStateData%y)) then - LB(1:1) = lbound(SrcConstrStateData%y, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%y, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%y) + UB(1:1) = ubound(SrcConstrStateData%y) if (.not. associated(DstConstrStateData%y)) then allocate(DstConstrStateData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1625,8 +1625,8 @@ subroutine MAP_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode, DstConstrStateData%y = SrcConstrStateData%y end if if (associated(SrcConstrStateData%z)) then - LB(1:1) = lbound(SrcConstrStateData%z, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%z, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%z) + UB(1:1) = ubound(SrcConstrStateData%z) if (.not. associated(DstConstrStateData%z)) then allocate(DstConstrStateData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1702,7 +1702,7 @@ subroutine MAP_UnPackConstrState(RF, OutData) type(RegFile), intent(inout) :: RF type(MAP_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackConstrState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1821,7 +1821,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, kind=B8Ki))) + ConstrStateData%C_obj%H = C_LOC(ConstrStateData%H(lbound(ConstrStateData%H,1))) END IF END IF @@ -1833,7 +1833,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, kind=B8Ki))) + ConstrStateData%C_obj%V = C_LOC(ConstrStateData%V(lbound(ConstrStateData%V,1))) END IF END IF @@ -1845,7 +1845,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, kind=B8Ki))) + ConstrStateData%C_obj%x = C_LOC(ConstrStateData%x(lbound(ConstrStateData%x,1))) END IF END IF @@ -1857,7 +1857,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, kind=B8Ki))) + ConstrStateData%C_obj%y = C_LOC(ConstrStateData%y(lbound(ConstrStateData%y,1))) END IF END IF @@ -1869,7 +1869,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, kind=B8Ki))) + ConstrStateData%C_obj%z = C_LOC(ConstrStateData%z(lbound(ConstrStateData%z,1))) END IF END IF END SUBROUTINE @@ -2005,15 +2005,15 @@ subroutine MAP_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%x, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%x) + UB(1:1) = ubound(SrcInputData%x) if (.not. associated(DstInputData%x)) then allocate(DstInputData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2027,8 +2027,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%y, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%y) + UB(1:1) = ubound(SrcInputData%y) if (.not. associated(DstInputData%y)) then allocate(DstInputData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2042,8 +2042,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%z, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%z) + UB(1:1) = ubound(SrcInputData%z) if (.not. associated(DstInputData%z)) then allocate(DstInputData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2113,7 +2113,7 @@ subroutine MAP_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(MAP_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -2205,7 +2205,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, kind=B8Ki))) + InputData%C_obj%x = C_LOC(InputData%x(lbound(InputData%x,1))) END IF END IF @@ -2217,7 +2217,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, kind=B8Ki))) + InputData%C_obj%y = C_LOC(InputData%y(lbound(InputData%y,1))) END IF END IF @@ -2229,7 +2229,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, kind=B8Ki))) + InputData%C_obj%z = C_LOC(InputData%z(lbound(InputData%z,1))) END IF END IF END SUBROUTINE @@ -2240,15 +2240,15 @@ subroutine MAP_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%Fx, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%Fx) + UB(1:1) = ubound(SrcOutputData%Fx) if (.not. associated(DstOutputData%Fx)) then allocate(DstOutputData%Fx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2262,8 +2262,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%Fy, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%Fy) + UB(1:1) = ubound(SrcOutputData%Fy) if (.not. associated(DstOutputData%Fy)) then allocate(DstOutputData%Fy(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2277,8 +2277,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%Fz, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%Fz) + UB(1:1) = ubound(SrcOutputData%Fz) if (.not. associated(DstOutputData%Fz)) then allocate(DstOutputData%Fz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2292,8 +2292,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2304,8 +2304,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%wrtOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%wrtOutput) + UB(1:1) = ubound(SrcOutputData%wrtOutput) if (.not. associated(DstOutputData%wrtOutput)) then allocate(DstOutputData%wrtOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2386,7 +2386,7 @@ subroutine MAP_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(MAP_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MAP_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -2493,7 +2493,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, kind=B8Ki))) + OutputData%C_obj%Fx = C_LOC(OutputData%Fx(lbound(OutputData%Fx,1))) END IF END IF @@ -2505,7 +2505,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, kind=B8Ki))) + OutputData%C_obj%Fy = C_LOC(OutputData%Fy(lbound(OutputData%Fy,1))) END IF END IF @@ -2517,7 +2517,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, kind=B8Ki))) + OutputData%C_obj%Fz = C_LOC(OutputData%Fz(lbound(OutputData%Fz,1))) END IF END IF @@ -2529,7 +2529,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, kind=B8Ki))) + OutputData%C_obj%wrtOutput = C_LOC(OutputData%wrtOutput(lbound(OutputData%wrtOutput,1))) END IF END IF END SUBROUTINE diff --git a/modules/moordyn/src/MoorDyn_Types.f90 b/modules/moordyn/src/MoorDyn_Types.f90 index 2b857bef9d..f263cd131f 100644 --- a/modules/moordyn/src/MoorDyn_Types.f90 +++ b/modules/moordyn/src/MoorDyn_Types.f90 @@ -549,7 +549,7 @@ subroutine MD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyInitInput' @@ -559,8 +559,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%PtfmInit, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%PtfmInit) + UB(1:2) = ubound(SrcInitInputData%PtfmInit) if (.not. allocated(DstInitInputData%PtfmInit)) then allocate(DstInitInputData%PtfmInit(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -572,8 +572,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%TurbineRefPos, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%TurbineRefPos) + UB(1:2) = ubound(SrcInitInputData%TurbineRefPos) if (.not. allocated(DstInitInputData%TurbineRefPos)) then allocate(DstInitInputData%TurbineRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -592,8 +592,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%OutList) + UB(1:1) = ubound(SrcInitInputData%OutList) if (.not. allocated(DstInitInputData%OutList)) then allocate(DstInitInputData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -656,7 +656,7 @@ subroutine MD_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackInitInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -977,7 +977,7 @@ subroutine MD_CopyPoint(SrcPointData, DstPointData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyPoint' ErrStat = ErrID_None @@ -1003,8 +1003,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, kind=B8Ki) - UB(1:1) = ubound(SrcPointData%PDyn, kind=B8Ki) + LB(1:1) = lbound(SrcPointData%PDyn) + UB(1:1) = ubound(SrcPointData%PDyn) if (.not. allocated(DstPointData%PDyn)) then allocate(DstPointData%PDyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1065,7 +1065,7 @@ subroutine MD_UnPackPoint(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_Point), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackPoint' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1100,7 +1100,7 @@ subroutine MD_CopyRod(SrcRodData, DstRodData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyRod' ErrStat = ErrID_None @@ -1136,8 +1136,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%r, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%r) + UB(1:2) = ubound(SrcRodData%r) if (.not. allocated(DstRodData%r)) then allocate(DstRodData%r(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1148,8 +1148,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%rd, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%rd) + UB(1:2) = ubound(SrcRodData%rd) if (.not. allocated(DstRodData%rd)) then allocate(DstRodData%rd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1161,8 +1161,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, kind=B8Ki) - UB(1:1) = ubound(SrcRodData%l, kind=B8Ki) + LB(1:1) = lbound(SrcRodData%l) + UB(1:1) = ubound(SrcRodData%l) if (.not. allocated(DstRodData%l)) then allocate(DstRodData%l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1173,8 +1173,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, kind=B8Ki) - UB(1:1) = ubound(SrcRodData%V, kind=B8Ki) + LB(1:1) = lbound(SrcRodData%V) + UB(1:1) = ubound(SrcRodData%V) if (.not. allocated(DstRodData%V)) then allocate(DstRodData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1185,8 +1185,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%U, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%U) + UB(1:2) = ubound(SrcRodData%U) if (.not. allocated(DstRodData%U)) then allocate(DstRodData%U(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1197,8 +1197,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Ud, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Ud) + UB(1:2) = ubound(SrcRodData%Ud) if (.not. allocated(DstRodData%Ud)) then allocate(DstRodData%Ud(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1209,8 +1209,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, kind=B8Ki) - UB(1:1) = ubound(SrcRodData%zeta, kind=B8Ki) + LB(1:1) = lbound(SrcRodData%zeta) + UB(1:1) = ubound(SrcRodData%zeta) if (.not. allocated(DstRodData%zeta)) then allocate(DstRodData%zeta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1221,8 +1221,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, kind=B8Ki) - UB(1:1) = ubound(SrcRodData%PDyn, kind=B8Ki) + LB(1:1) = lbound(SrcRodData%PDyn) + UB(1:1) = ubound(SrcRodData%PDyn) if (.not. allocated(DstRodData%PDyn)) then allocate(DstRodData%PDyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1233,8 +1233,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%W, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%W) + UB(1:2) = ubound(SrcRodData%W) if (.not. allocated(DstRodData%W)) then allocate(DstRodData%W(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1245,8 +1245,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Bo, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Bo) + UB(1:2) = ubound(SrcRodData%Bo) if (.not. allocated(DstRodData%Bo)) then allocate(DstRodData%Bo(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1257,8 +1257,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Pd, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Pd) + UB(1:2) = ubound(SrcRodData%Pd) if (.not. allocated(DstRodData%Pd)) then allocate(DstRodData%Pd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1269,8 +1269,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Dp, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Dp) + UB(1:2) = ubound(SrcRodData%Dp) if (.not. allocated(DstRodData%Dp)) then allocate(DstRodData%Dp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1281,8 +1281,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Dq, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Dq) + UB(1:2) = ubound(SrcRodData%Dq) if (.not. allocated(DstRodData%Dq)) then allocate(DstRodData%Dq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1293,8 +1293,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Ap, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Ap) + UB(1:2) = ubound(SrcRodData%Ap) if (.not. allocated(DstRodData%Ap)) then allocate(DstRodData%Ap(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1305,8 +1305,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Aq, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Aq) + UB(1:2) = ubound(SrcRodData%Aq) if (.not. allocated(DstRodData%Aq)) then allocate(DstRodData%Aq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1317,8 +1317,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%B, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%B) + UB(1:2) = ubound(SrcRodData%B) if (.not. allocated(DstRodData%B)) then allocate(DstRodData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1329,8 +1329,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, kind=B8Ki) - UB(1:2) = ubound(SrcRodData%Fnet, kind=B8Ki) + LB(1:2) = lbound(SrcRodData%Fnet) + UB(1:2) = ubound(SrcRodData%Fnet) if (.not. allocated(DstRodData%Fnet)) then allocate(DstRodData%Fnet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1341,8 +1341,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, kind=B8Ki) - UB(1:3) = ubound(SrcRodData%M, kind=B8Ki) + LB(1:3) = lbound(SrcRodData%M) + UB(1:3) = ubound(SrcRodData%M) 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 @@ -1364,8 +1364,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, kind=B8Ki) - UB(1:1) = ubound(SrcRodData%RodWrOutput, kind=B8Ki) + LB(1:1) = lbound(SrcRodData%RodWrOutput) + UB(1:1) = ubound(SrcRodData%RodWrOutput) if (.not. allocated(DstRodData%RodWrOutput)) then allocate(DstRodData%RodWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1516,7 +1516,7 @@ subroutine MD_UnPackRod(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_Rod), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackRod' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1589,7 +1589,7 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'MD_CopyLine' ErrStat = ErrID_None @@ -1629,8 +1629,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%r, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%r) + UB(1:2) = ubound(SrcLineData%r) if (.not. allocated(DstLineData%r)) then allocate(DstLineData%r(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1641,8 +1641,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%rd, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%rd) + UB(1:2) = ubound(SrcLineData%rd) if (.not. allocated(DstLineData%rd)) then allocate(DstLineData%rd(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1653,8 +1653,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%q, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%q) + UB(1:2) = ubound(SrcLineData%q) if (.not. allocated(DstLineData%q)) then allocate(DstLineData%q(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1665,8 +1665,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%qs, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%qs) + UB(1:2) = ubound(SrcLineData%qs) if (.not. allocated(DstLineData%qs)) then allocate(DstLineData%qs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1677,8 +1677,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%l, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%l) + UB(1:1) = ubound(SrcLineData%l) if (.not. allocated(DstLineData%l)) then allocate(DstLineData%l(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1689,8 +1689,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%ld, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%ld) + UB(1:1) = ubound(SrcLineData%ld) if (.not. allocated(DstLineData%ld)) then allocate(DstLineData%ld(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1701,8 +1701,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%lstr, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%lstr) + UB(1:1) = ubound(SrcLineData%lstr) if (.not. allocated(DstLineData%lstr)) then allocate(DstLineData%lstr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1713,8 +1713,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%lstrd, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%lstrd) + UB(1:1) = ubound(SrcLineData%lstrd) if (.not. allocated(DstLineData%lstrd)) then allocate(DstLineData%lstrd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1725,8 +1725,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%Kurv, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%Kurv) + UB(1:1) = ubound(SrcLineData%Kurv) if (.not. allocated(DstLineData%Kurv)) then allocate(DstLineData%Kurv(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1737,8 +1737,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%dl_1, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%dl_1) + UB(1:1) = ubound(SrcLineData%dl_1) if (.not. allocated(DstLineData%dl_1)) then allocate(DstLineData%dl_1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1749,8 +1749,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%V, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%V) + UB(1:1) = ubound(SrcLineData%V) if (.not. allocated(DstLineData%V)) then allocate(DstLineData%V(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1761,8 +1761,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%V = SrcLineData%V end if if (allocated(SrcLineData%F)) then - LB(1:1) = lbound(SrcLineData%F, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%F, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%F) + UB(1:1) = ubound(SrcLineData%F) if (.not. allocated(DstLineData%F)) then allocate(DstLineData%F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1773,8 +1773,8 @@ subroutine MD_CopyLine(SrcLineData, DstLineData, CtrlCode, ErrStat, ErrMsg) DstLineData%F = SrcLineData%F end if if (allocated(SrcLineData%U)) then - LB(1:2) = lbound(SrcLineData%U, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%U, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%U) + UB(1:2) = ubound(SrcLineData%U) if (.not. allocated(DstLineData%U)) then allocate(DstLineData%U(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1785,8 +1785,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Ud, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Ud) + UB(1:2) = ubound(SrcLineData%Ud) if (.not. allocated(DstLineData%Ud)) then allocate(DstLineData%Ud(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1797,8 +1797,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%zeta, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%zeta) + UB(1:1) = ubound(SrcLineData%zeta) if (.not. allocated(DstLineData%zeta)) then allocate(DstLineData%zeta(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1809,8 +1809,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%PDyn, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%PDyn) + UB(1:1) = ubound(SrcLineData%PDyn) if (.not. allocated(DstLineData%PDyn)) then allocate(DstLineData%PDyn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1821,8 +1821,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%T, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%T) + UB(1:2) = ubound(SrcLineData%T) if (.not. allocated(DstLineData%T)) then allocate(DstLineData%T(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1833,8 +1833,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Td, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Td) + UB(1:2) = ubound(SrcLineData%Td) if (.not. allocated(DstLineData%Td)) then allocate(DstLineData%Td(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1845,8 +1845,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%W, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%W) + UB(1:2) = ubound(SrcLineData%W) if (.not. allocated(DstLineData%W)) then allocate(DstLineData%W(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1857,8 +1857,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Dp, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Dp) + UB(1:2) = ubound(SrcLineData%Dp) if (.not. allocated(DstLineData%Dp)) then allocate(DstLineData%Dp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1869,8 +1869,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Dq, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Dq) + UB(1:2) = ubound(SrcLineData%Dq) if (.not. allocated(DstLineData%Dq)) then allocate(DstLineData%Dq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1881,8 +1881,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Ap, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Ap) + UB(1:2) = ubound(SrcLineData%Ap) if (.not. allocated(DstLineData%Ap)) then allocate(DstLineData%Ap(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1893,8 +1893,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Aq, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Aq) + UB(1:2) = ubound(SrcLineData%Aq) if (.not. allocated(DstLineData%Aq)) then allocate(DstLineData%Aq(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1905,8 +1905,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%B, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%B) + UB(1:2) = ubound(SrcLineData%B) if (.not. allocated(DstLineData%B)) then allocate(DstLineData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1917,8 +1917,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Bs, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Bs) + UB(1:2) = ubound(SrcLineData%Bs) if (.not. allocated(DstLineData%Bs)) then allocate(DstLineData%Bs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1929,8 +1929,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, kind=B8Ki) - UB(1:2) = ubound(SrcLineData%Fnet, kind=B8Ki) + LB(1:2) = lbound(SrcLineData%Fnet) + UB(1:2) = ubound(SrcLineData%Fnet) if (.not. allocated(DstLineData%Fnet)) then allocate(DstLineData%Fnet(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1941,8 +1941,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, kind=B8Ki) - UB(1:3) = ubound(SrcLineData%S, kind=B8Ki) + LB(1:3) = lbound(SrcLineData%S) + UB(1:3) = ubound(SrcLineData%S) 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 @@ -1953,8 +1953,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, kind=B8Ki) - UB(1:3) = ubound(SrcLineData%M, kind=B8Ki) + LB(1:3) = lbound(SrcLineData%M) + UB(1:3) = ubound(SrcLineData%M) 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 @@ -1968,8 +1968,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, kind=B8Ki) - UB(1:1) = ubound(SrcLineData%LineWrOutput, kind=B8Ki) + LB(1:1) = lbound(SrcLineData%LineWrOutput) + UB(1:1) = ubound(SrcLineData%LineWrOutput) if (.not. allocated(DstLineData%LineWrOutput)) then allocate(DstLineData%LineWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2155,7 +2155,7 @@ subroutine MD_UnPackLine(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_Line), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackLine' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2348,14 +2348,14 @@ subroutine MD_CopyVisDiam(SrcVisDiamData, DstVisDiamData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcVisDiamData%Diam, kind=B8Ki) + LB(1:1) = lbound(SrcVisDiamData%Diam) + UB(1:1) = ubound(SrcVisDiamData%Diam) if (.not. allocated(DstVisDiamData%Diam)) then allocate(DstVisDiamData%Diam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2392,7 +2392,7 @@ subroutine MD_UnPackVisDiam(RF, OutData) type(RegFile), intent(inout) :: RF type(VisDiam), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackVisDiam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2405,15 +2405,15 @@ subroutine MD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%writeOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%writeOutputHdr) if (.not. allocated(DstInitOutputData%writeOutputHdr)) then allocate(DstInitOutputData%writeOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2424,8 +2424,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%writeOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%writeOutputUnt) if (.not. allocated(DstInitOutputData%writeOutputUnt)) then allocate(DstInitOutputData%writeOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2439,8 +2439,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%CableCChanRqst) + UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst) if (.not. allocated(DstInitOutputData%CableCChanRqst)) then allocate(DstInitOutputData%CableCChanRqst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2451,8 +2451,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2463,8 +2463,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2475,8 +2475,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2487,8 +2487,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2499,8 +2499,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2511,8 +2511,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2523,8 +2523,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2535,8 +2535,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2618,7 +2618,7 @@ subroutine MD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2642,14 +2642,14 @@ subroutine MD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%states, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%states) + UB(1:1) = ubound(SrcContStateData%states) if (.not. allocated(DstContStateData%states)) then allocate(DstContStateData%states(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2686,7 +2686,7 @@ subroutine MD_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2813,16 +2813,16 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LineTypeList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LineTypeList) + UB(1:1) = ubound(SrcMiscData%LineTypeList) if (.not. allocated(DstMiscData%LineTypeList)) then allocate(DstMiscData%LineTypeList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2837,8 +2837,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%RodTypeList)) then - LB(1:1) = lbound(SrcMiscData%RodTypeList, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%RodTypeList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%RodTypeList) + UB(1:1) = ubound(SrcMiscData%RodTypeList) if (.not. allocated(DstMiscData%RodTypeList)) then allocate(DstMiscData%RodTypeList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2856,8 +2856,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BodyList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BodyList) + UB(1:1) = ubound(SrcMiscData%BodyList) if (.not. allocated(DstMiscData%BodyList)) then allocate(DstMiscData%BodyList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2872,8 +2872,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%RodList)) then - LB(1:1) = lbound(SrcMiscData%RodList, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%RodList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%RodList) + UB(1:1) = ubound(SrcMiscData%RodList) if (.not. allocated(DstMiscData%RodList)) then allocate(DstMiscData%RodList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2888,8 +2888,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%PointList)) then - LB(1:1) = lbound(SrcMiscData%PointList, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%PointList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%PointList) + UB(1:1) = ubound(SrcMiscData%PointList) if (.not. allocated(DstMiscData%PointList)) then allocate(DstMiscData%PointList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2904,8 +2904,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%LineList)) then - LB(1:1) = lbound(SrcMiscData%LineList, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LineList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LineList) + UB(1:1) = ubound(SrcMiscData%LineList) if (.not. allocated(DstMiscData%LineList)) then allocate(DstMiscData%LineList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2920,8 +2920,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%FailList)) then - LB(1:1) = lbound(SrcMiscData%FailList, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FailList, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FailList) + UB(1:1) = ubound(SrcMiscData%FailList) if (.not. allocated(DstMiscData%FailList)) then allocate(DstMiscData%FailList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2936,8 +2936,8 @@ subroutine MD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%FreePointIs)) then - LB(1:1) = lbound(SrcMiscData%FreePointIs, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FreePointIs, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FreePointIs) + UB(1:1) = ubound(SrcMiscData%FreePointIs) if (.not. allocated(DstMiscData%FreePointIs)) then allocate(DstMiscData%FreePointIs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2948,8 +2948,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%CpldPointIs, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%CpldPointIs) + UB(1:2) = ubound(SrcMiscData%CpldPointIs) if (.not. allocated(DstMiscData%CpldPointIs)) then allocate(DstMiscData%CpldPointIs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2960,8 +2960,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FreeRodIs, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FreeRodIs) + UB(1:1) = ubound(SrcMiscData%FreeRodIs) if (.not. allocated(DstMiscData%FreeRodIs)) then allocate(DstMiscData%FreeRodIs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2972,8 +2972,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%CpldRodIs, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%CpldRodIs) + UB(1:2) = ubound(SrcMiscData%CpldRodIs) if (.not. allocated(DstMiscData%CpldRodIs)) then allocate(DstMiscData%CpldRodIs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2984,8 +2984,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FreeBodyIs, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FreeBodyIs) + UB(1:1) = ubound(SrcMiscData%FreeBodyIs) if (.not. allocated(DstMiscData%FreeBodyIs)) then allocate(DstMiscData%FreeBodyIs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2996,8 +2996,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%CpldBodyIs, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%CpldBodyIs) + UB(1:2) = ubound(SrcMiscData%CpldBodyIs) if (.not. allocated(DstMiscData%CpldBodyIs)) then allocate(DstMiscData%CpldBodyIs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3008,8 +3008,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LineStateIs1, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LineStateIs1) + UB(1:1) = ubound(SrcMiscData%LineStateIs1) if (.not. allocated(DstMiscData%LineStateIs1)) then allocate(DstMiscData%LineStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3020,8 +3020,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%LineStateIsN, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%LineStateIsN) + UB(1:1) = ubound(SrcMiscData%LineStateIsN) if (.not. allocated(DstMiscData%LineStateIsN)) then allocate(DstMiscData%LineStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3032,8 +3032,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%PointStateIs1, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%PointStateIs1) + UB(1:1) = ubound(SrcMiscData%PointStateIs1) if (.not. allocated(DstMiscData%PointStateIs1)) then allocate(DstMiscData%PointStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3044,8 +3044,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%PointStateIsN, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%PointStateIsN) + UB(1:1) = ubound(SrcMiscData%PointStateIsN) if (.not. allocated(DstMiscData%PointStateIsN)) then allocate(DstMiscData%PointStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3056,8 +3056,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%RodStateIs1, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%RodStateIs1) + UB(1:1) = ubound(SrcMiscData%RodStateIs1) if (.not. allocated(DstMiscData%RodStateIs1)) then allocate(DstMiscData%RodStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3068,8 +3068,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%RodStateIsN, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%RodStateIsN) + UB(1:1) = ubound(SrcMiscData%RodStateIsN) if (.not. allocated(DstMiscData%RodStateIsN)) then allocate(DstMiscData%RodStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3080,8 +3080,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BodyStateIs1, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BodyStateIs1) + UB(1:1) = ubound(SrcMiscData%BodyStateIs1) if (.not. allocated(DstMiscData%BodyStateIs1)) then allocate(DstMiscData%BodyStateIs1(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3092,8 +3092,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BodyStateIsN, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BodyStateIsN) + UB(1:1) = ubound(SrcMiscData%BodyStateIsN) if (.not. allocated(DstMiscData%BodyStateIsN)) then allocate(DstMiscData%BodyStateIsN(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3114,8 +3114,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%MDWrOutput, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%MDWrOutput) + UB(1:1) = ubound(SrcMiscData%MDWrOutput) if (.not. allocated(DstMiscData%MDWrOutput)) then allocate(DstMiscData%MDWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3128,8 +3128,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%BathymetryGrid, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%BathymetryGrid) + UB(1:2) = ubound(SrcMiscData%BathymetryGrid) if (.not. allocated(DstMiscData%BathymetryGrid)) then allocate(DstMiscData%BathymetryGrid(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3140,8 +3140,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BathGrid_Xs, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BathGrid_Xs) + UB(1:1) = ubound(SrcMiscData%BathGrid_Xs) if (.not. allocated(DstMiscData%BathGrid_Xs)) then allocate(DstMiscData%BathGrid_Xs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3152,8 +3152,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BathGrid_Ys, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BathGrid_Ys) + UB(1:1) = ubound(SrcMiscData%BathGrid_Ys) if (.not. allocated(DstMiscData%BathGrid_Ys)) then allocate(DstMiscData%BathGrid_Ys(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3164,8 +3164,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BathGrid_npoints, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BathGrid_npoints) + UB(1:1) = ubound(SrcMiscData%BathGrid_npoints) if (.not. allocated(DstMiscData%BathGrid_npoints)) then allocate(DstMiscData%BathGrid_npoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3181,16 +3181,16 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) type(MD_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(MiscData%LineTypeList, kind=B8Ki) + LB(1:1) = lbound(MiscData%LineTypeList) + UB(1:1) = ubound(MiscData%LineTypeList) do i1 = LB(1), UB(1) call MD_DestroyLineProp(MiscData%LineTypeList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3198,8 +3198,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%LineTypeList) end if if (allocated(MiscData%RodTypeList)) then - LB(1:1) = lbound(MiscData%RodTypeList, kind=B8Ki) - UB(1:1) = ubound(MiscData%RodTypeList, kind=B8Ki) + LB(1:1) = lbound(MiscData%RodTypeList) + UB(1:1) = ubound(MiscData%RodTypeList) do i1 = LB(1), UB(1) call MD_DestroyRodProp(MiscData%RodTypeList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3209,8 +3209,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%BodyList, kind=B8Ki) + LB(1:1) = lbound(MiscData%BodyList) + UB(1:1) = ubound(MiscData%BodyList) do i1 = LB(1), UB(1) call MD_DestroyBody(MiscData%BodyList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3218,8 +3218,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%BodyList) end if if (allocated(MiscData%RodList)) then - LB(1:1) = lbound(MiscData%RodList, kind=B8Ki) - UB(1:1) = ubound(MiscData%RodList, kind=B8Ki) + LB(1:1) = lbound(MiscData%RodList) + UB(1:1) = ubound(MiscData%RodList) do i1 = LB(1), UB(1) call MD_DestroyRod(MiscData%RodList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3227,8 +3227,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%RodList) end if if (allocated(MiscData%PointList)) then - LB(1:1) = lbound(MiscData%PointList, kind=B8Ki) - UB(1:1) = ubound(MiscData%PointList, kind=B8Ki) + LB(1:1) = lbound(MiscData%PointList) + UB(1:1) = ubound(MiscData%PointList) do i1 = LB(1), UB(1) call MD_DestroyPoint(MiscData%PointList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3236,8 +3236,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%PointList) end if if (allocated(MiscData%LineList)) then - LB(1:1) = lbound(MiscData%LineList, kind=B8Ki) - UB(1:1) = ubound(MiscData%LineList, kind=B8Ki) + LB(1:1) = lbound(MiscData%LineList) + UB(1:1) = ubound(MiscData%LineList) do i1 = LB(1), UB(1) call MD_DestroyLine(MiscData%LineList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3245,8 +3245,8 @@ subroutine MD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%LineList) end if if (allocated(MiscData%FailList)) then - LB(1:1) = lbound(MiscData%FailList, kind=B8Ki) - UB(1:1) = ubound(MiscData%FailList, kind=B8Ki) + LB(1:1) = lbound(MiscData%FailList) + UB(1:1) = ubound(MiscData%FailList) do i1 = LB(1), UB(1) call MD_DestroyFail(MiscData%FailList(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3320,23 +3320,23 @@ subroutine MD_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(MD_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%LineTypeList)) if (allocated(InData%LineTypeList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%LineTypeList), ubound(InData%LineTypeList)) + LB(1:1) = lbound(InData%LineTypeList) + UB(1:1) = ubound(InData%LineTypeList) do i1 = LB(1), UB(1) call MD_PackLineProp(RF, InData%LineTypeList(i1)) end do end if call RegPack(RF, allocated(InData%RodTypeList)) if (allocated(InData%RodTypeList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%RodTypeList), ubound(InData%RodTypeList)) + LB(1:1) = lbound(InData%RodTypeList) + UB(1:1) = ubound(InData%RodTypeList) do i1 = LB(1), UB(1) call MD_PackRodProp(RF, InData%RodTypeList(i1)) end do @@ -3344,45 +3344,45 @@ subroutine MD_PackMisc(RF, Indata) call MD_PackBody(RF, InData%GroundBody) call RegPack(RF, allocated(InData%BodyList)) if (allocated(InData%BodyList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BodyList), ubound(InData%BodyList)) + LB(1:1) = lbound(InData%BodyList) + UB(1:1) = ubound(InData%BodyList) do i1 = LB(1), UB(1) call MD_PackBody(RF, InData%BodyList(i1)) end do end if call RegPack(RF, allocated(InData%RodList)) if (allocated(InData%RodList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%RodList), ubound(InData%RodList)) + LB(1:1) = lbound(InData%RodList) + UB(1:1) = ubound(InData%RodList) do i1 = LB(1), UB(1) call MD_PackRod(RF, InData%RodList(i1)) end do end if call RegPack(RF, allocated(InData%PointList)) if (allocated(InData%PointList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%PointList), ubound(InData%PointList)) + LB(1:1) = lbound(InData%PointList) + UB(1:1) = ubound(InData%PointList) do i1 = LB(1), UB(1) call MD_PackPoint(RF, InData%PointList(i1)) end do end if call RegPack(RF, allocated(InData%LineList)) if (allocated(InData%LineList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%LineList), ubound(InData%LineList)) + LB(1:1) = lbound(InData%LineList) + UB(1:1) = ubound(InData%LineList) do i1 = LB(1), UB(1) call MD_PackLine(RF, InData%LineList(i1)) end do end if call RegPack(RF, allocated(InData%FailList)) if (allocated(InData%FailList)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%FailList), ubound(InData%FailList)) + LB(1:1) = lbound(InData%FailList) + UB(1:1) = ubound(InData%FailList) do i1 = LB(1), UB(1) call MD_PackFail(RF, InData%FailList(i1)) end do @@ -3421,8 +3421,8 @@ subroutine MD_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3553,8 +3553,8 @@ subroutine MD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_CopyParam' @@ -3573,8 +3573,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nCpldBodies, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nCpldBodies) + UB(1:1) = ubound(SrcParamData%nCpldBodies) if (.not. allocated(DstParamData%nCpldBodies)) then allocate(DstParamData%nCpldBodies(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3585,8 +3585,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nCpldRods, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nCpldRods) + UB(1:1) = ubound(SrcParamData%nCpldRods) if (.not. allocated(DstParamData%nCpldRods)) then allocate(DstParamData%nCpldRods(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3597,8 +3597,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%nCpldPoints, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%nCpldPoints) + UB(1:1) = ubound(SrcParamData%nCpldPoints) if (.not. allocated(DstParamData%nCpldPoints)) then allocate(DstParamData%nCpldPoints(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3622,8 +3622,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3646,8 +3646,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%TurbineRefPos, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%TurbineRefPos) + UB(1:2) = ubound(SrcParamData%TurbineRefPos) if (.not. allocated(DstParamData%TurbineRefPos)) then allocate(DstParamData%TurbineRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3668,8 +3668,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%pxWave, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%pxWave) + UB(1:1) = ubound(SrcParamData%pxWave) if (.not. allocated(DstParamData%pxWave)) then allocate(DstParamData%pxWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3680,8 +3680,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%pyWave, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%pyWave) + UB(1:1) = ubound(SrcParamData%pyWave) if (.not. allocated(DstParamData%pyWave)) then allocate(DstParamData%pyWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3692,8 +3692,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%pzWave, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%pzWave) + UB(1:1) = ubound(SrcParamData%pzWave) if (.not. allocated(DstParamData%pzWave)) then allocate(DstParamData%pzWave(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3705,8 +3705,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%uxWave, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%uxWave) + UB(1:4) = ubound(SrcParamData%uxWave) 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 @@ -3717,8 +3717,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%uyWave, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%uyWave) + UB(1:4) = ubound(SrcParamData%uyWave) 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 @@ -3729,8 +3729,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%uzWave, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%uzWave) + UB(1:4) = ubound(SrcParamData%uzWave) 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 @@ -3741,8 +3741,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%axWave, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%axWave) + UB(1:4) = ubound(SrcParamData%axWave) 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 @@ -3753,8 +3753,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%ayWave, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%ayWave) + UB(1:4) = ubound(SrcParamData%ayWave) 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 @@ -3765,8 +3765,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%azWave, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%azWave) + UB(1:4) = ubound(SrcParamData%azWave) 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 @@ -3777,8 +3777,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, kind=B8Ki) - UB(1:4) = ubound(SrcParamData%PDyn, kind=B8Ki) + LB(1:4) = lbound(SrcParamData%PDyn) + UB(1:4) = ubound(SrcParamData%PDyn) 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 @@ -3789,8 +3789,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%zeta, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%zeta) + UB(1:3) = ubound(SrcParamData%zeta) 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 @@ -3802,8 +3802,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%pzCurrent, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%pzCurrent) + UB(1:1) = ubound(SrcParamData%pzCurrent) if (.not. allocated(DstParamData%pzCurrent)) then allocate(DstParamData%pzCurrent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3814,8 +3814,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%uxCurrent, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%uxCurrent) + UB(1:1) = ubound(SrcParamData%uxCurrent) if (.not. allocated(DstParamData%uxCurrent)) then allocate(DstParamData%uxCurrent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3826,8 +3826,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%uyCurrent, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%uyCurrent) + UB(1:1) = ubound(SrcParamData%uyCurrent) if (.not. allocated(DstParamData%uyCurrent)) then allocate(DstParamData%uyCurrent(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3839,8 +3839,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_u_indx) + UB(1:2) = ubound(SrcParamData%Jac_u_indx) 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 @@ -3851,8 +3851,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%du) + UB(1:1) = ubound(SrcParamData%du) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3863,8 +3863,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dx) + UB(1:1) = ubound(SrcParamData%dx) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3877,8 +3877,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dxIdx_map2_xStateIdx, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dxIdx_map2_xStateIdx) + UB(1:1) = ubound(SrcParamData%dxIdx_map2_xStateIdx) if (.not. allocated(DstParamData%dxIdx_map2_xStateIdx)) then allocate(DstParamData%dxIdx_map2_xStateIdx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3890,8 +3890,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%VisRodsDiam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%VisRodsDiam) + UB(1:1) = ubound(SrcParamData%VisRodsDiam) if (.not. allocated(DstParamData%VisRodsDiam)) then allocate(DstParamData%VisRodsDiam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3911,8 +3911,8 @@ subroutine MD_DestroyParam(ParamData, ErrStat, ErrMsg) type(MD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'MD_DestroyParam' @@ -3928,8 +3928,8 @@ subroutine MD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%nCpldPoints) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call MD_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3994,8 +3994,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%VisRodsDiam, kind=B8Ki) + LB(1:1) = lbound(ParamData%VisRodsDiam) + UB(1:1) = ubound(ParamData%VisRodsDiam) do i1 = LB(1), UB(1) call MD_DestroyVisDiam(ParamData%VisRodsDiam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4008,8 +4008,8 @@ subroutine MD_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(MD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackParam' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%nLineTypes) call RegPack(RF, InData%nRodTypes) @@ -4041,9 +4041,9 @@ subroutine MD_PackParam(RF, Indata) call RegPack(RF, InData%RootName) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call MD_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -4093,9 +4093,9 @@ subroutine MD_PackParam(RF, Indata) call RegPack(RF, InData%VisMeshes) call RegPack(RF, allocated(InData%VisRodsDiam)) if (allocated(InData%VisRodsDiam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VisRodsDiam), ubound(InData%VisRodsDiam)) + LB(1:1) = lbound(InData%VisRodsDiam) + UB(1:1) = ubound(InData%VisRodsDiam) do i1 = LB(1), UB(1) call MD_PackVisDiam(RF, InData%VisRodsDiam(i1)) end do @@ -4107,8 +4107,8 @@ subroutine MD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackParam' - integer(B8Ki) :: i1, i2, i3, i4 - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: i1, i2, i3, i4 + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4217,16 +4217,16 @@ subroutine MD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%CoupledKinematics, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%CoupledKinematics) + UB(1:1) = ubound(SrcInputData%CoupledKinematics) if (.not. allocated(DstInputData%CoupledKinematics)) then allocate(DstInputData%CoupledKinematics(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4241,8 +4241,8 @@ subroutine MD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%DeltaL)) then - LB(1:1) = lbound(SrcInputData%DeltaL, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%DeltaL, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%DeltaL) + UB(1:1) = ubound(SrcInputData%DeltaL) if (.not. allocated(DstInputData%DeltaL)) then allocate(DstInputData%DeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4253,8 +4253,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%DeltaLdot, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%DeltaLdot) + UB(1:1) = ubound(SrcInputData%DeltaLdot) if (.not. allocated(DstInputData%DeltaLdot)) then allocate(DstInputData%DeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4270,16 +4270,16 @@ subroutine MD_DestroyInput(InputData, ErrStat, ErrMsg) type(MD_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InputData%CoupledKinematics, kind=B8Ki) + LB(1:1) = lbound(InputData%CoupledKinematics) + UB(1:1) = ubound(InputData%CoupledKinematics) do i1 = LB(1), UB(1) call MeshDestroy( InputData%CoupledKinematics(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4298,14 +4298,14 @@ subroutine MD_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(MD_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%CoupledKinematics)) if (allocated(InData%CoupledKinematics)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%CoupledKinematics), ubound(InData%CoupledKinematics)) + LB(1:1) = lbound(InData%CoupledKinematics) + UB(1:1) = ubound(InData%CoupledKinematics) do i1 = LB(1), UB(1) call MeshPack(RF, InData%CoupledKinematics(i1)) end do @@ -4319,8 +4319,8 @@ subroutine MD_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackInput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4347,16 +4347,16 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%CoupledLoads, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%CoupledLoads) + UB(1:1) = ubound(SrcOutputData%CoupledLoads) if (.not. allocated(DstOutputData%CoupledLoads)) then allocate(DstOutputData%CoupledLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4371,8 +4371,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4383,8 +4383,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%VisLinesMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%VisLinesMesh) + UB(1:1) = ubound(SrcOutputData%VisLinesMesh) if (.not. allocated(DstOutputData%VisLinesMesh)) then allocate(DstOutputData%VisLinesMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4399,8 +4399,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%VisRodsMesh)) then - LB(1:1) = lbound(SrcOutputData%VisRodsMesh, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%VisRodsMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%VisRodsMesh) + UB(1:1) = ubound(SrcOutputData%VisRodsMesh) if (.not. allocated(DstOutputData%VisRodsMesh)) then allocate(DstOutputData%VisRodsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4415,8 +4415,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%VisBodiesMesh)) then - LB(1:1) = lbound(SrcOutputData%VisBodiesMesh, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%VisBodiesMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%VisBodiesMesh) + UB(1:1) = ubound(SrcOutputData%VisBodiesMesh) if (.not. allocated(DstOutputData%VisBodiesMesh)) then allocate(DstOutputData%VisBodiesMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4431,8 +4431,8 @@ subroutine MD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg end do end if if (allocated(SrcOutputData%VisAnchsMesh)) then - LB(1:1) = lbound(SrcOutputData%VisAnchsMesh, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%VisAnchsMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%VisAnchsMesh) + UB(1:1) = ubound(SrcOutputData%VisAnchsMesh) if (.not. allocated(DstOutputData%VisAnchsMesh)) then allocate(DstOutputData%VisAnchsMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4452,16 +4452,16 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) type(MD_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%CoupledLoads, kind=B8Ki) + LB(1:1) = lbound(OutputData%CoupledLoads) + UB(1:1) = ubound(OutputData%CoupledLoads) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%CoupledLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4472,8 +4472,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%WriteOutput) end if if (allocated(OutputData%VisLinesMesh)) then - LB(1:1) = lbound(OutputData%VisLinesMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%VisLinesMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%VisLinesMesh) + UB(1:1) = ubound(OutputData%VisLinesMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisLinesMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4481,8 +4481,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%VisLinesMesh) end if if (allocated(OutputData%VisRodsMesh)) then - LB(1:1) = lbound(OutputData%VisRodsMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%VisRodsMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%VisRodsMesh) + UB(1:1) = ubound(OutputData%VisRodsMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisRodsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4490,8 +4490,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%VisRodsMesh) end if if (allocated(OutputData%VisBodiesMesh)) then - LB(1:1) = lbound(OutputData%VisBodiesMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%VisBodiesMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%VisBodiesMesh) + UB(1:1) = ubound(OutputData%VisBodiesMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisBodiesMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4499,8 +4499,8 @@ subroutine MD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%VisBodiesMesh) end if if (allocated(OutputData%VisAnchsMesh)) then - LB(1:1) = lbound(OutputData%VisAnchsMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%VisAnchsMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%VisAnchsMesh) + UB(1:1) = ubound(OutputData%VisAnchsMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%VisAnchsMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4513,14 +4513,14 @@ subroutine MD_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(MD_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'MD_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%CoupledLoads)) if (allocated(InData%CoupledLoads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%CoupledLoads), ubound(InData%CoupledLoads)) + LB(1:1) = lbound(InData%CoupledLoads) + UB(1:1) = ubound(InData%CoupledLoads) do i1 = LB(1), UB(1) call MeshPack(RF, InData%CoupledLoads(i1)) end do @@ -4528,36 +4528,36 @@ subroutine MD_PackOutput(RF, Indata) call RegPackAlloc(RF, InData%WriteOutput) call RegPack(RF, allocated(InData%VisLinesMesh)) if (allocated(InData%VisLinesMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VisLinesMesh), ubound(InData%VisLinesMesh)) + LB(1:1) = lbound(InData%VisLinesMesh) + UB(1:1) = ubound(InData%VisLinesMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%VisLinesMesh(i1)) end do end if call RegPack(RF, allocated(InData%VisRodsMesh)) if (allocated(InData%VisRodsMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VisRodsMesh), ubound(InData%VisRodsMesh)) + LB(1:1) = lbound(InData%VisRodsMesh) + UB(1:1) = ubound(InData%VisRodsMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%VisRodsMesh(i1)) end do end if call RegPack(RF, allocated(InData%VisBodiesMesh)) if (allocated(InData%VisBodiesMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VisBodiesMesh), ubound(InData%VisBodiesMesh)) + LB(1:1) = lbound(InData%VisBodiesMesh) + UB(1:1) = ubound(InData%VisBodiesMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%VisBodiesMesh(i1)) end do end if call RegPack(RF, allocated(InData%VisAnchsMesh)) if (allocated(InData%VisAnchsMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%VisAnchsMesh), ubound(InData%VisAnchsMesh)) + LB(1:1) = lbound(InData%VisAnchsMesh) + UB(1:1) = ubound(InData%VisAnchsMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%VisAnchsMesh(i1)) end do @@ -4569,8 +4569,8 @@ subroutine MD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(MD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'MD_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4740,7 +4740,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, kind=B8Ki),UBOUND(u_out%CoupledKinematics,1, kind=B8Ki) + do i1 = lbound(u_out%CoupledKinematics,1),ubound(u_out%CoupledKinematics,1) 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 @@ -4809,7 +4809,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, kind=B8Ki),UBOUND(u_out%CoupledKinematics,1, kind=B8Ki) + do i1 = lbound(u_out%CoupledKinematics,1),ubound(u_out%CoupledKinematics,1) 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 @@ -4920,7 +4920,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, kind=B8Ki),UBOUND(y_out%CoupledLoads,1, kind=B8Ki) + do i1 = lbound(y_out%CoupledLoads,1),ubound(y_out%CoupledLoads,1) 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 @@ -4929,25 +4929,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, kind=B8Ki),UBOUND(y_out%VisLinesMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisLinesMesh,1),ubound(y_out%VisLinesMesh,1) 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, kind=B8Ki),UBOUND(y_out%VisRodsMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisRodsMesh,1),ubound(y_out%VisRodsMesh,1) 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, kind=B8Ki),UBOUND(y_out%VisBodiesMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisBodiesMesh,1),ubound(y_out%VisBodiesMesh,1) 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, kind=B8Ki),UBOUND(y_out%VisAnchsMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisAnchsMesh,1),ubound(y_out%VisAnchsMesh,1) 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 @@ -5010,7 +5010,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, kind=B8Ki),UBOUND(y_out%CoupledLoads,1, kind=B8Ki) + do i1 = lbound(y_out%CoupledLoads,1),ubound(y_out%CoupledLoads,1) 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 @@ -5019,25 +5019,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, kind=B8Ki),UBOUND(y_out%VisLinesMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisLinesMesh,1),ubound(y_out%VisLinesMesh,1) 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, kind=B8Ki),UBOUND(y_out%VisRodsMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisRodsMesh,1),ubound(y_out%VisRodsMesh,1) 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, kind=B8Ki),UBOUND(y_out%VisBodiesMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisBodiesMesh,1),ubound(y_out%VisBodiesMesh,1) 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, kind=B8Ki),UBOUND(y_out%VisAnchsMesh,1, kind=B8Ki) + do i1 = lbound(y_out%VisAnchsMesh,1),ubound(y_out%VisAnchsMesh,1) 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/ModRegGen.py b/modules/nwtc-library/ModRegGen.py index b7a9811cca..7ab8753a63 100644 --- a/modules/nwtc-library/ModRegGen.py +++ b/modules/nwtc-library/ModRegGen.py @@ -273,7 +273,7 @@ subroutine RegPackBounds(RF, R, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), intent(in) :: R - integer(B8Ki), intent(in) :: LB(:), UB(:) + integer(B4Ki), intent(in) :: LB(:), UB(:) ! If has an error, return if (RF%ErrStat /= ErrID_None) return @@ -287,7 +287,7 @@ subroutine RegUnpackBounds(RF, R, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), intent(in) :: R - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) ! If has an error, return if (RF%ErrStat /= ErrID_None) return @@ -377,7 +377,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(RF, {rank}, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki))') + w.write(f'\n call RegPackBounds(RF, {rank}, lbound(Data), ubound(Data))') w.write(f'\n') w.write(f'\n ! Write data to file') w.write(f'\n call RegPack(RF, Data)') @@ -395,7 +395,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(B8Ki) :: LB({rank}), UB({rank})') + w.write(f'\n integer(B4Ki) :: LB({rank}), UB({rank})') w.write(f'\n') w.write(f'\n ! If error, return') w.write(f'\n if (RF%ErrStat /= ErrID_None) return') @@ -449,7 +449,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(RF, {rank}, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki))') + w.write(f'\n call RegPackBounds(RF, {rank}, lbound(Data), ubound(Data))') w.write(f'\n') w.write(f'\n ! Write pointer info') w.write(f'\n call RegPackPointer(RF, c_loc(Data), PtrInIndex)') @@ -473,7 +473,7 @@ def gen_unpack_ptr(w, dt, decl, rank): w.write(f'\n type(RegFile), intent(inout) :: RF') w.write(f'\n {decl+", pointer, intent(out)":<36s} :: Data{dims}') if rank > 0: - w.write(f'\n integer(B8Ki), intent(out) :: LB(:), UB(:)') + w.write(f'\n integer(B4Ki), intent(out) :: LB(:), UB(:)') w.write(f'\n integer(IntKi) :: stat') w.write(f'\n integer(B8Ki) :: PtrIdx') w.write(f'\n logical :: IsAssociated') diff --git a/modules/nwtc-library/src/ModReg.f90 b/modules/nwtc-library/src/ModReg.f90 index ea398d46c3..48c664fe7d 100644 --- a/modules/nwtc-library/src/ModReg.f90 +++ b/modules/nwtc-library/src/ModReg.f90 @@ -340,7 +340,7 @@ subroutine RegUnpackPointer(RF, Ptr, Idx) subroutine RegPackBounds(RF, R, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), intent(in) :: R - integer(B8Ki), intent(in) :: LB(:), UB(:) + integer(B4Ki), intent(in) :: LB(:), UB(:) ! If has an error, return if (RF%ErrStat /= ErrID_None) return @@ -354,7 +354,7 @@ subroutine RegPackBounds(RF, R, LB, UB) subroutine RegUnpackBounds(RF, R, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), intent(in) :: R - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) ! If has an error, return if (RF%ErrStat /= ErrID_None) return @@ -576,7 +576,7 @@ subroutine PackAlloc_C1_Rank1(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -588,7 +588,7 @@ subroutine UnpackAlloc_C1_Rank1(RF, Data) character(*), allocatable, intent(out) :: Data(:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -632,7 +632,7 @@ subroutine PackPtr_C1_Rank1(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -647,7 +647,7 @@ subroutine PackPtr_C1_Rank1(RF, Data) subroutine UnpackPtr_C1_Rank1(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF character(*), pointer, intent(out) :: Data(:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -737,7 +737,7 @@ subroutine PackAlloc_C1_Rank2(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -749,7 +749,7 @@ subroutine UnpackAlloc_C1_Rank2(RF, Data) character(*), allocatable, intent(out) :: Data(:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -793,7 +793,7 @@ subroutine PackPtr_C1_Rank2(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -808,7 +808,7 @@ subroutine PackPtr_C1_Rank2(RF, Data) subroutine UnpackPtr_C1_Rank2(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF character(*), pointer, intent(out) :: Data(:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -898,7 +898,7 @@ subroutine PackAlloc_C1_Rank3(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -910,7 +910,7 @@ subroutine UnpackAlloc_C1_Rank3(RF, Data) character(*), allocatable, intent(out) :: Data(:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -954,7 +954,7 @@ subroutine PackPtr_C1_Rank3(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -969,7 +969,7 @@ subroutine PackPtr_C1_Rank3(RF, Data) subroutine UnpackPtr_C1_Rank3(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF character(*), pointer, intent(out) :: Data(:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -1059,7 +1059,7 @@ subroutine PackAlloc_C1_Rank4(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -1071,7 +1071,7 @@ subroutine UnpackAlloc_C1_Rank4(RF, Data) character(*), allocatable, intent(out) :: Data(:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -1115,7 +1115,7 @@ subroutine PackPtr_C1_Rank4(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -1130,7 +1130,7 @@ subroutine PackPtr_C1_Rank4(RF, Data) subroutine UnpackPtr_C1_Rank4(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF character(*), pointer, intent(out) :: Data(:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -1220,7 +1220,7 @@ subroutine PackAlloc_C1_Rank5(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -1232,7 +1232,7 @@ subroutine UnpackAlloc_C1_Rank5(RF, Data) character(*), allocatable, intent(out) :: Data(:,:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -1276,7 +1276,7 @@ subroutine PackPtr_C1_Rank5(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -1291,7 +1291,7 @@ subroutine PackPtr_C1_Rank5(RF, Data) subroutine UnpackPtr_C1_Rank5(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF character(*), pointer, intent(out) :: Data(:,:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -1527,7 +1527,7 @@ subroutine PackAlloc_L1_Rank1(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -1539,7 +1539,7 @@ subroutine UnpackAlloc_L1_Rank1(RF, Data) logical, allocatable, intent(out) :: Data(:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -1583,7 +1583,7 @@ subroutine PackPtr_L1_Rank1(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -1598,7 +1598,7 @@ subroutine PackPtr_L1_Rank1(RF, Data) subroutine UnpackPtr_L1_Rank1(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF logical, pointer, intent(out) :: Data(:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -1688,7 +1688,7 @@ subroutine PackAlloc_L1_Rank2(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -1700,7 +1700,7 @@ subroutine UnpackAlloc_L1_Rank2(RF, Data) logical, allocatable, intent(out) :: Data(:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -1744,7 +1744,7 @@ subroutine PackPtr_L1_Rank2(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -1759,7 +1759,7 @@ subroutine PackPtr_L1_Rank2(RF, Data) subroutine UnpackPtr_L1_Rank2(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF logical, pointer, intent(out) :: Data(:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -1849,7 +1849,7 @@ subroutine PackAlloc_L1_Rank3(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -1861,7 +1861,7 @@ subroutine UnpackAlloc_L1_Rank3(RF, Data) logical, allocatable, intent(out) :: Data(:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -1905,7 +1905,7 @@ subroutine PackPtr_L1_Rank3(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -1920,7 +1920,7 @@ subroutine PackPtr_L1_Rank3(RF, Data) subroutine UnpackPtr_L1_Rank3(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF logical, pointer, intent(out) :: Data(:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -2010,7 +2010,7 @@ subroutine PackAlloc_L1_Rank4(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -2022,7 +2022,7 @@ subroutine UnpackAlloc_L1_Rank4(RF, Data) logical, allocatable, intent(out) :: Data(:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -2066,7 +2066,7 @@ subroutine PackPtr_L1_Rank4(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -2081,7 +2081,7 @@ subroutine PackPtr_L1_Rank4(RF, Data) subroutine UnpackPtr_L1_Rank4(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF logical, pointer, intent(out) :: Data(:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -2171,7 +2171,7 @@ subroutine PackAlloc_L1_Rank5(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -2183,7 +2183,7 @@ subroutine UnpackAlloc_L1_Rank5(RF, Data) logical, allocatable, intent(out) :: Data(:,:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -2227,7 +2227,7 @@ subroutine PackPtr_L1_Rank5(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -2242,7 +2242,7 @@ subroutine PackPtr_L1_Rank5(RF, Data) subroutine UnpackPtr_L1_Rank5(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF logical, pointer, intent(out) :: Data(:,:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -2478,7 +2478,7 @@ subroutine PackAlloc_I4_Rank1(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -2490,7 +2490,7 @@ subroutine UnpackAlloc_I4_Rank1(RF, Data) integer(B4Ki), allocatable, intent(out) :: Data(:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -2534,7 +2534,7 @@ subroutine PackPtr_I4_Rank1(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -2549,7 +2549,7 @@ subroutine PackPtr_I4_Rank1(RF, Data) subroutine UnpackPtr_I4_Rank1(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), pointer, intent(out) :: Data(:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -2639,7 +2639,7 @@ subroutine PackAlloc_I4_Rank2(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -2651,7 +2651,7 @@ subroutine UnpackAlloc_I4_Rank2(RF, Data) integer(B4Ki), allocatable, intent(out) :: Data(:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -2695,7 +2695,7 @@ subroutine PackPtr_I4_Rank2(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -2710,7 +2710,7 @@ subroutine PackPtr_I4_Rank2(RF, Data) subroutine UnpackPtr_I4_Rank2(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), pointer, intent(out) :: Data(:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -2800,7 +2800,7 @@ subroutine PackAlloc_I4_Rank3(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -2812,7 +2812,7 @@ subroutine UnpackAlloc_I4_Rank3(RF, Data) integer(B4Ki), allocatable, intent(out) :: Data(:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -2856,7 +2856,7 @@ subroutine PackPtr_I4_Rank3(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -2871,7 +2871,7 @@ subroutine PackPtr_I4_Rank3(RF, Data) subroutine UnpackPtr_I4_Rank3(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), pointer, intent(out) :: Data(:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -2961,7 +2961,7 @@ subroutine PackAlloc_I4_Rank4(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -2973,7 +2973,7 @@ subroutine UnpackAlloc_I4_Rank4(RF, Data) integer(B4Ki), allocatable, intent(out) :: Data(:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -3017,7 +3017,7 @@ subroutine PackPtr_I4_Rank4(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -3032,7 +3032,7 @@ subroutine PackPtr_I4_Rank4(RF, Data) subroutine UnpackPtr_I4_Rank4(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), pointer, intent(out) :: Data(:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -3122,7 +3122,7 @@ subroutine PackAlloc_I4_Rank5(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -3134,7 +3134,7 @@ subroutine UnpackAlloc_I4_Rank5(RF, Data) integer(B4Ki), allocatable, intent(out) :: Data(:,:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -3178,7 +3178,7 @@ subroutine PackPtr_I4_Rank5(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -3193,7 +3193,7 @@ subroutine PackPtr_I4_Rank5(RF, Data) subroutine UnpackPtr_I4_Rank5(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B4Ki), pointer, intent(out) :: Data(:,:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -3429,7 +3429,7 @@ subroutine PackAlloc_I8_Rank1(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -3441,7 +3441,7 @@ subroutine UnpackAlloc_I8_Rank1(RF, Data) integer(B8Ki), allocatable, intent(out) :: Data(:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -3485,7 +3485,7 @@ subroutine PackPtr_I8_Rank1(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -3500,7 +3500,7 @@ subroutine PackPtr_I8_Rank1(RF, Data) subroutine UnpackPtr_I8_Rank1(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B8Ki), pointer, intent(out) :: Data(:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -3590,7 +3590,7 @@ subroutine PackAlloc_I8_Rank2(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -3602,7 +3602,7 @@ subroutine UnpackAlloc_I8_Rank2(RF, Data) integer(B8Ki), allocatable, intent(out) :: Data(:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -3646,7 +3646,7 @@ subroutine PackPtr_I8_Rank2(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -3661,7 +3661,7 @@ subroutine PackPtr_I8_Rank2(RF, Data) subroutine UnpackPtr_I8_Rank2(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B8Ki), pointer, intent(out) :: Data(:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -3751,7 +3751,7 @@ subroutine PackAlloc_I8_Rank3(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -3763,7 +3763,7 @@ subroutine UnpackAlloc_I8_Rank3(RF, Data) integer(B8Ki), allocatable, intent(out) :: Data(:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -3807,7 +3807,7 @@ subroutine PackPtr_I8_Rank3(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -3822,7 +3822,7 @@ subroutine PackPtr_I8_Rank3(RF, Data) subroutine UnpackPtr_I8_Rank3(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B8Ki), pointer, intent(out) :: Data(:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -3912,7 +3912,7 @@ subroutine PackAlloc_I8_Rank4(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -3924,7 +3924,7 @@ subroutine UnpackAlloc_I8_Rank4(RF, Data) integer(B8Ki), allocatable, intent(out) :: Data(:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -3968,7 +3968,7 @@ subroutine PackPtr_I8_Rank4(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -3983,7 +3983,7 @@ subroutine PackPtr_I8_Rank4(RF, Data) subroutine UnpackPtr_I8_Rank4(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B8Ki), pointer, intent(out) :: Data(:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -4073,7 +4073,7 @@ subroutine PackAlloc_I8_Rank5(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -4085,7 +4085,7 @@ subroutine UnpackAlloc_I8_Rank5(RF, Data) integer(B8Ki), allocatable, intent(out) :: Data(:,:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -4129,7 +4129,7 @@ subroutine PackPtr_I8_Rank5(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -4144,7 +4144,7 @@ subroutine PackPtr_I8_Rank5(RF, Data) subroutine UnpackPtr_I8_Rank5(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF integer(B8Ki), pointer, intent(out) :: Data(:,:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -4380,7 +4380,7 @@ subroutine PackAlloc_R4_Rank1(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -4392,7 +4392,7 @@ subroutine UnpackAlloc_R4_Rank1(RF, Data) real(R4Ki), allocatable, intent(out) :: Data(:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -4436,7 +4436,7 @@ subroutine PackPtr_R4_Rank1(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -4451,7 +4451,7 @@ subroutine PackPtr_R4_Rank1(RF, Data) subroutine UnpackPtr_R4_Rank1(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R4Ki), pointer, intent(out) :: Data(:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -4541,7 +4541,7 @@ subroutine PackAlloc_R4_Rank2(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -4553,7 +4553,7 @@ subroutine UnpackAlloc_R4_Rank2(RF, Data) real(R4Ki), allocatable, intent(out) :: Data(:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -4597,7 +4597,7 @@ subroutine PackPtr_R4_Rank2(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -4612,7 +4612,7 @@ subroutine PackPtr_R4_Rank2(RF, Data) subroutine UnpackPtr_R4_Rank2(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R4Ki), pointer, intent(out) :: Data(:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -4702,7 +4702,7 @@ subroutine PackAlloc_R4_Rank3(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -4714,7 +4714,7 @@ subroutine UnpackAlloc_R4_Rank3(RF, Data) real(R4Ki), allocatable, intent(out) :: Data(:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -4758,7 +4758,7 @@ subroutine PackPtr_R4_Rank3(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -4773,7 +4773,7 @@ subroutine PackPtr_R4_Rank3(RF, Data) subroutine UnpackPtr_R4_Rank3(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R4Ki), pointer, intent(out) :: Data(:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -4863,7 +4863,7 @@ subroutine PackAlloc_R4_Rank4(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -4875,7 +4875,7 @@ subroutine UnpackAlloc_R4_Rank4(RF, Data) real(R4Ki), allocatable, intent(out) :: Data(:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -4919,7 +4919,7 @@ subroutine PackPtr_R4_Rank4(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -4934,7 +4934,7 @@ subroutine PackPtr_R4_Rank4(RF, Data) subroutine UnpackPtr_R4_Rank4(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R4Ki), pointer, intent(out) :: Data(:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -5024,7 +5024,7 @@ subroutine PackAlloc_R4_Rank5(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -5036,7 +5036,7 @@ subroutine UnpackAlloc_R4_Rank5(RF, Data) real(R4Ki), allocatable, intent(out) :: Data(:,:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -5080,7 +5080,7 @@ subroutine PackPtr_R4_Rank5(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -5095,7 +5095,7 @@ subroutine PackPtr_R4_Rank5(RF, Data) subroutine UnpackPtr_R4_Rank5(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R4Ki), pointer, intent(out) :: Data(:,:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -5331,7 +5331,7 @@ subroutine PackAlloc_R8_Rank1(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -5343,7 +5343,7 @@ subroutine UnpackAlloc_R8_Rank1(RF, Data) real(R8Ki), allocatable, intent(out) :: Data(:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -5387,7 +5387,7 @@ subroutine PackPtr_R8_Rank1(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 1, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 1, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -5402,7 +5402,7 @@ subroutine PackPtr_R8_Rank1(RF, Data) subroutine UnpackPtr_R8_Rank1(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R8Ki), pointer, intent(out) :: Data(:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -5492,7 +5492,7 @@ subroutine PackAlloc_R8_Rank2(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -5504,7 +5504,7 @@ subroutine UnpackAlloc_R8_Rank2(RF, Data) real(R8Ki), allocatable, intent(out) :: Data(:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -5548,7 +5548,7 @@ subroutine PackPtr_R8_Rank2(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 2, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 2, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -5563,7 +5563,7 @@ subroutine PackPtr_R8_Rank2(RF, Data) subroutine UnpackPtr_R8_Rank2(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R8Ki), pointer, intent(out) :: Data(:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -5653,7 +5653,7 @@ subroutine PackAlloc_R8_Rank3(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -5665,7 +5665,7 @@ subroutine UnpackAlloc_R8_Rank3(RF, Data) real(R8Ki), allocatable, intent(out) :: Data(:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -5709,7 +5709,7 @@ subroutine PackPtr_R8_Rank3(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 3, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 3, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -5724,7 +5724,7 @@ subroutine PackPtr_R8_Rank3(RF, Data) subroutine UnpackPtr_R8_Rank3(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R8Ki), pointer, intent(out) :: Data(:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -5814,7 +5814,7 @@ subroutine PackAlloc_R8_Rank4(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -5826,7 +5826,7 @@ subroutine UnpackAlloc_R8_Rank4(RF, Data) real(R8Ki), allocatable, intent(out) :: Data(:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -5870,7 +5870,7 @@ subroutine PackPtr_R8_Rank4(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 4, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 4, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -5885,7 +5885,7 @@ subroutine PackPtr_R8_Rank4(RF, Data) subroutine UnpackPtr_R8_Rank4(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R8Ki), pointer, intent(out) :: Data(:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated @@ -5975,7 +5975,7 @@ subroutine PackAlloc_R8_Rank5(RF, Data) if (.not. allocated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write data to file call RegPack(RF, Data) @@ -5987,7 +5987,7 @@ subroutine UnpackAlloc_R8_Rank5(RF, Data) real(R8Ki), allocatable, intent(out) :: Data(:,:,:,:,:) integer(IntKi) :: stat logical :: IsAllocated - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) ! If error, return if (RF%ErrStat /= ErrID_None) return @@ -6031,7 +6031,7 @@ subroutine PackPtr_R8_Rank5(RF, Data) if (.not. associated(Data)) return ! Write array bounds - call RegPackBounds(RF, 5, lbound(Data, kind=B8Ki), ubound(Data, kind=B8Ki)) + call RegPackBounds(RF, 5, lbound(Data), ubound(Data)) ! Write pointer info call RegPackPointer(RF, c_loc(Data), PtrInIndex) @@ -6046,7 +6046,7 @@ subroutine PackPtr_R8_Rank5(RF, Data) subroutine UnpackPtr_R8_Rank5(RF, Data, LB, UB) type(RegFile), intent(inout) :: RF real(R8Ki), pointer, intent(out) :: Data(:,:,:,:,:) - integer(B8Ki), intent(out) :: LB(:), UB(:) + integer(B4Ki), intent(out) :: LB(:), UB(:) integer(IntKi) :: stat integer(B8Ki) :: PtrIdx logical :: IsAssociated diff --git a/modules/nwtc-library/src/NWTC_Library_IncSubs.f90 b/modules/nwtc-library/src/NWTC_Library_IncSubs.f90 index 911e63e131..b289850916 100644 --- a/modules/nwtc-library/src/NWTC_Library_IncSubs.f90 +++ b/modules/nwtc-library/src/NWTC_Library_IncSubs.f90 @@ -58,14 +58,14 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyMeshMapLinearizationType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMeshMapLinearizationTypeData%mi)) then - LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%mi, kind=B8Ki) - UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%mi, kind=B8Ki) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%mi) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%mi) if (.not. allocated(DstMeshMapLinearizationTypeData%mi)) then allocate(DstMeshMapLinearizationTypeData%mi(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -76,8 +76,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%fx_p) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%fx_p) 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 @@ -88,8 +88,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%tv_uD) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%tv_uD) 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 @@ -100,8 +100,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%tv_uS) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%tv_uS) 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 @@ -112,8 +112,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%ta_uD) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%ta_uD) 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 @@ -124,8 +124,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%ta_uS) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%ta_uS) 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 @@ -136,8 +136,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%ta_rv) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%ta_rv) 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 @@ -148,8 +148,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%li) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%li) if (.not. allocated(DstMeshMapLinearizationTypeData%li)) then allocate(DstMeshMapLinearizationTypeData%li(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -160,8 +160,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%M_uS) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%M_uS) 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 @@ -172,8 +172,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%M_uD) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%M_uD) 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 @@ -184,8 +184,8 @@ subroutine NWTC_Library_CopyMeshMapLinearizationType(SrcMeshMapLinearizationType 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) + LB(1:2) = lbound(SrcMeshMapLinearizationTypeData%M_f) + UB(1:2) = ubound(SrcMeshMapLinearizationTypeData%M_f) 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 @@ -262,7 +262,7 @@ subroutine NWTC_Library_UnPackMeshMapLinearizationType(RF, OutData) type(RegFile), intent(inout) :: RF type(MeshMapLinearizationType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackMeshMapLinearizationType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -285,16 +285,16 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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 - LB(1:1) = lbound(SrcMeshMapTypeData%MapLoads, kind=B8Ki) - UB(1:1) = ubound(SrcMeshMapTypeData%MapLoads, kind=B8Ki) + LB(1:1) = lbound(SrcMeshMapTypeData%MapLoads) + UB(1:1) = ubound(SrcMeshMapTypeData%MapLoads) if (.not. allocated(DstMeshMapTypeData%MapLoads)) then allocate(DstMeshMapTypeData%MapLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -309,8 +309,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:1) = lbound(SrcMeshMapTypeData%MapMotions) + UB(1:1) = ubound(SrcMeshMapTypeData%MapMotions) if (.not. allocated(DstMeshMapTypeData%MapMotions)) then allocate(DstMeshMapTypeData%MapMotions(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -325,8 +325,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:1) = lbound(SrcMeshMapTypeData%MapSrcToAugmt) + UB(1:1) = ubound(SrcMeshMapTypeData%MapSrcToAugmt) if (.not. allocated(DstMeshMapTypeData%MapSrcToAugmt)) then allocate(DstMeshMapTypeData%MapSrcToAugmt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -347,8 +347,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:1) = lbound(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv) + UB(1:1) = ubound(SrcMeshMapTypeData%LoadLn2_A_Mat_Piv) 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 @@ -359,8 +359,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:3) = lbound(SrcMeshMapTypeData%DisplacedPosition) + UB(1:3) = ubound(SrcMeshMapTypeData%DisplacedPosition) 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 @@ -371,8 +371,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:2) = lbound(SrcMeshMapTypeData%LoadLn2_A_Mat) + UB(1:2) = ubound(SrcMeshMapTypeData%LoadLn2_A_Mat) 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 @@ -383,8 +383,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:2) = lbound(SrcMeshMapTypeData%LoadLn2_F) + UB(1:2) = ubound(SrcMeshMapTypeData%LoadLn2_F) 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 @@ -395,8 +395,8 @@ subroutine NWTC_Library_CopyMeshMapType(SrcMeshMapTypeData, DstMeshMapTypeData, 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) + LB(1:2) = lbound(SrcMeshMapTypeData%LoadLn2_M) + UB(1:2) = ubound(SrcMeshMapTypeData%LoadLn2_M) 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 @@ -415,16 +415,16 @@ 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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) + LB(1:1) = lbound(MeshMapTypeData%MapLoads) + UB(1:1) = ubound(MeshMapTypeData%MapLoads) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMapType(MeshMapTypeData%MapLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -432,8 +432,8 @@ subroutine NWTC_Library_DestroyMeshMapType(MeshMapTypeData, ErrStat, ErrMsg) 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) + LB(1:1) = lbound(MeshMapTypeData%MapMotions) + UB(1:1) = ubound(MeshMapTypeData%MapMotions) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMapType(MeshMapTypeData%MapMotions(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -441,8 +441,8 @@ subroutine NWTC_Library_DestroyMeshMapType(MeshMapTypeData, ErrStat, ErrMsg) 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) + LB(1:1) = lbound(MeshMapTypeData%MapSrcToAugmt) + UB(1:1) = ubound(MeshMapTypeData%MapSrcToAugmt) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMapType(MeshMapTypeData%MapSrcToAugmt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -476,32 +476,32 @@ subroutine NWTC_Library_PackMeshMapType(RF, Indata) type(RegFile), intent(inout) :: RF type(MeshMapType), intent(in) :: InData character(*), parameter :: RoutineName = 'NWTC_Library_PackMeshMapType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%MapLoads)) if (allocated(InData%MapLoads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MapLoads), ubound(InData%MapLoads)) + LB(1:1) = lbound(InData%MapLoads) + UB(1:1) = ubound(InData%MapLoads) do i1 = LB(1), UB(1) call NWTC_Library_PackMapType(RF, InData%MapLoads(i1)) end do end if call RegPack(RF, allocated(InData%MapMotions)) if (allocated(InData%MapMotions)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MapMotions), ubound(InData%MapMotions)) + LB(1:1) = lbound(InData%MapMotions) + UB(1:1) = ubound(InData%MapMotions) do i1 = LB(1), UB(1) call NWTC_Library_PackMapType(RF, InData%MapMotions(i1)) end do end if call RegPack(RF, allocated(InData%MapSrcToAugmt)) if (allocated(InData%MapSrcToAugmt)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MapSrcToAugmt), ubound(InData%MapSrcToAugmt)) + LB(1:1) = lbound(InData%MapSrcToAugmt) + UB(1:1) = ubound(InData%MapSrcToAugmt) do i1 = LB(1), UB(1) call NWTC_Library_PackMapType(RF, InData%MapSrcToAugmt(i1)) end do @@ -521,8 +521,8 @@ subroutine NWTC_Library_UnPackMeshMapType(RF, OutData) type(RegFile), intent(inout) :: RF type(MeshMapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackMeshMapType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%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 14ecb2c8a4..4ae45e08b4 100644 --- a/modules/nwtc-library/src/NWTC_Library_Types.f90 +++ b/modules/nwtc-library/src/NWTC_Library_Types.f90 @@ -225,7 +225,7 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyFASTdataType' ErrStat = ErrID_None @@ -236,8 +236,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, kind=B8Ki) - UB(1:1) = ubound(SrcFASTdataTypeData%ChanNames, kind=B8Ki) + LB(1:1) = lbound(SrcFASTdataTypeData%ChanNames) + UB(1:1) = ubound(SrcFASTdataTypeData%ChanNames) if (.not. allocated(DstFASTdataTypeData%ChanNames)) then allocate(DstFASTdataTypeData%ChanNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -248,8 +248,8 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat DstFASTdataTypeData%ChanNames = SrcFASTdataTypeData%ChanNames end if if (allocated(SrcFASTdataTypeData%ChanUnits)) then - LB(1:1) = lbound(SrcFASTdataTypeData%ChanUnits, kind=B8Ki) - UB(1:1) = ubound(SrcFASTdataTypeData%ChanUnits, kind=B8Ki) + LB(1:1) = lbound(SrcFASTdataTypeData%ChanUnits) + UB(1:1) = ubound(SrcFASTdataTypeData%ChanUnits) if (.not. allocated(DstFASTdataTypeData%ChanUnits)) then allocate(DstFASTdataTypeData%ChanUnits(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -260,8 +260,8 @@ subroutine NWTC_Library_CopyFASTdataType(SrcFASTdataTypeData, DstFASTdataTypeDat DstFASTdataTypeData%ChanUnits = SrcFASTdataTypeData%ChanUnits end if if (allocated(SrcFASTdataTypeData%Data)) then - LB(1:2) = lbound(SrcFASTdataTypeData%Data, kind=B8Ki) - UB(1:2) = ubound(SrcFASTdataTypeData%Data, kind=B8Ki) + LB(1:2) = lbound(SrcFASTdataTypeData%Data) + UB(1:2) = ubound(SrcFASTdataTypeData%Data) if (.not. allocated(DstFASTdataTypeData%Data)) then allocate(DstFASTdataTypeData%Data(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -311,7 +311,7 @@ subroutine NWTC_Library_UnPackFASTdataType(RF, OutData) type(RegFile), intent(inout) :: RF type(FASTdataType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackFASTdataType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -378,7 +378,7 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyFileInfoType' ErrStat = ErrID_None @@ -386,8 +386,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, kind=B8Ki) - UB(1:1) = ubound(SrcFileInfoTypeData%FileLine, kind=B8Ki) + LB(1:1) = lbound(SrcFileInfoTypeData%FileLine) + UB(1:1) = ubound(SrcFileInfoTypeData%FileLine) if (.not. allocated(DstFileInfoTypeData%FileLine)) then allocate(DstFileInfoTypeData%FileLine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -398,8 +398,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%FileLine = SrcFileInfoTypeData%FileLine end if if (allocated(SrcFileInfoTypeData%FileIndx)) then - LB(1:1) = lbound(SrcFileInfoTypeData%FileIndx, kind=B8Ki) - UB(1:1) = ubound(SrcFileInfoTypeData%FileIndx, kind=B8Ki) + LB(1:1) = lbound(SrcFileInfoTypeData%FileIndx) + UB(1:1) = ubound(SrcFileInfoTypeData%FileIndx) if (.not. allocated(DstFileInfoTypeData%FileIndx)) then allocate(DstFileInfoTypeData%FileIndx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -410,8 +410,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%FileIndx = SrcFileInfoTypeData%FileIndx end if if (allocated(SrcFileInfoTypeData%FileList)) then - LB(1:1) = lbound(SrcFileInfoTypeData%FileList, kind=B8Ki) - UB(1:1) = ubound(SrcFileInfoTypeData%FileList, kind=B8Ki) + LB(1:1) = lbound(SrcFileInfoTypeData%FileList) + UB(1:1) = ubound(SrcFileInfoTypeData%FileList) if (.not. allocated(DstFileInfoTypeData%FileList)) then allocate(DstFileInfoTypeData%FileList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -422,8 +422,8 @@ subroutine NWTC_Library_CopyFileInfoType(SrcFileInfoTypeData, DstFileInfoTypeDat DstFileInfoTypeData%FileList = SrcFileInfoTypeData%FileList end if if (allocated(SrcFileInfoTypeData%Lines)) then - LB(1:1) = lbound(SrcFileInfoTypeData%Lines, kind=B8Ki) - UB(1:1) = ubound(SrcFileInfoTypeData%Lines, kind=B8Ki) + LB(1:1) = lbound(SrcFileInfoTypeData%Lines) + UB(1:1) = ubound(SrcFileInfoTypeData%Lines) if (.not. allocated(DstFileInfoTypeData%Lines)) then allocate(DstFileInfoTypeData%Lines(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -474,7 +474,7 @@ subroutine NWTC_Library_UnPackFileInfoType(RF, OutData) type(RegFile), intent(inout) :: RF type(FileInfoType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackFileInfoType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -533,7 +533,7 @@ subroutine NWTC_Library_CopyNWTC_RandomNumber_ParameterType(SrcNWTC_RandomNumber integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyNWTC_RandomNumber_ParameterType' ErrStat = ErrID_None @@ -541,8 +541,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, kind=B8Ki) - UB(1:1) = ubound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry, kind=B8Ki) + LB(1:1) = lbound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry) + UB(1:1) = ubound(SrcNWTC_RandomNumber_ParameterTypeData%RandSeedAry) if (.not. allocated(DstNWTC_RandomNumber_ParameterTypeData%RandSeedAry)) then allocate(DstNWTC_RandomNumber_ParameterTypeData%RandSeedAry(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -583,7 +583,7 @@ subroutine NWTC_Library_UnPackNWTC_RandomNumber_ParameterType(RF, OutData) type(RegFile), intent(inout) :: RF type(NWTC_RandomNumber_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackNWTC_RandomNumber_ParameterType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -599,7 +599,7 @@ subroutine NWTC_Library_CopyModVarType(SrcModVarTypeData, DstModVarTypeData, Ctr integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyModVarType' ErrStat = ErrID_None @@ -611,8 +611,8 @@ subroutine NWTC_Library_CopyModVarType(SrcModVarTypeData, DstModVarTypeData, Ctr DstModVarTypeData%Flags = SrcModVarTypeData%Flags DstModVarTypeData%DerivOrder = SrcModVarTypeData%DerivOrder if (allocated(SrcModVarTypeData%iLoc)) then - LB(1:1) = lbound(SrcModVarTypeData%iLoc, kind=B8Ki) - UB(1:1) = ubound(SrcModVarTypeData%iLoc, kind=B8Ki) + LB(1:1) = lbound(SrcModVarTypeData%iLoc) + UB(1:1) = ubound(SrcModVarTypeData%iLoc) if (.not. allocated(DstModVarTypeData%iLoc)) then allocate(DstModVarTypeData%iLoc(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -623,8 +623,8 @@ subroutine NWTC_Library_CopyModVarType(SrcModVarTypeData, DstModVarTypeData, Ctr DstModVarTypeData%iLoc = SrcModVarTypeData%iLoc end if if (allocated(SrcModVarTypeData%iSol)) then - LB(1:1) = lbound(SrcModVarTypeData%iSol, kind=B8Ki) - UB(1:1) = ubound(SrcModVarTypeData%iSol, kind=B8Ki) + LB(1:1) = lbound(SrcModVarTypeData%iSol) + UB(1:1) = ubound(SrcModVarTypeData%iSol) if (.not. allocated(DstModVarTypeData%iSol)) then allocate(DstModVarTypeData%iSol(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -635,8 +635,8 @@ subroutine NWTC_Library_CopyModVarType(SrcModVarTypeData, DstModVarTypeData, Ctr DstModVarTypeData%iSol = SrcModVarTypeData%iSol end if if (allocated(SrcModVarTypeData%iLin)) then - LB(1:1) = lbound(SrcModVarTypeData%iLin, kind=B8Ki) - UB(1:1) = ubound(SrcModVarTypeData%iLin, kind=B8Ki) + LB(1:1) = lbound(SrcModVarTypeData%iLin) + UB(1:1) = ubound(SrcModVarTypeData%iLin) if (.not. allocated(DstModVarTypeData%iLin)) then allocate(DstModVarTypeData%iLin(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -647,8 +647,8 @@ subroutine NWTC_Library_CopyModVarType(SrcModVarTypeData, DstModVarTypeData, Ctr DstModVarTypeData%iLin = SrcModVarTypeData%iLin end if if (allocated(SrcModVarTypeData%iq)) then - LB(1:1) = lbound(SrcModVarTypeData%iq, kind=B8Ki) - UB(1:1) = ubound(SrcModVarTypeData%iq, kind=B8Ki) + LB(1:1) = lbound(SrcModVarTypeData%iq) + UB(1:1) = ubound(SrcModVarTypeData%iq) if (.not. allocated(DstModVarTypeData%iq)) then allocate(DstModVarTypeData%iq(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -664,8 +664,8 @@ subroutine NWTC_Library_CopyModVarType(SrcModVarTypeData, DstModVarTypeData, Ctr DstModVarTypeData%Solve = SrcModVarTypeData%Solve DstModVarTypeData%Perturb = SrcModVarTypeData%Perturb if (allocated(SrcModVarTypeData%LinNames)) then - LB(1:1) = lbound(SrcModVarTypeData%LinNames, kind=B8Ki) - UB(1:1) = ubound(SrcModVarTypeData%LinNames, kind=B8Ki) + LB(1:1) = lbound(SrcModVarTypeData%LinNames) + UB(1:1) = ubound(SrcModVarTypeData%LinNames) if (.not. allocated(DstModVarTypeData%LinNames)) then allocate(DstModVarTypeData%LinNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -729,7 +729,7 @@ subroutine NWTC_Library_UnPackModVarType(RF, OutData) type(RegFile), intent(inout) :: RF type(ModVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackModVarType' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -757,8 +757,8 @@ subroutine NWTC_Library_CopyModVarsType(SrcModVarsTypeData, DstModVarsTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyModVarsType' @@ -767,8 +767,8 @@ subroutine NWTC_Library_CopyModVarsType(SrcModVarsTypeData, DstModVarsTypeData, DstModVarsTypeData%ModNum = SrcModVarsTypeData%ModNum DstModVarsTypeData%ModAbbr = SrcModVarsTypeData%ModAbbr if (allocated(SrcModVarsTypeData%x)) then - LB(1:1) = lbound(SrcModVarsTypeData%x, kind=B8Ki) - UB(1:1) = ubound(SrcModVarsTypeData%x, kind=B8Ki) + LB(1:1) = lbound(SrcModVarsTypeData%x) + UB(1:1) = ubound(SrcModVarsTypeData%x) if (.not. allocated(DstModVarsTypeData%x)) then allocate(DstModVarsTypeData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -783,8 +783,8 @@ subroutine NWTC_Library_CopyModVarsType(SrcModVarsTypeData, DstModVarsTypeData, end do end if if (allocated(SrcModVarsTypeData%u)) then - LB(1:1) = lbound(SrcModVarsTypeData%u, kind=B8Ki) - UB(1:1) = ubound(SrcModVarsTypeData%u, kind=B8Ki) + LB(1:1) = lbound(SrcModVarsTypeData%u) + UB(1:1) = ubound(SrcModVarsTypeData%u) if (.not. allocated(DstModVarsTypeData%u)) then allocate(DstModVarsTypeData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -799,8 +799,8 @@ subroutine NWTC_Library_CopyModVarsType(SrcModVarsTypeData, DstModVarsTypeData, end do end if if (allocated(SrcModVarsTypeData%y)) then - LB(1:1) = lbound(SrcModVarsTypeData%y, kind=B8Ki) - UB(1:1) = ubound(SrcModVarsTypeData%y, kind=B8Ki) + LB(1:1) = lbound(SrcModVarsTypeData%y) + UB(1:1) = ubound(SrcModVarsTypeData%y) if (.not. allocated(DstModVarsTypeData%y)) then allocate(DstModVarsTypeData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -823,16 +823,16 @@ subroutine NWTC_Library_DestroyModVarsType(ModVarsTypeData, ErrStat, ErrMsg) type(ModVarsType), intent(inout) :: ModVarsTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'NWTC_Library_DestroyModVarsType' ErrStat = ErrID_None ErrMsg = '' if (allocated(ModVarsTypeData%x)) then - LB(1:1) = lbound(ModVarsTypeData%x, kind=B8Ki) - UB(1:1) = ubound(ModVarsTypeData%x, kind=B8Ki) + LB(1:1) = lbound(ModVarsTypeData%x) + UB(1:1) = ubound(ModVarsTypeData%x) do i1 = LB(1), UB(1) call NWTC_Library_DestroyModVarType(ModVarsTypeData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -840,8 +840,8 @@ subroutine NWTC_Library_DestroyModVarsType(ModVarsTypeData, ErrStat, ErrMsg) deallocate(ModVarsTypeData%x) end if if (allocated(ModVarsTypeData%u)) then - LB(1:1) = lbound(ModVarsTypeData%u, kind=B8Ki) - UB(1:1) = ubound(ModVarsTypeData%u, kind=B8Ki) + LB(1:1) = lbound(ModVarsTypeData%u) + UB(1:1) = ubound(ModVarsTypeData%u) do i1 = LB(1), UB(1) call NWTC_Library_DestroyModVarType(ModVarsTypeData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -849,8 +849,8 @@ subroutine NWTC_Library_DestroyModVarsType(ModVarsTypeData, ErrStat, ErrMsg) deallocate(ModVarsTypeData%u) end if if (allocated(ModVarsTypeData%y)) then - LB(1:1) = lbound(ModVarsTypeData%y, kind=B8Ki) - UB(1:1) = ubound(ModVarsTypeData%y, kind=B8Ki) + LB(1:1) = lbound(ModVarsTypeData%y) + UB(1:1) = ubound(ModVarsTypeData%y) do i1 = LB(1), UB(1) call NWTC_Library_DestroyModVarType(ModVarsTypeData%y(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -863,34 +863,34 @@ subroutine NWTC_Library_PackModVarsType(RF, Indata) type(RegFile), intent(inout) :: RF type(ModVarsType), intent(in) :: InData character(*), parameter :: RoutineName = 'NWTC_Library_PackModVarsType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%ModNum) call RegPack(RF, InData%ModAbbr) call RegPack(RF, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x), ubound(InData%x)) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call NWTC_Library_PackModVarType(RF, InData%x(i1)) end do end if call RegPack(RF, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u), ubound(InData%u)) + LB(1:1) = lbound(InData%u) + UB(1:1) = ubound(InData%u) do i1 = LB(1), UB(1) call NWTC_Library_PackModVarType(RF, InData%u(i1)) end do end if call RegPack(RF, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y), ubound(InData%y)) + LB(1:1) = lbound(InData%y) + UB(1:1) = ubound(InData%y) do i1 = LB(1), UB(1) call NWTC_Library_PackModVarType(RF, InData%y(i1)) end do @@ -905,8 +905,8 @@ subroutine NWTC_Library_UnPackModVarsType(RF, OutData) type(RegFile), intent(inout) :: RF type(ModVarsType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackModVarsType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -962,14 +962,14 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyModValsType' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcModValsTypeData%x)) then - LB(1:1) = lbound(SrcModValsTypeData%x, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%x, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%x) + UB(1:1) = ubound(SrcModValsTypeData%x) if (.not. allocated(DstModValsTypeData%x)) then allocate(DstModValsTypeData%x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -980,8 +980,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%x = SrcModValsTypeData%x end if if (allocated(SrcModValsTypeData%dxdt)) then - LB(1:1) = lbound(SrcModValsTypeData%dxdt, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%dxdt, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%dxdt) + UB(1:1) = ubound(SrcModValsTypeData%dxdt) if (.not. allocated(DstModValsTypeData%dxdt)) then allocate(DstModValsTypeData%dxdt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -992,8 +992,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%dxdt = SrcModValsTypeData%dxdt end if if (allocated(SrcModValsTypeData%u)) then - LB(1:1) = lbound(SrcModValsTypeData%u, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%u, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%u) + UB(1:1) = ubound(SrcModValsTypeData%u) if (.not. allocated(DstModValsTypeData%u)) then allocate(DstModValsTypeData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1004,8 +1004,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%u = SrcModValsTypeData%u end if if (allocated(SrcModValsTypeData%y)) then - LB(1:1) = lbound(SrcModValsTypeData%y, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%y, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%y) + UB(1:1) = ubound(SrcModValsTypeData%y) if (.not. allocated(DstModValsTypeData%y)) then allocate(DstModValsTypeData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1016,8 +1016,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%y = SrcModValsTypeData%y end if if (allocated(SrcModValsTypeData%u_perturb)) then - LB(1:1) = lbound(SrcModValsTypeData%u_perturb, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%u_perturb, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%u_perturb) + UB(1:1) = ubound(SrcModValsTypeData%u_perturb) if (.not. allocated(DstModValsTypeData%u_perturb)) then allocate(DstModValsTypeData%u_perturb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1028,8 +1028,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%u_perturb = SrcModValsTypeData%u_perturb end if if (allocated(SrcModValsTypeData%x_perturb)) then - LB(1:1) = lbound(SrcModValsTypeData%x_perturb, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%x_perturb, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%x_perturb) + UB(1:1) = ubound(SrcModValsTypeData%x_perturb) if (.not. allocated(DstModValsTypeData%x_perturb)) then allocate(DstModValsTypeData%x_perturb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1040,8 +1040,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%x_perturb = SrcModValsTypeData%x_perturb end if if (allocated(SrcModValsTypeData%xp)) then - LB(1:1) = lbound(SrcModValsTypeData%xp, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%xp, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%xp) + UB(1:1) = ubound(SrcModValsTypeData%xp) if (.not. allocated(DstModValsTypeData%xp)) then allocate(DstModValsTypeData%xp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1052,8 +1052,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%xp = SrcModValsTypeData%xp end if if (allocated(SrcModValsTypeData%xn)) then - LB(1:1) = lbound(SrcModValsTypeData%xn, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%xn, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%xn) + UB(1:1) = ubound(SrcModValsTypeData%xn) if (.not. allocated(DstModValsTypeData%xn)) then allocate(DstModValsTypeData%xn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1064,8 +1064,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%xn = SrcModValsTypeData%xn end if if (allocated(SrcModValsTypeData%yp)) then - LB(1:1) = lbound(SrcModValsTypeData%yp, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%yp, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%yp) + UB(1:1) = ubound(SrcModValsTypeData%yp) if (.not. allocated(DstModValsTypeData%yp)) then allocate(DstModValsTypeData%yp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1076,8 +1076,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%yp = SrcModValsTypeData%yp end if if (allocated(SrcModValsTypeData%yn)) then - LB(1:1) = lbound(SrcModValsTypeData%yn, kind=B8Ki) - UB(1:1) = ubound(SrcModValsTypeData%yn, kind=B8Ki) + LB(1:1) = lbound(SrcModValsTypeData%yn) + UB(1:1) = ubound(SrcModValsTypeData%yn) if (.not. allocated(DstModValsTypeData%yn)) then allocate(DstModValsTypeData%yn(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1088,8 +1088,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%yn = SrcModValsTypeData%yn end if if (allocated(SrcModValsTypeData%dYdx)) then - LB(1:2) = lbound(SrcModValsTypeData%dYdx, kind=B8Ki) - UB(1:2) = ubound(SrcModValsTypeData%dYdx, kind=B8Ki) + LB(1:2) = lbound(SrcModValsTypeData%dYdx) + UB(1:2) = ubound(SrcModValsTypeData%dYdx) if (.not. allocated(DstModValsTypeData%dYdx)) then allocate(DstModValsTypeData%dYdx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1100,8 +1100,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%dYdx = SrcModValsTypeData%dYdx end if if (allocated(SrcModValsTypeData%dXdx)) then - LB(1:2) = lbound(SrcModValsTypeData%dXdx, kind=B8Ki) - UB(1:2) = ubound(SrcModValsTypeData%dXdx, kind=B8Ki) + LB(1:2) = lbound(SrcModValsTypeData%dXdx) + UB(1:2) = ubound(SrcModValsTypeData%dXdx) if (.not. allocated(DstModValsTypeData%dXdx)) then allocate(DstModValsTypeData%dXdx(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1112,8 +1112,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%dXdx = SrcModValsTypeData%dXdx end if if (allocated(SrcModValsTypeData%dYdu)) then - LB(1:2) = lbound(SrcModValsTypeData%dYdu, kind=B8Ki) - UB(1:2) = ubound(SrcModValsTypeData%dYdu, kind=B8Ki) + LB(1:2) = lbound(SrcModValsTypeData%dYdu) + UB(1:2) = ubound(SrcModValsTypeData%dYdu) if (.not. allocated(DstModValsTypeData%dYdu)) then allocate(DstModValsTypeData%dYdu(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1124,8 +1124,8 @@ subroutine NWTC_Library_CopyModValsType(SrcModValsTypeData, DstModValsTypeData, DstModValsTypeData%dYdu = SrcModValsTypeData%dYdu end if if (allocated(SrcModValsTypeData%dXdu)) then - LB(1:2) = lbound(SrcModValsTypeData%dXdu, kind=B8Ki) - UB(1:2) = ubound(SrcModValsTypeData%dXdu, kind=B8Ki) + LB(1:2) = lbound(SrcModValsTypeData%dXdu) + UB(1:2) = ubound(SrcModValsTypeData%dXdu) if (.not. allocated(DstModValsTypeData%dXdu)) then allocate(DstModValsTypeData%dXdu(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1214,7 +1214,7 @@ subroutine NWTC_Library_UnPackModValsType(RF, OutData) type(RegFile), intent(inout) :: RF type(ModValsType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackModValsType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1240,7 +1240,7 @@ subroutine NWTC_Library_CopyModDataType(SrcModDataTypeData, DstModDataTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'NWTC_Library_CopyModDataType' @@ -1254,8 +1254,8 @@ subroutine NWTC_Library_CopyModDataType(SrcModDataTypeData, DstModDataTypeData, DstModDataTypeData%DT = SrcModDataTypeData%DT DstModDataTypeData%SubSteps = SrcModDataTypeData%SubSteps if (allocated(SrcModDataTypeData%ixs)) then - LB(1:2) = lbound(SrcModDataTypeData%ixs, kind=B8Ki) - UB(1:2) = ubound(SrcModDataTypeData%ixs, kind=B8Ki) + LB(1:2) = lbound(SrcModDataTypeData%ixs) + UB(1:2) = ubound(SrcModDataTypeData%ixs) if (.not. allocated(DstModDataTypeData%ixs)) then allocate(DstModDataTypeData%ixs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1266,8 +1266,8 @@ subroutine NWTC_Library_CopyModDataType(SrcModDataTypeData, DstModDataTypeData, DstModDataTypeData%ixs = SrcModDataTypeData%ixs end if if (allocated(SrcModDataTypeData%ius)) then - LB(1:2) = lbound(SrcModDataTypeData%ius, kind=B8Ki) - UB(1:2) = ubound(SrcModDataTypeData%ius, kind=B8Ki) + LB(1:2) = lbound(SrcModDataTypeData%ius) + UB(1:2) = ubound(SrcModDataTypeData%ius) if (.not. allocated(DstModDataTypeData%ius)) then allocate(DstModDataTypeData%ius(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1278,8 +1278,8 @@ subroutine NWTC_Library_CopyModDataType(SrcModDataTypeData, DstModDataTypeData, DstModDataTypeData%ius = SrcModDataTypeData%ius end if if (allocated(SrcModDataTypeData%iys)) then - LB(1:2) = lbound(SrcModDataTypeData%iys, kind=B8Ki) - UB(1:2) = ubound(SrcModDataTypeData%iys, kind=B8Ki) + LB(1:2) = lbound(SrcModDataTypeData%iys) + UB(1:2) = ubound(SrcModDataTypeData%iys) if (.not. allocated(DstModDataTypeData%iys)) then allocate(DstModDataTypeData%iys(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1291,8 +1291,8 @@ subroutine NWTC_Library_CopyModDataType(SrcModDataTypeData, DstModDataTypeData, end if DstModDataTypeData%Vars => SrcModDataTypeData%Vars if (allocated(SrcModDataTypeData%SrcMaps)) then - LB(1:1) = lbound(SrcModDataTypeData%SrcMaps, kind=B8Ki) - UB(1:1) = ubound(SrcModDataTypeData%SrcMaps, kind=B8Ki) + LB(1:1) = lbound(SrcModDataTypeData%SrcMaps) + UB(1:1) = ubound(SrcModDataTypeData%SrcMaps) if (.not. allocated(DstModDataTypeData%SrcMaps)) then allocate(DstModDataTypeData%SrcMaps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1303,8 +1303,8 @@ subroutine NWTC_Library_CopyModDataType(SrcModDataTypeData, DstModDataTypeData, DstModDataTypeData%SrcMaps = SrcModDataTypeData%SrcMaps end if if (allocated(SrcModDataTypeData%DstMaps)) then - LB(1:1) = lbound(SrcModDataTypeData%DstMaps, kind=B8Ki) - UB(1:1) = ubound(SrcModDataTypeData%DstMaps, kind=B8Ki) + LB(1:1) = lbound(SrcModDataTypeData%DstMaps) + UB(1:1) = ubound(SrcModDataTypeData%DstMaps) if (.not. allocated(DstModDataTypeData%DstMaps)) then allocate(DstModDataTypeData%DstMaps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1375,7 +1375,7 @@ subroutine NWTC_Library_UnPackModDataType(RF, OutData) type(RegFile), intent(inout) :: RF type(ModDataType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'NWTC_Library_UnPackModDataType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx diff --git a/modules/openfast-library/src/FAST_Types.f90 b/modules/openfast-library/src/FAST_Types.f90 index eb19ff4a6f..125d2a0643 100644 --- a/modules/openfast-library/src/FAST_Types.f90 +++ b/modules/openfast-library/src/FAST_Types.f90 @@ -940,14 +940,14 @@ subroutine FAST_CopyVTK_BLSurfaceType(SrcVTK_BLSurfaceTypeData, DstVTK_BLSurface integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords, kind=B8Ki) + LB(1:3) = lbound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) + UB(1:3) = ubound(SrcVTK_BLSurfaceTypeData%AirfoilCoords) 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 @@ -984,7 +984,7 @@ subroutine FAST_UnPackVTK_BLSurfaceType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_VTK_BLSurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackVTK_BLSurfaceType' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -997,8 +997,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyVTK_SurfaceType' @@ -1009,8 +1009,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%TowerRad, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%TowerRad) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%TowerRad) if (.not. allocated(DstVTK_SurfaceTypeData%TowerRad)) then allocate(DstVTK_SurfaceTypeData%TowerRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1022,8 +1022,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa end if DstVTK_SurfaceTypeData%NWaveElevPts = SrcVTK_SurfaceTypeData%NWaveElevPts if (allocated(SrcVTK_SurfaceTypeData%WaveElevVisX)) then - LB(1:1) = lbound(SrcVTK_SurfaceTypeData%WaveElevVisX, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%WaveElevVisX, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%WaveElevVisX) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%WaveElevVisX) if (.not. allocated(DstVTK_SurfaceTypeData%WaveElevVisX)) then allocate(DstVTK_SurfaceTypeData%WaveElevVisX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1034,8 +1034,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa DstVTK_SurfaceTypeData%WaveElevVisX = SrcVTK_SurfaceTypeData%WaveElevVisX end if if (allocated(SrcVTK_SurfaceTypeData%WaveElevVisY)) then - LB(1:1) = lbound(SrcVTK_SurfaceTypeData%WaveElevVisY, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%WaveElevVisY, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%WaveElevVisY) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%WaveElevVisY) if (.not. allocated(DstVTK_SurfaceTypeData%WaveElevVisY)) then allocate(DstVTK_SurfaceTypeData%WaveElevVisY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1046,8 +1046,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa DstVTK_SurfaceTypeData%WaveElevVisY = SrcVTK_SurfaceTypeData%WaveElevVisY end if if (allocated(SrcVTK_SurfaceTypeData%WaveElevVisGrid)) then - LB(1:3) = lbound(SrcVTK_SurfaceTypeData%WaveElevVisGrid, kind=B8Ki) - UB(1:3) = ubound(SrcVTK_SurfaceTypeData%WaveElevVisGrid, kind=B8Ki) + LB(1:3) = lbound(SrcVTK_SurfaceTypeData%WaveElevVisGrid) + UB(1:3) = ubound(SrcVTK_SurfaceTypeData%WaveElevVisGrid) if (.not. allocated(DstVTK_SurfaceTypeData%WaveElevVisGrid)) then allocate(DstVTK_SurfaceTypeData%WaveElevVisGrid(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1058,8 +1058,8 @@ subroutine FAST_CopyVTK_SurfaceType(SrcVTK_SurfaceTypeData, DstVTK_SurfaceTypeDa DstVTK_SurfaceTypeData%WaveElevVisGrid = SrcVTK_SurfaceTypeData%WaveElevVisGrid end if if (allocated(SrcVTK_SurfaceTypeData%BladeShape)) then - LB(1:1) = lbound(SrcVTK_SurfaceTypeData%BladeShape, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%BladeShape, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%BladeShape) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%BladeShape) if (.not. allocated(DstVTK_SurfaceTypeData%BladeShape)) then allocate(DstVTK_SurfaceTypeData%BladeShape(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1074,8 +1074,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_SurfaceTypeData%MorisonVisRad, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_SurfaceTypeData%MorisonVisRad) + UB(1:1) = ubound(SrcVTK_SurfaceTypeData%MorisonVisRad) if (.not. allocated(DstVTK_SurfaceTypeData%MorisonVisRad)) then allocate(DstVTK_SurfaceTypeData%MorisonVisRad(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1091,8 +1091,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(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyVTK_SurfaceType' @@ -1111,8 +1111,8 @@ subroutine FAST_DestroyVTK_SurfaceType(VTK_SurfaceTypeData, ErrStat, ErrMsg) deallocate(VTK_SurfaceTypeData%WaveElevVisGrid) end if if (allocated(VTK_SurfaceTypeData%BladeShape)) then - LB(1:1) = lbound(VTK_SurfaceTypeData%BladeShape, kind=B8Ki) - UB(1:1) = ubound(VTK_SurfaceTypeData%BladeShape, kind=B8Ki) + LB(1:1) = lbound(VTK_SurfaceTypeData%BladeShape) + UB(1:1) = ubound(VTK_SurfaceTypeData%BladeShape) do i1 = LB(1), UB(1) call FAST_DestroyVTK_BLSurfaceType(VTK_SurfaceTypeData%BladeShape(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1128,8 +1128,8 @@ subroutine FAST_PackVTK_SurfaceType(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_VTK_SurfaceType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackVTK_SurfaceType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%NumSectors) call RegPack(RF, InData%HubRad) @@ -1142,9 +1142,9 @@ subroutine FAST_PackVTK_SurfaceType(RF, Indata) call RegPackAlloc(RF, InData%WaveElevVisGrid) call RegPack(RF, allocated(InData%BladeShape)) if (allocated(InData%BladeShape)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeShape), ubound(InData%BladeShape)) + LB(1:1) = lbound(InData%BladeShape) + UB(1:1) = ubound(InData%BladeShape) do i1 = LB(1), UB(1) call FAST_PackVTK_BLSurfaceType(RF, InData%BladeShape(i1)) end do @@ -1157,8 +1157,8 @@ subroutine FAST_UnPackVTK_SurfaceType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_VTK_SurfaceType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackVTK_SurfaceType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1193,7 +1193,7 @@ subroutine FAST_CopyVTK_ModeShapeType(SrcVTK_ModeShapeTypeData, DstVTK_ModeShape integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyVTK_ModeShapeType' ErrStat = ErrID_None @@ -1202,8 +1202,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%VTKModes, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%VTKModes) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%VTKModes) if (.not. allocated(DstVTK_ModeShapeTypeData%VTKModes)) then allocate(DstVTK_ModeShapeTypeData%VTKModes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1218,8 +1218,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampingRatio, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%DampingRatio) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampingRatio) if (.not. allocated(DstVTK_ModeShapeTypeData%DampingRatio)) then allocate(DstVTK_ModeShapeTypeData%DampingRatio(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1230,8 +1230,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%NaturalFreq_Hz) if (.not. allocated(DstVTK_ModeShapeTypeData%NaturalFreq_Hz)) then allocate(DstVTK_ModeShapeTypeData%NaturalFreq_Hz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1242,8 +1242,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, kind=B8Ki) - UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz, kind=B8Ki) + LB(1:1) = lbound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz) + UB(1:1) = ubound(SrcVTK_ModeShapeTypeData%DampedFreq_Hz) if (.not. allocated(DstVTK_ModeShapeTypeData%DampedFreq_Hz)) then allocate(DstVTK_ModeShapeTypeData%DampedFreq_Hz(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1254,8 +1254,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, kind=B8Ki) - UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_magnitude, kind=B8Ki) + LB(1:3) = lbound(SrcVTK_ModeShapeTypeData%x_eig_magnitude) + UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_magnitude) 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 @@ -1266,8 +1266,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, kind=B8Ki) - UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_phase, kind=B8Ki) + LB(1:3) = lbound(SrcVTK_ModeShapeTypeData%x_eig_phase) + UB(1:3) = ubound(SrcVTK_ModeShapeTypeData%x_eig_phase) 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 @@ -1331,7 +1331,7 @@ subroutine FAST_UnPackVTK_ModeShapeType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_VTK_ModeShapeType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackVTK_ModeShapeType' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1403,7 +1403,7 @@ subroutine FAST_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyParam' @@ -1514,8 +1514,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%RotSpeed, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%RotSpeed) + UB(1:1) = ubound(SrcParamData%RotSpeed) if (.not. allocated(DstParamData%RotSpeed)) then allocate(DstParamData%RotSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1526,8 +1526,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WS_TSR, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WS_TSR) + UB(1:1) = ubound(SrcParamData%WS_TSR) if (.not. allocated(DstParamData%WS_TSR)) then allocate(DstParamData%WS_TSR(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1538,8 +1538,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%Pitch, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%Pitch) + UB(1:1) = ubound(SrcParamData%Pitch) if (.not. allocated(DstParamData%Pitch)) then allocate(DstParamData%Pitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1692,7 +1692,7 @@ subroutine FAST_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1808,16 +1808,16 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%x_IceD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%x_IceD) + UB(1:2) = ubound(SrcLinStateSaveData%x_IceD) 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 @@ -1834,8 +1834,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%xd_IceD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%xd_IceD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%xd_IceD) + UB(1:2) = ubound(SrcLinStateSaveData%xd_IceD) 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 @@ -1852,8 +1852,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%z_IceD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%z_IceD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%z_IceD) + UB(1:2) = ubound(SrcLinStateSaveData%z_IceD) 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 @@ -1870,8 +1870,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_IceD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_IceD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_IceD) + UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_IceD) 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 @@ -1888,8 +1888,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_IceD)) then - LB(1:2) = lbound(SrcLinStateSaveData%u_IceD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%u_IceD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%u_IceD) + UB(1:2) = ubound(SrcLinStateSaveData%u_IceD) 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 @@ -1906,8 +1906,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%x_BD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%x_BD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%x_BD) + UB(1:2) = ubound(SrcLinStateSaveData%x_BD) 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 @@ -1924,8 +1924,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%xd_BD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%xd_BD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%xd_BD) + UB(1:2) = ubound(SrcLinStateSaveData%xd_BD) 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 @@ -1942,8 +1942,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%z_BD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%z_BD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%z_BD) + UB(1:2) = ubound(SrcLinStateSaveData%z_BD) 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 @@ -1960,8 +1960,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_BD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_BD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%OtherSt_BD) + UB(1:2) = ubound(SrcLinStateSaveData%OtherSt_BD) 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 @@ -1978,8 +1978,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_BD)) then - LB(1:2) = lbound(SrcLinStateSaveData%u_BD, kind=B8Ki) - UB(1:2) = ubound(SrcLinStateSaveData%u_BD, kind=B8Ki) + LB(1:2) = lbound(SrcLinStateSaveData%u_BD) + UB(1:2) = ubound(SrcLinStateSaveData%u_BD) 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 @@ -1996,8 +1996,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_ED, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_ED, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_ED) + UB(1:1) = ubound(SrcLinStateSaveData%x_ED) if (.not. allocated(DstLinStateSaveData%x_ED)) then allocate(DstLinStateSaveData%x_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2012,8 +2012,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_ED, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_ED, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_ED) + UB(1:1) = ubound(SrcLinStateSaveData%xd_ED) if (.not. allocated(DstLinStateSaveData%xd_ED)) then allocate(DstLinStateSaveData%xd_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2028,8 +2028,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_ED, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_ED, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_ED) + UB(1:1) = ubound(SrcLinStateSaveData%z_ED) if (.not. allocated(DstLinStateSaveData%z_ED)) then allocate(DstLinStateSaveData%z_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2044,8 +2044,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ED, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ED, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ED) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ED) if (.not. allocated(DstLinStateSaveData%OtherSt_ED)) then allocate(DstLinStateSaveData%OtherSt_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2060,8 +2060,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_ED)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_ED, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_ED, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_ED) + UB(1:1) = ubound(SrcLinStateSaveData%u_ED) if (.not. allocated(DstLinStateSaveData%u_ED)) then allocate(DstLinStateSaveData%u_ED(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2076,8 +2076,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_SrvD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_SrvD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_SrvD) + UB(1:1) = ubound(SrcLinStateSaveData%x_SrvD) if (.not. allocated(DstLinStateSaveData%x_SrvD)) then allocate(DstLinStateSaveData%x_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2092,8 +2092,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_SrvD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_SrvD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_SrvD) + UB(1:1) = ubound(SrcLinStateSaveData%xd_SrvD) if (.not. allocated(DstLinStateSaveData%xd_SrvD)) then allocate(DstLinStateSaveData%xd_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2108,8 +2108,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_SrvD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_SrvD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_SrvD) + UB(1:1) = ubound(SrcLinStateSaveData%z_SrvD) if (.not. allocated(DstLinStateSaveData%z_SrvD)) then allocate(DstLinStateSaveData%z_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2124,8 +2124,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SrvD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SrvD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SrvD) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SrvD) if (.not. allocated(DstLinStateSaveData%OtherSt_SrvD)) then allocate(DstLinStateSaveData%OtherSt_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2140,8 +2140,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_SrvD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_SrvD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_SrvD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_SrvD) + UB(1:1) = ubound(SrcLinStateSaveData%u_SrvD) if (.not. allocated(DstLinStateSaveData%u_SrvD)) then allocate(DstLinStateSaveData%u_SrvD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2156,8 +2156,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_AD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_AD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_AD) + UB(1:1) = ubound(SrcLinStateSaveData%x_AD) if (.not. allocated(DstLinStateSaveData%x_AD)) then allocate(DstLinStateSaveData%x_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2172,8 +2172,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_AD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_AD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_AD) + UB(1:1) = ubound(SrcLinStateSaveData%xd_AD) if (.not. allocated(DstLinStateSaveData%xd_AD)) then allocate(DstLinStateSaveData%xd_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2188,8 +2188,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_AD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_AD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_AD) + UB(1:1) = ubound(SrcLinStateSaveData%z_AD) if (.not. allocated(DstLinStateSaveData%z_AD)) then allocate(DstLinStateSaveData%z_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2204,8 +2204,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_AD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_AD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_AD) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_AD) if (.not. allocated(DstLinStateSaveData%OtherSt_AD)) then allocate(DstLinStateSaveData%OtherSt_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2220,8 +2220,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_AD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_AD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_AD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_AD) + UB(1:1) = ubound(SrcLinStateSaveData%u_AD) if (.not. allocated(DstLinStateSaveData%u_AD)) then allocate(DstLinStateSaveData%u_AD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2236,8 +2236,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_IfW, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_IfW, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_IfW) + UB(1:1) = ubound(SrcLinStateSaveData%x_IfW) if (.not. allocated(DstLinStateSaveData%x_IfW)) then allocate(DstLinStateSaveData%x_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2252,8 +2252,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_IfW, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_IfW, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_IfW) + UB(1:1) = ubound(SrcLinStateSaveData%xd_IfW) if (.not. allocated(DstLinStateSaveData%xd_IfW)) then allocate(DstLinStateSaveData%xd_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2268,8 +2268,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_IfW, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_IfW, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_IfW) + UB(1:1) = ubound(SrcLinStateSaveData%z_IfW) if (.not. allocated(DstLinStateSaveData%z_IfW)) then allocate(DstLinStateSaveData%z_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2284,8 +2284,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IfW, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IfW, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IfW) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IfW) if (.not. allocated(DstLinStateSaveData%OtherSt_IfW)) then allocate(DstLinStateSaveData%OtherSt_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2300,8 +2300,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_IfW)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_IfW, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_IfW, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_IfW) + UB(1:1) = ubound(SrcLinStateSaveData%u_IfW) if (.not. allocated(DstLinStateSaveData%u_IfW)) then allocate(DstLinStateSaveData%u_IfW(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2316,8 +2316,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_SD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_SD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_SD) + UB(1:1) = ubound(SrcLinStateSaveData%x_SD) if (.not. allocated(DstLinStateSaveData%x_SD)) then allocate(DstLinStateSaveData%x_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2332,8 +2332,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_SD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_SD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_SD) + UB(1:1) = ubound(SrcLinStateSaveData%xd_SD) if (.not. allocated(DstLinStateSaveData%xd_SD)) then allocate(DstLinStateSaveData%xd_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2348,8 +2348,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_SD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_SD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_SD) + UB(1:1) = ubound(SrcLinStateSaveData%z_SD) if (.not. allocated(DstLinStateSaveData%z_SD)) then allocate(DstLinStateSaveData%z_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2364,8 +2364,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SD) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SD) if (.not. allocated(DstLinStateSaveData%OtherSt_SD)) then allocate(DstLinStateSaveData%OtherSt_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2380,8 +2380,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_SD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_SD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_SD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_SD) + UB(1:1) = ubound(SrcLinStateSaveData%u_SD) if (.not. allocated(DstLinStateSaveData%u_SD)) then allocate(DstLinStateSaveData%u_SD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2396,8 +2396,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_ExtPtfm, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_ExtPtfm) + UB(1:1) = ubound(SrcLinStateSaveData%x_ExtPtfm) if (.not. allocated(DstLinStateSaveData%x_ExtPtfm)) then allocate(DstLinStateSaveData%x_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2412,8 +2412,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_ExtPtfm, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_ExtPtfm) + UB(1:1) = ubound(SrcLinStateSaveData%xd_ExtPtfm) if (.not. allocated(DstLinStateSaveData%xd_ExtPtfm)) then allocate(DstLinStateSaveData%xd_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2428,8 +2428,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_ExtPtfm, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_ExtPtfm) + UB(1:1) = ubound(SrcLinStateSaveData%z_ExtPtfm) if (.not. allocated(DstLinStateSaveData%z_ExtPtfm)) then allocate(DstLinStateSaveData%z_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2444,8 +2444,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_ExtPtfm) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_ExtPtfm) if (.not. allocated(DstLinStateSaveData%OtherSt_ExtPtfm)) then allocate(DstLinStateSaveData%OtherSt_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2460,8 +2460,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_ExtPtfm)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_ExtPtfm, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_ExtPtfm) + UB(1:1) = ubound(SrcLinStateSaveData%u_ExtPtfm) if (.not. allocated(DstLinStateSaveData%u_ExtPtfm)) then allocate(DstLinStateSaveData%u_ExtPtfm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2476,8 +2476,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_HD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_HD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_HD) + UB(1:1) = ubound(SrcLinStateSaveData%x_HD) if (.not. allocated(DstLinStateSaveData%x_HD)) then allocate(DstLinStateSaveData%x_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2492,8 +2492,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_HD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_HD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_HD) + UB(1:1) = ubound(SrcLinStateSaveData%xd_HD) if (.not. allocated(DstLinStateSaveData%xd_HD)) then allocate(DstLinStateSaveData%xd_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2508,8 +2508,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_HD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_HD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_HD) + UB(1:1) = ubound(SrcLinStateSaveData%z_HD) if (.not. allocated(DstLinStateSaveData%z_HD)) then allocate(DstLinStateSaveData%z_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2524,8 +2524,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_HD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_HD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_HD) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_HD) if (.not. allocated(DstLinStateSaveData%OtherSt_HD)) then allocate(DstLinStateSaveData%OtherSt_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2540,8 +2540,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_HD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_HD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_HD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_HD) + UB(1:1) = ubound(SrcLinStateSaveData%u_HD) if (.not. allocated(DstLinStateSaveData%u_HD)) then allocate(DstLinStateSaveData%u_HD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2556,8 +2556,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_SeaSt)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_SeaSt, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_SeaSt, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_SeaSt) + UB(1:1) = ubound(SrcLinStateSaveData%x_SeaSt) if (.not. allocated(DstLinStateSaveData%x_SeaSt)) then allocate(DstLinStateSaveData%x_SeaSt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2572,8 +2572,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_SeaSt)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_SeaSt, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_SeaSt, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_SeaSt) + UB(1:1) = ubound(SrcLinStateSaveData%xd_SeaSt) if (.not. allocated(DstLinStateSaveData%xd_SeaSt)) then allocate(DstLinStateSaveData%xd_SeaSt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2588,8 +2588,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_SeaSt)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_SeaSt, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_SeaSt, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_SeaSt) + UB(1:1) = ubound(SrcLinStateSaveData%z_SeaSt) if (.not. allocated(DstLinStateSaveData%z_SeaSt)) then allocate(DstLinStateSaveData%z_SeaSt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2604,8 +2604,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_SeaSt)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SeaSt, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SeaSt, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_SeaSt) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_SeaSt) if (.not. allocated(DstLinStateSaveData%OtherSt_SeaSt)) then allocate(DstLinStateSaveData%OtherSt_SeaSt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2620,8 +2620,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_SeaSt)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_SeaSt, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_SeaSt, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_SeaSt) + UB(1:1) = ubound(SrcLinStateSaveData%u_SeaSt) if (.not. allocated(DstLinStateSaveData%u_SeaSt)) then allocate(DstLinStateSaveData%u_SeaSt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2636,8 +2636,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_IceF, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_IceF, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_IceF) + UB(1:1) = ubound(SrcLinStateSaveData%x_IceF) if (.not. allocated(DstLinStateSaveData%x_IceF)) then allocate(DstLinStateSaveData%x_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2652,8 +2652,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_IceF, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_IceF, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_IceF) + UB(1:1) = ubound(SrcLinStateSaveData%xd_IceF) if (.not. allocated(DstLinStateSaveData%xd_IceF)) then allocate(DstLinStateSaveData%xd_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2668,8 +2668,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_IceF, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_IceF, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_IceF) + UB(1:1) = ubound(SrcLinStateSaveData%z_IceF) if (.not. allocated(DstLinStateSaveData%z_IceF)) then allocate(DstLinStateSaveData%z_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2684,8 +2684,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IceF, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IceF, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_IceF) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_IceF) if (.not. allocated(DstLinStateSaveData%OtherSt_IceF)) then allocate(DstLinStateSaveData%OtherSt_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2700,8 +2700,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_IceF)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_IceF, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_IceF, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_IceF) + UB(1:1) = ubound(SrcLinStateSaveData%u_IceF) if (.not. allocated(DstLinStateSaveData%u_IceF)) then allocate(DstLinStateSaveData%u_IceF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2716,8 +2716,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_MAP, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_MAP, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_MAP) + UB(1:1) = ubound(SrcLinStateSaveData%x_MAP) if (.not. allocated(DstLinStateSaveData%x_MAP)) then allocate(DstLinStateSaveData%x_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2732,8 +2732,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_MAP, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_MAP, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_MAP) + UB(1:1) = ubound(SrcLinStateSaveData%xd_MAP) if (.not. allocated(DstLinStateSaveData%xd_MAP)) then allocate(DstLinStateSaveData%xd_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2748,8 +2748,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_MAP, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_MAP, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_MAP) + UB(1:1) = ubound(SrcLinStateSaveData%z_MAP) if (.not. allocated(DstLinStateSaveData%z_MAP)) then allocate(DstLinStateSaveData%z_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2764,8 +2764,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_MAP)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_MAP, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_MAP, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_MAP) + UB(1:1) = ubound(SrcLinStateSaveData%u_MAP) if (.not. allocated(DstLinStateSaveData%u_MAP)) then allocate(DstLinStateSaveData%u_MAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2780,8 +2780,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_FEAM, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_FEAM, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_FEAM) + UB(1:1) = ubound(SrcLinStateSaveData%x_FEAM) if (.not. allocated(DstLinStateSaveData%x_FEAM)) then allocate(DstLinStateSaveData%x_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2796,8 +2796,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_FEAM, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_FEAM, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_FEAM) + UB(1:1) = ubound(SrcLinStateSaveData%xd_FEAM) if (.not. allocated(DstLinStateSaveData%xd_FEAM)) then allocate(DstLinStateSaveData%xd_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2812,8 +2812,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_FEAM, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_FEAM, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_FEAM) + UB(1:1) = ubound(SrcLinStateSaveData%z_FEAM) if (.not. allocated(DstLinStateSaveData%z_FEAM)) then allocate(DstLinStateSaveData%z_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2828,8 +2828,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_FEAM, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_FEAM, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_FEAM) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_FEAM) if (.not. allocated(DstLinStateSaveData%OtherSt_FEAM)) then allocate(DstLinStateSaveData%OtherSt_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2844,8 +2844,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_FEAM)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_FEAM, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_FEAM, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_FEAM) + UB(1:1) = ubound(SrcLinStateSaveData%u_FEAM) if (.not. allocated(DstLinStateSaveData%u_FEAM)) then allocate(DstLinStateSaveData%u_FEAM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2860,8 +2860,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%x_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%x_MD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%x_MD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%x_MD) + UB(1:1) = ubound(SrcLinStateSaveData%x_MD) if (.not. allocated(DstLinStateSaveData%x_MD)) then allocate(DstLinStateSaveData%x_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2876,8 +2876,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%xd_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%xd_MD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%xd_MD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%xd_MD) + UB(1:1) = ubound(SrcLinStateSaveData%xd_MD) if (.not. allocated(DstLinStateSaveData%xd_MD)) then allocate(DstLinStateSaveData%xd_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2892,8 +2892,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%z_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%z_MD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%z_MD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%z_MD) + UB(1:1) = ubound(SrcLinStateSaveData%z_MD) if (.not. allocated(DstLinStateSaveData%z_MD)) then allocate(DstLinStateSaveData%z_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2908,8 +2908,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%OtherSt_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_MD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_MD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%OtherSt_MD) + UB(1:1) = ubound(SrcLinStateSaveData%OtherSt_MD) if (.not. allocated(DstLinStateSaveData%OtherSt_MD)) then allocate(DstLinStateSaveData%OtherSt_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2924,8 +2924,8 @@ subroutine FAST_CopyLinStateSave(SrcLinStateSaveData, DstLinStateSaveData, CtrlC end do end if if (allocated(SrcLinStateSaveData%u_MD)) then - LB(1:1) = lbound(SrcLinStateSaveData%u_MD, kind=B8Ki) - UB(1:1) = ubound(SrcLinStateSaveData%u_MD, kind=B8Ki) + LB(1:1) = lbound(SrcLinStateSaveData%u_MD) + UB(1:1) = ubound(SrcLinStateSaveData%u_MD) if (.not. allocated(DstLinStateSaveData%u_MD)) then allocate(DstLinStateSaveData%u_MD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2945,16 +2945,16 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) type(FAST_LinStateSave), intent(inout) :: LinStateSaveData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%x_IceD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%x_IceD) + UB(1:2) = ubound(LinStateSaveData%x_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyContState(LinStateSaveData%x_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -2964,8 +2964,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%xd_IceD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%xd_IceD) + UB(1:2) = ubound(LinStateSaveData%xd_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyDiscState(LinStateSaveData%xd_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -2975,8 +2975,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%z_IceD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%z_IceD) + UB(1:2) = ubound(LinStateSaveData%z_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyConstrState(LinStateSaveData%z_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -2986,8 +2986,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%OtherSt_IceD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%OtherSt_IceD) + UB(1:2) = ubound(LinStateSaveData%OtherSt_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyOtherState(LinStateSaveData%OtherSt_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -2997,8 +2997,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%u_IceD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%u_IceD) + UB(1:2) = ubound(LinStateSaveData%u_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyInput(LinStateSaveData%u_IceD(i1,i2), ErrStat2, ErrMsg2) @@ -3008,8 +3008,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%x_BD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%x_BD) + UB(1:2) = ubound(LinStateSaveData%x_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyContState(LinStateSaveData%x_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3019,8 +3019,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%xd_BD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%xd_BD) + UB(1:2) = ubound(LinStateSaveData%xd_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyDiscState(LinStateSaveData%xd_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3030,8 +3030,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%z_BD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%z_BD) + UB(1:2) = ubound(LinStateSaveData%z_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyConstrState(LinStateSaveData%z_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3041,8 +3041,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%OtherSt_BD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%OtherSt_BD) + UB(1:2) = ubound(LinStateSaveData%OtherSt_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyOtherState(LinStateSaveData%OtherSt_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3052,8 +3052,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, kind=B8Ki) - UB(1:2) = ubound(LinStateSaveData%u_BD, kind=B8Ki) + LB(1:2) = lbound(LinStateSaveData%u_BD) + UB(1:2) = ubound(LinStateSaveData%u_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyInput(LinStateSaveData%u_BD(i1,i2), ErrStat2, ErrMsg2) @@ -3063,8 +3063,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_ED, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_ED) + UB(1:1) = ubound(LinStateSaveData%x_ED) do i1 = LB(1), UB(1) call ED_DestroyContState(LinStateSaveData%x_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3072,8 +3072,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_ED, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_ED) + UB(1:1) = ubound(LinStateSaveData%xd_ED) do i1 = LB(1), UB(1) call ED_DestroyDiscState(LinStateSaveData%xd_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3081,8 +3081,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_ED, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_ED) + UB(1:1) = ubound(LinStateSaveData%z_ED) do i1 = LB(1), UB(1) call ED_DestroyConstrState(LinStateSaveData%z_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3090,8 +3090,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_ED, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_ED) + UB(1:1) = ubound(LinStateSaveData%OtherSt_ED) do i1 = LB(1), UB(1) call ED_DestroyOtherState(LinStateSaveData%OtherSt_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3099,8 +3099,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_ED, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_ED) + UB(1:1) = ubound(LinStateSaveData%u_ED) do i1 = LB(1), UB(1) call ED_DestroyInput(LinStateSaveData%u_ED(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3108,8 +3108,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_SrvD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_SrvD) + UB(1:1) = ubound(LinStateSaveData%x_SrvD) do i1 = LB(1), UB(1) call SrvD_DestroyContState(LinStateSaveData%x_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3117,8 +3117,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_SrvD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_SrvD) + UB(1:1) = ubound(LinStateSaveData%xd_SrvD) do i1 = LB(1), UB(1) call SrvD_DestroyDiscState(LinStateSaveData%xd_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3126,8 +3126,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_SrvD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_SrvD) + UB(1:1) = ubound(LinStateSaveData%z_SrvD) do i1 = LB(1), UB(1) call SrvD_DestroyConstrState(LinStateSaveData%z_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3135,8 +3135,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_SrvD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_SrvD) + UB(1:1) = ubound(LinStateSaveData%OtherSt_SrvD) do i1 = LB(1), UB(1) call SrvD_DestroyOtherState(LinStateSaveData%OtherSt_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3144,8 +3144,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_SrvD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_SrvD) + UB(1:1) = ubound(LinStateSaveData%u_SrvD) do i1 = LB(1), UB(1) call SrvD_DestroyInput(LinStateSaveData%u_SrvD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3153,8 +3153,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_AD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_AD) + UB(1:1) = ubound(LinStateSaveData%x_AD) do i1 = LB(1), UB(1) call AD_DestroyContState(LinStateSaveData%x_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3162,8 +3162,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_AD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_AD) + UB(1:1) = ubound(LinStateSaveData%xd_AD) do i1 = LB(1), UB(1) call AD_DestroyDiscState(LinStateSaveData%xd_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3171,8 +3171,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_AD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_AD) + UB(1:1) = ubound(LinStateSaveData%z_AD) do i1 = LB(1), UB(1) call AD_DestroyConstrState(LinStateSaveData%z_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3180,8 +3180,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_AD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_AD) + UB(1:1) = ubound(LinStateSaveData%OtherSt_AD) do i1 = LB(1), UB(1) call AD_DestroyOtherState(LinStateSaveData%OtherSt_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3189,8 +3189,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_AD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_AD) + UB(1:1) = ubound(LinStateSaveData%u_AD) do i1 = LB(1), UB(1) call AD_DestroyInput(LinStateSaveData%u_AD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3198,8 +3198,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_IfW, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_IfW) + UB(1:1) = ubound(LinStateSaveData%x_IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyContState(LinStateSaveData%x_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3207,8 +3207,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_IfW, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_IfW) + UB(1:1) = ubound(LinStateSaveData%xd_IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyDiscState(LinStateSaveData%xd_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3216,8 +3216,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_IfW, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_IfW) + UB(1:1) = ubound(LinStateSaveData%z_IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyConstrState(LinStateSaveData%z_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3225,8 +3225,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_IfW, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_IfW) + UB(1:1) = ubound(LinStateSaveData%OtherSt_IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyOtherState(LinStateSaveData%OtherSt_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3234,8 +3234,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_IfW, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_IfW) + UB(1:1) = ubound(LinStateSaveData%u_IfW) do i1 = LB(1), UB(1) call InflowWind_DestroyInput(LinStateSaveData%u_IfW(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3243,8 +3243,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_SD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_SD) + UB(1:1) = ubound(LinStateSaveData%x_SD) do i1 = LB(1), UB(1) call SD_DestroyContState(LinStateSaveData%x_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3252,8 +3252,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_SD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_SD) + UB(1:1) = ubound(LinStateSaveData%xd_SD) do i1 = LB(1), UB(1) call SD_DestroyDiscState(LinStateSaveData%xd_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3261,8 +3261,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_SD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_SD) + UB(1:1) = ubound(LinStateSaveData%z_SD) do i1 = LB(1), UB(1) call SD_DestroyConstrState(LinStateSaveData%z_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3270,8 +3270,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_SD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_SD) + UB(1:1) = ubound(LinStateSaveData%OtherSt_SD) do i1 = LB(1), UB(1) call SD_DestroyOtherState(LinStateSaveData%OtherSt_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3279,8 +3279,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_SD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_SD) + UB(1:1) = ubound(LinStateSaveData%u_SD) do i1 = LB(1), UB(1) call SD_DestroyInput(LinStateSaveData%u_SD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3288,8 +3288,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_ExtPtfm) + UB(1:1) = ubound(LinStateSaveData%x_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_DestroyContState(LinStateSaveData%x_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3297,8 +3297,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_ExtPtfm) + UB(1:1) = ubound(LinStateSaveData%xd_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_DestroyDiscState(LinStateSaveData%xd_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3306,8 +3306,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_ExtPtfm) + UB(1:1) = ubound(LinStateSaveData%z_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_DestroyConstrState(LinStateSaveData%z_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3315,8 +3315,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_ExtPtfm) + UB(1:1) = ubound(LinStateSaveData%OtherSt_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_DestroyOtherState(LinStateSaveData%OtherSt_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3324,8 +3324,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_ExtPtfm, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_ExtPtfm) + UB(1:1) = ubound(LinStateSaveData%u_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_DestroyInput(LinStateSaveData%u_ExtPtfm(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3333,8 +3333,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_HD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_HD) + UB(1:1) = ubound(LinStateSaveData%x_HD) do i1 = LB(1), UB(1) call HydroDyn_DestroyContState(LinStateSaveData%x_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3342,8 +3342,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_HD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_HD) + UB(1:1) = ubound(LinStateSaveData%xd_HD) do i1 = LB(1), UB(1) call HydroDyn_DestroyDiscState(LinStateSaveData%xd_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3351,8 +3351,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_HD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_HD) + UB(1:1) = ubound(LinStateSaveData%z_HD) do i1 = LB(1), UB(1) call HydroDyn_DestroyConstrState(LinStateSaveData%z_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3360,8 +3360,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_HD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_HD) + UB(1:1) = ubound(LinStateSaveData%OtherSt_HD) do i1 = LB(1), UB(1) call HydroDyn_DestroyOtherState(LinStateSaveData%OtherSt_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3369,8 +3369,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_HD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_HD) + UB(1:1) = ubound(LinStateSaveData%u_HD) do i1 = LB(1), UB(1) call HydroDyn_DestroyInput(LinStateSaveData%u_HD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3378,8 +3378,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_HD) end if if (allocated(LinStateSaveData%x_SeaSt)) then - LB(1:1) = lbound(LinStateSaveData%x_SeaSt, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_SeaSt, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_SeaSt) + UB(1:1) = ubound(LinStateSaveData%x_SeaSt) do i1 = LB(1), UB(1) call SeaSt_DestroyContState(LinStateSaveData%x_SeaSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3387,8 +3387,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%x_SeaSt) end if if (allocated(LinStateSaveData%xd_SeaSt)) then - LB(1:1) = lbound(LinStateSaveData%xd_SeaSt, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_SeaSt, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_SeaSt) + UB(1:1) = ubound(LinStateSaveData%xd_SeaSt) do i1 = LB(1), UB(1) call SeaSt_DestroyDiscState(LinStateSaveData%xd_SeaSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3396,8 +3396,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%xd_SeaSt) end if if (allocated(LinStateSaveData%z_SeaSt)) then - LB(1:1) = lbound(LinStateSaveData%z_SeaSt, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_SeaSt, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_SeaSt) + UB(1:1) = ubound(LinStateSaveData%z_SeaSt) do i1 = LB(1), UB(1) call SeaSt_DestroyConstrState(LinStateSaveData%z_SeaSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3405,8 +3405,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%z_SeaSt) end if if (allocated(LinStateSaveData%OtherSt_SeaSt)) then - LB(1:1) = lbound(LinStateSaveData%OtherSt_SeaSt, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_SeaSt, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_SeaSt) + UB(1:1) = ubound(LinStateSaveData%OtherSt_SeaSt) do i1 = LB(1), UB(1) call SeaSt_DestroyOtherState(LinStateSaveData%OtherSt_SeaSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3414,8 +3414,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%OtherSt_SeaSt) end if if (allocated(LinStateSaveData%u_SeaSt)) then - LB(1:1) = lbound(LinStateSaveData%u_SeaSt, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_SeaSt, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_SeaSt) + UB(1:1) = ubound(LinStateSaveData%u_SeaSt) do i1 = LB(1), UB(1) call SeaSt_DestroyInput(LinStateSaveData%u_SeaSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3423,8 +3423,8 @@ subroutine FAST_DestroyLinStateSave(LinStateSaveData, ErrStat, ErrMsg) deallocate(LinStateSaveData%u_SeaSt) end if if (allocated(LinStateSaveData%x_IceF)) then - LB(1:1) = lbound(LinStateSaveData%x_IceF, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_IceF, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_IceF) + UB(1:1) = ubound(LinStateSaveData%x_IceF) do i1 = LB(1), UB(1) call IceFloe_DestroyContState(LinStateSaveData%x_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3432,8 +3432,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_IceF, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_IceF) + UB(1:1) = ubound(LinStateSaveData%xd_IceF) do i1 = LB(1), UB(1) call IceFloe_DestroyDiscState(LinStateSaveData%xd_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3441,8 +3441,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_IceF, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_IceF) + UB(1:1) = ubound(LinStateSaveData%z_IceF) do i1 = LB(1), UB(1) call IceFloe_DestroyConstrState(LinStateSaveData%z_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3450,8 +3450,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_IceF, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_IceF) + UB(1:1) = ubound(LinStateSaveData%OtherSt_IceF) do i1 = LB(1), UB(1) call IceFloe_DestroyOtherState(LinStateSaveData%OtherSt_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3459,8 +3459,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_IceF, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_IceF) + UB(1:1) = ubound(LinStateSaveData%u_IceF) do i1 = LB(1), UB(1) call IceFloe_DestroyInput(LinStateSaveData%u_IceF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3468,8 +3468,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_MAP, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_MAP) + UB(1:1) = ubound(LinStateSaveData%x_MAP) do i1 = LB(1), UB(1) call MAP_DestroyContState(LinStateSaveData%x_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3477,8 +3477,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_MAP, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_MAP) + UB(1:1) = ubound(LinStateSaveData%xd_MAP) do i1 = LB(1), UB(1) call MAP_DestroyDiscState(LinStateSaveData%xd_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3486,8 +3486,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_MAP, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_MAP) + UB(1:1) = ubound(LinStateSaveData%z_MAP) do i1 = LB(1), UB(1) call MAP_DestroyConstrState(LinStateSaveData%z_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3495,8 +3495,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_MAP, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_MAP) + UB(1:1) = ubound(LinStateSaveData%u_MAP) do i1 = LB(1), UB(1) call MAP_DestroyInput(LinStateSaveData%u_MAP(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3504,8 +3504,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_FEAM, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_FEAM) + UB(1:1) = ubound(LinStateSaveData%x_FEAM) do i1 = LB(1), UB(1) call FEAM_DestroyContState(LinStateSaveData%x_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3513,8 +3513,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_FEAM, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_FEAM) + UB(1:1) = ubound(LinStateSaveData%xd_FEAM) do i1 = LB(1), UB(1) call FEAM_DestroyDiscState(LinStateSaveData%xd_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3522,8 +3522,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_FEAM, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_FEAM) + UB(1:1) = ubound(LinStateSaveData%z_FEAM) do i1 = LB(1), UB(1) call FEAM_DestroyConstrState(LinStateSaveData%z_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3531,8 +3531,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_FEAM, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_FEAM) + UB(1:1) = ubound(LinStateSaveData%OtherSt_FEAM) do i1 = LB(1), UB(1) call FEAM_DestroyOtherState(LinStateSaveData%OtherSt_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3540,8 +3540,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_FEAM, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_FEAM) + UB(1:1) = ubound(LinStateSaveData%u_FEAM) do i1 = LB(1), UB(1) call FEAM_DestroyInput(LinStateSaveData%u_FEAM(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3549,8 +3549,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%x_MD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%x_MD) + UB(1:1) = ubound(LinStateSaveData%x_MD) do i1 = LB(1), UB(1) call MD_DestroyContState(LinStateSaveData%x_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3558,8 +3558,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%xd_MD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%xd_MD) + UB(1:1) = ubound(LinStateSaveData%xd_MD) do i1 = LB(1), UB(1) call MD_DestroyDiscState(LinStateSaveData%xd_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3567,8 +3567,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%z_MD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%z_MD) + UB(1:1) = ubound(LinStateSaveData%z_MD) do i1 = LB(1), UB(1) call MD_DestroyConstrState(LinStateSaveData%z_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3576,8 +3576,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%OtherSt_MD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%OtherSt_MD) + UB(1:1) = ubound(LinStateSaveData%OtherSt_MD) do i1 = LB(1), UB(1) call MD_DestroyOtherState(LinStateSaveData%OtherSt_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3585,8 +3585,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, kind=B8Ki) - UB(1:1) = ubound(LinStateSaveData%u_MD, kind=B8Ki) + LB(1:1) = lbound(LinStateSaveData%u_MD) + UB(1:1) = ubound(LinStateSaveData%u_MD) do i1 = LB(1), UB(1) call MD_DestroyInput(LinStateSaveData%u_MD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3599,14 +3599,14 @@ subroutine FAST_PackLinStateSave(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_LinStateSave), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackLinStateSave' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%x_IceD)) if (allocated(InData%x_IceD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%x_IceD), ubound(InData%x_IceD)) + LB(1:2) = lbound(InData%x_IceD) + UB(1:2) = ubound(InData%x_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackContState(RF, InData%x_IceD(i1,i2)) @@ -3615,9 +3615,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%xd_IceD)) if (allocated(InData%xd_IceD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%xd_IceD), ubound(InData%xd_IceD)) + LB(1:2) = lbound(InData%xd_IceD) + UB(1:2) = ubound(InData%xd_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackDiscState(RF, InData%xd_IceD(i1,i2)) @@ -3626,9 +3626,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%z_IceD)) if (allocated(InData%z_IceD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%z_IceD), ubound(InData%z_IceD)) + LB(1:2) = lbound(InData%z_IceD) + UB(1:2) = ubound(InData%z_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackConstrState(RF, InData%z_IceD(i1,i2)) @@ -3637,9 +3637,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%OtherSt_IceD)) if (allocated(InData%OtherSt_IceD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%OtherSt_IceD), ubound(InData%OtherSt_IceD)) + LB(1:2) = lbound(InData%OtherSt_IceD) + UB(1:2) = ubound(InData%OtherSt_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackOtherState(RF, InData%OtherSt_IceD(i1,i2)) @@ -3648,9 +3648,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%u_IceD)) if (allocated(InData%u_IceD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_IceD), ubound(InData%u_IceD)) + LB(1:2) = lbound(InData%u_IceD) + UB(1:2) = ubound(InData%u_IceD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackInput(RF, InData%u_IceD(i1,i2)) @@ -3659,9 +3659,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%x_BD)) if (allocated(InData%x_BD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%x_BD), ubound(InData%x_BD)) + LB(1:2) = lbound(InData%x_BD) + UB(1:2) = ubound(InData%x_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackContState(RF, InData%x_BD(i1,i2)) @@ -3670,9 +3670,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%xd_BD)) if (allocated(InData%xd_BD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%xd_BD), ubound(InData%xd_BD)) + LB(1:2) = lbound(InData%xd_BD) + UB(1:2) = ubound(InData%xd_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackDiscState(RF, InData%xd_BD(i1,i2)) @@ -3681,9 +3681,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%z_BD)) if (allocated(InData%z_BD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%z_BD), ubound(InData%z_BD)) + LB(1:2) = lbound(InData%z_BD) + UB(1:2) = ubound(InData%z_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackConstrState(RF, InData%z_BD(i1,i2)) @@ -3692,9 +3692,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%OtherSt_BD)) if (allocated(InData%OtherSt_BD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%OtherSt_BD), ubound(InData%OtherSt_BD)) + LB(1:2) = lbound(InData%OtherSt_BD) + UB(1:2) = ubound(InData%OtherSt_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackOtherState(RF, InData%OtherSt_BD(i1,i2)) @@ -3703,9 +3703,9 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%u_BD)) if (allocated(InData%u_BD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_BD), ubound(InData%u_BD)) + LB(1:2) = lbound(InData%u_BD) + UB(1:2) = ubound(InData%u_BD) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackInput(RF, InData%u_BD(i1,i2)) @@ -3714,531 +3714,531 @@ subroutine FAST_PackLinStateSave(RF, Indata) end if call RegPack(RF, allocated(InData%x_ED)) if (allocated(InData%x_ED)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_ED), ubound(InData%x_ED)) + LB(1:1) = lbound(InData%x_ED) + UB(1:1) = ubound(InData%x_ED) do i1 = LB(1), UB(1) call ED_PackContState(RF, InData%x_ED(i1)) end do end if call RegPack(RF, allocated(InData%xd_ED)) if (allocated(InData%xd_ED)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_ED), ubound(InData%xd_ED)) + LB(1:1) = lbound(InData%xd_ED) + UB(1:1) = ubound(InData%xd_ED) do i1 = LB(1), UB(1) call ED_PackDiscState(RF, InData%xd_ED(i1)) end do end if call RegPack(RF, allocated(InData%z_ED)) if (allocated(InData%z_ED)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_ED), ubound(InData%z_ED)) + LB(1:1) = lbound(InData%z_ED) + UB(1:1) = ubound(InData%z_ED) do i1 = LB(1), UB(1) call ED_PackConstrState(RF, InData%z_ED(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_ED)) if (allocated(InData%OtherSt_ED)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_ED), ubound(InData%OtherSt_ED)) + LB(1:1) = lbound(InData%OtherSt_ED) + UB(1:1) = ubound(InData%OtherSt_ED) do i1 = LB(1), UB(1) call ED_PackOtherState(RF, InData%OtherSt_ED(i1)) end do end if call RegPack(RF, allocated(InData%u_ED)) if (allocated(InData%u_ED)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_ED), ubound(InData%u_ED)) + LB(1:1) = lbound(InData%u_ED) + UB(1:1) = ubound(InData%u_ED) do i1 = LB(1), UB(1) call ED_PackInput(RF, InData%u_ED(i1)) end do end if call RegPack(RF, allocated(InData%x_SrvD)) if (allocated(InData%x_SrvD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_SrvD), ubound(InData%x_SrvD)) + LB(1:1) = lbound(InData%x_SrvD) + UB(1:1) = ubound(InData%x_SrvD) do i1 = LB(1), UB(1) call SrvD_PackContState(RF, InData%x_SrvD(i1)) end do end if call RegPack(RF, allocated(InData%xd_SrvD)) if (allocated(InData%xd_SrvD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_SrvD), ubound(InData%xd_SrvD)) + LB(1:1) = lbound(InData%xd_SrvD) + UB(1:1) = ubound(InData%xd_SrvD) do i1 = LB(1), UB(1) call SrvD_PackDiscState(RF, InData%xd_SrvD(i1)) end do end if call RegPack(RF, allocated(InData%z_SrvD)) if (allocated(InData%z_SrvD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_SrvD), ubound(InData%z_SrvD)) + LB(1:1) = lbound(InData%z_SrvD) + UB(1:1) = ubound(InData%z_SrvD) do i1 = LB(1), UB(1) call SrvD_PackConstrState(RF, InData%z_SrvD(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_SrvD)) if (allocated(InData%OtherSt_SrvD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_SrvD), ubound(InData%OtherSt_SrvD)) + LB(1:1) = lbound(InData%OtherSt_SrvD) + UB(1:1) = ubound(InData%OtherSt_SrvD) do i1 = LB(1), UB(1) call SrvD_PackOtherState(RF, InData%OtherSt_SrvD(i1)) end do end if call RegPack(RF, allocated(InData%u_SrvD)) if (allocated(InData%u_SrvD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_SrvD), ubound(InData%u_SrvD)) + LB(1:1) = lbound(InData%u_SrvD) + UB(1:1) = ubound(InData%u_SrvD) do i1 = LB(1), UB(1) call SrvD_PackInput(RF, InData%u_SrvD(i1)) end do end if call RegPack(RF, allocated(InData%x_AD)) if (allocated(InData%x_AD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_AD), ubound(InData%x_AD)) + LB(1:1) = lbound(InData%x_AD) + UB(1:1) = ubound(InData%x_AD) do i1 = LB(1), UB(1) call AD_PackContState(RF, InData%x_AD(i1)) end do end if call RegPack(RF, allocated(InData%xd_AD)) if (allocated(InData%xd_AD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_AD), ubound(InData%xd_AD)) + LB(1:1) = lbound(InData%xd_AD) + UB(1:1) = ubound(InData%xd_AD) do i1 = LB(1), UB(1) call AD_PackDiscState(RF, InData%xd_AD(i1)) end do end if call RegPack(RF, allocated(InData%z_AD)) if (allocated(InData%z_AD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_AD), ubound(InData%z_AD)) + LB(1:1) = lbound(InData%z_AD) + UB(1:1) = ubound(InData%z_AD) do i1 = LB(1), UB(1) call AD_PackConstrState(RF, InData%z_AD(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_AD)) if (allocated(InData%OtherSt_AD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_AD), ubound(InData%OtherSt_AD)) + LB(1:1) = lbound(InData%OtherSt_AD) + UB(1:1) = ubound(InData%OtherSt_AD) do i1 = LB(1), UB(1) call AD_PackOtherState(RF, InData%OtherSt_AD(i1)) end do end if call RegPack(RF, allocated(InData%u_AD)) if (allocated(InData%u_AD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_AD), ubound(InData%u_AD)) + LB(1:1) = lbound(InData%u_AD) + UB(1:1) = ubound(InData%u_AD) do i1 = LB(1), UB(1) call AD_PackInput(RF, InData%u_AD(i1)) end do end if call RegPack(RF, allocated(InData%x_IfW)) if (allocated(InData%x_IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_IfW), ubound(InData%x_IfW)) + LB(1:1) = lbound(InData%x_IfW) + UB(1:1) = ubound(InData%x_IfW) do i1 = LB(1), UB(1) call InflowWind_PackContState(RF, InData%x_IfW(i1)) end do end if call RegPack(RF, allocated(InData%xd_IfW)) if (allocated(InData%xd_IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_IfW), ubound(InData%xd_IfW)) + LB(1:1) = lbound(InData%xd_IfW) + UB(1:1) = ubound(InData%xd_IfW) do i1 = LB(1), UB(1) call InflowWind_PackDiscState(RF, InData%xd_IfW(i1)) end do end if call RegPack(RF, allocated(InData%z_IfW)) if (allocated(InData%z_IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_IfW), ubound(InData%z_IfW)) + LB(1:1) = lbound(InData%z_IfW) + UB(1:1) = ubound(InData%z_IfW) do i1 = LB(1), UB(1) call InflowWind_PackConstrState(RF, InData%z_IfW(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_IfW)) if (allocated(InData%OtherSt_IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_IfW), ubound(InData%OtherSt_IfW)) + LB(1:1) = lbound(InData%OtherSt_IfW) + UB(1:1) = ubound(InData%OtherSt_IfW) do i1 = LB(1), UB(1) call InflowWind_PackOtherState(RF, InData%OtherSt_IfW(i1)) end do end if call RegPack(RF, allocated(InData%u_IfW)) if (allocated(InData%u_IfW)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_IfW), ubound(InData%u_IfW)) + LB(1:1) = lbound(InData%u_IfW) + UB(1:1) = ubound(InData%u_IfW) do i1 = LB(1), UB(1) call InflowWind_PackInput(RF, InData%u_IfW(i1)) end do end if call RegPack(RF, allocated(InData%x_SD)) if (allocated(InData%x_SD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_SD), ubound(InData%x_SD)) + LB(1:1) = lbound(InData%x_SD) + UB(1:1) = ubound(InData%x_SD) do i1 = LB(1), UB(1) call SD_PackContState(RF, InData%x_SD(i1)) end do end if call RegPack(RF, allocated(InData%xd_SD)) if (allocated(InData%xd_SD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_SD), ubound(InData%xd_SD)) + LB(1:1) = lbound(InData%xd_SD) + UB(1:1) = ubound(InData%xd_SD) do i1 = LB(1), UB(1) call SD_PackDiscState(RF, InData%xd_SD(i1)) end do end if call RegPack(RF, allocated(InData%z_SD)) if (allocated(InData%z_SD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_SD), ubound(InData%z_SD)) + LB(1:1) = lbound(InData%z_SD) + UB(1:1) = ubound(InData%z_SD) do i1 = LB(1), UB(1) call SD_PackConstrState(RF, InData%z_SD(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_SD)) if (allocated(InData%OtherSt_SD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_SD), ubound(InData%OtherSt_SD)) + LB(1:1) = lbound(InData%OtherSt_SD) + UB(1:1) = ubound(InData%OtherSt_SD) do i1 = LB(1), UB(1) call SD_PackOtherState(RF, InData%OtherSt_SD(i1)) end do end if call RegPack(RF, allocated(InData%u_SD)) if (allocated(InData%u_SD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_SD), ubound(InData%u_SD)) + LB(1:1) = lbound(InData%u_SD) + UB(1:1) = ubound(InData%u_SD) do i1 = LB(1), UB(1) call SD_PackInput(RF, InData%u_SD(i1)) end do end if call RegPack(RF, allocated(InData%x_ExtPtfm)) if (allocated(InData%x_ExtPtfm)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_ExtPtfm), ubound(InData%x_ExtPtfm)) + LB(1:1) = lbound(InData%x_ExtPtfm) + UB(1:1) = ubound(InData%x_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_PackContState(RF, InData%x_ExtPtfm(i1)) end do end if call RegPack(RF, allocated(InData%xd_ExtPtfm)) if (allocated(InData%xd_ExtPtfm)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_ExtPtfm), ubound(InData%xd_ExtPtfm)) + LB(1:1) = lbound(InData%xd_ExtPtfm) + UB(1:1) = ubound(InData%xd_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_PackDiscState(RF, InData%xd_ExtPtfm(i1)) end do end if call RegPack(RF, allocated(InData%z_ExtPtfm)) if (allocated(InData%z_ExtPtfm)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_ExtPtfm), ubound(InData%z_ExtPtfm)) + LB(1:1) = lbound(InData%z_ExtPtfm) + UB(1:1) = ubound(InData%z_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_PackConstrState(RF, InData%z_ExtPtfm(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_ExtPtfm)) if (allocated(InData%OtherSt_ExtPtfm)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_ExtPtfm), ubound(InData%OtherSt_ExtPtfm)) + LB(1:1) = lbound(InData%OtherSt_ExtPtfm) + UB(1:1) = ubound(InData%OtherSt_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_PackOtherState(RF, InData%OtherSt_ExtPtfm(i1)) end do end if call RegPack(RF, allocated(InData%u_ExtPtfm)) if (allocated(InData%u_ExtPtfm)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_ExtPtfm), ubound(InData%u_ExtPtfm)) + LB(1:1) = lbound(InData%u_ExtPtfm) + UB(1:1) = ubound(InData%u_ExtPtfm) do i1 = LB(1), UB(1) call ExtPtfm_PackInput(RF, InData%u_ExtPtfm(i1)) end do end if call RegPack(RF, allocated(InData%x_HD)) if (allocated(InData%x_HD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_HD), ubound(InData%x_HD)) + LB(1:1) = lbound(InData%x_HD) + UB(1:1) = ubound(InData%x_HD) do i1 = LB(1), UB(1) call HydroDyn_PackContState(RF, InData%x_HD(i1)) end do end if call RegPack(RF, allocated(InData%xd_HD)) if (allocated(InData%xd_HD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_HD), ubound(InData%xd_HD)) + LB(1:1) = lbound(InData%xd_HD) + UB(1:1) = ubound(InData%xd_HD) do i1 = LB(1), UB(1) call HydroDyn_PackDiscState(RF, InData%xd_HD(i1)) end do end if call RegPack(RF, allocated(InData%z_HD)) if (allocated(InData%z_HD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_HD), ubound(InData%z_HD)) + LB(1:1) = lbound(InData%z_HD) + UB(1:1) = ubound(InData%z_HD) do i1 = LB(1), UB(1) call HydroDyn_PackConstrState(RF, InData%z_HD(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_HD)) if (allocated(InData%OtherSt_HD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_HD), ubound(InData%OtherSt_HD)) + LB(1:1) = lbound(InData%OtherSt_HD) + UB(1:1) = ubound(InData%OtherSt_HD) do i1 = LB(1), UB(1) call HydroDyn_PackOtherState(RF, InData%OtherSt_HD(i1)) end do end if call RegPack(RF, allocated(InData%u_HD)) if (allocated(InData%u_HD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_HD), ubound(InData%u_HD)) + LB(1:1) = lbound(InData%u_HD) + UB(1:1) = ubound(InData%u_HD) do i1 = LB(1), UB(1) call HydroDyn_PackInput(RF, InData%u_HD(i1)) end do end if call RegPack(RF, allocated(InData%x_SeaSt)) if (allocated(InData%x_SeaSt)) then - call RegPackBounds(RF, 1, lbound(InData%x_SeaSt, kind=B8Ki), ubound(InData%x_SeaSt, kind=B8Ki)) - LB(1:1) = lbound(InData%x_SeaSt, kind=B8Ki) - UB(1:1) = ubound(InData%x_SeaSt, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%x_SeaSt), ubound(InData%x_SeaSt)) + LB(1:1) = lbound(InData%x_SeaSt) + UB(1:1) = ubound(InData%x_SeaSt) do i1 = LB(1), UB(1) call SeaSt_PackContState(RF, InData%x_SeaSt(i1)) end do end if call RegPack(RF, allocated(InData%xd_SeaSt)) if (allocated(InData%xd_SeaSt)) then - call RegPackBounds(RF, 1, lbound(InData%xd_SeaSt, kind=B8Ki), ubound(InData%xd_SeaSt, kind=B8Ki)) - LB(1:1) = lbound(InData%xd_SeaSt, kind=B8Ki) - UB(1:1) = ubound(InData%xd_SeaSt, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%xd_SeaSt), ubound(InData%xd_SeaSt)) + LB(1:1) = lbound(InData%xd_SeaSt) + UB(1:1) = ubound(InData%xd_SeaSt) do i1 = LB(1), UB(1) call SeaSt_PackDiscState(RF, InData%xd_SeaSt(i1)) end do end if call RegPack(RF, allocated(InData%z_SeaSt)) if (allocated(InData%z_SeaSt)) then - call RegPackBounds(RF, 1, lbound(InData%z_SeaSt, kind=B8Ki), ubound(InData%z_SeaSt, kind=B8Ki)) - LB(1:1) = lbound(InData%z_SeaSt, kind=B8Ki) - UB(1:1) = ubound(InData%z_SeaSt, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%z_SeaSt), ubound(InData%z_SeaSt)) + LB(1:1) = lbound(InData%z_SeaSt) + UB(1:1) = ubound(InData%z_SeaSt) do i1 = LB(1), UB(1) call SeaSt_PackConstrState(RF, InData%z_SeaSt(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_SeaSt)) if (allocated(InData%OtherSt_SeaSt)) then - call RegPackBounds(RF, 1, lbound(InData%OtherSt_SeaSt, kind=B8Ki), ubound(InData%OtherSt_SeaSt, kind=B8Ki)) - LB(1:1) = lbound(InData%OtherSt_SeaSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt_SeaSt, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_SeaSt), ubound(InData%OtherSt_SeaSt)) + LB(1:1) = lbound(InData%OtherSt_SeaSt) + UB(1:1) = ubound(InData%OtherSt_SeaSt) do i1 = LB(1), UB(1) call SeaSt_PackOtherState(RF, InData%OtherSt_SeaSt(i1)) end do end if call RegPack(RF, allocated(InData%u_SeaSt)) if (allocated(InData%u_SeaSt)) then - call RegPackBounds(RF, 1, lbound(InData%u_SeaSt, kind=B8Ki), ubound(InData%u_SeaSt, kind=B8Ki)) - LB(1:1) = lbound(InData%u_SeaSt, kind=B8Ki) - UB(1:1) = ubound(InData%u_SeaSt, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%u_SeaSt), ubound(InData%u_SeaSt)) + LB(1:1) = lbound(InData%u_SeaSt) + UB(1:1) = ubound(InData%u_SeaSt) do i1 = LB(1), UB(1) call SeaSt_PackInput(RF, InData%u_SeaSt(i1)) end do end if call RegPack(RF, allocated(InData%x_IceF)) if (allocated(InData%x_IceF)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_IceF), ubound(InData%x_IceF)) + LB(1:1) = lbound(InData%x_IceF) + UB(1:1) = ubound(InData%x_IceF) do i1 = LB(1), UB(1) call IceFloe_PackContState(RF, InData%x_IceF(i1)) end do end if call RegPack(RF, allocated(InData%xd_IceF)) if (allocated(InData%xd_IceF)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_IceF), ubound(InData%xd_IceF)) + LB(1:1) = lbound(InData%xd_IceF) + UB(1:1) = ubound(InData%xd_IceF) do i1 = LB(1), UB(1) call IceFloe_PackDiscState(RF, InData%xd_IceF(i1)) end do end if call RegPack(RF, allocated(InData%z_IceF)) if (allocated(InData%z_IceF)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_IceF), ubound(InData%z_IceF)) + LB(1:1) = lbound(InData%z_IceF) + UB(1:1) = ubound(InData%z_IceF) do i1 = LB(1), UB(1) call IceFloe_PackConstrState(RF, InData%z_IceF(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_IceF)) if (allocated(InData%OtherSt_IceF)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_IceF), ubound(InData%OtherSt_IceF)) + LB(1:1) = lbound(InData%OtherSt_IceF) + UB(1:1) = ubound(InData%OtherSt_IceF) do i1 = LB(1), UB(1) call IceFloe_PackOtherState(RF, InData%OtherSt_IceF(i1)) end do end if call RegPack(RF, allocated(InData%u_IceF)) if (allocated(InData%u_IceF)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_IceF), ubound(InData%u_IceF)) + LB(1:1) = lbound(InData%u_IceF) + UB(1:1) = ubound(InData%u_IceF) do i1 = LB(1), UB(1) call IceFloe_PackInput(RF, InData%u_IceF(i1)) end do end if call RegPack(RF, allocated(InData%x_MAP)) if (allocated(InData%x_MAP)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_MAP), ubound(InData%x_MAP)) + LB(1:1) = lbound(InData%x_MAP) + UB(1:1) = ubound(InData%x_MAP) do i1 = LB(1), UB(1) call MAP_PackContState(RF, InData%x_MAP(i1)) end do end if call RegPack(RF, allocated(InData%xd_MAP)) if (allocated(InData%xd_MAP)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_MAP), ubound(InData%xd_MAP)) + LB(1:1) = lbound(InData%xd_MAP) + UB(1:1) = ubound(InData%xd_MAP) do i1 = LB(1), UB(1) call MAP_PackDiscState(RF, InData%xd_MAP(i1)) end do end if call RegPack(RF, allocated(InData%z_MAP)) if (allocated(InData%z_MAP)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_MAP), ubound(InData%z_MAP)) + LB(1:1) = lbound(InData%z_MAP) + UB(1:1) = ubound(InData%z_MAP) do i1 = LB(1), UB(1) call MAP_PackConstrState(RF, InData%z_MAP(i1)) end do end if call RegPack(RF, allocated(InData%u_MAP)) if (allocated(InData%u_MAP)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_MAP), ubound(InData%u_MAP)) + LB(1:1) = lbound(InData%u_MAP) + UB(1:1) = ubound(InData%u_MAP) do i1 = LB(1), UB(1) call MAP_PackInput(RF, InData%u_MAP(i1)) end do end if call RegPack(RF, allocated(InData%x_FEAM)) if (allocated(InData%x_FEAM)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_FEAM), ubound(InData%x_FEAM)) + LB(1:1) = lbound(InData%x_FEAM) + UB(1:1) = ubound(InData%x_FEAM) do i1 = LB(1), UB(1) call FEAM_PackContState(RF, InData%x_FEAM(i1)) end do end if call RegPack(RF, allocated(InData%xd_FEAM)) if (allocated(InData%xd_FEAM)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_FEAM), ubound(InData%xd_FEAM)) + LB(1:1) = lbound(InData%xd_FEAM) + UB(1:1) = ubound(InData%xd_FEAM) do i1 = LB(1), UB(1) call FEAM_PackDiscState(RF, InData%xd_FEAM(i1)) end do end if call RegPack(RF, allocated(InData%z_FEAM)) if (allocated(InData%z_FEAM)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_FEAM), ubound(InData%z_FEAM)) + LB(1:1) = lbound(InData%z_FEAM) + UB(1:1) = ubound(InData%z_FEAM) do i1 = LB(1), UB(1) call FEAM_PackConstrState(RF, InData%z_FEAM(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_FEAM)) if (allocated(InData%OtherSt_FEAM)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_FEAM), ubound(InData%OtherSt_FEAM)) + LB(1:1) = lbound(InData%OtherSt_FEAM) + UB(1:1) = ubound(InData%OtherSt_FEAM) do i1 = LB(1), UB(1) call FEAM_PackOtherState(RF, InData%OtherSt_FEAM(i1)) end do end if call RegPack(RF, allocated(InData%u_FEAM)) if (allocated(InData%u_FEAM)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_FEAM), ubound(InData%u_FEAM)) + LB(1:1) = lbound(InData%u_FEAM) + UB(1:1) = ubound(InData%u_FEAM) do i1 = LB(1), UB(1) call FEAM_PackInput(RF, InData%u_FEAM(i1)) end do end if call RegPack(RF, allocated(InData%x_MD)) if (allocated(InData%x_MD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%x_MD), ubound(InData%x_MD)) + LB(1:1) = lbound(InData%x_MD) + UB(1:1) = ubound(InData%x_MD) do i1 = LB(1), UB(1) call MD_PackContState(RF, InData%x_MD(i1)) end do end if call RegPack(RF, allocated(InData%xd_MD)) if (allocated(InData%xd_MD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xd_MD), ubound(InData%xd_MD)) + LB(1:1) = lbound(InData%xd_MD) + UB(1:1) = ubound(InData%xd_MD) do i1 = LB(1), UB(1) call MD_PackDiscState(RF, InData%xd_MD(i1)) end do end if call RegPack(RF, allocated(InData%z_MD)) if (allocated(InData%z_MD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%z_MD), ubound(InData%z_MD)) + LB(1:1) = lbound(InData%z_MD) + UB(1:1) = ubound(InData%z_MD) do i1 = LB(1), UB(1) call MD_PackConstrState(RF, InData%z_MD(i1)) end do end if call RegPack(RF, allocated(InData%OtherSt_MD)) if (allocated(InData%OtherSt_MD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OtherSt_MD), ubound(InData%OtherSt_MD)) + LB(1:1) = lbound(InData%OtherSt_MD) + UB(1:1) = ubound(InData%OtherSt_MD) do i1 = LB(1), UB(1) call MD_PackOtherState(RF, InData%OtherSt_MD(i1)) end do end if call RegPack(RF, allocated(InData%u_MD)) if (allocated(InData%u_MD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u_MD), ubound(InData%u_MD)) + LB(1:1) = lbound(InData%u_MD) + UB(1:1) = ubound(InData%u_MD) do i1 = LB(1), UB(1) call MD_PackInput(RF, InData%u_MD(i1)) end do @@ -4250,8 +4250,8 @@ subroutine FAST_UnPackLinStateSave(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_LinStateSave), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackLinStateSave' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5180,14 +5180,14 @@ subroutine FAST_CopyLinType(SrcLinTypeData, DstLinTypeData, CtrlCode, ErrStat, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Names_u, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Names_u) + UB(1:1) = ubound(SrcLinTypeData%Names_u) if (.not. allocated(DstLinTypeData%Names_u)) then allocate(DstLinTypeData%Names_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5198,8 +5198,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Names_y, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Names_y) + UB(1:1) = ubound(SrcLinTypeData%Names_y) if (.not. allocated(DstLinTypeData%Names_y)) then allocate(DstLinTypeData%Names_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5210,8 +5210,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Names_x, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Names_x) + UB(1:1) = ubound(SrcLinTypeData%Names_x) if (.not. allocated(DstLinTypeData%Names_x)) then allocate(DstLinTypeData%Names_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5222,8 +5222,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Names_xd, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Names_xd) + UB(1:1) = ubound(SrcLinTypeData%Names_xd) if (.not. allocated(DstLinTypeData%Names_xd)) then allocate(DstLinTypeData%Names_xd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5234,8 +5234,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Names_z, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Names_z) + UB(1:1) = ubound(SrcLinTypeData%Names_z) if (.not. allocated(DstLinTypeData%Names_z)) then allocate(DstLinTypeData%Names_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5246,8 +5246,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_u, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_u) + UB(1:1) = ubound(SrcLinTypeData%op_u) if (.not. allocated(DstLinTypeData%op_u)) then allocate(DstLinTypeData%op_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5258,8 +5258,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_y, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_y) + UB(1:1) = ubound(SrcLinTypeData%op_y) if (.not. allocated(DstLinTypeData%op_y)) then allocate(DstLinTypeData%op_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5270,8 +5270,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_x, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_x) + UB(1:1) = ubound(SrcLinTypeData%op_x) if (.not. allocated(DstLinTypeData%op_x)) then allocate(DstLinTypeData%op_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5282,8 +5282,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_dx, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_dx) + UB(1:1) = ubound(SrcLinTypeData%op_dx) if (.not. allocated(DstLinTypeData%op_dx)) then allocate(DstLinTypeData%op_dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5294,8 +5294,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_xd, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_xd) + UB(1:1) = ubound(SrcLinTypeData%op_xd) if (.not. allocated(DstLinTypeData%op_xd)) then allocate(DstLinTypeData%op_xd(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5306,8 +5306,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_z, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_z) + UB(1:1) = ubound(SrcLinTypeData%op_z) if (.not. allocated(DstLinTypeData%op_z)) then allocate(DstLinTypeData%op_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5318,8 +5318,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_x_eig_mag, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_x_eig_mag) + UB(1:1) = ubound(SrcLinTypeData%op_x_eig_mag) 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 @@ -5330,8 +5330,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%op_x_eig_phase, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%op_x_eig_phase) + UB(1:1) = ubound(SrcLinTypeData%op_x_eig_phase) 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 @@ -5342,8 +5342,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Use_u, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Use_u) + UB(1:1) = ubound(SrcLinTypeData%Use_u) if (.not. allocated(DstLinTypeData%Use_u)) then allocate(DstLinTypeData%Use_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5354,8 +5354,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%Use_y, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%Use_y) + UB(1:1) = ubound(SrcLinTypeData%Use_y) if (.not. allocated(DstLinTypeData%Use_y)) then allocate(DstLinTypeData%Use_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5366,8 +5366,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%A, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%A) + UB(1:2) = ubound(SrcLinTypeData%A) if (.not. allocated(DstLinTypeData%A)) then allocate(DstLinTypeData%A(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5378,8 +5378,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%B, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%B) + UB(1:2) = ubound(SrcLinTypeData%B) if (.not. allocated(DstLinTypeData%B)) then allocate(DstLinTypeData%B(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5390,8 +5390,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%C, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%C) + UB(1:2) = ubound(SrcLinTypeData%C) if (.not. allocated(DstLinTypeData%C)) then allocate(DstLinTypeData%C(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5402,8 +5402,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%D, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%D) + UB(1:2) = ubound(SrcLinTypeData%D) if (.not. allocated(DstLinTypeData%D)) then allocate(DstLinTypeData%D(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5414,8 +5414,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%StateRotation, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%StateRotation) + UB(1:2) = ubound(SrcLinTypeData%StateRotation) if (.not. allocated(DstLinTypeData%StateRotation)) then allocate(DstLinTypeData%StateRotation(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5426,8 +5426,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%StateRel_x, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%StateRel_x) + UB(1:2) = ubound(SrcLinTypeData%StateRel_x) 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 @@ -5438,8 +5438,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, kind=B8Ki) - UB(1:2) = ubound(SrcLinTypeData%StateRel_xdot, kind=B8Ki) + LB(1:2) = lbound(SrcLinTypeData%StateRel_xdot) + UB(1:2) = ubound(SrcLinTypeData%StateRel_xdot) 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 @@ -5450,8 +5450,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%IsLoad_u) + UB(1:1) = ubound(SrcLinTypeData%IsLoad_u) if (.not. allocated(DstLinTypeData%IsLoad_u)) then allocate(DstLinTypeData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5462,8 +5462,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_u) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_u) if (.not. allocated(DstLinTypeData%RotFrame_u)) then allocate(DstLinTypeData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5474,8 +5474,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_y) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_y) if (.not. allocated(DstLinTypeData%RotFrame_y)) then allocate(DstLinTypeData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5486,8 +5486,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_x) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_x) if (.not. allocated(DstLinTypeData%RotFrame_x)) then allocate(DstLinTypeData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5498,8 +5498,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%RotFrame_z, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%RotFrame_z) + UB(1:1) = ubound(SrcLinTypeData%RotFrame_z) if (.not. allocated(DstLinTypeData%RotFrame_z)) then allocate(DstLinTypeData%RotFrame_z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5510,8 +5510,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, kind=B8Ki) - UB(1:1) = ubound(SrcLinTypeData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcLinTypeData%DerivOrder_x) + UB(1:1) = ubound(SrcLinTypeData%DerivOrder_x) if (.not. allocated(DstLinTypeData%DerivOrder_x)) then allocate(DstLinTypeData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5662,7 +5662,7 @@ subroutine FAST_UnPackLinType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_LinType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackLinType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5705,16 +5705,16 @@ subroutine FAST_CopyModLinType(SrcModLinTypeData, DstModLinTypeData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcModLinTypeData%Instance, kind=B8Ki) + LB(1:1) = lbound(SrcModLinTypeData%Instance) + UB(1:1) = ubound(SrcModLinTypeData%Instance) if (.not. allocated(DstModLinTypeData%Instance)) then allocate(DstModLinTypeData%Instance(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5734,16 +5734,16 @@ subroutine FAST_DestroyModLinType(ModLinTypeData, ErrStat, ErrMsg) type(FAST_ModLinType), intent(inout) :: ModLinTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ModLinTypeData%Instance, kind=B8Ki) + LB(1:1) = lbound(ModLinTypeData%Instance) + UB(1:1) = ubound(ModLinTypeData%Instance) do i1 = LB(1), UB(1) call FAST_DestroyLinType(ModLinTypeData%Instance(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5756,14 +5756,14 @@ subroutine FAST_PackModLinType(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_ModLinType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackModLinType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%Instance)) if (allocated(InData%Instance)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Instance), ubound(InData%Instance)) + LB(1:1) = lbound(InData%Instance) + UB(1:1) = ubound(InData%Instance) do i1 = LB(1), UB(1) call FAST_PackLinType(RF, InData%Instance(i1)) end do @@ -5775,8 +5775,8 @@ subroutine FAST_UnPackModLinType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_ModLinType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackModLinType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5801,15 +5801,15 @@ subroutine FAST_CopyLinFileType(SrcLinFileTypeData, DstLinFileTypeData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcLinFileTypeData%Modules, kind=B8Ki) + LB(1:1) = lbound(SrcLinFileTypeData%Modules) + UB(1:1) = ubound(SrcLinFileTypeData%Modules) 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) @@ -5827,15 +5827,15 @@ subroutine FAST_DestroyLinFileType(LinFileTypeData, ErrStat, ErrMsg) type(FAST_LinFileType), intent(inout) :: LinFileTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(LinFileTypeData%Modules, kind=B8Ki) + LB(1:1) = lbound(LinFileTypeData%Modules) + UB(1:1) = ubound(LinFileTypeData%Modules) do i1 = LB(1), UB(1) call FAST_DestroyModLinType(LinFileTypeData%Modules(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5848,11 +5848,11 @@ subroutine FAST_PackLinFileType(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_LinFileType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackLinFileType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%Modules, kind=B8Ki) - UB(1:1) = ubound(InData%Modules, kind=B8Ki) + LB(1:1) = lbound(InData%Modules) + UB(1:1) = ubound(InData%Modules) do i1 = LB(1), UB(1) call FAST_PackModLinType(RF, InData%Modules(i1)) end do @@ -5867,11 +5867,11 @@ subroutine FAST_UnPackLinFileType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_LinFileType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackLinFileType' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%Modules, kind=B8Ki) - UB(1:1) = ubound(OutData%Modules, kind=B8Ki) + LB(1:1) = lbound(OutData%Modules) + UB(1:1) = ubound(OutData%Modules) do i1 = LB(1), UB(1) call FAST_UnpackModLinType(RF, OutData%Modules(i1)) ! Modules end do @@ -5887,14 +5887,14 @@ subroutine FAST_CopyMiscLinType(SrcMiscLinTypeData, DstMiscLinTypeData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscLinTypeData%LinTimes, kind=B8Ki) + LB(1:1) = lbound(SrcMiscLinTypeData%LinTimes) + UB(1:1) = ubound(SrcMiscLinTypeData%LinTimes) if (.not. allocated(DstMiscLinTypeData%LinTimes)) then allocate(DstMiscLinTypeData%LinTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5906,8 +5906,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscLinTypeData%AzimTarget, kind=B8Ki) + LB(1:1) = lbound(SrcMiscLinTypeData%AzimTarget) + UB(1:1) = ubound(SrcMiscLinTypeData%AzimTarget) if (.not. allocated(DstMiscLinTypeData%AzimTarget)) then allocate(DstMiscLinTypeData%AzimTarget(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5924,8 +5924,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscLinTypeData%Psi, kind=B8Ki) + LB(1:1) = lbound(SrcMiscLinTypeData%Psi) + UB(1:1) = ubound(SrcMiscLinTypeData%Psi) if (.not. allocated(DstMiscLinTypeData%Psi)) then allocate(DstMiscLinTypeData%Psi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5936,8 +5936,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscLinTypeData%y_interp, kind=B8Ki) + LB(1:1) = lbound(SrcMiscLinTypeData%y_interp) + UB(1:1) = ubound(SrcMiscLinTypeData%y_interp) if (.not. allocated(DstMiscLinTypeData%y_interp)) then allocate(DstMiscLinTypeData%y_interp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5948,8 +5948,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscLinTypeData%y_ref, kind=B8Ki) + LB(1:1) = lbound(SrcMiscLinTypeData%y_ref) + UB(1:1) = ubound(SrcMiscLinTypeData%y_ref) if (.not. allocated(DstMiscLinTypeData%y_ref)) then allocate(DstMiscLinTypeData%y_ref(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5960,8 +5960,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscLinTypeData%Y_prevRot, kind=B8Ki) + LB(1:2) = lbound(SrcMiscLinTypeData%Y_prevRot) + UB(1:2) = ubound(SrcMiscLinTypeData%Y_prevRot) 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 @@ -6025,7 +6025,7 @@ subroutine FAST_UnPackMiscLinType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_MiscLinType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackMiscLinType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6050,16 +6050,16 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputFileTypeData%TimeData, kind=B8Ki) + LB(1:1) = lbound(SrcOutputFileTypeData%TimeData) + UB(1:1) = ubound(SrcOutputFileTypeData%TimeData) if (.not. allocated(DstOutputFileTypeData%TimeData)) then allocate(DstOutputFileTypeData%TimeData(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6070,8 +6070,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, DstOutputFileTypeData%TimeData = SrcOutputFileTypeData%TimeData end if if (allocated(SrcOutputFileTypeData%AllOutData)) then - LB(1:2) = lbound(SrcOutputFileTypeData%AllOutData, kind=B8Ki) - UB(1:2) = ubound(SrcOutputFileTypeData%AllOutData, kind=B8Ki) + LB(1:2) = lbound(SrcOutputFileTypeData%AllOutData) + UB(1:2) = ubound(SrcOutputFileTypeData%AllOutData) if (.not. allocated(DstOutputFileTypeData%AllOutData)) then allocate(DstOutputFileTypeData%AllOutData(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6089,8 +6089,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputFileTypeData%ChannelNames, kind=B8Ki) + LB(1:1) = lbound(SrcOutputFileTypeData%ChannelNames) + UB(1:1) = ubound(SrcOutputFileTypeData%ChannelNames) if (.not. allocated(DstOutputFileTypeData%ChannelNames)) then allocate(DstOutputFileTypeData%ChannelNames(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6101,8 +6101,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, DstOutputFileTypeData%ChannelNames = SrcOutputFileTypeData%ChannelNames end if if (allocated(SrcOutputFileTypeData%ChannelUnits)) then - LB(1:1) = lbound(SrcOutputFileTypeData%ChannelUnits, kind=B8Ki) - UB(1:1) = ubound(SrcOutputFileTypeData%ChannelUnits, kind=B8Ki) + LB(1:1) = lbound(SrcOutputFileTypeData%ChannelUnits) + UB(1:1) = ubound(SrcOutputFileTypeData%ChannelUnits) if (.not. allocated(DstOutputFileTypeData%ChannelUnits)) then allocate(DstOutputFileTypeData%ChannelUnits(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6112,8 +6112,8 @@ subroutine FAST_CopyOutputFileType(SrcOutputFileTypeData, DstOutputFileTypeData, end if DstOutputFileTypeData%ChannelUnits = SrcOutputFileTypeData%ChannelUnits end if - LB(1:1) = lbound(SrcOutputFileTypeData%Module_Ver, kind=B8Ki) - UB(1:1) = ubound(SrcOutputFileTypeData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(SrcOutputFileTypeData%Module_Ver) + UB(1:1) = ubound(SrcOutputFileTypeData%Module_Ver) 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) @@ -6137,8 +6137,8 @@ subroutine FAST_DestroyOutputFileType(OutputFileTypeData, ErrStat, ErrMsg) type(FAST_OutputFileType), intent(inout) :: OutputFileTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyOutputFileType' @@ -6156,8 +6156,8 @@ subroutine FAST_DestroyOutputFileType(OutputFileTypeData, ErrStat, ErrMsg) if (allocated(OutputFileTypeData%ChannelUnits)) then deallocate(OutputFileTypeData%ChannelUnits) end if - LB(1:1) = lbound(OutputFileTypeData%Module_Ver, kind=B8Ki) - UB(1:1) = ubound(OutputFileTypeData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(OutputFileTypeData%Module_Ver) + UB(1:1) = ubound(OutputFileTypeData%Module_Ver) do i1 = LB(1), UB(1) call NWTC_Library_DestroyProgDesc(OutputFileTypeData%Module_Ver(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6172,8 +6172,8 @@ subroutine FAST_PackOutputFileType(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_OutputFileType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackOutputFileType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%TimeData) call RegPackAlloc(RF, InData%AllOutData) @@ -6186,8 +6186,8 @@ subroutine FAST_PackOutputFileType(RF, Indata) call RegPack(RF, InData%FileDescLines) call RegPackAlloc(RF, InData%ChannelNames) call RegPackAlloc(RF, InData%ChannelUnits) - LB(1:1) = lbound(InData%Module_Ver, kind=B8Ki) - UB(1:1) = ubound(InData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(InData%Module_Ver) + UB(1:1) = ubound(InData%Module_Ver) do i1 = LB(1), UB(1) call NWTC_Library_PackProgDesc(RF, InData%Module_Ver(i1)) end do @@ -6206,8 +6206,8 @@ subroutine FAST_UnPackOutputFileType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_OutputFileType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackOutputFileType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6222,8 +6222,8 @@ subroutine FAST_UnPackOutputFileType(RF, OutData) call RegUnpack(RF, OutData%FileDescLines); if (RegCheckErr(RF, RoutineName)) return call RegUnpackAlloc(RF, OutData%ChannelNames); if (RegCheckErr(RF, RoutineName)) return call RegUnpackAlloc(RF, OutData%ChannelUnits); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%Module_Ver, kind=B8Ki) - UB(1:1) = ubound(OutData%Module_Ver, kind=B8Ki) + LB(1:1) = lbound(OutData%Module_Ver) + UB(1:1) = ubound(OutData%Module_Ver) do i1 = LB(1), UB(1) call NWTC_Library_UnpackProgDesc(RF, OutData%Module_Ver(i1)) ! Module_Ver end do @@ -6243,16 +6243,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%x, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%x) + UB(1:2) = ubound(SrcIceDyn_DataData%x) 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 @@ -6269,8 +6269,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, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%xd, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%xd) + UB(1:2) = ubound(SrcIceDyn_DataData%xd) 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 @@ -6287,8 +6287,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, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%z, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%z) + UB(1:2) = ubound(SrcIceDyn_DataData%z) 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 @@ -6305,8 +6305,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, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%OtherSt, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%OtherSt) + UB(1:2) = ubound(SrcIceDyn_DataData%OtherSt) 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 @@ -6323,8 +6323,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, kind=B8Ki) - UB(1:1) = ubound(SrcIceDyn_DataData%p, kind=B8Ki) + LB(1:1) = lbound(SrcIceDyn_DataData%p) + UB(1:1) = ubound(SrcIceDyn_DataData%p) if (.not. allocated(DstIceDyn_DataData%p)) then allocate(DstIceDyn_DataData%p(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6339,8 +6339,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, kind=B8Ki) - UB(1:1) = ubound(SrcIceDyn_DataData%u, kind=B8Ki) + LB(1:1) = lbound(SrcIceDyn_DataData%u) + UB(1:1) = ubound(SrcIceDyn_DataData%u) if (.not. allocated(DstIceDyn_DataData%u)) then allocate(DstIceDyn_DataData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6355,8 +6355,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, kind=B8Ki) - UB(1:1) = ubound(SrcIceDyn_DataData%y, kind=B8Ki) + LB(1:1) = lbound(SrcIceDyn_DataData%y) + UB(1:1) = ubound(SrcIceDyn_DataData%y) if (.not. allocated(DstIceDyn_DataData%y)) then allocate(DstIceDyn_DataData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6371,8 +6371,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, kind=B8Ki) - UB(1:1) = ubound(SrcIceDyn_DataData%m, kind=B8Ki) + LB(1:1) = lbound(SrcIceDyn_DataData%m) + UB(1:1) = ubound(SrcIceDyn_DataData%m) if (.not. allocated(DstIceDyn_DataData%m)) then allocate(DstIceDyn_DataData%m(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6387,8 +6387,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, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%Input, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%Input) + UB(1:2) = ubound(SrcIceDyn_DataData%Input) 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 @@ -6405,8 +6405,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode end do end if if (allocated(SrcIceDyn_DataData%Input_Saved)) then - LB(1:2) = lbound(SrcIceDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%Input_Saved) + UB(1:2) = ubound(SrcIceDyn_DataData%Input_Saved) if (.not. allocated(DstIceDyn_DataData%Input_Saved)) then allocate(DstIceDyn_DataData%Input_Saved(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6423,8 +6423,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, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%InputTimes, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%InputTimes) + UB(1:2) = ubound(SrcIceDyn_DataData%InputTimes) 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 @@ -6435,8 +6435,8 @@ subroutine FAST_CopyIceDyn_Data(SrcIceDyn_DataData, DstIceDyn_DataData, CtrlCode DstIceDyn_DataData%InputTimes = SrcIceDyn_DataData%InputTimes end if if (allocated(SrcIceDyn_DataData%InputTimes_Saved)) then - LB(1:2) = lbound(SrcIceDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:2) = ubound(SrcIceDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:2) = lbound(SrcIceDyn_DataData%InputTimes_Saved) + UB(1:2) = ubound(SrcIceDyn_DataData%InputTimes_Saved) if (.not. allocated(DstIceDyn_DataData%InputTimes_Saved)) then allocate(DstIceDyn_DataData%InputTimes_Saved(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6452,16 +6452,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(IceDyn_DataData%x, kind=B8Ki) + LB(1:2) = lbound(IceDyn_DataData%x) + UB(1:2) = ubound(IceDyn_DataData%x) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyContState(IceDyn_DataData%x(i1,i2), ErrStat2, ErrMsg2) @@ -6471,8 +6471,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, kind=B8Ki) - UB(1:2) = ubound(IceDyn_DataData%xd, kind=B8Ki) + LB(1:2) = lbound(IceDyn_DataData%xd) + UB(1:2) = ubound(IceDyn_DataData%xd) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyDiscState(IceDyn_DataData%xd(i1,i2), ErrStat2, ErrMsg2) @@ -6482,8 +6482,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, kind=B8Ki) - UB(1:2) = ubound(IceDyn_DataData%z, kind=B8Ki) + LB(1:2) = lbound(IceDyn_DataData%z) + UB(1:2) = ubound(IceDyn_DataData%z) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyConstrState(IceDyn_DataData%z(i1,i2), ErrStat2, ErrMsg2) @@ -6493,8 +6493,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, kind=B8Ki) - UB(1:2) = ubound(IceDyn_DataData%OtherSt, kind=B8Ki) + LB(1:2) = lbound(IceDyn_DataData%OtherSt) + UB(1:2) = ubound(IceDyn_DataData%OtherSt) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyOtherState(IceDyn_DataData%OtherSt(i1,i2), ErrStat2, ErrMsg2) @@ -6504,8 +6504,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, kind=B8Ki) - UB(1:1) = ubound(IceDyn_DataData%p, kind=B8Ki) + LB(1:1) = lbound(IceDyn_DataData%p) + UB(1:1) = ubound(IceDyn_DataData%p) do i1 = LB(1), UB(1) call IceD_DestroyParam(IceDyn_DataData%p(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6513,8 +6513,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, kind=B8Ki) - UB(1:1) = ubound(IceDyn_DataData%u, kind=B8Ki) + LB(1:1) = lbound(IceDyn_DataData%u) + UB(1:1) = ubound(IceDyn_DataData%u) do i1 = LB(1), UB(1) call IceD_DestroyInput(IceDyn_DataData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6522,8 +6522,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, kind=B8Ki) - UB(1:1) = ubound(IceDyn_DataData%y, kind=B8Ki) + LB(1:1) = lbound(IceDyn_DataData%y) + UB(1:1) = ubound(IceDyn_DataData%y) do i1 = LB(1), UB(1) call IceD_DestroyOutput(IceDyn_DataData%y(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6531,8 +6531,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, kind=B8Ki) - UB(1:1) = ubound(IceDyn_DataData%m, kind=B8Ki) + LB(1:1) = lbound(IceDyn_DataData%m) + UB(1:1) = ubound(IceDyn_DataData%m) do i1 = LB(1), UB(1) call IceD_DestroyMisc(IceDyn_DataData%m(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6540,8 +6540,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, kind=B8Ki) - UB(1:2) = ubound(IceDyn_DataData%Input, kind=B8Ki) + LB(1:2) = lbound(IceDyn_DataData%Input) + UB(1:2) = ubound(IceDyn_DataData%Input) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyInput(IceDyn_DataData%Input(i1,i2), ErrStat2, ErrMsg2) @@ -6551,8 +6551,8 @@ subroutine FAST_DestroyIceDyn_Data(IceDyn_DataData, ErrStat, ErrMsg) deallocate(IceDyn_DataData%Input) end if if (allocated(IceDyn_DataData%Input_Saved)) then - LB(1:2) = lbound(IceDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:2) = ubound(IceDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:2) = lbound(IceDyn_DataData%Input_Saved) + UB(1:2) = ubound(IceDyn_DataData%Input_Saved) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_DestroyInput(IceDyn_DataData%Input_Saved(i1,i2), ErrStat2, ErrMsg2) @@ -6573,14 +6573,14 @@ subroutine FAST_PackIceDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(IceDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackIceDyn_Data' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%x), ubound(InData%x)) + LB(1:2) = lbound(InData%x) + UB(1:2) = ubound(InData%x) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackContState(RF, InData%x(i1,i2)) @@ -6589,9 +6589,9 @@ subroutine FAST_PackIceDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%xd)) if (allocated(InData%xd)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%xd), ubound(InData%xd)) + LB(1:2) = lbound(InData%xd) + UB(1:2) = ubound(InData%xd) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackDiscState(RF, InData%xd(i1,i2)) @@ -6600,9 +6600,9 @@ subroutine FAST_PackIceDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%z), ubound(InData%z)) + LB(1:2) = lbound(InData%z) + UB(1:2) = ubound(InData%z) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackConstrState(RF, InData%z(i1,i2)) @@ -6611,9 +6611,9 @@ subroutine FAST_PackIceDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%OtherSt)) if (allocated(InData%OtherSt)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%OtherSt), ubound(InData%OtherSt)) + LB(1:2) = lbound(InData%OtherSt) + UB(1:2) = ubound(InData%OtherSt) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackOtherState(RF, InData%OtherSt(i1,i2)) @@ -6622,45 +6622,45 @@ subroutine FAST_PackIceDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%p)) if (allocated(InData%p)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%p), ubound(InData%p)) + LB(1:1) = lbound(InData%p) + UB(1:1) = ubound(InData%p) do i1 = LB(1), UB(1) call IceD_PackParam(RF, InData%p(i1)) end do end if call RegPack(RF, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u), ubound(InData%u)) + LB(1:1) = lbound(InData%u) + UB(1:1) = ubound(InData%u) do i1 = LB(1), UB(1) call IceD_PackInput(RF, InData%u(i1)) end do end if call RegPack(RF, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y), ubound(InData%y)) + LB(1:1) = lbound(InData%y) + UB(1:1) = ubound(InData%y) do i1 = LB(1), UB(1) call IceD_PackOutput(RF, InData%y(i1)) end do end if call RegPack(RF, allocated(InData%m)) if (allocated(InData%m)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%m), ubound(InData%m)) + LB(1:1) = lbound(InData%m) + UB(1:1) = ubound(InData%m) do i1 = LB(1), UB(1) call IceD_PackMisc(RF, InData%m(i1)) end do end if call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%Input), ubound(InData%Input)) + LB(1:2) = lbound(InData%Input) + UB(1:2) = ubound(InData%Input) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackInput(RF, InData%Input(i1,i2)) @@ -6669,9 +6669,9 @@ subroutine FAST_PackIceDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 2, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:2) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:2) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 2, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:2) = lbound(InData%Input_Saved) + UB(1:2) = ubound(InData%Input_Saved) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call IceD_PackInput(RF, InData%Input_Saved(i1,i2)) @@ -6687,8 +6687,8 @@ subroutine FAST_UnPackIceDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(IceDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackIceDyn_Data' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6844,16 +6844,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%x, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%x) + UB(1:2) = ubound(SrcBeamDyn_DataData%x) 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 @@ -6870,8 +6870,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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%xd, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%xd) + UB(1:2) = ubound(SrcBeamDyn_DataData%xd) 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 @@ -6888,8 +6888,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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%z, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%z) + UB(1:2) = ubound(SrcBeamDyn_DataData%z) 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 @@ -6906,8 +6906,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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%OtherSt, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%OtherSt) + UB(1:2) = ubound(SrcBeamDyn_DataData%OtherSt) 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 @@ -6924,8 +6924,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, kind=B8Ki) - UB(1:1) = ubound(SrcBeamDyn_DataData%p, kind=B8Ki) + LB(1:1) = lbound(SrcBeamDyn_DataData%p) + UB(1:1) = ubound(SrcBeamDyn_DataData%p) if (.not. allocated(DstBeamDyn_DataData%p)) then allocate(DstBeamDyn_DataData%p(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6940,8 +6940,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, kind=B8Ki) - UB(1:1) = ubound(SrcBeamDyn_DataData%u, kind=B8Ki) + LB(1:1) = lbound(SrcBeamDyn_DataData%u) + UB(1:1) = ubound(SrcBeamDyn_DataData%u) if (.not. allocated(DstBeamDyn_DataData%u)) then allocate(DstBeamDyn_DataData%u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6956,8 +6956,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, kind=B8Ki) - UB(1:1) = ubound(SrcBeamDyn_DataData%y, kind=B8Ki) + LB(1:1) = lbound(SrcBeamDyn_DataData%y) + UB(1:1) = ubound(SrcBeamDyn_DataData%y) if (.not. allocated(DstBeamDyn_DataData%y)) then allocate(DstBeamDyn_DataData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6972,8 +6972,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, kind=B8Ki) - UB(1:1) = ubound(SrcBeamDyn_DataData%m, kind=B8Ki) + LB(1:1) = lbound(SrcBeamDyn_DataData%m) + UB(1:1) = ubound(SrcBeamDyn_DataData%m) if (.not. allocated(DstBeamDyn_DataData%m)) then allocate(DstBeamDyn_DataData%m(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6988,8 +6988,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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%Output, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%Output) + UB(1:2) = ubound(SrcBeamDyn_DataData%Output) 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 @@ -7006,8 +7006,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, kind=B8Ki) - UB(1:1) = ubound(SrcBeamDyn_DataData%y_interp, kind=B8Ki) + LB(1:1) = lbound(SrcBeamDyn_DataData%y_interp) + UB(1:1) = ubound(SrcBeamDyn_DataData%y_interp) if (.not. allocated(DstBeamDyn_DataData%y_interp)) then allocate(DstBeamDyn_DataData%y_interp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7022,8 +7022,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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%Input, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%Input) + UB(1:2) = ubound(SrcBeamDyn_DataData%Input) 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 @@ -7040,8 +7040,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC end do end if if (allocated(SrcBeamDyn_DataData%Input_Saved)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%Input_Saved) + UB(1:2) = ubound(SrcBeamDyn_DataData%Input_Saved) if (.not. allocated(DstBeamDyn_DataData%Input_Saved)) then allocate(DstBeamDyn_DataData%Input_Saved(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7058,8 +7058,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, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%InputTimes, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%InputTimes) + UB(1:2) = ubound(SrcBeamDyn_DataData%InputTimes) 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 @@ -7070,8 +7070,8 @@ subroutine FAST_CopyBeamDyn_Data(SrcBeamDyn_DataData, DstBeamDyn_DataData, CtrlC DstBeamDyn_DataData%InputTimes = SrcBeamDyn_DataData%InputTimes end if if (allocated(SrcBeamDyn_DataData%InputTimes_Saved)) then - LB(1:2) = lbound(SrcBeamDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:2) = ubound(SrcBeamDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:2) = lbound(SrcBeamDyn_DataData%InputTimes_Saved) + UB(1:2) = ubound(SrcBeamDyn_DataData%InputTimes_Saved) if (.not. allocated(DstBeamDyn_DataData%InputTimes_Saved)) then allocate(DstBeamDyn_DataData%InputTimes_Saved(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7087,16 +7087,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(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%x, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%x) + UB(1:2) = ubound(BeamDyn_DataData%x) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyContState(BeamDyn_DataData%x(i1,i2), ErrStat2, ErrMsg2) @@ -7106,8 +7106,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, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%xd, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%xd) + UB(1:2) = ubound(BeamDyn_DataData%xd) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyDiscState(BeamDyn_DataData%xd(i1,i2), ErrStat2, ErrMsg2) @@ -7117,8 +7117,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, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%z, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%z) + UB(1:2) = ubound(BeamDyn_DataData%z) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyConstrState(BeamDyn_DataData%z(i1,i2), ErrStat2, ErrMsg2) @@ -7128,8 +7128,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, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%OtherSt, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%OtherSt) + UB(1:2) = ubound(BeamDyn_DataData%OtherSt) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyOtherState(BeamDyn_DataData%OtherSt(i1,i2), ErrStat2, ErrMsg2) @@ -7139,8 +7139,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, kind=B8Ki) - UB(1:1) = ubound(BeamDyn_DataData%p, kind=B8Ki) + LB(1:1) = lbound(BeamDyn_DataData%p) + UB(1:1) = ubound(BeamDyn_DataData%p) do i1 = LB(1), UB(1) call BD_DestroyParam(BeamDyn_DataData%p(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7148,8 +7148,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, kind=B8Ki) - UB(1:1) = ubound(BeamDyn_DataData%u, kind=B8Ki) + LB(1:1) = lbound(BeamDyn_DataData%u) + UB(1:1) = ubound(BeamDyn_DataData%u) do i1 = LB(1), UB(1) call BD_DestroyInput(BeamDyn_DataData%u(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7157,8 +7157,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, kind=B8Ki) - UB(1:1) = ubound(BeamDyn_DataData%y, kind=B8Ki) + LB(1:1) = lbound(BeamDyn_DataData%y) + UB(1:1) = ubound(BeamDyn_DataData%y) do i1 = LB(1), UB(1) call BD_DestroyOutput(BeamDyn_DataData%y(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7166,8 +7166,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, kind=B8Ki) - UB(1:1) = ubound(BeamDyn_DataData%m, kind=B8Ki) + LB(1:1) = lbound(BeamDyn_DataData%m) + UB(1:1) = ubound(BeamDyn_DataData%m) do i1 = LB(1), UB(1) call BD_DestroyMisc(BeamDyn_DataData%m(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7175,8 +7175,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, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%Output, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%Output) + UB(1:2) = ubound(BeamDyn_DataData%Output) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyOutput(BeamDyn_DataData%Output(i1,i2), ErrStat2, ErrMsg2) @@ -7186,8 +7186,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, kind=B8Ki) - UB(1:1) = ubound(BeamDyn_DataData%y_interp, kind=B8Ki) + LB(1:1) = lbound(BeamDyn_DataData%y_interp) + UB(1:1) = ubound(BeamDyn_DataData%y_interp) do i1 = LB(1), UB(1) call BD_DestroyOutput(BeamDyn_DataData%y_interp(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7195,8 +7195,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, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%Input, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%Input) + UB(1:2) = ubound(BeamDyn_DataData%Input) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyInput(BeamDyn_DataData%Input(i1,i2), ErrStat2, ErrMsg2) @@ -7206,8 +7206,8 @@ subroutine FAST_DestroyBeamDyn_Data(BeamDyn_DataData, ErrStat, ErrMsg) deallocate(BeamDyn_DataData%Input) end if if (allocated(BeamDyn_DataData%Input_Saved)) then - LB(1:2) = lbound(BeamDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:2) = ubound(BeamDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:2) = lbound(BeamDyn_DataData%Input_Saved) + UB(1:2) = ubound(BeamDyn_DataData%Input_Saved) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_DestroyInput(BeamDyn_DataData%Input_Saved(i1,i2), ErrStat2, ErrMsg2) @@ -7228,14 +7228,14 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(BeamDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackBeamDyn_Data' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%x)) if (allocated(InData%x)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%x), ubound(InData%x)) + LB(1:2) = lbound(InData%x) + UB(1:2) = ubound(InData%x) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackContState(RF, InData%x(i1,i2)) @@ -7244,9 +7244,9 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%xd)) if (allocated(InData%xd)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%xd), ubound(InData%xd)) + LB(1:2) = lbound(InData%xd) + UB(1:2) = ubound(InData%xd) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackDiscState(RF, InData%xd(i1,i2)) @@ -7255,9 +7255,9 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%z)) if (allocated(InData%z)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%z), ubound(InData%z)) + LB(1:2) = lbound(InData%z) + UB(1:2) = ubound(InData%z) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackConstrState(RF, InData%z(i1,i2)) @@ -7266,9 +7266,9 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%OtherSt)) if (allocated(InData%OtherSt)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%OtherSt), ubound(InData%OtherSt)) + LB(1:2) = lbound(InData%OtherSt) + UB(1:2) = ubound(InData%OtherSt) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackOtherState(RF, InData%OtherSt(i1,i2)) @@ -7277,45 +7277,45 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%p)) if (allocated(InData%p)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%p), ubound(InData%p)) + LB(1:1) = lbound(InData%p) + UB(1:1) = ubound(InData%p) do i1 = LB(1), UB(1) call BD_PackParam(RF, InData%p(i1)) end do end if call RegPack(RF, allocated(InData%u)) if (allocated(InData%u)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%u), ubound(InData%u)) + LB(1:1) = lbound(InData%u) + UB(1:1) = ubound(InData%u) do i1 = LB(1), UB(1) call BD_PackInput(RF, InData%u(i1)) end do end if call RegPack(RF, allocated(InData%y)) if (allocated(InData%y)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y), ubound(InData%y)) + LB(1:1) = lbound(InData%y) + UB(1:1) = ubound(InData%y) do i1 = LB(1), UB(1) call BD_PackOutput(RF, InData%y(i1)) end do end if call RegPack(RF, allocated(InData%m)) if (allocated(InData%m)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%m), ubound(InData%m)) + LB(1:1) = lbound(InData%m) + UB(1:1) = ubound(InData%m) do i1 = LB(1), UB(1) call BD_PackMisc(RF, InData%m(i1)) end do end if call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%Output), ubound(InData%Output)) + LB(1:2) = lbound(InData%Output) + UB(1:2) = ubound(InData%Output) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackOutput(RF, InData%Output(i1,i2)) @@ -7324,18 +7324,18 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%y_interp)) if (allocated(InData%y_interp)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y_interp), ubound(InData%y_interp)) + LB(1:1) = lbound(InData%y_interp) + UB(1:1) = ubound(InData%y_interp) do i1 = LB(1), UB(1) call BD_PackOutput(RF, InData%y_interp(i1)) end do end if call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%Input), ubound(InData%Input)) + LB(1:2) = lbound(InData%Input) + UB(1:2) = ubound(InData%Input) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackInput(RF, InData%Input(i1,i2)) @@ -7344,9 +7344,9 @@ subroutine FAST_PackBeamDyn_Data(RF, Indata) end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 2, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:2) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:2) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 2, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:2) = lbound(InData%Input_Saved) + UB(1:2) = ubound(InData%Input_Saved) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call BD_PackInput(RF, InData%Input_Saved(i1,i2)) @@ -7362,8 +7362,8 @@ subroutine FAST_UnPackBeamDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(BeamDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackBeamDyn_Data' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -7547,36 +7547,36 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%x) + UB(1:1) = ubound(SrcElastoDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%xd) + UB(1:1) = ubound(SrcElastoDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%z) + UB(1:1) = ubound(SrcElastoDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%OtherSt) + UB(1:1) = ubound(SrcElastoDyn_DataData%OtherSt) 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) @@ -7595,8 +7595,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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%Output) + UB(1:1) = ubound(SrcElastoDyn_DataData%Output) if (.not. allocated(DstElastoDyn_DataData%Output)) then allocate(DstElastoDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7611,8 +7611,8 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, end do end if if (allocated(SrcElastoDyn_DataData%Output_bak)) then - LB(1:1) = lbound(SrcElastoDyn_DataData%Output_bak, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%Output_bak, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%Output_bak) + UB(1:1) = ubound(SrcElastoDyn_DataData%Output_bak) if (.not. allocated(DstElastoDyn_DataData%Output_bak)) then allocate(DstElastoDyn_DataData%Output_bak(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7630,8 +7630,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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%Input) + UB(1:1) = ubound(SrcElastoDyn_DataData%Input) if (.not. allocated(DstElastoDyn_DataData%Input)) then allocate(DstElastoDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7646,8 +7646,8 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, end do end if if (allocated(SrcElastoDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcElastoDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%Input_Saved) + UB(1:1) = ubound(SrcElastoDyn_DataData%Input_Saved) if (.not. allocated(DstElastoDyn_DataData%Input_Saved)) then allocate(DstElastoDyn_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7662,8 +7662,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, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%InputTimes) + UB(1:1) = ubound(SrcElastoDyn_DataData%InputTimes) if (.not. allocated(DstElastoDyn_DataData%InputTimes)) then allocate(DstElastoDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7674,8 +7674,8 @@ subroutine FAST_CopyElastoDyn_Data(SrcElastoDyn_DataData, DstElastoDyn_DataData, DstElastoDyn_DataData%InputTimes = SrcElastoDyn_DataData%InputTimes end if if (allocated(SrcElastoDyn_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcElastoDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcElastoDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcElastoDyn_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcElastoDyn_DataData%InputTimes_Saved) if (.not. allocated(DstElastoDyn_DataData%InputTimes_Saved)) then allocate(DstElastoDyn_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -7691,33 +7691,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%x) + UB(1:1) = ubound(ElastoDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%xd) + UB(1:1) = ubound(ElastoDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%z) + UB(1:1) = ubound(ElastoDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%OtherSt) + UB(1:1) = ubound(ElastoDyn_DataData%OtherSt) do i1 = LB(1), UB(1) call ED_DestroyOtherState(ElastoDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7731,8 +7731,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, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%Output) + UB(1:1) = ubound(ElastoDyn_DataData%Output) do i1 = LB(1), UB(1) call ED_DestroyOutput(ElastoDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7740,8 +7740,8 @@ subroutine FAST_DestroyElastoDyn_Data(ElastoDyn_DataData, ErrStat, ErrMsg) deallocate(ElastoDyn_DataData%Output) end if if (allocated(ElastoDyn_DataData%Output_bak)) then - LB(1:1) = lbound(ElastoDyn_DataData%Output_bak, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%Output_bak, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%Output_bak) + UB(1:1) = ubound(ElastoDyn_DataData%Output_bak) do i1 = LB(1), UB(1) call ED_DestroyOutput(ElastoDyn_DataData%Output_bak(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7751,8 +7751,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, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%Input) + UB(1:1) = ubound(ElastoDyn_DataData%Input) do i1 = LB(1), UB(1) call ED_DestroyInput(ElastoDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7760,8 +7760,8 @@ subroutine FAST_DestroyElastoDyn_Data(ElastoDyn_DataData, ErrStat, ErrMsg) deallocate(ElastoDyn_DataData%Input) end if if (allocated(ElastoDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(ElastoDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(ElastoDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(ElastoDyn_DataData%Input_Saved) + UB(1:1) = ubound(ElastoDyn_DataData%Input_Saved) do i1 = LB(1), UB(1) call ED_DestroyInput(ElastoDyn_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7780,26 +7780,26 @@ subroutine FAST_PackElastoDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(ElastoDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackElastoDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call ED_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call ED_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call ED_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call ED_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -7809,18 +7809,18 @@ subroutine FAST_PackElastoDyn_Data(RF, Indata) call ED_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call ED_PackOutput(RF, InData%Output(i1)) end do end if call RegPack(RF, allocated(InData%Output_bak)) if (allocated(InData%Output_bak)) then - call RegPackBounds(RF, 1, lbound(InData%Output_bak, kind=B8Ki), ubound(InData%Output_bak, kind=B8Ki)) - LB(1:1) = lbound(InData%Output_bak, kind=B8Ki) - UB(1:1) = ubound(InData%Output_bak, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Output_bak), ubound(InData%Output_bak)) + LB(1:1) = lbound(InData%Output_bak) + UB(1:1) = ubound(InData%Output_bak) do i1 = LB(1), UB(1) call ED_PackOutput(RF, InData%Output_bak(i1)) end do @@ -7828,18 +7828,18 @@ subroutine FAST_PackElastoDyn_Data(RF, Indata) call ED_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call ED_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call ED_PackInput(RF, InData%Input_Saved(i1)) end do @@ -7853,28 +7853,28 @@ subroutine FAST_UnPackElastoDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(ElastoDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackElastoDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call ED_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call ED_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call ED_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call ED_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -7945,36 +7945,36 @@ subroutine FAST_CopySED_Data(SrcSED_DataData, DstSED_DataData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopySED_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcSED_DataData%x, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%x) + UB(1:1) = ubound(SrcSED_DataData%x) do i1 = LB(1), UB(1) call SED_CopyContState(SrcSED_DataData%x(i1), DstSED_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSED_DataData%xd, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%xd) + UB(1:1) = ubound(SrcSED_DataData%xd) do i1 = LB(1), UB(1) call SED_CopyDiscState(SrcSED_DataData%xd(i1), DstSED_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSED_DataData%z, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%z) + UB(1:1) = ubound(SrcSED_DataData%z) do i1 = LB(1), UB(1) call SED_CopyConstrState(SrcSED_DataData%z(i1), DstSED_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcSED_DataData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%OtherSt) + UB(1:1) = ubound(SrcSED_DataData%OtherSt) do i1 = LB(1), UB(1) call SED_CopyOtherState(SrcSED_DataData%OtherSt(i1), DstSED_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -7993,8 +7993,8 @@ subroutine FAST_CopySED_Data(SrcSED_DataData, DstSED_DataData, CtrlCode, ErrStat call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcSED_DataData%Output)) then - LB(1:1) = lbound(SrcSED_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%Output) + UB(1:1) = ubound(SrcSED_DataData%Output) if (.not. allocated(DstSED_DataData%Output)) then allocate(DstSED_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8012,8 +8012,8 @@ subroutine FAST_CopySED_Data(SrcSED_DataData, DstSED_DataData, CtrlCode, ErrStat call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcSED_DataData%Input)) then - LB(1:1) = lbound(SrcSED_DataData%Input, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%Input) + UB(1:1) = ubound(SrcSED_DataData%Input) if (.not. allocated(DstSED_DataData%Input)) then allocate(DstSED_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8028,8 +8028,8 @@ subroutine FAST_CopySED_Data(SrcSED_DataData, DstSED_DataData, CtrlCode, ErrStat end do end if if (allocated(SrcSED_DataData%InputTimes)) then - LB(1:1) = lbound(SrcSED_DataData%InputTimes, kind=B8Ki) - UB(1:1) = ubound(SrcSED_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcSED_DataData%InputTimes) + UB(1:1) = ubound(SrcSED_DataData%InputTimes) if (.not. allocated(DstSED_DataData%InputTimes)) then allocate(DstSED_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8045,33 +8045,33 @@ subroutine FAST_DestroySED_Data(SED_DataData, ErrStat, ErrMsg) type(SED_Data), intent(inout) :: SED_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroySED_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SED_DataData%x, kind=B8Ki) - UB(1:1) = ubound(SED_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SED_DataData%x) + UB(1:1) = ubound(SED_DataData%x) do i1 = LB(1), UB(1) call SED_DestroyContState(SED_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SED_DataData%xd, kind=B8Ki) - UB(1:1) = ubound(SED_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SED_DataData%xd) + UB(1:1) = ubound(SED_DataData%xd) do i1 = LB(1), UB(1) call SED_DestroyDiscState(SED_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SED_DataData%z, kind=B8Ki) - UB(1:1) = ubound(SED_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SED_DataData%z) + UB(1:1) = ubound(SED_DataData%z) do i1 = LB(1), UB(1) call SED_DestroyConstrState(SED_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(SED_DataData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(SED_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SED_DataData%OtherSt) + UB(1:1) = ubound(SED_DataData%OtherSt) do i1 = LB(1), UB(1) call SED_DestroyOtherState(SED_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8085,8 +8085,8 @@ subroutine FAST_DestroySED_Data(SED_DataData, ErrStat, ErrMsg) call SED_DestroyMisc(SED_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(SED_DataData%Output)) then - LB(1:1) = lbound(SED_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(SED_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SED_DataData%Output) + UB(1:1) = ubound(SED_DataData%Output) do i1 = LB(1), UB(1) call SED_DestroyOutput(SED_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8096,8 +8096,8 @@ subroutine FAST_DestroySED_Data(SED_DataData, ErrStat, ErrMsg) call SED_DestroyOutput(SED_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(SED_DataData%Input)) then - LB(1:1) = lbound(SED_DataData%Input, kind=B8Ki) - UB(1:1) = ubound(SED_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SED_DataData%Input) + UB(1:1) = ubound(SED_DataData%Input) do i1 = LB(1), UB(1) call SED_DestroyInput(SED_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8113,26 +8113,26 @@ subroutine FAST_PackSED_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(SED_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackSED_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call SED_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call SED_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call SED_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call SED_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -8142,9 +8142,9 @@ subroutine FAST_PackSED_Data(RF, Indata) call SED_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call SED_PackOutput(RF, InData%Output(i1)) end do @@ -8152,9 +8152,9 @@ subroutine FAST_PackSED_Data(RF, Indata) call SED_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call SED_PackInput(RF, InData%Input(i1)) end do @@ -8167,28 +8167,28 @@ subroutine FAST_UnPackSED_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackSED_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call SED_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call SED_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call SED_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call SED_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -8232,36 +8232,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%x) + UB(1:1) = ubound(SrcServoDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%xd) + UB(1:1) = ubound(SrcServoDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%z) + UB(1:1) = ubound(SrcServoDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%OtherSt) + UB(1:1) = ubound(SrcServoDyn_DataData%OtherSt) 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) @@ -8283,8 +8283,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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%Output) + UB(1:1) = ubound(SrcServoDyn_DataData%Output) if (.not. allocated(DstServoDyn_DataData%Output)) then allocate(DstServoDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8302,8 +8302,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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%Input) + UB(1:1) = ubound(SrcServoDyn_DataData%Input) if (.not. allocated(DstServoDyn_DataData%Input)) then allocate(DstServoDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8318,8 +8318,8 @@ subroutine FAST_CopyServoDyn_Data(SrcServoDyn_DataData, DstServoDyn_DataData, Ct end do end if if (allocated(SrcServoDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcServoDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%Input_Saved) + UB(1:1) = ubound(SrcServoDyn_DataData%Input_Saved) if (.not. allocated(DstServoDyn_DataData%Input_Saved)) then allocate(DstServoDyn_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8334,8 +8334,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, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%InputTimes) + UB(1:1) = ubound(SrcServoDyn_DataData%InputTimes) if (.not. allocated(DstServoDyn_DataData%InputTimes)) then allocate(DstServoDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8346,8 +8346,8 @@ subroutine FAST_CopyServoDyn_Data(SrcServoDyn_DataData, DstServoDyn_DataData, Ct DstServoDyn_DataData%InputTimes = SrcServoDyn_DataData%InputTimes end if if (allocated(SrcServoDyn_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcServoDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcServoDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcServoDyn_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcServoDyn_DataData%InputTimes_Saved) if (.not. allocated(DstServoDyn_DataData%InputTimes_Saved)) then allocate(DstServoDyn_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8363,33 +8363,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%x) + UB(1:1) = ubound(ServoDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%xd) + UB(1:1) = ubound(ServoDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%z) + UB(1:1) = ubound(ServoDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%OtherSt) + UB(1:1) = ubound(ServoDyn_DataData%OtherSt) do i1 = LB(1), UB(1) call SrvD_DestroyOtherState(ServoDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8405,8 +8405,8 @@ subroutine FAST_DestroyServoDyn_Data(ServoDyn_DataData, ErrStat, ErrMsg) call SrvD_DestroyMisc(ServoDyn_DataData%m_bak, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ServoDyn_DataData%Output)) then - LB(1:1) = lbound(ServoDyn_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%Output) + UB(1:1) = ubound(ServoDyn_DataData%Output) do i1 = LB(1), UB(1) call SrvD_DestroyOutput(ServoDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8416,8 +8416,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, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%Input) + UB(1:1) = ubound(ServoDyn_DataData%Input) do i1 = LB(1), UB(1) call SrvD_DestroyInput(ServoDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8425,8 +8425,8 @@ subroutine FAST_DestroyServoDyn_Data(ServoDyn_DataData, ErrStat, ErrMsg) deallocate(ServoDyn_DataData%Input) end if if (allocated(ServoDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(ServoDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(ServoDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(ServoDyn_DataData%Input_Saved) + UB(1:1) = ubound(ServoDyn_DataData%Input_Saved) do i1 = LB(1), UB(1) call SrvD_DestroyInput(ServoDyn_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8445,26 +8445,26 @@ subroutine FAST_PackServoDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(ServoDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackServoDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call SrvD_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call SrvD_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call SrvD_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call SrvD_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -8475,9 +8475,9 @@ subroutine FAST_PackServoDyn_Data(RF, Indata) call SrvD_PackMisc(RF, InData%m_bak) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call SrvD_PackOutput(RF, InData%Output(i1)) end do @@ -8485,18 +8485,18 @@ subroutine FAST_PackServoDyn_Data(RF, Indata) call SrvD_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call SrvD_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call SrvD_PackInput(RF, InData%Input_Saved(i1)) end do @@ -8510,28 +8510,28 @@ subroutine FAST_UnPackServoDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(ServoDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackServoDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call SrvD_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call SrvD_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call SrvD_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call SrvD_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -8590,36 +8590,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%x) + UB(1:1) = ubound(SrcAeroDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%xd) + UB(1:1) = ubound(SrcAeroDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%z) + UB(1:1) = ubound(SrcAeroDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%OtherSt) + UB(1:1) = ubound(SrcAeroDyn_DataData%OtherSt) 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) @@ -8638,8 +8638,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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%Output) + UB(1:1) = ubound(SrcAeroDyn_DataData%Output) if (.not. allocated(DstAeroDyn_DataData%Output)) then allocate(DstAeroDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8657,8 +8657,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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%Input) + UB(1:1) = ubound(SrcAeroDyn_DataData%Input) if (.not. allocated(DstAeroDyn_DataData%Input)) then allocate(DstAeroDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8673,8 +8673,8 @@ subroutine FAST_CopyAeroDyn_Data(SrcAeroDyn_DataData, DstAeroDyn_DataData, CtrlC end do end if if (allocated(SrcAeroDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcAeroDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%Input_Saved) + UB(1:1) = ubound(SrcAeroDyn_DataData%Input_Saved) if (.not. allocated(DstAeroDyn_DataData%Input_Saved)) then allocate(DstAeroDyn_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8689,8 +8689,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, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%InputTimes) + UB(1:1) = ubound(SrcAeroDyn_DataData%InputTimes) if (.not. allocated(DstAeroDyn_DataData%InputTimes)) then allocate(DstAeroDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8701,8 +8701,8 @@ subroutine FAST_CopyAeroDyn_Data(SrcAeroDyn_DataData, DstAeroDyn_DataData, CtrlC DstAeroDyn_DataData%InputTimes = SrcAeroDyn_DataData%InputTimes end if if (allocated(SrcAeroDyn_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcAeroDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDyn_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcAeroDyn_DataData%InputTimes_Saved) if (.not. allocated(DstAeroDyn_DataData%InputTimes_Saved)) then allocate(DstAeroDyn_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -8718,33 +8718,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%x) + UB(1:1) = ubound(AeroDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%xd) + UB(1:1) = ubound(AeroDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%z) + UB(1:1) = ubound(AeroDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%OtherSt) + UB(1:1) = ubound(AeroDyn_DataData%OtherSt) do i1 = LB(1), UB(1) call AD_DestroyOtherState(AeroDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8758,8 +8758,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, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%Output) + UB(1:1) = ubound(AeroDyn_DataData%Output) do i1 = LB(1), UB(1) call AD_DestroyOutput(AeroDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8769,8 +8769,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, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%Input) + UB(1:1) = ubound(AeroDyn_DataData%Input) do i1 = LB(1), UB(1) call AD_DestroyInput(AeroDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8778,8 +8778,8 @@ subroutine FAST_DestroyAeroDyn_Data(AeroDyn_DataData, ErrStat, ErrMsg) deallocate(AeroDyn_DataData%Input) end if if (allocated(AeroDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(AeroDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(AeroDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(AeroDyn_DataData%Input_Saved) + UB(1:1) = ubound(AeroDyn_DataData%Input_Saved) do i1 = LB(1), UB(1) call AD_DestroyInput(AeroDyn_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8798,26 +8798,26 @@ subroutine FAST_PackAeroDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(AeroDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackAeroDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call AD_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call AD_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call AD_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call AD_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -8827,9 +8827,9 @@ subroutine FAST_PackAeroDyn_Data(RF, Indata) call AD_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call AD_PackOutput(RF, InData%Output(i1)) end do @@ -8837,18 +8837,18 @@ subroutine FAST_PackAeroDyn_Data(RF, Indata) call AD_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call AD_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call AD_PackInput(RF, InData%Input_Saved(i1)) end do @@ -8862,28 +8862,28 @@ subroutine FAST_UnPackAeroDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(AeroDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackAeroDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call AD_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call AD_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call AD_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call AD_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -8941,36 +8941,36 @@ subroutine FAST_CopyExtLoads_Data(SrcExtLoads_DataData, DstExtLoads_DataData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyExtLoads_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcExtLoads_DataData%x, kind=B8Ki) - UB(1:1) = ubound(SrcExtLoads_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcExtLoads_DataData%x) + UB(1:1) = ubound(SrcExtLoads_DataData%x) do i1 = LB(1), UB(1) call ExtLd_CopyContState(SrcExtLoads_DataData%x(i1), DstExtLoads_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcExtLoads_DataData%xd, kind=B8Ki) - UB(1:1) = ubound(SrcExtLoads_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcExtLoads_DataData%xd) + UB(1:1) = ubound(SrcExtLoads_DataData%xd) do i1 = LB(1), UB(1) call ExtLd_CopyDiscState(SrcExtLoads_DataData%xd(i1), DstExtLoads_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcExtLoads_DataData%z, kind=B8Ki) - UB(1:1) = ubound(SrcExtLoads_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcExtLoads_DataData%z) + UB(1:1) = ubound(SrcExtLoads_DataData%z) do i1 = LB(1), UB(1) call ExtLd_CopyConstrState(SrcExtLoads_DataData%z(i1), DstExtLoads_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcExtLoads_DataData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(SrcExtLoads_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcExtLoads_DataData%OtherSt) + UB(1:1) = ubound(SrcExtLoads_DataData%OtherSt) do i1 = LB(1), UB(1) call ExtLd_CopyOtherState(SrcExtLoads_DataData%OtherSt(i1), DstExtLoads_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -8989,8 +8989,8 @@ subroutine FAST_CopyExtLoads_Data(SrcExtLoads_DataData, DstExtLoads_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcExtLoads_DataData%InputTimes)) then - LB(1:1) = lbound(SrcExtLoads_DataData%InputTimes, kind=B8Ki) - UB(1:1) = ubound(SrcExtLoads_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcExtLoads_DataData%InputTimes) + UB(1:1) = ubound(SrcExtLoads_DataData%InputTimes) if (.not. allocated(DstExtLoads_DataData%InputTimes)) then allocate(DstExtLoads_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9006,33 +9006,33 @@ subroutine FAST_DestroyExtLoads_Data(ExtLoads_DataData, ErrStat, ErrMsg) type(ExtLoads_Data), intent(inout) :: ExtLoads_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyExtLoads_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(ExtLoads_DataData%x, kind=B8Ki) - UB(1:1) = ubound(ExtLoads_DataData%x, kind=B8Ki) + LB(1:1) = lbound(ExtLoads_DataData%x) + UB(1:1) = ubound(ExtLoads_DataData%x) do i1 = LB(1), UB(1) call ExtLd_DestroyContState(ExtLoads_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ExtLoads_DataData%xd, kind=B8Ki) - UB(1:1) = ubound(ExtLoads_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(ExtLoads_DataData%xd) + UB(1:1) = ubound(ExtLoads_DataData%xd) do i1 = LB(1), UB(1) call ExtLd_DestroyDiscState(ExtLoads_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ExtLoads_DataData%z, kind=B8Ki) - UB(1:1) = ubound(ExtLoads_DataData%z, kind=B8Ki) + LB(1:1) = lbound(ExtLoads_DataData%z) + UB(1:1) = ubound(ExtLoads_DataData%z) do i1 = LB(1), UB(1) call ExtLd_DestroyConstrState(ExtLoads_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(ExtLoads_DataData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(ExtLoads_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(ExtLoads_DataData%OtherSt) + UB(1:1) = ubound(ExtLoads_DataData%OtherSt) do i1 = LB(1), UB(1) call ExtLd_DestroyOtherState(ExtLoads_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9054,26 +9054,26 @@ subroutine FAST_PackExtLoads_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtLoads_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackExtLoads_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call ExtLd_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call ExtLd_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call ExtLd_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call ExtLd_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -9089,28 +9089,28 @@ subroutine FAST_UnPackExtLoads_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtLoads_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackExtLoads_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call ExtLd_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call ExtLd_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call ExtLd_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call ExtLd_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -9127,36 +9127,36 @@ subroutine FAST_CopyAeroDisk_Data(SrcAeroDisk_DataData, DstAeroDisk_DataData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyAeroDisk_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(SrcAeroDisk_DataData%x, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%x) + UB(1:1) = ubound(SrcAeroDisk_DataData%x) do i1 = LB(1), UB(1) call ADsk_CopyContState(SrcAeroDisk_DataData%x(i1), DstAeroDisk_DataData%x(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDisk_DataData%xd, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%xd) + UB(1:1) = ubound(SrcAeroDisk_DataData%xd) do i1 = LB(1), UB(1) call ADsk_CopyDiscState(SrcAeroDisk_DataData%xd(i1), DstAeroDisk_DataData%xd(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDisk_DataData%z, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%z) + UB(1:1) = ubound(SrcAeroDisk_DataData%z) do i1 = LB(1), UB(1) call ADsk_CopyConstrState(SrcAeroDisk_DataData%z(i1), DstAeroDisk_DataData%z(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return end do - LB(1:1) = lbound(SrcAeroDisk_DataData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%OtherSt) + UB(1:1) = ubound(SrcAeroDisk_DataData%OtherSt) do i1 = LB(1), UB(1) call ADsk_CopyOtherState(SrcAeroDisk_DataData%OtherSt(i1), DstAeroDisk_DataData%OtherSt(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9175,8 +9175,8 @@ subroutine FAST_CopyAeroDisk_Data(SrcAeroDisk_DataData, DstAeroDisk_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcAeroDisk_DataData%Output)) then - LB(1:1) = lbound(SrcAeroDisk_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%Output) + UB(1:1) = ubound(SrcAeroDisk_DataData%Output) if (.not. allocated(DstAeroDisk_DataData%Output)) then allocate(DstAeroDisk_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9194,8 +9194,8 @@ subroutine FAST_CopyAeroDisk_Data(SrcAeroDisk_DataData, DstAeroDisk_DataData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcAeroDisk_DataData%Input)) then - LB(1:1) = lbound(SrcAeroDisk_DataData%Input, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%Input) + UB(1:1) = ubound(SrcAeroDisk_DataData%Input) if (.not. allocated(DstAeroDisk_DataData%Input)) then allocate(DstAeroDisk_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9210,8 +9210,8 @@ subroutine FAST_CopyAeroDisk_Data(SrcAeroDisk_DataData, DstAeroDisk_DataData, Ct end do end if if (allocated(SrcAeroDisk_DataData%InputTimes)) then - LB(1:1) = lbound(SrcAeroDisk_DataData%InputTimes, kind=B8Ki) - UB(1:1) = ubound(SrcAeroDisk_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcAeroDisk_DataData%InputTimes) + UB(1:1) = ubound(SrcAeroDisk_DataData%InputTimes) if (.not. allocated(DstAeroDisk_DataData%InputTimes)) then allocate(DstAeroDisk_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9227,33 +9227,33 @@ subroutine FAST_DestroyAeroDisk_Data(AeroDisk_DataData, ErrStat, ErrMsg) type(AeroDisk_Data), intent(inout) :: AeroDisk_DataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyAeroDisk_Data' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(AeroDisk_DataData%x, kind=B8Ki) - UB(1:1) = ubound(AeroDisk_DataData%x, kind=B8Ki) + LB(1:1) = lbound(AeroDisk_DataData%x) + UB(1:1) = ubound(AeroDisk_DataData%x) do i1 = LB(1), UB(1) call ADsk_DestroyContState(AeroDisk_DataData%x(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDisk_DataData%xd, kind=B8Ki) - UB(1:1) = ubound(AeroDisk_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(AeroDisk_DataData%xd) + UB(1:1) = ubound(AeroDisk_DataData%xd) do i1 = LB(1), UB(1) call ADsk_DestroyDiscState(AeroDisk_DataData%xd(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDisk_DataData%z, kind=B8Ki) - UB(1:1) = ubound(AeroDisk_DataData%z, kind=B8Ki) + LB(1:1) = lbound(AeroDisk_DataData%z) + UB(1:1) = ubound(AeroDisk_DataData%z) do i1 = LB(1), UB(1) call ADsk_DestroyConstrState(AeroDisk_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) end do - LB(1:1) = lbound(AeroDisk_DataData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(AeroDisk_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(AeroDisk_DataData%OtherSt) + UB(1:1) = ubound(AeroDisk_DataData%OtherSt) do i1 = LB(1), UB(1) call ADsk_DestroyOtherState(AeroDisk_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9267,8 +9267,8 @@ subroutine FAST_DestroyAeroDisk_Data(AeroDisk_DataData, ErrStat, ErrMsg) call ADsk_DestroyMisc(AeroDisk_DataData%m, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(AeroDisk_DataData%Output)) then - LB(1:1) = lbound(AeroDisk_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(AeroDisk_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(AeroDisk_DataData%Output) + UB(1:1) = ubound(AeroDisk_DataData%Output) do i1 = LB(1), UB(1) call ADsk_DestroyOutput(AeroDisk_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9278,8 +9278,8 @@ subroutine FAST_DestroyAeroDisk_Data(AeroDisk_DataData, ErrStat, ErrMsg) call ADsk_DestroyOutput(AeroDisk_DataData%y_interp, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(AeroDisk_DataData%Input)) then - LB(1:1) = lbound(AeroDisk_DataData%Input, kind=B8Ki) - UB(1:1) = ubound(AeroDisk_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(AeroDisk_DataData%Input) + UB(1:1) = ubound(AeroDisk_DataData%Input) do i1 = LB(1), UB(1) call ADsk_DestroyInput(AeroDisk_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9295,26 +9295,26 @@ subroutine FAST_PackAeroDisk_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(AeroDisk_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackAeroDisk_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call ADsk_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call ADsk_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call ADsk_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call ADsk_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -9324,9 +9324,9 @@ subroutine FAST_PackAeroDisk_Data(RF, Indata) call ADsk_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call ADsk_PackOutput(RF, InData%Output(i1)) end do @@ -9334,9 +9334,9 @@ subroutine FAST_PackAeroDisk_Data(RF, Indata) call ADsk_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call ADsk_PackInput(RF, InData%Input(i1)) end do @@ -9349,28 +9349,28 @@ subroutine FAST_UnPackAeroDisk_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(AeroDisk_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackAeroDisk_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call ADsk_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call ADsk_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call ADsk_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call ADsk_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -9414,36 +9414,36 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%x) + UB(1:1) = ubound(SrcInflowWind_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%xd) + UB(1:1) = ubound(SrcInflowWind_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%z) + UB(1:1) = ubound(SrcInflowWind_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%OtherSt) + UB(1:1) = ubound(SrcInflowWind_DataData%OtherSt) 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) @@ -9462,8 +9462,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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%Output) + UB(1:1) = ubound(SrcInflowWind_DataData%Output) if (.not. allocated(DstInflowWind_DataData%Output)) then allocate(DstInflowWind_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9481,8 +9481,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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%Input) + UB(1:1) = ubound(SrcInflowWind_DataData%Input) if (.not. allocated(DstInflowWind_DataData%Input)) then allocate(DstInflowWind_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9497,8 +9497,8 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa end do end if if (allocated(SrcInflowWind_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcInflowWind_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%Input_Saved) + UB(1:1) = ubound(SrcInflowWind_DataData%Input_Saved) if (.not. allocated(DstInflowWind_DataData%Input_Saved)) then allocate(DstInflowWind_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9513,8 +9513,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, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%InputTimes) + UB(1:1) = ubound(SrcInflowWind_DataData%InputTimes) if (.not. allocated(DstInflowWind_DataData%InputTimes)) then allocate(DstInflowWind_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9525,8 +9525,8 @@ subroutine FAST_CopyInflowWind_Data(SrcInflowWind_DataData, DstInflowWind_DataDa DstInflowWind_DataData%InputTimes = SrcInflowWind_DataData%InputTimes end if if (allocated(SrcInflowWind_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcInflowWind_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcInflowWind_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcInflowWind_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcInflowWind_DataData%InputTimes_Saved) if (.not. allocated(DstInflowWind_DataData%InputTimes_Saved)) then allocate(DstInflowWind_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9542,33 +9542,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%x, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%x) + UB(1:1) = ubound(InflowWind_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%xd) + UB(1:1) = ubound(InflowWind_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%z, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%z) + UB(1:1) = ubound(InflowWind_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%OtherSt) + UB(1:1) = ubound(InflowWind_DataData%OtherSt) do i1 = LB(1), UB(1) call InflowWind_DestroyOtherState(InflowWind_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9582,8 +9582,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, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%Output) + UB(1:1) = ubound(InflowWind_DataData%Output) do i1 = LB(1), UB(1) call InflowWind_DestroyOutput(InflowWind_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9593,8 +9593,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, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%Input) + UB(1:1) = ubound(InflowWind_DataData%Input) do i1 = LB(1), UB(1) call InflowWind_DestroyInput(InflowWind_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9602,8 +9602,8 @@ subroutine FAST_DestroyInflowWind_Data(InflowWind_DataData, ErrStat, ErrMsg) deallocate(InflowWind_DataData%Input) end if if (allocated(InflowWind_DataData%Input_Saved)) then - LB(1:1) = lbound(InflowWind_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InflowWind_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(InflowWind_DataData%Input_Saved) + UB(1:1) = ubound(InflowWind_DataData%Input_Saved) do i1 = LB(1), UB(1) call InflowWind_DestroyInput(InflowWind_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -9622,26 +9622,26 @@ subroutine FAST_PackInflowWind_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(InflowWind_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackInflowWind_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call InflowWind_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call InflowWind_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call InflowWind_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call InflowWind_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -9651,9 +9651,9 @@ subroutine FAST_PackInflowWind_Data(RF, Indata) call InflowWind_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call InflowWind_PackOutput(RF, InData%Output(i1)) end do @@ -9661,18 +9661,18 @@ subroutine FAST_PackInflowWind_Data(RF, Indata) call InflowWind_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call InflowWind_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call InflowWind_PackInput(RF, InData%Input_Saved(i1)) end do @@ -9686,28 +9686,28 @@ subroutine FAST_UnPackInflowWind_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(InflowWind_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackInflowWind_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call InflowWind_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call InflowWind_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call InflowWind_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call InflowWind_UnpackOtherState(RF, 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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%x) + UB(1:1) = ubound(SrcSubDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%xd) + UB(1:1) = ubound(SrcSubDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%z) + UB(1:1) = ubound(SrcSubDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%OtherSt) + UB(1:1) = ubound(SrcSubDyn_DataData%OtherSt) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%Input) + UB(1:1) = ubound(SrcSubDyn_DataData%Input) 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%Input_Saved)) then - LB(1:1) = lbound(SrcSubDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%Input_Saved) + UB(1:1) = ubound(SrcSubDyn_DataData%Input_Saved) if (.not. allocated(DstSubDyn_DataData%Input_Saved)) then allocate(DstSubDyn_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9972,8 +9972,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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%Output) + UB(1:1) = ubound(SrcSubDyn_DataData%Output) if (.not. allocated(DstSubDyn_DataData%Output)) then allocate(DstSubDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -9991,8 +9991,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, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%InputTimes) + UB(1:1) = ubound(SrcSubDyn_DataData%InputTimes) if (.not. allocated(DstSubDyn_DataData%InputTimes)) then allocate(DstSubDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10003,8 +10003,8 @@ subroutine FAST_CopySubDyn_Data(SrcSubDyn_DataData, DstSubDyn_DataData, CtrlCode DstSubDyn_DataData%InputTimes = SrcSubDyn_DataData%InputTimes end if if (allocated(SrcSubDyn_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcSubDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcSubDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcSubDyn_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcSubDyn_DataData%InputTimes_Saved) if (.not. allocated(DstSubDyn_DataData%InputTimes_Saved)) then allocate(DstSubDyn_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10020,33 +10020,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%x) + UB(1:1) = ubound(SubDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%xd) + UB(1:1) = ubound(SubDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%z) + UB(1:1) = ubound(SubDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%OtherSt) + UB(1:1) = ubound(SubDyn_DataData%OtherSt) do i1 = LB(1), UB(1) call SD_DestroyOtherState(SubDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10060,8 +10060,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, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%Input) + UB(1:1) = ubound(SubDyn_DataData%Input) do i1 = LB(1), UB(1) call SD_DestroyInput(SubDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10069,8 +10069,8 @@ subroutine FAST_DestroySubDyn_Data(SubDyn_DataData, ErrStat, ErrMsg) deallocate(SubDyn_DataData%Input) end if if (allocated(SubDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(SubDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%Input_Saved) + UB(1:1) = ubound(SubDyn_DataData%Input_Saved) do i1 = LB(1), UB(1) call SD_DestroyInput(SubDyn_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10078,8 +10078,8 @@ subroutine FAST_DestroySubDyn_Data(SubDyn_DataData, ErrStat, ErrMsg) deallocate(SubDyn_DataData%Input_Saved) end if if (allocated(SubDyn_DataData%Output)) then - LB(1:1) = lbound(SubDyn_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(SubDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SubDyn_DataData%Output) + UB(1:1) = ubound(SubDyn_DataData%Output) do i1 = LB(1), UB(1) call SD_DestroyOutput(SubDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10100,26 +10100,26 @@ subroutine FAST_PackSubDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(SubDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackSubDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call SD_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call SD_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call SD_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call SD_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -10129,27 +10129,27 @@ subroutine FAST_PackSubDyn_Data(RF, Indata) call SD_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call SD_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call SD_PackInput(RF, InData%Input_Saved(i1)) end do end if call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call SD_PackOutput(RF, InData%Output(i1)) end do @@ -10164,28 +10164,28 @@ subroutine FAST_UnPackSubDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(SubDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackSubDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call SD_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call SD_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call SD_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call SD_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -10243,36 +10243,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%x) + UB(1:1) = ubound(SrcExtPtfm_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%xd) + UB(1:1) = ubound(SrcExtPtfm_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%z) + UB(1:1) = ubound(SrcExtPtfm_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%OtherSt) + UB(1:1) = ubound(SrcExtPtfm_DataData%OtherSt) 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) @@ -10291,8 +10291,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, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%Input) + UB(1:1) = ubound(SrcExtPtfm_DataData%Input) if (.not. allocated(DstExtPtfm_DataData%Input)) then allocate(DstExtPtfm_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10307,8 +10307,8 @@ subroutine FAST_CopyExtPtfm_Data(SrcExtPtfm_DataData, DstExtPtfm_DataData, CtrlC end do end if if (allocated(SrcExtPtfm_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcExtPtfm_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%Input_Saved) + UB(1:1) = ubound(SrcExtPtfm_DataData%Input_Saved) if (.not. allocated(DstExtPtfm_DataData%Input_Saved)) then allocate(DstExtPtfm_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10323,8 +10323,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, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%InputTimes) + UB(1:1) = ubound(SrcExtPtfm_DataData%InputTimes) if (.not. allocated(DstExtPtfm_DataData%InputTimes)) then allocate(DstExtPtfm_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10335,8 +10335,8 @@ subroutine FAST_CopyExtPtfm_Data(SrcExtPtfm_DataData, DstExtPtfm_DataData, CtrlC DstExtPtfm_DataData%InputTimes = SrcExtPtfm_DataData%InputTimes end if if (allocated(SrcExtPtfm_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcExtPtfm_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcExtPtfm_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcExtPtfm_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcExtPtfm_DataData%InputTimes_Saved) if (.not. allocated(DstExtPtfm_DataData%InputTimes_Saved)) then allocate(DstExtPtfm_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10352,33 +10352,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ExtPtfm_DataData%x, kind=B8Ki) + LB(1:1) = lbound(ExtPtfm_DataData%x) + UB(1:1) = ubound(ExtPtfm_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(ExtPtfm_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(ExtPtfm_DataData%xd) + UB(1:1) = ubound(ExtPtfm_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(ExtPtfm_DataData%z, kind=B8Ki) + LB(1:1) = lbound(ExtPtfm_DataData%z) + UB(1:1) = ubound(ExtPtfm_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(ExtPtfm_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(ExtPtfm_DataData%OtherSt) + UB(1:1) = ubound(ExtPtfm_DataData%OtherSt) do i1 = LB(1), UB(1) call ExtPtfm_DestroyOtherState(ExtPtfm_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10392,8 +10392,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, kind=B8Ki) - UB(1:1) = ubound(ExtPtfm_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(ExtPtfm_DataData%Input) + UB(1:1) = ubound(ExtPtfm_DataData%Input) do i1 = LB(1), UB(1) call ExtPtfm_DestroyInput(ExtPtfm_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10401,8 +10401,8 @@ subroutine FAST_DestroyExtPtfm_Data(ExtPtfm_DataData, ErrStat, ErrMsg) deallocate(ExtPtfm_DataData%Input) end if if (allocated(ExtPtfm_DataData%Input_Saved)) then - LB(1:1) = lbound(ExtPtfm_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(ExtPtfm_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(ExtPtfm_DataData%Input_Saved) + UB(1:1) = ubound(ExtPtfm_DataData%Input_Saved) do i1 = LB(1), UB(1) call ExtPtfm_DestroyInput(ExtPtfm_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10421,26 +10421,26 @@ subroutine FAST_PackExtPtfm_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(ExtPtfm_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackExtPtfm_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call ExtPtfm_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call ExtPtfm_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call ExtPtfm_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call ExtPtfm_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -10450,18 +10450,18 @@ subroutine FAST_PackExtPtfm_Data(RF, Indata) call ExtPtfm_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call ExtPtfm_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call ExtPtfm_PackInput(RF, InData%Input_Saved(i1)) end do @@ -10475,28 +10475,28 @@ subroutine FAST_UnPackExtPtfm_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(ExtPtfm_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackExtPtfm_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call ExtPtfm_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call ExtPtfm_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call ExtPtfm_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call ExtPtfm_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -10540,36 +10540,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%x) + UB(1:1) = ubound(SrcSeaState_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%xd) + UB(1:1) = ubound(SrcSeaState_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%z) + UB(1:1) = ubound(SrcSeaState_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%OtherSt) + UB(1:1) = ubound(SrcSeaState_DataData%OtherSt) 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) @@ -10588,8 +10588,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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%Input) + UB(1:1) = ubound(SrcSeaState_DataData%Input) if (.not. allocated(DstSeaState_DataData%Input)) then allocate(DstSeaState_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10604,8 +10604,8 @@ subroutine FAST_CopySeaState_Data(SrcSeaState_DataData, DstSeaState_DataData, Ct end do end if if (allocated(SrcSeaState_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcSeaState_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%Input_Saved) + UB(1:1) = ubound(SrcSeaState_DataData%Input_Saved) if (.not. allocated(DstSeaState_DataData%Input_Saved)) then allocate(DstSeaState_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10620,8 +10620,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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%Output) + UB(1:1) = ubound(SrcSeaState_DataData%Output) if (.not. allocated(DstSeaState_DataData%Output)) then allocate(DstSeaState_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10639,8 +10639,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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%InputTimes) + UB(1:1) = ubound(SrcSeaState_DataData%InputTimes) if (.not. allocated(DstSeaState_DataData%InputTimes)) then allocate(DstSeaState_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10651,8 +10651,8 @@ subroutine FAST_CopySeaState_Data(SrcSeaState_DataData, DstSeaState_DataData, Ct DstSeaState_DataData%InputTimes = SrcSeaState_DataData%InputTimes end if if (allocated(SrcSeaState_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcSeaState_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcSeaState_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcSeaState_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcSeaState_DataData%InputTimes_Saved) if (.not. allocated(DstSeaState_DataData%InputTimes_Saved)) then allocate(DstSeaState_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10668,33 +10668,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%x) + UB(1:1) = ubound(SeaState_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%xd) + UB(1:1) = ubound(SeaState_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%z) + UB(1:1) = ubound(SeaState_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%OtherSt) + UB(1:1) = ubound(SeaState_DataData%OtherSt) do i1 = LB(1), UB(1) call SeaSt_DestroyOtherState(SeaState_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10708,8 +10708,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, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%Input) + UB(1:1) = ubound(SeaState_DataData%Input) do i1 = LB(1), UB(1) call SeaSt_DestroyInput(SeaState_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10717,8 +10717,8 @@ subroutine FAST_DestroySeaState_Data(SeaState_DataData, ErrStat, ErrMsg) deallocate(SeaState_DataData%Input) end if if (allocated(SeaState_DataData%Input_Saved)) then - LB(1:1) = lbound(SeaState_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%Input_Saved) + UB(1:1) = ubound(SeaState_DataData%Input_Saved) do i1 = LB(1), UB(1) call SeaSt_DestroyInput(SeaState_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10726,8 +10726,8 @@ subroutine FAST_DestroySeaState_Data(SeaState_DataData, ErrStat, ErrMsg) deallocate(SeaState_DataData%Input_Saved) end if if (allocated(SeaState_DataData%Output)) then - LB(1:1) = lbound(SeaState_DataData%Output, kind=B8Ki) - UB(1:1) = ubound(SeaState_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SeaState_DataData%Output) + UB(1:1) = ubound(SeaState_DataData%Output) do i1 = LB(1), UB(1) call SeaSt_DestroyOutput(SeaState_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -10748,26 +10748,26 @@ subroutine FAST_PackSeaState_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(SeaState_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackSeaState_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call SeaSt_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call SeaSt_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call SeaSt_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call SeaSt_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -10777,27 +10777,27 @@ subroutine FAST_PackSeaState_Data(RF, Indata) call SeaSt_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call SeaSt_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call SeaSt_PackInput(RF, InData%Input_Saved(i1)) end do end if call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call SeaSt_PackOutput(RF, InData%Output(i1)) end do @@ -10812,28 +10812,28 @@ subroutine FAST_UnPackSeaState_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaState_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackSeaState_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call SeaSt_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call SeaSt_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call SeaSt_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call SeaSt_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -10891,36 +10891,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%x) + UB(1:1) = ubound(SrcHydroDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%xd) + UB(1:1) = ubound(SrcHydroDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%z) + UB(1:1) = ubound(SrcHydroDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%OtherSt) + UB(1:1) = ubound(SrcHydroDyn_DataData%OtherSt) 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) @@ -10939,8 +10939,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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%Output) + UB(1:1) = ubound(SrcHydroDyn_DataData%Output) if (.not. allocated(DstHydroDyn_DataData%Output)) then allocate(DstHydroDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10958,8 +10958,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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%Input) + UB(1:1) = ubound(SrcHydroDyn_DataData%Input) if (.not. allocated(DstHydroDyn_DataData%Input)) then allocate(DstHydroDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10974,8 +10974,8 @@ subroutine FAST_CopyHydroDyn_Data(SrcHydroDyn_DataData, DstHydroDyn_DataData, Ct end do end if if (allocated(SrcHydroDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcHydroDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%Input_Saved) + UB(1:1) = ubound(SrcHydroDyn_DataData%Input_Saved) if (.not. allocated(DstHydroDyn_DataData%Input_Saved)) then allocate(DstHydroDyn_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -10990,8 +10990,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, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%InputTimes) + UB(1:1) = ubound(SrcHydroDyn_DataData%InputTimes) if (.not. allocated(DstHydroDyn_DataData%InputTimes)) then allocate(DstHydroDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11002,8 +11002,8 @@ subroutine FAST_CopyHydroDyn_Data(SrcHydroDyn_DataData, DstHydroDyn_DataData, Ct DstHydroDyn_DataData%InputTimes = SrcHydroDyn_DataData%InputTimes end if if (allocated(SrcHydroDyn_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcHydroDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcHydroDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcHydroDyn_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcHydroDyn_DataData%InputTimes_Saved) if (.not. allocated(DstHydroDyn_DataData%InputTimes_Saved)) then allocate(DstHydroDyn_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11019,33 +11019,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%x) + UB(1:1) = ubound(HydroDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%xd) + UB(1:1) = ubound(HydroDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%z) + UB(1:1) = ubound(HydroDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%OtherSt) + UB(1:1) = ubound(HydroDyn_DataData%OtherSt) do i1 = LB(1), UB(1) call HydroDyn_DestroyOtherState(HydroDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11059,8 +11059,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, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%Output) + UB(1:1) = ubound(HydroDyn_DataData%Output) do i1 = LB(1), UB(1) call HydroDyn_DestroyOutput(HydroDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11070,8 +11070,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, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%Input) + UB(1:1) = ubound(HydroDyn_DataData%Input) do i1 = LB(1), UB(1) call HydroDyn_DestroyInput(HydroDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11079,8 +11079,8 @@ subroutine FAST_DestroyHydroDyn_Data(HydroDyn_DataData, ErrStat, ErrMsg) deallocate(HydroDyn_DataData%Input) end if if (allocated(HydroDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(HydroDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(HydroDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(HydroDyn_DataData%Input_Saved) + UB(1:1) = ubound(HydroDyn_DataData%Input_Saved) do i1 = LB(1), UB(1) call HydroDyn_DestroyInput(HydroDyn_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11099,26 +11099,26 @@ subroutine FAST_PackHydroDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(HydroDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackHydroDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call HydroDyn_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call HydroDyn_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call HydroDyn_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call HydroDyn_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -11128,9 +11128,9 @@ subroutine FAST_PackHydroDyn_Data(RF, Indata) call HydroDyn_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call HydroDyn_PackOutput(RF, InData%Output(i1)) end do @@ -11138,18 +11138,18 @@ subroutine FAST_PackHydroDyn_Data(RF, Indata) call HydroDyn_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call HydroDyn_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call HydroDyn_PackInput(RF, InData%Input_Saved(i1)) end do @@ -11163,28 +11163,28 @@ subroutine FAST_UnPackHydroDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(HydroDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackHydroDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call HydroDyn_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call HydroDyn_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call HydroDyn_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call HydroDyn_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -11242,36 +11242,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%x) + UB(1:1) = ubound(SrcIceFloe_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%xd) + UB(1:1) = ubound(SrcIceFloe_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%z) + UB(1:1) = ubound(SrcIceFloe_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%OtherSt) + UB(1:1) = ubound(SrcIceFloe_DataData%OtherSt) 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) @@ -11290,8 +11290,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, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%Input) + UB(1:1) = ubound(SrcIceFloe_DataData%Input) if (.not. allocated(DstIceFloe_DataData%Input)) then allocate(DstIceFloe_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11306,8 +11306,8 @@ subroutine FAST_CopyIceFloe_Data(SrcIceFloe_DataData, DstIceFloe_DataData, CtrlC end do end if if (allocated(SrcIceFloe_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcIceFloe_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%Input_Saved) + UB(1:1) = ubound(SrcIceFloe_DataData%Input_Saved) if (.not. allocated(DstIceFloe_DataData%Input_Saved)) then allocate(DstIceFloe_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11322,8 +11322,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, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%InputTimes) + UB(1:1) = ubound(SrcIceFloe_DataData%InputTimes) if (.not. allocated(DstIceFloe_DataData%InputTimes)) then allocate(DstIceFloe_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11334,8 +11334,8 @@ subroutine FAST_CopyIceFloe_Data(SrcIceFloe_DataData, DstIceFloe_DataData, CtrlC DstIceFloe_DataData%InputTimes = SrcIceFloe_DataData%InputTimes end if if (allocated(SrcIceFloe_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcIceFloe_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcIceFloe_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcIceFloe_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcIceFloe_DataData%InputTimes_Saved) if (.not. allocated(DstIceFloe_DataData%InputTimes_Saved)) then allocate(DstIceFloe_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11351,33 +11351,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(IceFloe_DataData%x, kind=B8Ki) + LB(1:1) = lbound(IceFloe_DataData%x) + UB(1:1) = ubound(IceFloe_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(IceFloe_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(IceFloe_DataData%xd) + UB(1:1) = ubound(IceFloe_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(IceFloe_DataData%z, kind=B8Ki) + LB(1:1) = lbound(IceFloe_DataData%z) + UB(1:1) = ubound(IceFloe_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(IceFloe_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(IceFloe_DataData%OtherSt) + UB(1:1) = ubound(IceFloe_DataData%OtherSt) do i1 = LB(1), UB(1) call IceFloe_DestroyOtherState(IceFloe_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11391,8 +11391,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, kind=B8Ki) - UB(1:1) = ubound(IceFloe_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(IceFloe_DataData%Input) + UB(1:1) = ubound(IceFloe_DataData%Input) do i1 = LB(1), UB(1) call IceFloe_DestroyInput(IceFloe_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11400,8 +11400,8 @@ subroutine FAST_DestroyIceFloe_Data(IceFloe_DataData, ErrStat, ErrMsg) deallocate(IceFloe_DataData%Input) end if if (allocated(IceFloe_DataData%Input_Saved)) then - LB(1:1) = lbound(IceFloe_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(IceFloe_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(IceFloe_DataData%Input_Saved) + UB(1:1) = ubound(IceFloe_DataData%Input_Saved) do i1 = LB(1), UB(1) call IceFloe_DestroyInput(IceFloe_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11420,26 +11420,26 @@ subroutine FAST_PackIceFloe_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(IceFloe_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackIceFloe_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call IceFloe_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call IceFloe_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call IceFloe_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call IceFloe_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -11449,18 +11449,18 @@ subroutine FAST_PackIceFloe_Data(RF, Indata) call IceFloe_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call IceFloe_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call IceFloe_PackInput(RF, InData%Input_Saved(i1)) end do @@ -11474,28 +11474,28 @@ subroutine FAST_UnPackIceFloe_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(IceFloe_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackIceFloe_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call IceFloe_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call IceFloe_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call IceFloe_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call IceFloe_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -11539,29 +11539,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%x) + UB(1:1) = ubound(SrcMAP_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%xd) + UB(1:1) = ubound(SrcMAP_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%z) + UB(1:1) = ubound(SrcMAP_DataData%z) 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) @@ -11583,8 +11583,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, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%Output) + UB(1:1) = ubound(SrcMAP_DataData%Output) if (.not. allocated(DstMAP_DataData%Output)) then allocate(DstMAP_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11602,8 +11602,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, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%Input) + UB(1:1) = ubound(SrcMAP_DataData%Input) if (.not. allocated(DstMAP_DataData%Input)) then allocate(DstMAP_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11618,8 +11618,8 @@ subroutine FAST_CopyMAP_Data(SrcMAP_DataData, DstMAP_DataData, CtrlCode, ErrStat end do end if if (allocated(SrcMAP_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcMAP_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%Input_Saved) + UB(1:1) = ubound(SrcMAP_DataData%Input_Saved) if (.not. allocated(DstMAP_DataData%Input_Saved)) then allocate(DstMAP_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11634,8 +11634,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, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%InputTimes) + UB(1:1) = ubound(SrcMAP_DataData%InputTimes) if (.not. allocated(DstMAP_DataData%InputTimes)) then allocate(DstMAP_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11646,8 +11646,8 @@ subroutine FAST_CopyMAP_Data(SrcMAP_DataData, DstMAP_DataData, CtrlCode, ErrStat DstMAP_DataData%InputTimes = SrcMAP_DataData%InputTimes end if if (allocated(SrcMAP_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcMAP_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcMAP_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcMAP_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcMAP_DataData%InputTimes_Saved) if (.not. allocated(DstMAP_DataData%InputTimes_Saved)) then allocate(DstMAP_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11663,27 +11663,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(MAP_DataData%x, kind=B8Ki) + LB(1:1) = lbound(MAP_DataData%x) + UB(1:1) = ubound(MAP_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(MAP_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(MAP_DataData%xd) + UB(1:1) = ubound(MAP_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(MAP_DataData%z, kind=B8Ki) + LB(1:1) = lbound(MAP_DataData%z) + UB(1:1) = ubound(MAP_DataData%z) do i1 = LB(1), UB(1) call MAP_DestroyConstrState(MAP_DataData%z(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11699,8 +11699,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, kind=B8Ki) - UB(1:1) = ubound(MAP_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(MAP_DataData%Output) + UB(1:1) = ubound(MAP_DataData%Output) do i1 = LB(1), UB(1) call MAP_DestroyOutput(MAP_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11710,8 +11710,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, kind=B8Ki) - UB(1:1) = ubound(MAP_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(MAP_DataData%Input) + UB(1:1) = ubound(MAP_DataData%Input) do i1 = LB(1), UB(1) call MAP_DestroyInput(MAP_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11719,8 +11719,8 @@ subroutine FAST_DestroyMAP_Data(MAP_DataData, ErrStat, ErrMsg) deallocate(MAP_DataData%Input) end if if (allocated(MAP_DataData%Input_Saved)) then - LB(1:1) = lbound(MAP_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(MAP_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(MAP_DataData%Input_Saved) + UB(1:1) = ubound(MAP_DataData%Input_Saved) do i1 = LB(1), UB(1) call MAP_DestroyInput(MAP_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -11739,21 +11739,21 @@ subroutine FAST_PackMAP_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(MAP_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackMAP_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call MAP_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call MAP_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call MAP_PackConstrState(RF, InData%z(i1)) end do @@ -11764,9 +11764,9 @@ subroutine FAST_PackMAP_Data(RF, Indata) call MAP_PackOtherState(RF, InData%OtherSt_old) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call MAP_PackOutput(RF, InData%Output(i1)) end do @@ -11774,18 +11774,18 @@ subroutine FAST_PackMAP_Data(RF, Indata) call MAP_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call MAP_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call MAP_PackInput(RF, InData%Input_Saved(i1)) end do @@ -11799,23 +11799,23 @@ subroutine FAST_UnPackMAP_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(MAP_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackMAP_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call MAP_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call MAP_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call MAP_UnpackConstrState(RF, OutData%z(i1)) ! z end do @@ -11874,36 +11874,36 @@ subroutine FAST_CopyFEAMooring_Data(SrcFEAMooring_DataData, DstFEAMooring_DataDa integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%x) + UB(1:1) = ubound(SrcFEAMooring_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%xd) + UB(1:1) = ubound(SrcFEAMooring_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%z) + UB(1:1) = ubound(SrcFEAMooring_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%OtherSt) + UB(1:1) = ubound(SrcFEAMooring_DataData%OtherSt) 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) @@ -11922,8 +11922,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, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%Input) + UB(1:1) = ubound(SrcFEAMooring_DataData%Input) if (.not. allocated(DstFEAMooring_DataData%Input)) then allocate(DstFEAMooring_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11938,8 +11938,8 @@ subroutine FAST_CopyFEAMooring_Data(SrcFEAMooring_DataData, DstFEAMooring_DataDa end do end if if (allocated(SrcFEAMooring_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcFEAMooring_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%Input_Saved) + UB(1:1) = ubound(SrcFEAMooring_DataData%Input_Saved) if (.not. allocated(DstFEAMooring_DataData%Input_Saved)) then allocate(DstFEAMooring_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11954,8 +11954,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, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%InputTimes) + UB(1:1) = ubound(SrcFEAMooring_DataData%InputTimes) if (.not. allocated(DstFEAMooring_DataData%InputTimes)) then allocate(DstFEAMooring_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11966,8 +11966,8 @@ subroutine FAST_CopyFEAMooring_Data(SrcFEAMooring_DataData, DstFEAMooring_DataDa DstFEAMooring_DataData%InputTimes = SrcFEAMooring_DataData%InputTimes end if if (allocated(SrcFEAMooring_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcFEAMooring_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcFEAMooring_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcFEAMooring_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcFEAMooring_DataData%InputTimes_Saved) if (.not. allocated(DstFEAMooring_DataData%InputTimes_Saved)) then allocate(DstFEAMooring_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -11983,33 +11983,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(FEAMooring_DataData%x, kind=B8Ki) + LB(1:1) = lbound(FEAMooring_DataData%x) + UB(1:1) = ubound(FEAMooring_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(FEAMooring_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(FEAMooring_DataData%xd) + UB(1:1) = ubound(FEAMooring_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(FEAMooring_DataData%z, kind=B8Ki) + LB(1:1) = lbound(FEAMooring_DataData%z) + UB(1:1) = ubound(FEAMooring_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(FEAMooring_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(FEAMooring_DataData%OtherSt) + UB(1:1) = ubound(FEAMooring_DataData%OtherSt) do i1 = LB(1), UB(1) call FEAM_DestroyOtherState(FEAMooring_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12023,8 +12023,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, kind=B8Ki) - UB(1:1) = ubound(FEAMooring_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(FEAMooring_DataData%Input) + UB(1:1) = ubound(FEAMooring_DataData%Input) do i1 = LB(1), UB(1) call FEAM_DestroyInput(FEAMooring_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12032,8 +12032,8 @@ subroutine FAST_DestroyFEAMooring_Data(FEAMooring_DataData, ErrStat, ErrMsg) deallocate(FEAMooring_DataData%Input) end if if (allocated(FEAMooring_DataData%Input_Saved)) then - LB(1:1) = lbound(FEAMooring_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(FEAMooring_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(FEAMooring_DataData%Input_Saved) + UB(1:1) = ubound(FEAMooring_DataData%Input_Saved) do i1 = LB(1), UB(1) call FEAM_DestroyInput(FEAMooring_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12052,26 +12052,26 @@ subroutine FAST_PackFEAMooring_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(FEAMooring_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackFEAMooring_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call FEAM_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call FEAM_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call FEAM_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call FEAM_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -12081,18 +12081,18 @@ subroutine FAST_PackFEAMooring_Data(RF, Indata) call FEAM_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call FEAM_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call FEAM_PackInput(RF, InData%Input_Saved(i1)) end do @@ -12106,28 +12106,28 @@ subroutine FAST_UnPackFEAMooring_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(FEAMooring_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackFEAMooring_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call FEAM_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call FEAM_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call FEAM_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call FEAM_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -12171,36 +12171,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%x) + UB(1:1) = ubound(SrcMoorDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%xd) + UB(1:1) = ubound(SrcMoorDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%z) + UB(1:1) = ubound(SrcMoorDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%OtherSt) + UB(1:1) = ubound(SrcMoorDyn_DataData%OtherSt) 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) @@ -12219,8 +12219,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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%Output) + UB(1:1) = ubound(SrcMoorDyn_DataData%Output) if (.not. allocated(DstMoorDyn_DataData%Output)) then allocate(DstMoorDyn_DataData%Output(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12238,8 +12238,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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%Input) + UB(1:1) = ubound(SrcMoorDyn_DataData%Input) if (.not. allocated(DstMoorDyn_DataData%Input)) then allocate(DstMoorDyn_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12254,8 +12254,8 @@ subroutine FAST_CopyMoorDyn_Data(SrcMoorDyn_DataData, DstMoorDyn_DataData, CtrlC end do end if if (allocated(SrcMoorDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcMoorDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%Input_Saved) + UB(1:1) = ubound(SrcMoorDyn_DataData%Input_Saved) if (.not. allocated(DstMoorDyn_DataData%Input_Saved)) then allocate(DstMoorDyn_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12270,8 +12270,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, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%InputTimes) + UB(1:1) = ubound(SrcMoorDyn_DataData%InputTimes) if (.not. allocated(DstMoorDyn_DataData%InputTimes)) then allocate(DstMoorDyn_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12282,8 +12282,8 @@ subroutine FAST_CopyMoorDyn_Data(SrcMoorDyn_DataData, DstMoorDyn_DataData, CtrlC DstMoorDyn_DataData%InputTimes = SrcMoorDyn_DataData%InputTimes end if if (allocated(SrcMoorDyn_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcMoorDyn_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcMoorDyn_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcMoorDyn_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcMoorDyn_DataData%InputTimes_Saved) if (.not. allocated(DstMoorDyn_DataData%InputTimes_Saved)) then allocate(DstMoorDyn_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12299,33 +12299,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%x, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%x) + UB(1:1) = ubound(MoorDyn_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%xd) + UB(1:1) = ubound(MoorDyn_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%z, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%z) + UB(1:1) = ubound(MoorDyn_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%OtherSt) + UB(1:1) = ubound(MoorDyn_DataData%OtherSt) do i1 = LB(1), UB(1) call MD_DestroyOtherState(MoorDyn_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12339,8 +12339,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, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%Output, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%Output) + UB(1:1) = ubound(MoorDyn_DataData%Output) do i1 = LB(1), UB(1) call MD_DestroyOutput(MoorDyn_DataData%Output(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12350,8 +12350,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, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%Input) + UB(1:1) = ubound(MoorDyn_DataData%Input) do i1 = LB(1), UB(1) call MD_DestroyInput(MoorDyn_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12359,8 +12359,8 @@ subroutine FAST_DestroyMoorDyn_Data(MoorDyn_DataData, ErrStat, ErrMsg) deallocate(MoorDyn_DataData%Input) end if if (allocated(MoorDyn_DataData%Input_Saved)) then - LB(1:1) = lbound(MoorDyn_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(MoorDyn_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(MoorDyn_DataData%Input_Saved) + UB(1:1) = ubound(MoorDyn_DataData%Input_Saved) do i1 = LB(1), UB(1) call MD_DestroyInput(MoorDyn_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12379,26 +12379,26 @@ subroutine FAST_PackMoorDyn_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(MoorDyn_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackMoorDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call MD_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call MD_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call MD_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call MD_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -12408,9 +12408,9 @@ subroutine FAST_PackMoorDyn_Data(RF, Indata) call MD_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Output)) if (allocated(InData%Output)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Output), ubound(InData%Output)) + LB(1:1) = lbound(InData%Output) + UB(1:1) = ubound(InData%Output) do i1 = LB(1), UB(1) call MD_PackOutput(RF, InData%Output(i1)) end do @@ -12418,18 +12418,18 @@ subroutine FAST_PackMoorDyn_Data(RF, Indata) call MD_PackOutput(RF, InData%y_interp) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call MD_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call MD_PackInput(RF, InData%Input_Saved(i1)) end do @@ -12443,28 +12443,28 @@ subroutine FAST_UnPackMoorDyn_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(MoorDyn_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackMoorDyn_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call MD_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call MD_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call MD_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call MD_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -12522,36 +12522,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%x, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%x) + UB(1:1) = ubound(SrcOrcaFlex_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%xd) + UB(1:1) = ubound(SrcOrcaFlex_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%z, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%z) + UB(1:1) = ubound(SrcOrcaFlex_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%OtherSt) + UB(1:1) = ubound(SrcOrcaFlex_DataData%OtherSt) 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) @@ -12570,8 +12570,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, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%Input) + UB(1:1) = ubound(SrcOrcaFlex_DataData%Input) if (.not. allocated(DstOrcaFlex_DataData%Input)) then allocate(DstOrcaFlex_DataData%Input(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12586,8 +12586,8 @@ subroutine FAST_CopyOrcaFlex_Data(SrcOrcaFlex_DataData, DstOrcaFlex_DataData, Ct end do end if if (allocated(SrcOrcaFlex_DataData%Input_Saved)) then - LB(1:1) = lbound(SrcOrcaFlex_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%Input_Saved) + UB(1:1) = ubound(SrcOrcaFlex_DataData%Input_Saved) if (.not. allocated(DstOrcaFlex_DataData%Input_Saved)) then allocate(DstOrcaFlex_DataData%Input_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12602,8 +12602,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, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%InputTimes, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%InputTimes) + UB(1:1) = ubound(SrcOrcaFlex_DataData%InputTimes) if (.not. allocated(DstOrcaFlex_DataData%InputTimes)) then allocate(DstOrcaFlex_DataData%InputTimes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12614,8 +12614,8 @@ subroutine FAST_CopyOrcaFlex_Data(SrcOrcaFlex_DataData, DstOrcaFlex_DataData, Ct DstOrcaFlex_DataData%InputTimes = SrcOrcaFlex_DataData%InputTimes end if if (allocated(SrcOrcaFlex_DataData%InputTimes_Saved)) then - LB(1:1) = lbound(SrcOrcaFlex_DataData%InputTimes_Saved, kind=B8Ki) - UB(1:1) = ubound(SrcOrcaFlex_DataData%InputTimes_Saved, kind=B8Ki) + LB(1:1) = lbound(SrcOrcaFlex_DataData%InputTimes_Saved) + UB(1:1) = ubound(SrcOrcaFlex_DataData%InputTimes_Saved) if (.not. allocated(DstOrcaFlex_DataData%InputTimes_Saved)) then allocate(DstOrcaFlex_DataData%InputTimes_Saved(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -12631,33 +12631,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(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OrcaFlex_DataData%x, kind=B8Ki) + LB(1:1) = lbound(OrcaFlex_DataData%x) + UB(1:1) = ubound(OrcaFlex_DataData%x) 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, kind=B8Ki) - UB(1:1) = ubound(OrcaFlex_DataData%xd, kind=B8Ki) + LB(1:1) = lbound(OrcaFlex_DataData%xd) + UB(1:1) = ubound(OrcaFlex_DataData%xd) 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, kind=B8Ki) - UB(1:1) = ubound(OrcaFlex_DataData%z, kind=B8Ki) + LB(1:1) = lbound(OrcaFlex_DataData%z) + UB(1:1) = ubound(OrcaFlex_DataData%z) 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, kind=B8Ki) - UB(1:1) = ubound(OrcaFlex_DataData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OrcaFlex_DataData%OtherSt) + UB(1:1) = ubound(OrcaFlex_DataData%OtherSt) do i1 = LB(1), UB(1) call Orca_DestroyOtherState(OrcaFlex_DataData%OtherSt(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12671,8 +12671,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, kind=B8Ki) - UB(1:1) = ubound(OrcaFlex_DataData%Input, kind=B8Ki) + LB(1:1) = lbound(OrcaFlex_DataData%Input) + UB(1:1) = ubound(OrcaFlex_DataData%Input) do i1 = LB(1), UB(1) call Orca_DestroyInput(OrcaFlex_DataData%Input(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12680,8 +12680,8 @@ subroutine FAST_DestroyOrcaFlex_Data(OrcaFlex_DataData, ErrStat, ErrMsg) deallocate(OrcaFlex_DataData%Input) end if if (allocated(OrcaFlex_DataData%Input_Saved)) then - LB(1:1) = lbound(OrcaFlex_DataData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(OrcaFlex_DataData%Input_Saved, kind=B8Ki) + LB(1:1) = lbound(OrcaFlex_DataData%Input_Saved) + UB(1:1) = ubound(OrcaFlex_DataData%Input_Saved) do i1 = LB(1), UB(1) call Orca_DestroyInput(OrcaFlex_DataData%Input_Saved(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -12700,26 +12700,26 @@ subroutine FAST_PackOrcaFlex_Data(RF, Indata) type(RegFile), intent(inout) :: RF type(OrcaFlex_Data), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackOrcaFlex_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return - LB(1:1) = lbound(InData%x, kind=B8Ki) - UB(1:1) = ubound(InData%x, kind=B8Ki) + LB(1:1) = lbound(InData%x) + UB(1:1) = ubound(InData%x) do i1 = LB(1), UB(1) call Orca_PackContState(RF, InData%x(i1)) end do - LB(1:1) = lbound(InData%xd, kind=B8Ki) - UB(1:1) = ubound(InData%xd, kind=B8Ki) + LB(1:1) = lbound(InData%xd) + UB(1:1) = ubound(InData%xd) do i1 = LB(1), UB(1) call Orca_PackDiscState(RF, InData%xd(i1)) end do - LB(1:1) = lbound(InData%z, kind=B8Ki) - UB(1:1) = ubound(InData%z, kind=B8Ki) + LB(1:1) = lbound(InData%z) + UB(1:1) = ubound(InData%z) do i1 = LB(1), UB(1) call Orca_PackConstrState(RF, InData%z(i1)) end do - LB(1:1) = lbound(InData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(InData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(InData%OtherSt) + UB(1:1) = ubound(InData%OtherSt) do i1 = LB(1), UB(1) call Orca_PackOtherState(RF, InData%OtherSt(i1)) end do @@ -12729,18 +12729,18 @@ subroutine FAST_PackOrcaFlex_Data(RF, Indata) call Orca_PackMisc(RF, InData%m) call RegPack(RF, allocated(InData%Input)) if (allocated(InData%Input)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Input), ubound(InData%Input)) + LB(1:1) = lbound(InData%Input) + UB(1:1) = ubound(InData%Input) do i1 = LB(1), UB(1) call Orca_PackInput(RF, InData%Input(i1)) end do end if call RegPack(RF, allocated(InData%Input_Saved)) if (allocated(InData%Input_Saved)) then - call RegPackBounds(RF, 1, lbound(InData%Input_Saved, kind=B8Ki), ubound(InData%Input_Saved, kind=B8Ki)) - LB(1:1) = lbound(InData%Input_Saved, kind=B8Ki) - UB(1:1) = ubound(InData%Input_Saved, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%Input_Saved), ubound(InData%Input_Saved)) + LB(1:1) = lbound(InData%Input_Saved) + UB(1:1) = ubound(InData%Input_Saved) do i1 = LB(1), UB(1) call Orca_PackInput(RF, InData%Input_Saved(i1)) end do @@ -12754,28 +12754,28 @@ subroutine FAST_UnPackOrcaFlex_Data(RF, OutData) type(RegFile), intent(inout) :: RF type(OrcaFlex_Data), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackOrcaFlex_Data' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return - LB(1:1) = lbound(OutData%x, kind=B8Ki) - UB(1:1) = ubound(OutData%x, kind=B8Ki) + LB(1:1) = lbound(OutData%x) + UB(1:1) = ubound(OutData%x) do i1 = LB(1), UB(1) call Orca_UnpackContState(RF, OutData%x(i1)) ! x end do - LB(1:1) = lbound(OutData%xd, kind=B8Ki) - UB(1:1) = ubound(OutData%xd, kind=B8Ki) + LB(1:1) = lbound(OutData%xd) + UB(1:1) = ubound(OutData%xd) do i1 = LB(1), UB(1) call Orca_UnpackDiscState(RF, OutData%xd(i1)) ! xd end do - LB(1:1) = lbound(OutData%z, kind=B8Ki) - UB(1:1) = ubound(OutData%z, kind=B8Ki) + LB(1:1) = lbound(OutData%z) + UB(1:1) = ubound(OutData%z) do i1 = LB(1), UB(1) call Orca_UnpackConstrState(RF, OutData%z(i1)) ! z end do - LB(1:1) = lbound(OutData%OtherSt, kind=B8Ki) - UB(1:1) = ubound(OutData%OtherSt, kind=B8Ki) + LB(1:1) = lbound(OutData%OtherSt) + UB(1:1) = ubound(OutData%OtherSt) do i1 = LB(1), UB(1) call Orca_UnpackOtherState(RF, OutData%OtherSt(i1)) ! OtherSt end do @@ -12819,16 +12819,16 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_BD_P) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P) 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 @@ -12843,8 +12843,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%BD_P_2_ED_P, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%BD_P_2_ED_P) + UB(1:1) = ubound(SrcModuleMapTypeData%BD_P_2_ED_P) 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 @@ -12859,8 +12859,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_BD_P_Hub) 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 @@ -12902,8 +12902,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_NStC_P_N, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_NStC_P_N) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_NStC_P_N) 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 @@ -12918,8 +12918,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%NStC_P_2_ED_P_N, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%NStC_P_2_ED_P_N) + UB(1:1) = ubound(SrcModuleMapTypeData%NStC_P_2_ED_P_N) 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 @@ -12934,8 +12934,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_L_2_TStC_P_T, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_L_2_TStC_P_T) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_L_2_TStC_P_T) 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 @@ -12950,8 +12950,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%TStC_P_2_ED_P_T, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%TStC_P_2_ED_P_T) + UB(1:1) = ubound(SrcModuleMapTypeData%TStC_P_2_ED_P_T) 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 @@ -12966,8 +12966,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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%ED_L_2_BStC_P_B, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%ED_L_2_BStC_P_B) + UB(1:2) = ubound(SrcModuleMapTypeData%ED_L_2_BStC_P_B) 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 @@ -12984,8 +12984,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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_ED_P_B, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%BStC_P_2_ED_P_B) + UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_ED_P_B) 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 @@ -13002,8 +13002,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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%BD_L_2_BStC_P_B, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%BD_L_2_BStC_P_B) + UB(1:2) = ubound(SrcModuleMapTypeData%BD_L_2_BStC_P_B) 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 @@ -13020,8 +13020,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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_BD_P_B, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%BStC_P_2_BD_P_B) + UB(1:2) = ubound(SrcModuleMapTypeData%BStC_P_2_BD_P_B) 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 @@ -13038,8 +13038,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure) + UB(1:1) = ubound(SrcModuleMapTypeData%SStC_P_P_2_SubStructure) 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 @@ -13054,8 +13054,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P) + UB(1:1) = ubound(SrcModuleMapTypeData%SubStructure_2_SStC_P_P) 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 @@ -13073,8 +13073,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%BDED_L_2_AD_L_B, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%BDED_L_2_AD_L_B) + UB(1:1) = ubound(SrcModuleMapTypeData%BDED_L_2_AD_L_B) 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 @@ -13089,8 +13089,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_BDED_B, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_BDED_B) + UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_BDED_B) 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 @@ -13105,8 +13105,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%BD_L_2_BD_L, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%BD_L_2_BD_L) + UB(1:1) = ubound(SrcModuleMapTypeData%BD_L_2_BD_L) 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 @@ -13121,8 +13121,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%SED_P_2_AD_L_B)) then - LB(1:1) = lbound(SrcModuleMapTypeData%SED_P_2_AD_L_B, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%SED_P_2_AD_L_B, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%SED_P_2_AD_L_B) + UB(1:1) = ubound(SrcModuleMapTypeData%SED_P_2_AD_L_B) if (.not. allocated(DstModuleMapTypeData%SED_P_2_AD_L_B)) then allocate(DstModuleMapTypeData%SED_P_2_AD_L_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13137,8 +13137,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%SED_P_2_AD_P_R)) then - LB(1:1) = lbound(SrcModuleMapTypeData%SED_P_2_AD_P_R, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%SED_P_2_AD_P_R, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%SED_P_2_AD_P_R) + UB(1:1) = ubound(SrcModuleMapTypeData%SED_P_2_AD_P_R) if (.not. allocated(DstModuleMapTypeData%SED_P_2_AD_P_R)) then allocate(DstModuleMapTypeData%SED_P_2_AD_P_R(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13153,8 +13153,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%AD_L_2_SED_P)) then - LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_SED_P, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_SED_P, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_SED_P) + UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_SED_P) if (.not. allocated(DstModuleMapTypeData%AD_L_2_SED_P)) then allocate(DstModuleMapTypeData%AD_L_2_SED_P(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13187,8 +13187,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_AD_P_R, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_AD_P_R) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_AD_P_R) 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 @@ -13230,8 +13230,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%BDED_L_2_ExtLd_P_B)) then - LB(1:1) = lbound(SrcModuleMapTypeData%BDED_L_2_ExtLd_P_B, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%BDED_L_2_ExtLd_P_B, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%BDED_L_2_ExtLd_P_B) + UB(1:1) = ubound(SrcModuleMapTypeData%BDED_L_2_ExtLd_P_B) if (.not. allocated(DstModuleMapTypeData%BDED_L_2_ExtLd_P_B)) then allocate(DstModuleMapTypeData%BDED_L_2_ExtLd_P_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13246,8 +13246,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%ExtLd_P_2_BDED_B)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ExtLd_P_2_BDED_B, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ExtLd_P_2_BDED_B, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ExtLd_P_2_BDED_B) + UB(1:1) = ubound(SrcModuleMapTypeData%ExtLd_P_2_BDED_B) if (.not. allocated(DstModuleMapTypeData%ExtLd_P_2_BDED_B)) then allocate(DstModuleMapTypeData%ExtLd_P_2_BDED_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13268,8 +13268,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%ED_P_2_ExtLd_P_R)) then - LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_ExtLd_P_R, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_ExtLd_P_R, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%ED_P_2_ExtLd_P_R) + UB(1:1) = ubound(SrcModuleMapTypeData%ED_P_2_ExtLd_P_R) if (.not. allocated(DstModuleMapTypeData%ED_P_2_ExtLd_P_R)) then allocate(DstModuleMapTypeData%ED_P_2_ExtLd_P_R(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13287,8 +13287,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcModuleMapTypeData%AD_L_2_ExtLd_B)) then - LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_ExtLd_B, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_ExtLd_B, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%AD_L_2_ExtLd_B) + UB(1:1) = ubound(SrcModuleMapTypeData%AD_L_2_ExtLd_B) if (.not. allocated(DstModuleMapTypeData%AD_L_2_ExtLd_B)) then allocate(DstModuleMapTypeData%AD_L_2_ExtLd_B(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13312,8 +13312,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%IceD_P_2_SD_P, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%IceD_P_2_SD_P) + UB(1:1) = ubound(SrcModuleMapTypeData%IceD_P_2_SD_P) 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 @@ -13328,8 +13328,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%SDy3_P_2_IceD_P, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%SDy3_P_2_IceD_P) + UB(1:1) = ubound(SrcModuleMapTypeData%SDy3_P_2_IceD_P) 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 @@ -13344,8 +13344,8 @@ subroutine FAST_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct end do end if if (allocated(SrcModuleMapTypeData%Jacobian_Opt1)) then - LB(1:2) = lbound(SrcModuleMapTypeData%Jacobian_Opt1, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%Jacobian_Opt1, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%Jacobian_Opt1) + UB(1:2) = ubound(SrcModuleMapTypeData%Jacobian_Opt1) 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 @@ -13356,8 +13356,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%Jacobian_pivot, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%Jacobian_pivot) + UB(1:1) = ubound(SrcModuleMapTypeData%Jacobian_pivot) if (.not. allocated(DstModuleMapTypeData%Jacobian_pivot)) then allocate(DstModuleMapTypeData%Jacobian_pivot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13368,8 +13368,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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%Jac_u_indx) + UB(1:2) = ubound(SrcModuleMapTypeData%Jac_u_indx) 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 @@ -13401,8 +13401,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%u_ED_BladePtLoads, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%u_ED_BladePtLoads) + UB(1:1) = ubound(SrcModuleMapTypeData%u_ED_BladePtLoads) if (.not. allocated(DstModuleMapTypeData%u_ED_BladePtLoads)) then allocate(DstModuleMapTypeData%u_ED_BladePtLoads(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13432,8 +13432,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_RootMotion, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%u_BD_RootMotion) + UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_RootMotion) if (.not. allocated(DstModuleMapTypeData%u_BD_RootMotion)) then allocate(DstModuleMapTypeData%u_BD_RootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13448,8 +13448,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads) + UB(1:1) = ubound(SrcModuleMapTypeData%y_BD_BldMotion_4Loads) 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 @@ -13464,8 +13464,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_Distrload, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%u_BD_Distrload) + UB(1:1) = ubound(SrcModuleMapTypeData%u_BD_Distrload) if (.not. allocated(DstModuleMapTypeData%u_BD_Distrload)) then allocate(DstModuleMapTypeData%u_BD_Distrload(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -13489,8 +13489,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, kind=B8Ki) - UB(1:3) = ubound(SrcModuleMapTypeData%HubOrient, kind=B8Ki) + LB(1:3) = lbound(SrcModuleMapTypeData%HubOrient) + UB(1:3) = ubound(SrcModuleMapTypeData%HubOrient) 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 @@ -13506,16 +13506,16 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) type(FAST_ModuleMapType), intent(inout) :: ModuleMapTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_BD_P) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P) 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) @@ -13523,8 +13523,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%BD_P_2_ED_P, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%BD_P_2_ED_P) + UB(1:1) = ubound(ModuleMapTypeData%BD_P_2_ED_P) 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) @@ -13532,8 +13532,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P_Hub, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_BD_P_Hub) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_BD_P_Hub) 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) @@ -13559,8 +13559,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_NStC_P_N, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_NStC_P_N) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_NStC_P_N) 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) @@ -13568,8 +13568,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%NStC_P_2_ED_P_N, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%NStC_P_2_ED_P_N) + UB(1:1) = ubound(ModuleMapTypeData%NStC_P_2_ED_P_N) 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) @@ -13577,8 +13577,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ED_L_2_TStC_P_T, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ED_L_2_TStC_P_T) + UB(1:1) = ubound(ModuleMapTypeData%ED_L_2_TStC_P_T) 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) @@ -13586,8 +13586,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%TStC_P_2_ED_P_T, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%TStC_P_2_ED_P_T) + UB(1:1) = ubound(ModuleMapTypeData%TStC_P_2_ED_P_T) 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) @@ -13595,8 +13595,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, kind=B8Ki) - UB(1:2) = ubound(ModuleMapTypeData%ED_L_2_BStC_P_B, kind=B8Ki) + LB(1:2) = lbound(ModuleMapTypeData%ED_L_2_BStC_P_B) + UB(1:2) = ubound(ModuleMapTypeData%ED_L_2_BStC_P_B) 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) @@ -13606,8 +13606,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, kind=B8Ki) - UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_ED_P_B, kind=B8Ki) + LB(1:2) = lbound(ModuleMapTypeData%BStC_P_2_ED_P_B) + UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_ED_P_B) 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) @@ -13617,8 +13617,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, kind=B8Ki) - UB(1:2) = ubound(ModuleMapTypeData%BD_L_2_BStC_P_B, kind=B8Ki) + LB(1:2) = lbound(ModuleMapTypeData%BD_L_2_BStC_P_B) + UB(1:2) = ubound(ModuleMapTypeData%BD_L_2_BStC_P_B) 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) @@ -13628,8 +13628,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, kind=B8Ki) - UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_BD_P_B, kind=B8Ki) + LB(1:2) = lbound(ModuleMapTypeData%BStC_P_2_BD_P_B) + UB(1:2) = ubound(ModuleMapTypeData%BStC_P_2_BD_P_B) 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) @@ -13639,8 +13639,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%SStC_P_P_2_SubStructure, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%SStC_P_P_2_SubStructure) + UB(1:1) = ubound(ModuleMapTypeData%SStC_P_P_2_SubStructure) 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) @@ -13648,8 +13648,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%SubStructure_2_SStC_P_P, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%SubStructure_2_SStC_P_P) + UB(1:1) = ubound(ModuleMapTypeData%SubStructure_2_SStC_P_P) 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) @@ -13659,8 +13659,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%BDED_L_2_AD_L_B, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%BDED_L_2_AD_L_B) + UB(1:1) = ubound(ModuleMapTypeData%BDED_L_2_AD_L_B) 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) @@ -13668,8 +13668,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_BDED_B, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_BDED_B) + UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_BDED_B) 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) @@ -13677,8 +13677,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%BD_L_2_BD_L, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%BD_L_2_BD_L) + UB(1:1) = ubound(ModuleMapTypeData%BD_L_2_BD_L) 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) @@ -13686,8 +13686,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BD_L_2_BD_L) end if if (allocated(ModuleMapTypeData%SED_P_2_AD_L_B)) then - LB(1:1) = lbound(ModuleMapTypeData%SED_P_2_AD_L_B, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%SED_P_2_AD_L_B, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%SED_P_2_AD_L_B) + UB(1:1) = ubound(ModuleMapTypeData%SED_P_2_AD_L_B) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SED_P_2_AD_L_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13695,8 +13695,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%SED_P_2_AD_L_B) end if if (allocated(ModuleMapTypeData%SED_P_2_AD_P_R)) then - LB(1:1) = lbound(ModuleMapTypeData%SED_P_2_AD_P_R, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%SED_P_2_AD_P_R, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%SED_P_2_AD_P_R) + UB(1:1) = ubound(ModuleMapTypeData%SED_P_2_AD_P_R) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%SED_P_2_AD_P_R(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13704,8 +13704,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%SED_P_2_AD_P_R) end if if (allocated(ModuleMapTypeData%AD_L_2_SED_P)) then - LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_SED_P, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_SED_P, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_SED_P) + UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_SED_P) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%AD_L_2_SED_P(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13725,8 +13725,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_AD_P_R, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_AD_P_R) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_AD_P_R) 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) @@ -13752,8 +13752,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%AD_P_2_ED_P_H, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%BDED_L_2_ExtLd_P_B)) then - LB(1:1) = lbound(ModuleMapTypeData%BDED_L_2_ExtLd_P_B, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%BDED_L_2_ExtLd_P_B, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%BDED_L_2_ExtLd_P_B) + UB(1:1) = ubound(ModuleMapTypeData%BDED_L_2_ExtLd_P_B) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%BDED_L_2_ExtLd_P_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13761,8 +13761,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) deallocate(ModuleMapTypeData%BDED_L_2_ExtLd_P_B) end if if (allocated(ModuleMapTypeData%ExtLd_P_2_BDED_B)) then - LB(1:1) = lbound(ModuleMapTypeData%ExtLd_P_2_BDED_B, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ExtLd_P_2_BDED_B, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ExtLd_P_2_BDED_B) + UB(1:1) = ubound(ModuleMapTypeData%ExtLd_P_2_BDED_B) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ExtLd_P_2_BDED_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13774,8 +13774,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ExtLd_P_2_ED_P_T, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%ED_P_2_ExtLd_P_R)) then - LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_ExtLd_P_R, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_ExtLd_P_R, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%ED_P_2_ExtLd_P_R) + UB(1:1) = ubound(ModuleMapTypeData%ED_P_2_ExtLd_P_R) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_ExtLd_P_R(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13785,8 +13785,8 @@ subroutine FAST_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%ED_P_2_ExtLd_P_H, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(ModuleMapTypeData%AD_L_2_ExtLd_B)) then - LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_ExtLd_B, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_ExtLd_B, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%AD_L_2_ExtLd_B) + UB(1:1) = ubound(ModuleMapTypeData%AD_L_2_ExtLd_B) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(ModuleMapTypeData%AD_L_2_ExtLd_B(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13800,8 +13800,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%IceD_P_2_SD_P, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%IceD_P_2_SD_P) + UB(1:1) = ubound(ModuleMapTypeData%IceD_P_2_SD_P) 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) @@ -13809,8 +13809,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%SDy3_P_2_IceD_P, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%SDy3_P_2_IceD_P) + UB(1:1) = ubound(ModuleMapTypeData%SDy3_P_2_IceD_P) 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) @@ -13841,8 +13841,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%u_ED_BladePtLoads, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%u_ED_BladePtLoads) + UB(1:1) = ubound(ModuleMapTypeData%u_ED_BladePtLoads) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%u_ED_BladePtLoads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13860,8 +13860,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%u_BD_RootMotion, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%u_BD_RootMotion) + UB(1:1) = ubound(ModuleMapTypeData%u_BD_RootMotion) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%u_BD_RootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13869,8 +13869,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%y_BD_BldMotion_4Loads, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%y_BD_BldMotion_4Loads) + UB(1:1) = ubound(ModuleMapTypeData%y_BD_BldMotion_4Loads) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%y_BD_BldMotion_4Loads(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13878,8 +13878,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%u_BD_Distrload, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%u_BD_Distrload) + UB(1:1) = ubound(ModuleMapTypeData%u_BD_Distrload) do i1 = LB(1), UB(1) call MeshDestroy( ModuleMapTypeData%u_BD_Distrload(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -13901,32 +13901,32 @@ subroutine FAST_PackModuleMapType(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_ModuleMapType), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackModuleMapType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%ED_P_2_BD_P)) if (allocated(InData%ED_P_2_BD_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_BD_P(i1)) end do end if call RegPack(RF, allocated(InData%BD_P_2_ED_P)) if (allocated(InData%BD_P_2_ED_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BD_P_2_ED_P(i1)) end do end if call RegPack(RF, allocated(InData%ED_P_2_BD_P_Hub)) if (allocated(InData%ED_P_2_BD_P_Hub)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_BD_P_Hub(i1)) end do @@ -13942,45 +13942,45 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%SD_TP_2_ED_P) call RegPack(RF, allocated(InData%ED_P_2_NStC_P_N)) if (allocated(InData%ED_P_2_NStC_P_N)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_NStC_P_N(i1)) end do end if call RegPack(RF, allocated(InData%NStC_P_2_ED_P_N)) if (allocated(InData%NStC_P_2_ED_P_N)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%NStC_P_2_ED_P_N(i1)) end do end if call RegPack(RF, allocated(InData%ED_L_2_TStC_P_T)) if (allocated(InData%ED_L_2_TStC_P_T)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_L_2_TStC_P_T(i1)) end do end if call RegPack(RF, allocated(InData%TStC_P_2_ED_P_T)) if (allocated(InData%TStC_P_2_ED_P_T)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%TStC_P_2_ED_P_T(i1)) end do end if call RegPack(RF, allocated(InData%ED_L_2_BStC_P_B)) if (allocated(InData%ED_L_2_BStC_P_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_L_2_BStC_P_B(i1,i2)) @@ -13989,9 +13989,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) end if call RegPack(RF, allocated(InData%BStC_P_2_ED_P_B)) if (allocated(InData%BStC_P_2_ED_P_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BStC_P_2_ED_P_B(i1,i2)) @@ -14000,9 +14000,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) end if call RegPack(RF, allocated(InData%BD_L_2_BStC_P_B)) if (allocated(InData%BD_L_2_BStC_P_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BD_L_2_BStC_P_B(i1,i2)) @@ -14011,9 +14011,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) end if call RegPack(RF, allocated(InData%BStC_P_2_BD_P_B)) if (allocated(InData%BStC_P_2_BD_P_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BStC_P_2_BD_P_B(i1,i2)) @@ -14022,18 +14022,18 @@ subroutine FAST_PackModuleMapType(RF, Indata) end if call RegPack(RF, allocated(InData%SStC_P_P_2_SubStructure)) if (allocated(InData%SStC_P_P_2_SubStructure)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%SStC_P_P_2_SubStructure(i1)) end do end if call RegPack(RF, allocated(InData%SubStructure_2_SStC_P_P)) if (allocated(InData%SubStructure_2_SStC_P_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%SubStructure_2_SStC_P_P(i1)) end do @@ -14041,54 +14041,54 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_SrvD_P_P) call RegPack(RF, allocated(InData%BDED_L_2_AD_L_B)) if (allocated(InData%BDED_L_2_AD_L_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BDED_L_2_AD_L_B(i1)) end do end if call RegPack(RF, allocated(InData%AD_L_2_BDED_B)) if (allocated(InData%AD_L_2_BDED_B)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%AD_L_2_BDED_B(i1)) end do end if call RegPack(RF, allocated(InData%BD_L_2_BD_L)) if (allocated(InData%BD_L_2_BD_L)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BD_L_2_BD_L(i1)) end do end if call RegPack(RF, allocated(InData%SED_P_2_AD_L_B)) if (allocated(InData%SED_P_2_AD_L_B)) then - call RegPackBounds(RF, 1, lbound(InData%SED_P_2_AD_L_B, kind=B8Ki), ubound(InData%SED_P_2_AD_L_B, kind=B8Ki)) - LB(1:1) = lbound(InData%SED_P_2_AD_L_B, kind=B8Ki) - UB(1:1) = ubound(InData%SED_P_2_AD_L_B, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%SED_P_2_AD_L_B), ubound(InData%SED_P_2_AD_L_B)) + LB(1:1) = lbound(InData%SED_P_2_AD_L_B) + UB(1:1) = ubound(InData%SED_P_2_AD_L_B) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%SED_P_2_AD_L_B(i1)) end do end if call RegPack(RF, allocated(InData%SED_P_2_AD_P_R)) if (allocated(InData%SED_P_2_AD_P_R)) then - call RegPackBounds(RF, 1, lbound(InData%SED_P_2_AD_P_R, kind=B8Ki), ubound(InData%SED_P_2_AD_P_R, kind=B8Ki)) - LB(1:1) = lbound(InData%SED_P_2_AD_P_R, kind=B8Ki) - UB(1:1) = ubound(InData%SED_P_2_AD_P_R, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%SED_P_2_AD_P_R), ubound(InData%SED_P_2_AD_P_R)) + LB(1:1) = lbound(InData%SED_P_2_AD_P_R) + UB(1:1) = ubound(InData%SED_P_2_AD_P_R) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%SED_P_2_AD_P_R(i1)) end do end if call RegPack(RF, allocated(InData%AD_L_2_SED_P)) if (allocated(InData%AD_L_2_SED_P)) then - call RegPackBounds(RF, 1, lbound(InData%AD_L_2_SED_P, kind=B8Ki), ubound(InData%AD_L_2_SED_P, kind=B8Ki)) - LB(1:1) = lbound(InData%AD_L_2_SED_P, kind=B8Ki) - UB(1:1) = ubound(InData%AD_L_2_SED_P, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%AD_L_2_SED_P), ubound(InData%AD_L_2_SED_P)) + LB(1:1) = lbound(InData%AD_L_2_SED_P) + UB(1:1) = ubound(InData%AD_L_2_SED_P) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%AD_L_2_SED_P(i1)) end do @@ -14101,9 +14101,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%AD_L_2_ED_P_T) call RegPack(RF, allocated(InData%ED_P_2_AD_P_R)) if (allocated(InData%ED_P_2_AD_P_R)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_AD_P_R(i1)) end do @@ -14119,18 +14119,18 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%AD_P_2_ED_P_H) call RegPack(RF, allocated(InData%BDED_L_2_ExtLd_P_B)) if (allocated(InData%BDED_L_2_ExtLd_P_B)) then - call RegPackBounds(RF, 1, lbound(InData%BDED_L_2_ExtLd_P_B, kind=B8Ki), ubound(InData%BDED_L_2_ExtLd_P_B, kind=B8Ki)) - LB(1:1) = lbound(InData%BDED_L_2_ExtLd_P_B, kind=B8Ki) - UB(1:1) = ubound(InData%BDED_L_2_ExtLd_P_B, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%BDED_L_2_ExtLd_P_B), ubound(InData%BDED_L_2_ExtLd_P_B)) + LB(1:1) = lbound(InData%BDED_L_2_ExtLd_P_B) + UB(1:1) = ubound(InData%BDED_L_2_ExtLd_P_B) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BDED_L_2_ExtLd_P_B(i1)) end do end if call RegPack(RF, allocated(InData%ExtLd_P_2_BDED_B)) if (allocated(InData%ExtLd_P_2_BDED_B)) then - call RegPackBounds(RF, 1, lbound(InData%ExtLd_P_2_BDED_B, kind=B8Ki), ubound(InData%ExtLd_P_2_BDED_B, kind=B8Ki)) - LB(1:1) = lbound(InData%ExtLd_P_2_BDED_B, kind=B8Ki) - UB(1:1) = ubound(InData%ExtLd_P_2_BDED_B, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%ExtLd_P_2_BDED_B), ubound(InData%ExtLd_P_2_BDED_B)) + LB(1:1) = lbound(InData%ExtLd_P_2_BDED_B) + UB(1:1) = ubound(InData%ExtLd_P_2_BDED_B) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ExtLd_P_2_BDED_B(i1)) end do @@ -14139,9 +14139,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%ExtLd_P_2_ED_P_T) call RegPack(RF, allocated(InData%ED_P_2_ExtLd_P_R)) if (allocated(InData%ED_P_2_ExtLd_P_R)) then - call RegPackBounds(RF, 1, lbound(InData%ED_P_2_ExtLd_P_R, kind=B8Ki), ubound(InData%ED_P_2_ExtLd_P_R, kind=B8Ki)) - LB(1:1) = lbound(InData%ED_P_2_ExtLd_P_R, kind=B8Ki) - UB(1:1) = ubound(InData%ED_P_2_ExtLd_P_R, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%ED_P_2_ExtLd_P_R), ubound(InData%ED_P_2_ExtLd_P_R)) + LB(1:1) = lbound(InData%ED_P_2_ExtLd_P_R) + UB(1:1) = ubound(InData%ED_P_2_ExtLd_P_R) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_ExtLd_P_R(i1)) end do @@ -14149,9 +14149,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%ED_P_2_ExtLd_P_H) call RegPack(RF, allocated(InData%AD_L_2_ExtLd_B)) if (allocated(InData%AD_L_2_ExtLd_B)) then - call RegPackBounds(RF, 1, lbound(InData%AD_L_2_ExtLd_B, kind=B8Ki), ubound(InData%AD_L_2_ExtLd_B, kind=B8Ki)) - LB(1:1) = lbound(InData%AD_L_2_ExtLd_B, kind=B8Ki) - UB(1:1) = ubound(InData%AD_L_2_ExtLd_B, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%AD_L_2_ExtLd_B), ubound(InData%AD_L_2_ExtLd_B)) + LB(1:1) = lbound(InData%AD_L_2_ExtLd_B) + UB(1:1) = ubound(InData%AD_L_2_ExtLd_B) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%AD_L_2_ExtLd_B(i1)) end do @@ -14161,18 +14161,18 @@ subroutine FAST_PackModuleMapType(RF, Indata) call NWTC_Library_PackMeshMapType(RF, InData%SDy3_P_2_IceF_P) call RegPack(RF, allocated(InData%IceD_P_2_SD_P)) if (allocated(InData%IceD_P_2_SD_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%IceD_P_2_SD_P(i1)) end do end if call RegPack(RF, allocated(InData%SDy3_P_2_IceD_P)) if (allocated(InData%SDy3_P_2_IceD_P)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%SDy3_P_2_IceD_P(i1)) end do @@ -14189,9 +14189,9 @@ subroutine FAST_PackModuleMapType(RF, Indata) call MeshPack(RF, InData%u_ED_TowerPtloads) call RegPack(RF, allocated(InData%u_ED_BladePtLoads)) if (allocated(InData%u_ED_BladePtLoads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call MeshPack(RF, InData%u_ED_BladePtLoads(i1)) end do @@ -14203,27 +14203,27 @@ subroutine FAST_PackModuleMapType(RF, Indata) call MeshPack(RF, InData%u_ED_HubPtLoad_2) call RegPack(RF, allocated(InData%u_BD_RootMotion)) if (allocated(InData%u_BD_RootMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call MeshPack(RF, InData%u_BD_RootMotion(i1)) end do end if call RegPack(RF, allocated(InData%y_BD_BldMotion_4Loads)) if (allocated(InData%y_BD_BldMotion_4Loads)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call MeshPack(RF, InData%y_BD_BldMotion_4Loads(i1)) end do end if call RegPack(RF, allocated(InData%u_BD_Distrload)) if (allocated(InData%u_BD_Distrload)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call MeshPack(RF, InData%u_BD_Distrload(i1)) end do @@ -14239,8 +14239,8 @@ subroutine FAST_UnPackModuleMapType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_ModuleMapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackModuleMapType' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -14845,8 +14845,8 @@ subroutine FAST_CopyInitData(SrcInitDataData, DstInitDataData, CtrlCode, ErrStat integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_CopyInitData' @@ -14868,8 +14868,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitDataData%OutData_BD, kind=B8Ki) + LB(1:1) = lbound(SrcInitDataData%OutData_BD) + UB(1:1) = ubound(SrcInitDataData%OutData_BD) if (.not. allocated(DstInitDataData%OutData_BD)) then allocate(DstInitDataData%OutData_BD(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -14985,8 +14985,8 @@ subroutine FAST_DestroyInitData(InitDataData, ErrStat, ErrMsg) type(FAST_InitData), intent(inout) :: InitDataData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'FAST_DestroyInitData' @@ -15003,8 +15003,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, kind=B8Ki) - UB(1:1) = ubound(InitDataData%OutData_BD, kind=B8Ki) + LB(1:1) = lbound(InitDataData%OutData_BD) + UB(1:1) = ubound(InitDataData%OutData_BD) do i1 = LB(1), UB(1) call BD_DestroyInitOutput(InitDataData%OutData_BD(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -15081,8 +15081,8 @@ subroutine FAST_PackInitData(RF, Indata) type(RegFile), intent(inout) :: RF type(FAST_InitData), intent(in) :: InData character(*), parameter :: RoutineName = 'FAST_PackInitData' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call ED_PackInitInput(RF, InData%InData_ED) call ED_PackInitOutput(RF, InData%OutData_ED) @@ -15091,9 +15091,9 @@ subroutine FAST_PackInitData(RF, Indata) call BD_PackInitInput(RF, InData%InData_BD) call RegPack(RF, allocated(InData%OutData_BD)) if (allocated(InData%OutData_BD)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutData_BD), ubound(InData%OutData_BD)) + LB(1:1) = lbound(InData%OutData_BD) + UB(1:1) = ubound(InData%OutData_BD) do i1 = LB(1), UB(1) call BD_PackInitOutput(RF, InData%OutData_BD(i1)) end do @@ -15137,8 +15137,8 @@ subroutine FAST_UnPackInitData(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_InitData), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackInitData' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -15200,7 +15200,7 @@ subroutine FAST_CopyExternInitType(SrcExternInitTypeData, DstExternInitTypeData, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'FAST_CopyExternInitType' ErrStat = ErrID_None @@ -15213,8 +15213,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, kind=B8Ki) - UB(1:1) = ubound(SrcExternInitTypeData%fromSCGlob, kind=B8Ki) + LB(1:1) = lbound(SrcExternInitTypeData%fromSCGlob) + UB(1:1) = ubound(SrcExternInitTypeData%fromSCGlob) if (.not. allocated(DstExternInitTypeData%fromSCGlob)) then allocate(DstExternInitTypeData%fromSCGlob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -15225,8 +15225,8 @@ subroutine FAST_CopyExternInitType(SrcExternInitTypeData, DstExternInitTypeData, DstExternInitTypeData%fromSCGlob = SrcExternInitTypeData%fromSCGlob end if if (allocated(SrcExternInitTypeData%fromSC)) then - LB(1:1) = lbound(SrcExternInitTypeData%fromSC, kind=B8Ki) - UB(1:1) = ubound(SrcExternInitTypeData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcExternInitTypeData%fromSC) + UB(1:1) = ubound(SrcExternInitTypeData%fromSC) if (.not. allocated(DstExternInitTypeData%fromSC)) then allocate(DstExternInitTypeData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -15302,7 +15302,7 @@ subroutine FAST_UnPackExternInitType(RF, OutData) type(RegFile), intent(inout) :: RF type(FAST_ExternInitType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'FAST_UnPackExternInitType' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx diff --git a/modules/openfast-registry/src/registry_gen_fortran.cpp b/modules/openfast-registry/src/registry_gen_fortran.cpp index 0edad6ac87..2ecc53b1f6 100644 --- a/modules/openfast-registry/src/registry_gen_fortran.cpp +++ b/modules/openfast-registry/src/registry_gen_fortran.cpp @@ -370,13 +370,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(B8Ki) :: "; + w << indent << "integer(B4Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; w << ""; } if (has_ddt_arr || has_alloc) - w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B4Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; if (has_ddt || has_alloc) w << indent << "integer(IntKi) :: ErrStat2"; if (has_ddt) @@ -411,8 +411,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 << ", kind=B8Ki)"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ", kind=B8Ki)"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << src << ")"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ")"; for (int d = 1; d <= field.rank; d++) dims += ",LB(" + std::to_string(d) + "):UB(" + std::to_string(d) + ")"; dims = "(" + dims.substr(1) + ")"; @@ -453,8 +453,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 << ", kind=B8Ki)"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ", kind=B8Ki)"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << src << ")"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << src << ")"; } for (int d = field.rank; d >= 1; d--) @@ -538,10 +538,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(B8Ki) :: "; + w << indent << "integer(B4Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; - w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B4Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; } if (has_ddt) { @@ -581,8 +581,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 << ", kind=B8Ki)"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ", kind=B8Ki)"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ")"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ")"; } for (int d = field.rank; d >= 1; d--) { @@ -661,10 +661,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(B8Ki) :: "; + w << indent << "integer(B4Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; - w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B4Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; } if (has_ptr) { @@ -711,7 +711,7 @@ void gen_pack(std::ostream &w, const Module &mod, const DataType::Derived &ddt, indent += " "; if (field.rank > 0) { - w << indent << "call RegPackBounds(RF, " << field.rank << ", lbound(" << var << ", kind=B8Ki), ubound(" << var << ", kind=B8Ki))"; + w << indent << "call RegPackBounds(RF, " << field.rank << ", lbound(" << var << "), ubound(" << var << "))"; } if (field.is_pointer) { @@ -728,8 +728,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 << ", kind=B8Ki)"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ", kind=B8Ki)"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ")"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ")"; } for (int d = field.rank; d >= 1; d--) @@ -804,14 +804,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(B8Ki) :: "; + w << indent << "integer(B4Ki) :: "; for (int i = 1; i <= ddt.max_rank; i++) w << (i > 1 ? ", " : "") << "i" << i; w << ""; } if (has_ddt_arr || has_alloc) { - w << indent << "integer(B8Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; + w << indent << "integer(B4Ki) :: LB(" << ddt.max_rank << "), UB(" << ddt.max_rank << ")"; } if (has_alloc) { @@ -927,8 +927,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 << ", kind=B8Ki)"; - w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ", kind=B8Ki)"; + w << indent << "LB(1:" << field.rank << ") = lbound(" << var << ")"; + w << indent << "UB(1:" << field.rank << ") = ubound(" << var << ")"; } for (int d = field.rank; d >= 1; d--) @@ -1043,7 +1043,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 << ", kind=B8Ki),UBOUND(" << uy << "_out" << field_var << "," << j << ", kind=B8Ki)"; + w << indent << "do i" << recurse_level << j << " = lbound(" << uy << "_out" << field_var << "," << j << "),ubound(" << uy << "_out" << field_var << "," << j << ")"; indent += " "; } @@ -1072,7 +1072,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 << ", kind=B8Ki),UBOUND(" << vout << "," << j << ", kind=B8Ki)"; + w << indent << "do i" << j << " = lbound(" << vout << "," << j << "),ubound(" << vout << "," << j << ")"; indent += " "; } @@ -1139,7 +1139,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 << ", kind=B8Ki),UBOUND(" << vout << "," << j << ", kind=B8Ki)"; + w << indent << "do i" << j << " = lbound(" << vout << "," << j << "),ubound(" << vout << "," << j << ")"; indent += " "; } } @@ -1604,7 +1604,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) + ", kind=B8Ki)"; + dims += std::string(d > 1 ? "," : "") + "lbound(" + var_f + "," + std::to_string(d) + ")"; 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 6a6e5abce4..8b70866a69 100644 --- a/modules/orcaflex-interface/src/OrcaFlexInterface_Types.f90 +++ b/modules/orcaflex-interface/src/OrcaFlexInterface_Types.f90 @@ -158,7 +158,7 @@ subroutine Orca_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_CopyInitOutput' @@ -168,8 +168,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -180,8 +180,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -227,7 +227,7 @@ subroutine Orca_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Orca_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -330,7 +330,7 @@ subroutine Orca_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'Orca_CopyMisc' ErrStat = ErrID_None @@ -339,8 +339,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -382,7 +382,7 @@ subroutine Orca_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(Orca_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackMisc' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -399,8 +399,8 @@ subroutine Orca_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_CopyParam' @@ -412,8 +412,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -433,8 +433,8 @@ subroutine Orca_DestroyParam(ParamData, ErrStat, ErrMsg) type(Orca_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_DestroyParam' @@ -443,8 +443,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -457,8 +457,8 @@ subroutine Orca_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(Orca_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'Orca_PackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) call DLLTypePack(RF, InData%DLL_Orca) @@ -467,9 +467,9 @@ subroutine Orca_PackParam(RF, Indata) call RegPack(RF, InData%NumOuts) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -481,8 +481,8 @@ subroutine Orca_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(Orca_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -558,7 +558,7 @@ subroutine Orca_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'Orca_CopyOutput' @@ -568,8 +568,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -611,7 +611,7 @@ subroutine Orca_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Orca_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Orca_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/Current_Types.f90 b/modules/seastate/src/Current_Types.f90 index 4a2917f3a2..3ed765adbd 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi) if (.not. allocated(DstInitInputData%WaveKinGridzi)) then allocate(DstInitInputData%WaveKinGridzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -134,7 +134,7 @@ subroutine Current_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(Current_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Current_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -159,14 +159,14 @@ subroutine Current_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%CurrVxi, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%CurrVxi) + UB(1:1) = ubound(SrcInitOutputData%CurrVxi) if (.not. allocated(DstInitOutputData%CurrVxi)) then allocate(DstInitOutputData%CurrVxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -177,8 +177,8 @@ subroutine Current_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode DstInitOutputData%CurrVxi = SrcInitOutputData%CurrVxi end if if (allocated(SrcInitOutputData%CurrVyi)) then - LB(1:1) = lbound(SrcInitOutputData%CurrVyi, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%CurrVyi, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%CurrVyi) + UB(1:1) = ubound(SrcInitOutputData%CurrVyi) if (.not. allocated(DstInitOutputData%CurrVyi)) then allocate(DstInitOutputData%CurrVyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -223,7 +223,7 @@ subroutine Current_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Current_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Current_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/SeaSt_WaveField_Types.f90 b/modules/seastate/src/SeaSt_WaveField_Types.f90 index a7d3397fc8..4654a04040 100644 --- a/modules/seastate/src/SeaSt_WaveField_Types.f90 +++ b/modules/seastate/src/SeaSt_WaveField_Types.f90 @@ -210,15 +210,15 @@ subroutine SeaSt_WaveField_CopySeaSt_WaveFieldType(SrcSeaSt_WaveFieldTypeData, D integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveTime, kind=B8Ki) + LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveTime) + UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveTime) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveTime)) then allocate(DstSeaSt_WaveFieldTypeData%WaveTime(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -229,8 +229,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, kind=B8Ki) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDynP, kind=B8Ki) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%WaveDynP) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDynP) 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 @@ -241,8 +241,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, kind=B8Ki) - UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAcc, kind=B8Ki) + LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveAcc) + UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAcc) 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 @@ -253,8 +253,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, kind=B8Ki) - UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF, kind=B8Ki) + LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF) + UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveAccMCF) 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 @@ -265,8 +265,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, kind=B8Ki) - UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveVel, kind=B8Ki) + LB(1:5) = lbound(SrcSeaSt_WaveFieldTypeData%WaveVel) + UB(1:5) = ubound(SrcSeaSt_WaveFieldTypeData%WaveVel) 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 @@ -277,8 +277,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, kind=B8Ki) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0, kind=B8Ki) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveDynP0) 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 @@ -289,8 +289,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, kind=B8Ki) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0, kind=B8Ki) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAcc0) 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 @@ -301,8 +301,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, kind=B8Ki) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0, kind=B8Ki) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveAccMCF0) 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 @@ -313,8 +313,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, kind=B8Ki) - UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveVel0, kind=B8Ki) + LB(1:4) = lbound(SrcSeaSt_WaveFieldTypeData%PWaveVel0) + UB(1:4) = ubound(SrcSeaSt_WaveFieldTypeData%PWaveVel0) 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 @@ -325,8 +325,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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev0, kind=B8Ki) + LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev0) + UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev0) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveElev0)) then allocate(DstSeaSt_WaveFieldTypeData%WaveElev0(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -337,8 +337,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, kind=B8Ki) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev1, kind=B8Ki) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev1) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev1) 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 @@ -349,8 +349,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, kind=B8Ki) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev2, kind=B8Ki) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElev2) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElev2) 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 @@ -367,8 +367,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, kind=B8Ki) - UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC, kind=B8Ki) + LB(1:3) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElevC) + UB(1:3) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC) 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 @@ -379,8 +379,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, kind=B8Ki) - UB(1:2) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC0, kind=B8Ki) + LB(1:2) = lbound(SrcSeaSt_WaveFieldTypeData%WaveElevC0) + UB(1:2) = ubound(SrcSeaSt_WaveFieldTypeData%WaveElevC0) 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 @@ -391,8 +391,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, kind=B8Ki) - UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDirArr, kind=B8Ki) + LB(1:1) = lbound(SrcSeaSt_WaveFieldTypeData%WaveDirArr) + UB(1:1) = ubound(SrcSeaSt_WaveFieldTypeData%WaveDirArr) if (.not. allocated(DstSeaSt_WaveFieldTypeData%WaveDirArr)) then allocate(DstSeaSt_WaveFieldTypeData%WaveDirArr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -529,7 +529,7 @@ subroutine SeaSt_WaveField_UnPackSeaSt_WaveFieldType(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaSt_WaveFieldType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_WaveField_UnPackSeaSt_WaveFieldType' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/SeaState_Types.f90 b/modules/seastate/src/SeaState_Types.f90 index fa16c449bb..bdd95ed4de 100644 --- a/modules/seastate/src/SeaState_Types.f90 +++ b/modules/seastate/src/SeaState_Types.f90 @@ -214,7 +214,7 @@ subroutine SeaSt_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyInputFile' @@ -240,8 +240,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WaveElevxi, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WaveElevxi) + UB(1:1) = ubound(SrcInputFileData%WaveElevxi) if (.not. allocated(DstInputFileData%WaveElevxi)) then allocate(DstInputFileData%WaveElevxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -252,8 +252,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WaveElevyi, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WaveElevyi) + UB(1:1) = ubound(SrcInputFileData%WaveElevyi) if (.not. allocated(DstInputFileData%WaveElevyi)) then allocate(DstInputFileData%WaveElevyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -265,8 +265,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WaveKinxi, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WaveKinxi) + UB(1:1) = ubound(SrcInputFileData%WaveKinxi) if (.not. allocated(DstInputFileData%WaveKinxi)) then allocate(DstInputFileData%WaveKinxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -277,8 +277,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WaveKinyi, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WaveKinyi) + UB(1:1) = ubound(SrcInputFileData%WaveKinyi) if (.not. allocated(DstInputFileData%WaveKinyi)) then allocate(DstInputFileData%WaveKinyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -289,8 +289,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%WaveKinzi, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%WaveKinzi) + UB(1:1) = ubound(SrcInputFileData%WaveKinzi) if (.not. allocated(DstInputFileData%WaveKinzi)) then allocate(DstInputFileData%WaveKinzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -304,8 +304,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -423,7 +423,7 @@ subroutine SeaSt_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaSt_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -573,15 +573,15 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -592,8 +592,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -608,8 +608,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, if (ErrStat >= AbortErrLev) return DstInitOutputData%InvalidWithSSExctn = SrcInitOutputData%InvalidWithSSExctn if (allocated(SrcInitOutputData%WaveElevVisX)) then - LB(1:1) = lbound(SrcInitOutputData%WaveElevVisX, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WaveElevVisX, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WaveElevVisX) + UB(1:1) = ubound(SrcInitOutputData%WaveElevVisX) if (.not. allocated(DstInitOutputData%WaveElevVisX)) then allocate(DstInitOutputData%WaveElevVisX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -620,8 +620,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveElevVisX = SrcInitOutputData%WaveElevVisX end if if (allocated(SrcInitOutputData%WaveElevVisY)) then - LB(1:1) = lbound(SrcInitOutputData%WaveElevVisY, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WaveElevVisY, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WaveElevVisY) + UB(1:1) = ubound(SrcInitOutputData%WaveElevVisY) if (.not. allocated(DstInitOutputData%WaveElevVisY)) then allocate(DstInitOutputData%WaveElevVisY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -632,8 +632,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveElevVisY = SrcInitOutputData%WaveElevVisY end if if (allocated(SrcInitOutputData%WaveElevVisGrid)) then - LB(1:3) = lbound(SrcInitOutputData%WaveElevVisGrid, kind=B8Ki) - UB(1:3) = ubound(SrcInitOutputData%WaveElevVisGrid, kind=B8Ki) + LB(1:3) = lbound(SrcInitOutputData%WaveElevVisGrid) + UB(1:3) = ubound(SrcInitOutputData%WaveElevVisGrid) if (.not. allocated(DstInitOutputData%WaveElevVisGrid)) then allocate(DstInitOutputData%WaveElevVisGrid(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -645,8 +645,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, end if DstInitOutputData%WaveField => SrcInitOutputData%WaveField if (allocated(SrcInitOutputData%LinNames_y)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_y, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -657,8 +657,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%LinNames_y = SrcInitOutputData%LinNames_y end if if (allocated(SrcInitOutputData%LinNames_u)) then - LB(1:1) = lbound(SrcInitOutputData%LinNames_u, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -669,8 +669,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%LinNames_u = SrcInitOutputData%LinNames_u end if if (allocated(SrcInitOutputData%RotFrame_u)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_u, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -681,8 +681,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%RotFrame_u = SrcInitOutputData%RotFrame_u end if if (allocated(SrcInitOutputData%RotFrame_y)) then - LB(1:1) = lbound(SrcInitOutputData%RotFrame_y, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -693,8 +693,8 @@ subroutine SeaSt_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%RotFrame_y = SrcInitOutputData%RotFrame_y end if if (allocated(SrcInitOutputData%IsLoad_u)) then - LB(1:1) = lbound(SrcInitOutputData%IsLoad_u, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -782,7 +782,7 @@ subroutine SeaSt_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaSt_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackInitOutput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1112,7 +1112,7 @@ subroutine SeaSt_CopyLinParams(SrcLinParamsData, DstLinParamsData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyLinParams' @@ -1127,8 +1127,8 @@ subroutine SeaSt_CopyLinParams(SrcLinParamsData, DstLinParamsData, CtrlCode, Err call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcLinParamsData%du)) then - LB(1:1) = lbound(SrcLinParamsData%du, kind=B8Ki) - UB(1:1) = ubound(SrcLinParamsData%du, kind=B8Ki) + LB(1:1) = lbound(SrcLinParamsData%du) + UB(1:1) = ubound(SrcLinParamsData%du) if (.not. allocated(DstLinParamsData%du)) then allocate(DstLinParamsData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1179,7 +1179,7 @@ subroutine SeaSt_UnPackLinParams(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaSt_LinParams), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackLinParams' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1198,8 +1198,8 @@ subroutine SeaSt_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_CopyParam' @@ -1211,8 +1211,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WaveElevxi, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WaveElevxi) + UB(1:1) = ubound(SrcParamData%WaveElevxi) if (.not. allocated(DstParamData%WaveElevxi)) then allocate(DstParamData%WaveElevxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1223,8 +1223,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WaveElevyi, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WaveElevyi) + UB(1:1) = ubound(SrcParamData%WaveElevyi) if (.not. allocated(DstParamData%WaveElevyi)) then allocate(DstParamData%WaveElevyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1236,8 +1236,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WaveKinxi, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WaveKinxi) + UB(1:1) = ubound(SrcParamData%WaveKinxi) if (.not. allocated(DstParamData%WaveKinxi)) then allocate(DstParamData%WaveKinxi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1248,8 +1248,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WaveKinyi, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WaveKinyi) + UB(1:1) = ubound(SrcParamData%WaveKinyi) if (.not. allocated(DstParamData%WaveKinyi)) then allocate(DstParamData%WaveKinyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1260,8 +1260,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%WaveKinzi, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%WaveKinzi) + UB(1:1) = ubound(SrcParamData%WaveKinzi) if (.not. allocated(DstParamData%WaveKinzi)) then allocate(DstParamData%WaveKinzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1272,8 +1272,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1315,8 +1315,8 @@ subroutine SeaSt_DestroyParam(ParamData, ErrStat, ErrMsg) type(SeaSt_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SeaSt_DestroyParam' @@ -1338,8 +1338,8 @@ subroutine SeaSt_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%WaveKinzi) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1360,8 +1360,8 @@ subroutine SeaSt_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(SeaSt_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SeaSt_PackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) logical :: PtrInIndex if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%WaveDT) @@ -1377,9 +1377,9 @@ subroutine SeaSt_PackParam(RF, Indata) call RegPackAlloc(RF, InData%WaveKinzi) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1406,8 +1406,8 @@ subroutine SeaSt_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaSt_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1509,14 +1509,14 @@ subroutine SeaSt_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1553,7 +1553,7 @@ subroutine SeaSt_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SeaSt_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SeaSt_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/Waves2_Types.f90 b/modules/seastate/src/Waves2_Types.f90 index a8bd1b7ccf..02a2606df1 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridxi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridyi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi) if (.not. allocated(DstInitInputData%WaveKinGridzi)) then allocate(DstInitInputData%WaveKinGridzi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -152,7 +152,7 @@ subroutine Waves2_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(Waves2_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Waves2_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -173,14 +173,14 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:5) = ubound(SrcInitOutputData%WaveAcc2D, kind=B8Ki) + LB(1:5) = lbound(SrcInitOutputData%WaveAcc2D) + UB(1:5) = ubound(SrcInitOutputData%WaveAcc2D) 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 @@ -191,8 +191,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveAcc2D = SrcInitOutputData%WaveAcc2D end if if (allocated(SrcInitOutputData%WaveDynP2D)) then - LB(1:4) = lbound(SrcInitOutputData%WaveDynP2D, kind=B8Ki) - UB(1:4) = ubound(SrcInitOutputData%WaveDynP2D, kind=B8Ki) + LB(1:4) = lbound(SrcInitOutputData%WaveDynP2D) + UB(1:4) = ubound(SrcInitOutputData%WaveDynP2D) 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 @@ -203,8 +203,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveDynP2D = SrcInitOutputData%WaveDynP2D end if if (allocated(SrcInitOutputData%WaveAcc2S)) then - LB(1:5) = lbound(SrcInitOutputData%WaveAcc2S, kind=B8Ki) - UB(1:5) = ubound(SrcInitOutputData%WaveAcc2S, kind=B8Ki) + LB(1:5) = lbound(SrcInitOutputData%WaveAcc2S) + UB(1:5) = ubound(SrcInitOutputData%WaveAcc2S) 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 @@ -215,8 +215,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveAcc2S = SrcInitOutputData%WaveAcc2S end if if (allocated(SrcInitOutputData%WaveDynP2S)) then - LB(1:4) = lbound(SrcInitOutputData%WaveDynP2S, kind=B8Ki) - UB(1:4) = ubound(SrcInitOutputData%WaveDynP2S, kind=B8Ki) + LB(1:4) = lbound(SrcInitOutputData%WaveDynP2S) + UB(1:4) = ubound(SrcInitOutputData%WaveDynP2S) 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 @@ -227,8 +227,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveDynP2S = SrcInitOutputData%WaveDynP2S end if if (allocated(SrcInitOutputData%WaveVel2D)) then - LB(1:5) = lbound(SrcInitOutputData%WaveVel2D, kind=B8Ki) - UB(1:5) = ubound(SrcInitOutputData%WaveVel2D, kind=B8Ki) + LB(1:5) = lbound(SrcInitOutputData%WaveVel2D) + UB(1:5) = ubound(SrcInitOutputData%WaveVel2D) 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 @@ -239,8 +239,8 @@ subroutine Waves2_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, DstInitOutputData%WaveVel2D = SrcInitOutputData%WaveVel2D end if if (allocated(SrcInitOutputData%WaveVel2S)) then - LB(1:5) = lbound(SrcInitOutputData%WaveVel2S, kind=B8Ki) - UB(1:5) = ubound(SrcInitOutputData%WaveVel2S, kind=B8Ki) + LB(1:5) = lbound(SrcInitOutputData%WaveVel2S) + UB(1:5) = ubound(SrcInitOutputData%WaveVel2S) 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 @@ -297,7 +297,7 @@ subroutine Waves2_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(Waves2_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Waves2_UnPackInitOutput' - integer(B8Ki) :: LB(5), UB(5) + integer(B4Ki) :: LB(5), UB(5) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/seastate/src/Waves_Types.f90 b/modules/seastate/src/Waves_Types.f90 index 4cbea1da35..0c3e3c9f99 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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridxi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridxi) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridyi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridyi) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%WaveKinGridzi) + UB(1:1) = ubound(SrcInitInputData%WaveKinGridzi) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%CurrVxi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%CurrVxi) + UB(1:1) = ubound(SrcInitInputData%CurrVxi) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%CurrVyi, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%CurrVyi) + UB(1:1) = ubound(SrcInitInputData%CurrVyi) if (.not. allocated(DstInitInputData%CurrVyi)) then allocate(DstInitInputData%CurrVyi(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -255,7 +255,7 @@ subroutine Waves_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(Waves_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'Waves_UnPackInitInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/servodyn/src/ServoDyn_Types.f90 b/modules/servodyn/src/ServoDyn_Types.f90 index 0d8ed88c71..d8b6eb4b44 100644 --- a/modules/servodyn/src/ServoDyn_Types.f90 +++ b/modules/servodyn/src/ServoDyn_Types.f90 @@ -585,7 +585,7 @@ subroutine SrvD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyInitInput' @@ -596,8 +596,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%BlPitchInit, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%BlPitchInit) + UB(1:1) = ubound(SrcInitInputData%BlPitchInit) if (.not. allocated(DstInitInputData%BlPitchInit)) then allocate(DstInitInputData%BlPitchInit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -630,8 +630,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BladeRootRefPos, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BladeRootRefPos) + UB(1:2) = ubound(SrcInitInputData%BladeRootRefPos) if (.not. allocated(DstInitInputData%BladeRootRefPos)) then allocate(DstInitInputData%BladeRootRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -642,8 +642,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%BladeRootTransDisp, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%BladeRootTransDisp) + UB(1:2) = ubound(SrcInitInputData%BladeRootTransDisp) if (.not. allocated(DstInitInputData%BladeRootTransDisp)) then allocate(DstInitInputData%BladeRootTransDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -654,8 +654,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%BladeRootOrient, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%BladeRootOrient) + UB(1:3) = ubound(SrcInitInputData%BladeRootOrient) 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 @@ -666,8 +666,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%BladeRootRefOrient, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%BladeRootRefOrient) + UB(1:3) = ubound(SrcInitInputData%BladeRootRefOrient) 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 @@ -683,8 +683,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%CableControlRequestor, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%CableControlRequestor) + UB(1:1) = ubound(SrcInitInputData%CableControlRequestor) if (.not. allocated(DstInitInputData%CableControlRequestor)) then allocate(DstInitInputData%CableControlRequestor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -696,8 +696,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%fromSCGlob, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%fromSCGlob) + UB(1:1) = ubound(SrcInitInputData%fromSCGlob) if (.not. allocated(DstInitInputData%fromSCGlob)) then allocate(DstInitInputData%fromSCGlob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -708,8 +708,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%fromSC) + UB(1:1) = ubound(SrcInitInputData%fromSC) if (.not. allocated(DstInitInputData%fromSC)) then allocate(DstInitInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -720,8 +720,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%LidSpeed, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%LidSpeed) + UB(1:1) = ubound(SrcInitInputData%LidSpeed) if (.not. allocated(DstInitInputData%LidSpeed)) then allocate(DstInitInputData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -732,8 +732,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%MsrPositionsX, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%MsrPositionsX) + UB(1:1) = ubound(SrcInitInputData%MsrPositionsX) if (.not. allocated(DstInitInputData%MsrPositionsX)) then allocate(DstInitInputData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -744,8 +744,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%MsrPositionsY, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%MsrPositionsY) + UB(1:1) = ubound(SrcInitInputData%MsrPositionsY) if (.not. allocated(DstInitInputData%MsrPositionsY)) then allocate(DstInitInputData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -756,8 +756,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitInputData%MsrPositionsZ, kind=B8Ki) + LB(1:1) = lbound(SrcInitInputData%MsrPositionsZ) + UB(1:1) = ubound(SrcInitInputData%MsrPositionsZ) if (.not. allocated(DstInitInputData%MsrPositionsZ)) then allocate(DstInitInputData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -882,7 +882,7 @@ subroutine SrvD_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInitInput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -941,15 +941,15 @@ subroutine SrvD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -960,8 +960,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -977,8 +977,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -989,8 +989,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1001,8 +1001,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1013,8 +1013,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1025,8 +1025,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1037,8 +1037,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1049,8 +1049,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1061,8 +1061,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1142,7 +1142,7 @@ subroutine SrvD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1167,7 +1167,7 @@ subroutine SrvD_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SrvD_CopyInputFile' ErrStat = ErrID_None @@ -1222,8 +1222,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1254,8 +1254,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%GenSpd_TLU, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%GenSpd_TLU) + UB(1:1) = ubound(SrcInputFileData%GenSpd_TLU) if (.not. allocated(DstInputFileData%GenSpd_TLU)) then allocate(DstInputFileData%GenSpd_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1266,8 +1266,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%GenTrq_TLU, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%GenTrq_TLU) + UB(1:1) = ubound(SrcInputFileData%GenTrq_TLU) if (.not. allocated(DstInputFileData%GenTrq_TLU)) then allocate(DstInputFileData%GenTrq_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1280,8 +1280,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%BStCfiles, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%BStCfiles) + UB(1:1) = ubound(SrcInputFileData%BStCfiles) if (.not. allocated(DstInputFileData%BStCfiles)) then allocate(DstInputFileData%BStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1293,8 +1293,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%NStCfiles, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%NStCfiles) + UB(1:1) = ubound(SrcInputFileData%NStCfiles) if (.not. allocated(DstInputFileData%NStCfiles)) then allocate(DstInputFileData%NStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1306,8 +1306,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%TStCfiles, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%TStCfiles) + UB(1:1) = ubound(SrcInputFileData%TStCfiles) if (.not. allocated(DstInputFileData%TStCfiles)) then allocate(DstInputFileData%TStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1319,8 +1319,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%SStCfiles, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%SStCfiles) + UB(1:1) = ubound(SrcInputFileData%SStCfiles) if (.not. allocated(DstInputFileData%SStCfiles)) then allocate(DstInputFileData%SStCfiles(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1467,7 +1467,7 @@ subroutine SrvD_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1566,16 +1566,16 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%avrSWAP, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%avrSWAP) + UB(1:1) = ubound(SrcBladedDLLTypeData%avrSWAP) if (.not. allocated(DstBladedDLLTypeData%avrSWAP)) then allocate(DstBladedDLLTypeData%avrSWAP(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1596,8 +1596,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%toSC, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%toSC) + UB(1:1) = ubound(SrcBladedDLLTypeData%toSC) if (.not. allocated(DstBladedDLLTypeData%toSC)) then allocate(DstBladedDLLTypeData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1610,8 +1610,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels_OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels_OutParam) + UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels_OutParam) if (.not. allocated(DstBladedDLLTypeData%LogChannels_OutParam)) then allocate(DstBladedDLLTypeData%LogChannels_OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1626,8 +1626,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct end do end if if (allocated(SrcBladedDLLTypeData%LogChannels)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%LogChannels) + UB(1:1) = ubound(SrcBladedDLLTypeData%LogChannels) if (.not. allocated(DstBladedDLLTypeData%LogChannels)) then allocate(DstBladedDLLTypeData%LogChannels(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1648,8 +1648,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%BlPitchInput, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%BlPitchInput) + UB(1:1) = ubound(SrcBladedDLLTypeData%BlPitchInput) if (.not. allocated(DstBladedDLLTypeData%BlPitchInput)) then allocate(DstBladedDLLTypeData%BlPitchInput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1686,8 +1686,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%LidSpeed, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%LidSpeed) + UB(1:1) = ubound(SrcBladedDLLTypeData%LidSpeed) if (.not. allocated(DstBladedDLLTypeData%LidSpeed)) then allocate(DstBladedDLLTypeData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1698,8 +1698,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%LidSpeed = SrcBladedDLLTypeData%LidSpeed end if if (allocated(SrcBladedDLLTypeData%MsrPositionsX)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsX, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsX, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsX) + UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsX) if (.not. allocated(DstBladedDLLTypeData%MsrPositionsX)) then allocate(DstBladedDLLTypeData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1710,8 +1710,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%MsrPositionsX = SrcBladedDLLTypeData%MsrPositionsX end if if (allocated(SrcBladedDLLTypeData%MsrPositionsY)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsY, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsY, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsY) + UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsY) if (.not. allocated(DstBladedDLLTypeData%MsrPositionsY)) then allocate(DstBladedDLLTypeData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1722,8 +1722,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%MsrPositionsY = SrcBladedDLLTypeData%MsrPositionsY end if if (allocated(SrcBladedDLLTypeData%MsrPositionsZ)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsZ, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsZ, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%MsrPositionsZ) + UB(1:1) = ubound(SrcBladedDLLTypeData%MsrPositionsZ) if (.not. allocated(DstBladedDLLTypeData%MsrPositionsZ)) then allocate(DstBladedDLLTypeData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1755,8 +1755,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%GenSpd_TLU, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%GenSpd_TLU) + UB(1:1) = ubound(SrcBladedDLLTypeData%GenSpd_TLU) if (.not. allocated(DstBladedDLLTypeData%GenSpd_TLU)) then allocate(DstBladedDLLTypeData%GenSpd_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1767,8 +1767,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%GenTrq_TLU, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%GenTrq_TLU) + UB(1:1) = ubound(SrcBladedDLLTypeData%GenTrq_TLU) if (.not. allocated(DstBladedDLLTypeData%GenTrq_TLU)) then allocate(DstBladedDLLTypeData%GenTrq_TLU(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1780,8 +1780,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, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaL, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaL) + UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaL) if (.not. allocated(DstBladedDLLTypeData%PrevCableDeltaL)) then allocate(DstBladedDLLTypeData%PrevCableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1792,8 +1792,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevCableDeltaL = SrcBladedDLLTypeData%PrevCableDeltaL end if if (allocated(SrcBladedDLLTypeData%PrevCableDeltaLdot)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaLdot, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaLdot, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%PrevCableDeltaLdot) + UB(1:1) = ubound(SrcBladedDLLTypeData%PrevCableDeltaLdot) if (.not. allocated(DstBladedDLLTypeData%PrevCableDeltaLdot)) then allocate(DstBladedDLLTypeData%PrevCableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1804,8 +1804,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevCableDeltaLdot = SrcBladedDLLTypeData%PrevCableDeltaLdot end if if (allocated(SrcBladedDLLTypeData%CableDeltaL)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaL, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaL, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaL) + UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaL) if (.not. allocated(DstBladedDLLTypeData%CableDeltaL)) then allocate(DstBladedDLLTypeData%CableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1816,8 +1816,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%CableDeltaL = SrcBladedDLLTypeData%CableDeltaL end if if (allocated(SrcBladedDLLTypeData%CableDeltaLdot)) then - LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaLdot, kind=B8Ki) - UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaLdot, kind=B8Ki) + LB(1:1) = lbound(SrcBladedDLLTypeData%CableDeltaLdot) + UB(1:1) = ubound(SrcBladedDLLTypeData%CableDeltaLdot) if (.not. allocated(DstBladedDLLTypeData%CableDeltaLdot)) then allocate(DstBladedDLLTypeData%CableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1828,8 +1828,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%CableDeltaLdot = SrcBladedDLLTypeData%CableDeltaLdot end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdStiff)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdStiff, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdStiff, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdStiff) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdStiff) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdStiff)) then allocate(DstBladedDLLTypeData%PrevStCCmdStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1840,8 +1840,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdStiff = SrcBladedDLLTypeData%PrevStCCmdStiff end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdDamp)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdDamp, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdDamp, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdDamp) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdDamp) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdDamp)) then allocate(DstBladedDLLTypeData%PrevStCCmdDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1852,8 +1852,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdDamp = SrcBladedDLLTypeData%PrevStCCmdDamp end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdBrake)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdBrake, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdBrake, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdBrake) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdBrake) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdBrake)) then allocate(DstBladedDLLTypeData%PrevStCCmdBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1864,8 +1864,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdBrake = SrcBladedDLLTypeData%PrevStCCmdBrake end if if (allocated(SrcBladedDLLTypeData%PrevStCCmdForce)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdForce, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdForce, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%PrevStCCmdForce) + UB(1:2) = ubound(SrcBladedDLLTypeData%PrevStCCmdForce) if (.not. allocated(DstBladedDLLTypeData%PrevStCCmdForce)) then allocate(DstBladedDLLTypeData%PrevStCCmdForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1876,8 +1876,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%PrevStCCmdForce = SrcBladedDLLTypeData%PrevStCCmdForce end if if (allocated(SrcBladedDLLTypeData%StCCmdStiff)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdStiff, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdStiff, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdStiff) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdStiff) if (.not. allocated(DstBladedDLLTypeData%StCCmdStiff)) then allocate(DstBladedDLLTypeData%StCCmdStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1888,8 +1888,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdStiff = SrcBladedDLLTypeData%StCCmdStiff end if if (allocated(SrcBladedDLLTypeData%StCCmdDamp)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdDamp, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdDamp, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdDamp) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdDamp) if (.not. allocated(DstBladedDLLTypeData%StCCmdDamp)) then allocate(DstBladedDLLTypeData%StCCmdDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1900,8 +1900,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdDamp = SrcBladedDLLTypeData%StCCmdDamp end if if (allocated(SrcBladedDLLTypeData%StCCmdBrake)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdBrake, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdBrake, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdBrake) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdBrake) if (.not. allocated(DstBladedDLLTypeData%StCCmdBrake)) then allocate(DstBladedDLLTypeData%StCCmdBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1912,8 +1912,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdBrake = SrcBladedDLLTypeData%StCCmdBrake end if if (allocated(SrcBladedDLLTypeData%StCCmdForce)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdForce, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdForce, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCCmdForce) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCCmdForce) if (.not. allocated(DstBladedDLLTypeData%StCCmdForce)) then allocate(DstBladedDLLTypeData%StCCmdForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1924,8 +1924,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCCmdForce = SrcBladedDLLTypeData%StCCmdForce end if if (allocated(SrcBladedDLLTypeData%StCMeasDisp)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasDisp, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasDisp, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasDisp) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasDisp) if (.not. allocated(DstBladedDLLTypeData%StCMeasDisp)) then allocate(DstBladedDLLTypeData%StCMeasDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1936,8 +1936,8 @@ subroutine SrvD_CopyBladedDLLType(SrcBladedDLLTypeData, DstBladedDLLTypeData, Ct DstBladedDLLTypeData%StCMeasDisp = SrcBladedDLLTypeData%StCMeasDisp end if if (allocated(SrcBladedDLLTypeData%StCMeasVel)) then - LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasVel, kind=B8Ki) - UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasVel, kind=B8Ki) + LB(1:2) = lbound(SrcBladedDLLTypeData%StCMeasVel) + UB(1:2) = ubound(SrcBladedDLLTypeData%StCMeasVel) if (.not. allocated(DstBladedDLLTypeData%StCMeasVel)) then allocate(DstBladedDLLTypeData%StCMeasVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1953,8 +1953,8 @@ subroutine SrvD_DestroyBladedDLLType(BladedDLLTypeData, ErrStat, ErrMsg) type(BladedDLLType), intent(inout) :: BladedDLLTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyBladedDLLType' @@ -1967,8 +1967,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, kind=B8Ki) - UB(1:1) = ubound(BladedDLLTypeData%LogChannels_OutParam, kind=B8Ki) + LB(1:1) = lbound(BladedDLLTypeData%LogChannels_OutParam) + UB(1:1) = ubound(BladedDLLTypeData%LogChannels_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(BladedDLLTypeData%LogChannels_OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2047,8 +2047,8 @@ subroutine SrvD_PackBladedDLLType(RF, Indata) type(RegFile), intent(inout) :: RF type(BladedDLLType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackBladedDLLType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%avrSWAP) call RegPack(RF, InData%HSSBrTrqDemand) @@ -2066,9 +2066,9 @@ subroutine SrvD_PackBladedDLLType(RF, Indata) call RegPack(RF, InData%NumLogChannels) call RegPack(RF, allocated(InData%LogChannels_OutParam)) if (allocated(InData%LogChannels_OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%LogChannels_OutParam), ubound(InData%LogChannels_OutParam)) + LB(1:1) = lbound(InData%LogChannels_OutParam) + UB(1:1) = ubound(InData%LogChannels_OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%LogChannels_OutParam(i1)) end do @@ -2160,8 +2160,8 @@ subroutine SrvD_UnPackBladedDLLType(RF, OutData) type(RegFile), intent(inout) :: RF type(BladedDLLType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackBladedDLLType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2280,8 +2280,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyContState' @@ -2289,8 +2289,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS ErrMsg = '' DstContStateData%DummyContState = SrcContStateData%DummyContState if (allocated(SrcContStateData%BStC)) then - LB(1:1) = lbound(SrcContStateData%BStC, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%BStC) + UB(1:1) = ubound(SrcContStateData%BStC) if (.not. allocated(DstContStateData%BStC)) then allocate(DstContStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2305,8 +2305,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS end do end if if (allocated(SrcContStateData%NStC)) then - LB(1:1) = lbound(SrcContStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%NStC) + UB(1:1) = ubound(SrcContStateData%NStC) if (.not. allocated(DstContStateData%NStC)) then allocate(DstContStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2321,8 +2321,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS end do end if if (allocated(SrcContStateData%TStC)) then - LB(1:1) = lbound(SrcContStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%TStC) + UB(1:1) = ubound(SrcContStateData%TStC) if (.not. allocated(DstContStateData%TStC)) then allocate(DstContStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2337,8 +2337,8 @@ subroutine SrvD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrS end do end if if (allocated(SrcContStateData%SStC)) then - LB(1:1) = lbound(SrcContStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%SStC) + UB(1:1) = ubound(SrcContStateData%SStC) if (.not. allocated(DstContStateData%SStC)) then allocate(DstContStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2358,16 +2358,16 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) type(SrvD_ContinuousStateType), intent(inout) :: ContStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ContStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(ContStateData%BStC) + UB(1:1) = ubound(ContStateData%BStC) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2375,8 +2375,8 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%BStC) end if if (allocated(ContStateData%NStC)) then - LB(1:1) = lbound(ContStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(ContStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(ContStateData%NStC) + UB(1:1) = ubound(ContStateData%NStC) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2384,8 +2384,8 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%NStC) end if if (allocated(ContStateData%TStC)) then - LB(1:1) = lbound(ContStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(ContStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(ContStateData%TStC) + UB(1:1) = ubound(ContStateData%TStC) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2393,8 +2393,8 @@ subroutine SrvD_DestroyContState(ContStateData, ErrStat, ErrMsg) deallocate(ContStateData%TStC) end if if (allocated(ContStateData%SStC)) then - LB(1:1) = lbound(ContStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(ContStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(ContStateData%SStC) + UB(1:1) = ubound(ContStateData%SStC) do i1 = LB(1), UB(1) call StC_DestroyContState(ContStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2407,42 +2407,42 @@ subroutine SrvD_PackContState(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_ContinuousStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DummyContState) call RegPack(RF, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BStC), ubound(InData%BStC)) + LB(1:1) = lbound(InData%BStC) + UB(1:1) = ubound(InData%BStC) do i1 = LB(1), UB(1) call StC_PackContState(RF, InData%BStC(i1)) end do end if call RegPack(RF, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStC), ubound(InData%NStC)) + LB(1:1) = lbound(InData%NStC) + UB(1:1) = ubound(InData%NStC) do i1 = LB(1), UB(1) call StC_PackContState(RF, InData%NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStC), ubound(InData%TStC)) + LB(1:1) = lbound(InData%TStC) + UB(1:1) = ubound(InData%TStC) do i1 = LB(1), UB(1) call StC_PackContState(RF, InData%TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStC), ubound(InData%SStC)) + LB(1:1) = lbound(InData%SStC) + UB(1:1) = ubound(InData%SStC) do i1 = LB(1), UB(1) call StC_PackContState(RF, InData%SStC(i1)) end do @@ -2454,8 +2454,8 @@ subroutine SrvD_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackContState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2520,8 +2520,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyDiscState' @@ -2529,8 +2529,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS ErrMsg = '' DstDiscStateData%CtrlOffset = SrcDiscStateData%CtrlOffset if (allocated(SrcDiscStateData%BStC)) then - LB(1:1) = lbound(SrcDiscStateData%BStC, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%BStC) + UB(1:1) = ubound(SrcDiscStateData%BStC) if (.not. allocated(DstDiscStateData%BStC)) then allocate(DstDiscStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2545,8 +2545,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS end do end if if (allocated(SrcDiscStateData%NStC)) then - LB(1:1) = lbound(SrcDiscStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%NStC) + UB(1:1) = ubound(SrcDiscStateData%NStC) if (.not. allocated(DstDiscStateData%NStC)) then allocate(DstDiscStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2561,8 +2561,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS end do end if if (allocated(SrcDiscStateData%TStC)) then - LB(1:1) = lbound(SrcDiscStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%TStC) + UB(1:1) = ubound(SrcDiscStateData%TStC) if (.not. allocated(DstDiscStateData%TStC)) then allocate(DstDiscStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2577,8 +2577,8 @@ subroutine SrvD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrS end do end if if (allocated(SrcDiscStateData%SStC)) then - LB(1:1) = lbound(SrcDiscStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%SStC) + UB(1:1) = ubound(SrcDiscStateData%SStC) if (.not. allocated(DstDiscStateData%SStC)) then allocate(DstDiscStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2598,16 +2598,16 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) type(SrvD_DiscreteStateType), intent(inout) :: DiscStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%BStC) + UB(1:1) = ubound(DiscStateData%BStC) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2615,8 +2615,8 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) deallocate(DiscStateData%BStC) end if if (allocated(DiscStateData%NStC)) then - LB(1:1) = lbound(DiscStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%NStC) + UB(1:1) = ubound(DiscStateData%NStC) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2624,8 +2624,8 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) deallocate(DiscStateData%NStC) end if if (allocated(DiscStateData%TStC)) then - LB(1:1) = lbound(DiscStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%TStC) + UB(1:1) = ubound(DiscStateData%TStC) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2633,8 +2633,8 @@ subroutine SrvD_DestroyDiscState(DiscStateData, ErrStat, ErrMsg) deallocate(DiscStateData%TStC) end if if (allocated(DiscStateData%SStC)) then - LB(1:1) = lbound(DiscStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(DiscStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(DiscStateData%SStC) + UB(1:1) = ubound(DiscStateData%SStC) do i1 = LB(1), UB(1) call StC_DestroyDiscState(DiscStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2647,42 +2647,42 @@ subroutine SrvD_PackDiscState(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_DiscreteStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%CtrlOffset) call RegPack(RF, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BStC), ubound(InData%BStC)) + LB(1:1) = lbound(InData%BStC) + UB(1:1) = ubound(InData%BStC) do i1 = LB(1), UB(1) call StC_PackDiscState(RF, InData%BStC(i1)) end do end if call RegPack(RF, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStC), ubound(InData%NStC)) + LB(1:1) = lbound(InData%NStC) + UB(1:1) = ubound(InData%NStC) do i1 = LB(1), UB(1) call StC_PackDiscState(RF, InData%NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStC), ubound(InData%TStC)) + LB(1:1) = lbound(InData%TStC) + UB(1:1) = ubound(InData%TStC) do i1 = LB(1), UB(1) call StC_PackDiscState(RF, InData%TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStC), ubound(InData%SStC)) + LB(1:1) = lbound(InData%SStC) + UB(1:1) = ubound(InData%SStC) do i1 = LB(1), UB(1) call StC_PackDiscState(RF, InData%SStC(i1)) end do @@ -2694,8 +2694,8 @@ subroutine SrvD_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackDiscState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2760,8 +2760,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyConstrState' @@ -2769,8 +2769,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode ErrMsg = '' DstConstrStateData%DummyConstrState = SrcConstrStateData%DummyConstrState if (allocated(SrcConstrStateData%BStC)) then - LB(1:1) = lbound(SrcConstrStateData%BStC, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%BStC) + UB(1:1) = ubound(SrcConstrStateData%BStC) if (.not. allocated(DstConstrStateData%BStC)) then allocate(DstConstrStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2785,8 +2785,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode end do end if if (allocated(SrcConstrStateData%NStC)) then - LB(1:1) = lbound(SrcConstrStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%NStC) + UB(1:1) = ubound(SrcConstrStateData%NStC) if (.not. allocated(DstConstrStateData%NStC)) then allocate(DstConstrStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2801,8 +2801,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode end do end if if (allocated(SrcConstrStateData%TStC)) then - LB(1:1) = lbound(SrcConstrStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%TStC) + UB(1:1) = ubound(SrcConstrStateData%TStC) if (.not. allocated(DstConstrStateData%TStC)) then allocate(DstConstrStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2817,8 +2817,8 @@ subroutine SrvD_CopyConstrState(SrcConstrStateData, DstConstrStateData, CtrlCode end do end if if (allocated(SrcConstrStateData%SStC)) then - LB(1:1) = lbound(SrcConstrStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(SrcConstrStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(SrcConstrStateData%SStC) + UB(1:1) = ubound(SrcConstrStateData%SStC) if (.not. allocated(DstConstrStateData%SStC)) then allocate(DstConstrStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2838,16 +2838,16 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) type(SrvD_ConstraintStateType), intent(inout) :: ConstrStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%BStC) + UB(1:1) = ubound(ConstrStateData%BStC) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2855,8 +2855,8 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) deallocate(ConstrStateData%BStC) end if if (allocated(ConstrStateData%NStC)) then - LB(1:1) = lbound(ConstrStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%NStC) + UB(1:1) = ubound(ConstrStateData%NStC) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2864,8 +2864,8 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) deallocate(ConstrStateData%NStC) end if if (allocated(ConstrStateData%TStC)) then - LB(1:1) = lbound(ConstrStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%TStC) + UB(1:1) = ubound(ConstrStateData%TStC) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2873,8 +2873,8 @@ subroutine SrvD_DestroyConstrState(ConstrStateData, ErrStat, ErrMsg) deallocate(ConstrStateData%TStC) end if if (allocated(ConstrStateData%SStC)) then - LB(1:1) = lbound(ConstrStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(ConstrStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(ConstrStateData%SStC) + UB(1:1) = ubound(ConstrStateData%SStC) do i1 = LB(1), UB(1) call StC_DestroyConstrState(ConstrStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2887,42 +2887,42 @@ subroutine SrvD_PackConstrState(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_ConstraintStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DummyConstrState) call RegPack(RF, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BStC), ubound(InData%BStC)) + LB(1:1) = lbound(InData%BStC) + UB(1:1) = ubound(InData%BStC) do i1 = LB(1), UB(1) call StC_PackConstrState(RF, InData%BStC(i1)) end do end if call RegPack(RF, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStC), ubound(InData%NStC)) + LB(1:1) = lbound(InData%NStC) + UB(1:1) = ubound(InData%NStC) do i1 = LB(1), UB(1) call StC_PackConstrState(RF, InData%NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStC), ubound(InData%TStC)) + LB(1:1) = lbound(InData%TStC) + UB(1:1) = ubound(InData%TStC) do i1 = LB(1), UB(1) call StC_PackConstrState(RF, InData%TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStC), ubound(InData%SStC)) + LB(1:1) = lbound(InData%SStC) + UB(1:1) = ubound(InData%SStC) do i1 = LB(1), UB(1) call StC_PackConstrState(RF, InData%SStC(i1)) end do @@ -2934,8 +2934,8 @@ subroutine SrvD_UnPackConstrState(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_ConstraintStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackConstrState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3000,16 +3000,16 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%BegPitMan, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%BegPitMan) + UB(1:1) = ubound(SrcOtherStateData%BegPitMan) if (.not. allocated(DstOtherStateData%BegPitMan)) then allocate(DstOtherStateData%BegPitMan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3020,8 +3020,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%BlPitchI, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%BlPitchI) + UB(1:1) = ubound(SrcOtherStateData%BlPitchI) if (.not. allocated(DstOtherStateData%BlPitchI)) then allocate(DstOtherStateData%BlPitchI(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3032,8 +3032,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%TPitManE, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%TPitManE) + UB(1:1) = ubound(SrcOtherStateData%TPitManE) if (.not. allocated(DstOtherStateData%TPitManE)) then allocate(DstOtherStateData%TPitManE(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3048,8 +3048,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%BegTpBr, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%BegTpBr) + UB(1:1) = ubound(SrcOtherStateData%BegTpBr) if (.not. allocated(DstOtherStateData%BegTpBr)) then allocate(DstOtherStateData%BegTpBr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3060,8 +3060,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%TTpBrDp, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%TTpBrDp) + UB(1:1) = ubound(SrcOtherStateData%TTpBrDp) if (.not. allocated(DstOtherStateData%TTpBrDp)) then allocate(DstOtherStateData%TTpBrDp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3072,8 +3072,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%TTpBrFl, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%TTpBrFl) + UB(1:1) = ubound(SrcOtherStateData%TTpBrFl) if (.not. allocated(DstOtherStateData%TTpBrFl)) then allocate(DstOtherStateData%TTpBrFl(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3086,8 +3086,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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%BStC) + UB(1:1) = ubound(SrcOtherStateData%BStC) if (.not. allocated(DstOtherStateData%BStC)) then allocate(DstOtherStateData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3102,8 +3102,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end do end if if (allocated(SrcOtherStateData%NStC)) then - LB(1:1) = lbound(SrcOtherStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%NStC) + UB(1:1) = ubound(SrcOtherStateData%NStC) if (.not. allocated(DstOtherStateData%NStC)) then allocate(DstOtherStateData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3118,8 +3118,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end do end if if (allocated(SrcOtherStateData%TStC)) then - LB(1:1) = lbound(SrcOtherStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%TStC) + UB(1:1) = ubound(SrcOtherStateData%TStC) if (.not. allocated(DstOtherStateData%TStC)) then allocate(DstOtherStateData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3134,8 +3134,8 @@ subroutine SrvD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, E end do end if if (allocated(SrcOtherStateData%SStC)) then - LB(1:1) = lbound(SrcOtherStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%SStC) + UB(1:1) = ubound(SrcOtherStateData%SStC) if (.not. allocated(DstOtherStateData%SStC)) then allocate(DstOtherStateData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3155,8 +3155,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SrvD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyOtherState' @@ -3181,8 +3181,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%TTpBrFl) end if if (allocated(OtherStateData%BStC)) then - LB(1:1) = lbound(OtherStateData%BStC, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%BStC, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%BStC) + UB(1:1) = ubound(OtherStateData%BStC) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3190,8 +3190,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%BStC) end if if (allocated(OtherStateData%NStC)) then - LB(1:1) = lbound(OtherStateData%NStC, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%NStC, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%NStC) + UB(1:1) = ubound(OtherStateData%NStC) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3199,8 +3199,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%NStC) end if if (allocated(OtherStateData%TStC)) then - LB(1:1) = lbound(OtherStateData%TStC, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%TStC, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%TStC) + UB(1:1) = ubound(OtherStateData%TStC) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3208,8 +3208,8 @@ subroutine SrvD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) deallocate(OtherStateData%TStC) end if if (allocated(OtherStateData%SStC)) then - LB(1:1) = lbound(OtherStateData%SStC, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%SStC, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%SStC) + UB(1:1) = ubound(OtherStateData%SStC) do i1 = LB(1), UB(1) call StC_DestroyOtherState(OtherStateData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3222,8 +3222,8 @@ subroutine SrvD_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%BegPitMan) call RegPackAlloc(RF, InData%BlPitchI) @@ -3239,36 +3239,36 @@ subroutine SrvD_PackOtherState(RF, Indata) call RegPack(RF, InData%GenOnLine) call RegPack(RF, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BStC), ubound(InData%BStC)) + LB(1:1) = lbound(InData%BStC) + UB(1:1) = ubound(InData%BStC) do i1 = LB(1), UB(1) call StC_PackOtherState(RF, InData%BStC(i1)) end do end if call RegPack(RF, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStC), ubound(InData%NStC)) + LB(1:1) = lbound(InData%NStC) + UB(1:1) = ubound(InData%NStC) do i1 = LB(1), UB(1) call StC_PackOtherState(RF, InData%NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStC), ubound(InData%TStC)) + LB(1:1) = lbound(InData%TStC) + UB(1:1) = ubound(InData%TStC) do i1 = LB(1), UB(1) call StC_PackOtherState(RF, InData%TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStC), ubound(InData%SStC)) + LB(1:1) = lbound(InData%SStC) + UB(1:1) = ubound(InData%SStC) do i1 = LB(1), UB(1) call StC_PackOtherState(RF, InData%SStC(i1)) end do @@ -3280,8 +3280,8 @@ subroutine SrvD_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3357,16 +3357,16 @@ subroutine SrvD_CopyModuleMapType(SrcModuleMapTypeData, DstModuleMapTypeData, Ct integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%u_BStC_Mot2_BStC, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%u_BStC_Mot2_BStC) + UB(1:2) = ubound(SrcModuleMapTypeData%u_BStC_Mot2_BStC) 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 @@ -3383,8 +3383,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%u_NStC_Mot2_NStC, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%u_NStC_Mot2_NStC) + UB(1:1) = ubound(SrcModuleMapTypeData%u_NStC_Mot2_NStC) 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 @@ -3399,8 +3399,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%u_TStC_Mot2_TStC, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%u_TStC_Mot2_TStC) + UB(1:1) = ubound(SrcModuleMapTypeData%u_TStC_Mot2_TStC) 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 @@ -3415,8 +3415,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%u_SStC_Mot2_SStC, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%u_SStC_Mot2_SStC) + UB(1:1) = ubound(SrcModuleMapTypeData%u_SStC_Mot2_SStC) 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 @@ -3431,8 +3431,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, kind=B8Ki) - UB(1:2) = ubound(SrcModuleMapTypeData%BStC_Frc2_y_BStC, kind=B8Ki) + LB(1:2) = lbound(SrcModuleMapTypeData%BStC_Frc2_y_BStC) + UB(1:2) = ubound(SrcModuleMapTypeData%BStC_Frc2_y_BStC) 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 @@ -3449,8 +3449,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%NStC_Frc2_y_NStC, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%NStC_Frc2_y_NStC) + UB(1:1) = ubound(SrcModuleMapTypeData%NStC_Frc2_y_NStC) 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 @@ -3465,8 +3465,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%TStC_Frc2_y_TStC, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%TStC_Frc2_y_TStC) + UB(1:1) = ubound(SrcModuleMapTypeData%TStC_Frc2_y_TStC) 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 @@ -3481,8 +3481,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, kind=B8Ki) - UB(1:1) = ubound(SrcModuleMapTypeData%SStC_Frc2_y_SStC, kind=B8Ki) + LB(1:1) = lbound(SrcModuleMapTypeData%SStC_Frc2_y_SStC) + UB(1:1) = ubound(SrcModuleMapTypeData%SStC_Frc2_y_SStC) 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 @@ -3502,16 +3502,16 @@ subroutine SrvD_DestroyModuleMapType(ModuleMapTypeData, ErrStat, ErrMsg) type(SrvD_ModuleMapType), intent(inout) :: ModuleMapTypeData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(ModuleMapTypeData%u_BStC_Mot2_BStC, kind=B8Ki) + LB(1:2) = lbound(ModuleMapTypeData%u_BStC_Mot2_BStC) + UB(1:2) = ubound(ModuleMapTypeData%u_BStC_Mot2_BStC) 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) @@ -3521,8 +3521,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%u_NStC_Mot2_NStC, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%u_NStC_Mot2_NStC) + UB(1:1) = ubound(ModuleMapTypeData%u_NStC_Mot2_NStC) 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) @@ -3530,8 +3530,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%u_TStC_Mot2_TStC, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%u_TStC_Mot2_TStC) + UB(1:1) = ubound(ModuleMapTypeData%u_TStC_Mot2_TStC) 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) @@ -3539,8 +3539,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%u_SStC_Mot2_SStC, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%u_SStC_Mot2_SStC) + UB(1:1) = ubound(ModuleMapTypeData%u_SStC_Mot2_SStC) 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) @@ -3548,8 +3548,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, kind=B8Ki) - UB(1:2) = ubound(ModuleMapTypeData%BStC_Frc2_y_BStC, kind=B8Ki) + LB(1:2) = lbound(ModuleMapTypeData%BStC_Frc2_y_BStC) + UB(1:2) = ubound(ModuleMapTypeData%BStC_Frc2_y_BStC) 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) @@ -3559,8 +3559,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%NStC_Frc2_y_NStC, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%NStC_Frc2_y_NStC) + UB(1:1) = ubound(ModuleMapTypeData%NStC_Frc2_y_NStC) 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) @@ -3568,8 +3568,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%TStC_Frc2_y_TStC, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%TStC_Frc2_y_TStC) + UB(1:1) = ubound(ModuleMapTypeData%TStC_Frc2_y_TStC) 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) @@ -3577,8 +3577,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, kind=B8Ki) - UB(1:1) = ubound(ModuleMapTypeData%SStC_Frc2_y_SStC, kind=B8Ki) + LB(1:1) = lbound(ModuleMapTypeData%SStC_Frc2_y_SStC) + UB(1:1) = ubound(ModuleMapTypeData%SStC_Frc2_y_SStC) 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) @@ -3591,14 +3591,14 @@ subroutine SrvD_PackModuleMapType(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_ModuleMapType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackModuleMapType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%u_BStC_Mot2_BStC)) if (allocated(InData%u_BStC_Mot2_BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%u_BStC_Mot2_BStC(i1,i2)) @@ -3607,36 +3607,36 @@ subroutine SrvD_PackModuleMapType(RF, Indata) end if call RegPack(RF, allocated(InData%u_NStC_Mot2_NStC)) if (allocated(InData%u_NStC_Mot2_NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%u_NStC_Mot2_NStC(i1)) end do end if call RegPack(RF, allocated(InData%u_TStC_Mot2_TStC)) if (allocated(InData%u_TStC_Mot2_TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%u_TStC_Mot2_TStC(i1)) end do end if call RegPack(RF, allocated(InData%u_SStC_Mot2_SStC)) if (allocated(InData%u_SStC_Mot2_SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%u_SStC_Mot2_SStC(i1)) end do end if call RegPack(RF, allocated(InData%BStC_Frc2_y_BStC)) if (allocated(InData%BStC_Frc2_y_BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%BStC_Frc2_y_BStC(i1,i2)) @@ -3645,27 +3645,27 @@ subroutine SrvD_PackModuleMapType(RF, Indata) end if call RegPack(RF, allocated(InData%NStC_Frc2_y_NStC)) if (allocated(InData%NStC_Frc2_y_NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%NStC_Frc2_y_NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC_Frc2_y_TStC)) if (allocated(InData%TStC_Frc2_y_TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%TStC_Frc2_y_TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC_Frc2_y_SStC)) if (allocated(InData%SStC_Frc2_y_SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 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) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%SStC_Frc2_y_SStC(i1)) end do @@ -3677,8 +3677,8 @@ subroutine SrvD_UnPackModuleMapType(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_ModuleMapType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackModuleMapType' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -3798,8 +3798,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyMisc' @@ -3812,8 +3812,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%xd_BlPitchFilter, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%xd_BlPitchFilter) + UB(1:1) = ubound(SrcMiscData%xd_BlPitchFilter) if (.not. allocated(DstMiscData%xd_BlPitchFilter)) then allocate(DstMiscData%xd_BlPitchFilter(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3824,8 +3824,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%BStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%BStC) + UB(1:1) = ubound(SrcMiscData%BStC) if (.not. allocated(DstMiscData%BStC)) then allocate(DstMiscData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3840,8 +3840,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%NStC)) then - LB(1:1) = lbound(SrcMiscData%NStC, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%NStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%NStC) + UB(1:1) = ubound(SrcMiscData%NStC) if (.not. allocated(DstMiscData%NStC)) then allocate(DstMiscData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3856,8 +3856,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%TStC)) then - LB(1:1) = lbound(SrcMiscData%TStC, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%TStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%TStC) + UB(1:1) = ubound(SrcMiscData%TStC) if (.not. allocated(DstMiscData%TStC)) then allocate(DstMiscData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3872,8 +3872,8 @@ subroutine SrvD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%SStC)) then - LB(1:1) = lbound(SrcMiscData%SStC, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SStC) + UB(1:1) = ubound(SrcMiscData%SStC) if (.not. allocated(DstMiscData%SStC)) then allocate(DstMiscData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3888,8 +3888,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%u_BStC, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%u_BStC) + UB(1:2) = ubound(SrcMiscData%u_BStC) 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 @@ -3906,8 +3906,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%u_NStC, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%u_NStC) + UB(1:2) = ubound(SrcMiscData%u_NStC) 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 @@ -3924,8 +3924,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%u_TStC, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%u_TStC) + UB(1:2) = ubound(SrcMiscData%u_TStC) 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 @@ -3942,8 +3942,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%u_SStC, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%u_SStC) + UB(1:2) = ubound(SrcMiscData%u_SStC) 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 @@ -3960,8 +3960,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%y_BStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%y_BStC) + UB(1:1) = ubound(SrcMiscData%y_BStC) if (.not. allocated(DstMiscData%y_BStC)) then allocate(DstMiscData%y_BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3976,8 +3976,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%y_NStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%y_NStC) + UB(1:1) = ubound(SrcMiscData%y_NStC) if (.not. allocated(DstMiscData%y_NStC)) then allocate(DstMiscData%y_NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3992,8 +3992,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%y_TStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%y_TStC) + UB(1:1) = ubound(SrcMiscData%y_TStC) if (.not. allocated(DstMiscData%y_TStC)) then allocate(DstMiscData%y_TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4008,8 +4008,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%y_SStC, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%y_SStC) + UB(1:1) = ubound(SrcMiscData%y_SStC) if (.not. allocated(DstMiscData%y_SStC)) then allocate(DstMiscData%y_SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4033,8 +4033,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) type(SrvD_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyMisc' @@ -4046,8 +4046,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%xd_BlPitchFilter) end if if (allocated(MiscData%BStC)) then - LB(1:1) = lbound(MiscData%BStC, kind=B8Ki) - UB(1:1) = ubound(MiscData%BStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%BStC) + UB(1:1) = ubound(MiscData%BStC) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4055,8 +4055,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%BStC) end if if (allocated(MiscData%NStC)) then - LB(1:1) = lbound(MiscData%NStC, kind=B8Ki) - UB(1:1) = ubound(MiscData%NStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%NStC) + UB(1:1) = ubound(MiscData%NStC) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4064,8 +4064,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%NStC) end if if (allocated(MiscData%TStC)) then - LB(1:1) = lbound(MiscData%TStC, kind=B8Ki) - UB(1:1) = ubound(MiscData%TStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%TStC) + UB(1:1) = ubound(MiscData%TStC) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4073,8 +4073,8 @@ subroutine SrvD_DestroyMisc(MiscData, ErrStat, ErrMsg) deallocate(MiscData%TStC) end if if (allocated(MiscData%SStC)) then - LB(1:1) = lbound(MiscData%SStC, kind=B8Ki) - UB(1:1) = ubound(MiscData%SStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%SStC) + UB(1:1) = ubound(MiscData%SStC) do i1 = LB(1), UB(1) call StC_DestroyMisc(MiscData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4082,8 +4082,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, kind=B8Ki) - UB(1:2) = ubound(MiscData%u_BStC, kind=B8Ki) + LB(1:2) = lbound(MiscData%u_BStC) + UB(1:2) = ubound(MiscData%u_BStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_BStC(i1,i2), ErrStat2, ErrMsg2) @@ -4093,8 +4093,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, kind=B8Ki) - UB(1:2) = ubound(MiscData%u_NStC, kind=B8Ki) + LB(1:2) = lbound(MiscData%u_NStC) + UB(1:2) = ubound(MiscData%u_NStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_NStC(i1,i2), ErrStat2, ErrMsg2) @@ -4104,8 +4104,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, kind=B8Ki) - UB(1:2) = ubound(MiscData%u_TStC, kind=B8Ki) + LB(1:2) = lbound(MiscData%u_TStC) + UB(1:2) = ubound(MiscData%u_TStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_TStC(i1,i2), ErrStat2, ErrMsg2) @@ -4115,8 +4115,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, kind=B8Ki) - UB(1:2) = ubound(MiscData%u_SStC, kind=B8Ki) + LB(1:2) = lbound(MiscData%u_SStC) + UB(1:2) = ubound(MiscData%u_SStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_DestroyInput(MiscData%u_SStC(i1,i2), ErrStat2, ErrMsg2) @@ -4126,8 +4126,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%y_BStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%y_BStC) + UB(1:1) = ubound(MiscData%y_BStC) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4135,8 +4135,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%y_NStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%y_NStC) + UB(1:1) = ubound(MiscData%y_NStC) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4144,8 +4144,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%y_TStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%y_TStC) + UB(1:1) = ubound(MiscData%y_TStC) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4153,8 +4153,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, kind=B8Ki) - UB(1:1) = ubound(MiscData%y_SStC, kind=B8Ki) + LB(1:1) = lbound(MiscData%y_SStC) + UB(1:1) = ubound(MiscData%y_SStC) do i1 = LB(1), UB(1) call StC_DestroyOutput(MiscData%y_SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4169,8 +4169,8 @@ subroutine SrvD_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%LastTimeCalled) call SrvD_PackBladedDLLType(RF, InData%dll_data) @@ -4179,45 +4179,45 @@ subroutine SrvD_PackMisc(RF, Indata) call RegPackAlloc(RF, InData%xd_BlPitchFilter) call RegPack(RF, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BStC), ubound(InData%BStC)) + LB(1:1) = lbound(InData%BStC) + UB(1:1) = ubound(InData%BStC) do i1 = LB(1), UB(1) call StC_PackMisc(RF, InData%BStC(i1)) end do end if call RegPack(RF, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStC), ubound(InData%NStC)) + LB(1:1) = lbound(InData%NStC) + UB(1:1) = ubound(InData%NStC) do i1 = LB(1), UB(1) call StC_PackMisc(RF, InData%NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStC), ubound(InData%TStC)) + LB(1:1) = lbound(InData%TStC) + UB(1:1) = ubound(InData%TStC) do i1 = LB(1), UB(1) call StC_PackMisc(RF, InData%TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStC), ubound(InData%SStC)) + LB(1:1) = lbound(InData%SStC) + UB(1:1) = ubound(InData%SStC) do i1 = LB(1), UB(1) call StC_PackMisc(RF, InData%SStC(i1)) end do end if call RegPack(RF, allocated(InData%u_BStC)) if (allocated(InData%u_BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_BStC), ubound(InData%u_BStC)) + LB(1:2) = lbound(InData%u_BStC) + UB(1:2) = ubound(InData%u_BStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(RF, InData%u_BStC(i1,i2)) @@ -4226,9 +4226,9 @@ subroutine SrvD_PackMisc(RF, Indata) end if call RegPack(RF, allocated(InData%u_NStC)) if (allocated(InData%u_NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_NStC), ubound(InData%u_NStC)) + LB(1:2) = lbound(InData%u_NStC) + UB(1:2) = ubound(InData%u_NStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(RF, InData%u_NStC(i1,i2)) @@ -4237,9 +4237,9 @@ subroutine SrvD_PackMisc(RF, Indata) end if call RegPack(RF, allocated(InData%u_TStC)) if (allocated(InData%u_TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_TStC), ubound(InData%u_TStC)) + LB(1:2) = lbound(InData%u_TStC) + UB(1:2) = ubound(InData%u_TStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(RF, InData%u_TStC(i1,i2)) @@ -4248,9 +4248,9 @@ subroutine SrvD_PackMisc(RF, Indata) end if call RegPack(RF, allocated(InData%u_SStC)) if (allocated(InData%u_SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%u_SStC), ubound(InData%u_SStC)) + LB(1:2) = lbound(InData%u_SStC) + UB(1:2) = ubound(InData%u_SStC) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call StC_PackInput(RF, InData%u_SStC(i1,i2)) @@ -4259,36 +4259,36 @@ subroutine SrvD_PackMisc(RF, Indata) end if call RegPack(RF, allocated(InData%y_BStC)) if (allocated(InData%y_BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y_BStC), ubound(InData%y_BStC)) + LB(1:1) = lbound(InData%y_BStC) + UB(1:1) = ubound(InData%y_BStC) do i1 = LB(1), UB(1) call StC_PackOutput(RF, InData%y_BStC(i1)) end do end if call RegPack(RF, allocated(InData%y_NStC)) if (allocated(InData%y_NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y_NStC), ubound(InData%y_NStC)) + LB(1:1) = lbound(InData%y_NStC) + UB(1:1) = ubound(InData%y_NStC) do i1 = LB(1), UB(1) call StC_PackOutput(RF, InData%y_NStC(i1)) end do end if call RegPack(RF, allocated(InData%y_TStC)) if (allocated(InData%y_TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y_TStC), ubound(InData%y_TStC)) + LB(1:1) = lbound(InData%y_TStC) + UB(1:1) = ubound(InData%y_TStC) do i1 = LB(1), UB(1) call StC_PackOutput(RF, InData%y_TStC(i1)) end do end if call RegPack(RF, allocated(InData%y_SStC)) if (allocated(InData%y_SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%y_SStC), ubound(InData%y_SStC)) + LB(1:1) = lbound(InData%y_SStC) + UB(1:1) = ubound(InData%y_SStC) do i1 = LB(1), UB(1) call StC_PackOutput(RF, InData%y_SStC(i1)) end do @@ -4302,8 +4302,8 @@ subroutine SrvD_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackMisc' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4486,8 +4486,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) 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(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_CopyParam' @@ -4517,8 +4517,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BlPitchInit, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BlPitchInit) + UB(1:1) = ubound(SrcParamData%BlPitchInit) if (.not. allocated(DstParamData%BlPitchInit)) then allocate(DstParamData%BlPitchInit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4529,8 +4529,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BlPitchF, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BlPitchF) + UB(1:1) = ubound(SrcParamData%BlPitchF) if (.not. allocated(DstParamData%BlPitchF)) then allocate(DstParamData%BlPitchF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4541,8 +4541,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%PitManRat, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%PitManRat) + UB(1:1) = ubound(SrcParamData%PitManRat) if (.not. allocated(DstParamData%PitManRat)) then allocate(DstParamData%PitManRat(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4561,8 +4561,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%TPitManS, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%TPitManS) + UB(1:1) = ubound(SrcParamData%TPitManS) if (.not. allocated(DstParamData%TPitManS)) then allocate(DstParamData%TPitManS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4595,8 +4595,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%TBDepISp, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%TBDepISp) + UB(1:1) = ubound(SrcParamData%TBDepISp) if (.not. allocated(DstParamData%TBDepISp)) then allocate(DstParamData%TBDepISp(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4624,8 +4624,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%RootName = SrcParamData%RootName DstParamData%PriPath = SrcParamData%PriPath if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4654,8 +4654,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%BStC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%BStC) + UB(1:1) = ubound(SrcParamData%BStC) if (.not. allocated(DstParamData%BStC)) then allocate(DstParamData%BStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4670,8 +4670,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%NStC)) then - LB(1:1) = lbound(SrcParamData%NStC, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NStC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NStC) + UB(1:1) = ubound(SrcParamData%NStC) if (.not. allocated(DstParamData%NStC)) then allocate(DstParamData%NStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4686,8 +4686,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%TStC)) then - LB(1:1) = lbound(SrcParamData%TStC, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%TStC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%TStC) + UB(1:1) = ubound(SrcParamData%TStC) if (.not. allocated(DstParamData%TStC)) then allocate(DstParamData%TStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4702,8 +4702,8 @@ subroutine SrvD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%SStC)) then - LB(1:1) = lbound(SrcParamData%SStC, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%SStC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%SStC) + UB(1:1) = ubound(SrcParamData%SStC) if (.not. allocated(DstParamData%SStC)) then allocate(DstParamData%SStC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4722,8 +4722,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%StCMeasNumPerChan, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%StCMeasNumPerChan) + UB(1:1) = ubound(SrcParamData%StCMeasNumPerChan) if (.not. allocated(DstParamData%StCMeasNumPerChan)) then allocate(DstParamData%StCMeasNumPerChan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4735,8 +4735,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_u_indx) + UB(1:2) = ubound(SrcParamData%Jac_u_indx) 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 @@ -4747,8 +4747,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_x_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_x_indx) + UB(1:2) = ubound(SrcParamData%Jac_x_indx) 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 @@ -4759,8 +4759,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%du) + UB(1:1) = ubound(SrcParamData%du) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4771,8 +4771,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%dx, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%dx) + UB(1:1) = ubound(SrcParamData%dx) if (.not. allocated(DstParamData%dx)) then allocate(DstParamData%dx(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4786,8 +4786,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_u, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_u) + UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_u) 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 @@ -4798,8 +4798,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_u, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_u) + UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_u) 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 @@ -4810,8 +4810,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_u, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_u) + UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_u) 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 @@ -4822,8 +4822,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_u, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_u) + UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_u) 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 @@ -4834,8 +4834,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_x, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_x) + UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_x) 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 @@ -4846,8 +4846,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_x, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_x) + UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_x) 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 @@ -4858,8 +4858,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_x, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_x) + UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_x) 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 @@ -4870,8 +4870,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_x, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_x) + UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_x) 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 @@ -4882,8 +4882,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, kind=B8Ki) - UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_y, kind=B8Ki) + LB(1:3) = lbound(SrcParamData%Jac_Idx_BStC_y) + UB(1:3) = ubound(SrcParamData%Jac_Idx_BStC_y) 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 @@ -4894,8 +4894,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_y, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_NStC_y) + UB(1:2) = ubound(SrcParamData%Jac_Idx_NStC_y) 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 @@ -4906,8 +4906,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_y, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_TStC_y) + UB(1:2) = ubound(SrcParamData%Jac_Idx_TStC_y) 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 @@ -4918,8 +4918,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_y, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_Idx_SStC_y) + UB(1:2) = ubound(SrcParamData%Jac_Idx_SStC_y) 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 @@ -4940,8 +4940,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) type(SrvD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyParam' @@ -4963,8 +4963,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%TBDepISp) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4974,8 +4974,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%BStC, kind=B8Ki) + LB(1:1) = lbound(ParamData%BStC) + UB(1:1) = ubound(ParamData%BStC) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%BStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4983,8 +4983,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%BStC) end if if (allocated(ParamData%NStC)) then - LB(1:1) = lbound(ParamData%NStC, kind=B8Ki) - UB(1:1) = ubound(ParamData%NStC, kind=B8Ki) + LB(1:1) = lbound(ParamData%NStC) + UB(1:1) = ubound(ParamData%NStC) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%NStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -4992,8 +4992,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%NStC) end if if (allocated(ParamData%TStC)) then - LB(1:1) = lbound(ParamData%TStC, kind=B8Ki) - UB(1:1) = ubound(ParamData%TStC, kind=B8Ki) + LB(1:1) = lbound(ParamData%TStC) + UB(1:1) = ubound(ParamData%TStC) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%TStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5001,8 +5001,8 @@ subroutine SrvD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%TStC) end if if (allocated(ParamData%SStC)) then - LB(1:1) = lbound(ParamData%SStC, kind=B8Ki) - UB(1:1) = ubound(ParamData%SStC, kind=B8Ki) + LB(1:1) = lbound(ParamData%SStC) + UB(1:1) = ubound(ParamData%SStC) do i1 = LB(1), UB(1) call StC_DestroyParam(ParamData%SStC(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5066,8 +5066,8 @@ subroutine SrvD_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%DT) call RegPack(RF, InData%HSSBrDT) @@ -5146,9 +5146,9 @@ subroutine SrvD_PackParam(RF, Indata) call RegPack(RF, InData%PriPath) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -5169,36 +5169,36 @@ subroutine SrvD_PackParam(RF, Indata) call RegPack(RF, InData%RotSpeedRef) call RegPack(RF, allocated(InData%BStC)) if (allocated(InData%BStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BStC), ubound(InData%BStC)) + LB(1:1) = lbound(InData%BStC) + UB(1:1) = ubound(InData%BStC) do i1 = LB(1), UB(1) call StC_PackParam(RF, InData%BStC(i1)) end do end if call RegPack(RF, allocated(InData%NStC)) if (allocated(InData%NStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStC), ubound(InData%NStC)) + LB(1:1) = lbound(InData%NStC) + UB(1:1) = ubound(InData%NStC) do i1 = LB(1), UB(1) call StC_PackParam(RF, InData%NStC(i1)) end do end if call RegPack(RF, allocated(InData%TStC)) if (allocated(InData%TStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStC), ubound(InData%TStC)) + LB(1:1) = lbound(InData%TStC) + UB(1:1) = ubound(InData%TStC) do i1 = LB(1), UB(1) call StC_PackParam(RF, InData%TStC(i1)) end do end if call RegPack(RF, allocated(InData%SStC)) if (allocated(InData%SStC)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStC), ubound(InData%SStC)) + LB(1:1) = lbound(InData%SStC) + UB(1:1) = ubound(InData%SStC) do i1 = LB(1), UB(1) call StC_PackParam(RF, InData%SStC(i1)) end do @@ -5240,8 +5240,8 @@ subroutine SrvD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackParam' - integer(B8Ki) :: i1, i2, i3 - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: i1, i2, i3 + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5437,16 +5437,16 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%BlPitch, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%BlPitch) + UB(1:1) = ubound(SrcInputData%BlPitch) if (.not. allocated(DstInputData%BlPitch)) then allocate(DstInputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5464,8 +5464,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%ExternalBlPitchCom, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%ExternalBlPitchCom) + UB(1:1) = ubound(SrcInputData%ExternalBlPitchCom) if (.not. allocated(DstInputData%ExternalBlPitchCom)) then allocate(DstInputData%ExternalBlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5479,8 +5479,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%ExternalBlAirfoilCom, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%ExternalBlAirfoilCom) + UB(1:1) = ubound(SrcInputData%ExternalBlAirfoilCom) if (.not. allocated(DstInputData%ExternalBlAirfoilCom)) then allocate(DstInputData%ExternalBlAirfoilCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5491,8 +5491,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%ExternalCableDeltaL, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%ExternalCableDeltaL) + UB(1:1) = ubound(SrcInputData%ExternalCableDeltaL) if (.not. allocated(DstInputData%ExternalCableDeltaL)) then allocate(DstInputData%ExternalCableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5503,8 +5503,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%ExternalCableDeltaLdot, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%ExternalCableDeltaLdot) + UB(1:1) = ubound(SrcInputData%ExternalCableDeltaLdot) if (.not. allocated(DstInputData%ExternalCableDeltaLdot)) then allocate(DstInputData%ExternalCableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5539,8 +5539,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fromSC) + UB(1:1) = ubound(SrcInputData%fromSC) if (.not. allocated(DstInputData%fromSC)) then allocate(DstInputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5551,8 +5551,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%fromSCglob, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%fromSCglob) + UB(1:1) = ubound(SrcInputData%fromSCglob) if (.not. allocated(DstInputData%fromSCglob)) then allocate(DstInputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5566,8 +5566,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%BStCMotionMesh, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%BStCMotionMesh) + UB(1:2) = ubound(SrcInputData%BStCMotionMesh) if (.not. allocated(DstInputData%BStCMotionMesh)) then allocate(DstInputData%BStCMotionMesh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5584,8 +5584,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%NStCMotionMesh)) then - LB(1:1) = lbound(SrcInputData%NStCMotionMesh, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%NStCMotionMesh, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%NStCMotionMesh) + UB(1:1) = ubound(SrcInputData%NStCMotionMesh) if (.not. allocated(DstInputData%NStCMotionMesh)) then allocate(DstInputData%NStCMotionMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5600,8 +5600,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%TStCMotionMesh)) then - LB(1:1) = lbound(SrcInputData%TStCMotionMesh, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%TStCMotionMesh, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%TStCMotionMesh) + UB(1:1) = ubound(SrcInputData%TStCMotionMesh) if (.not. allocated(DstInputData%TStCMotionMesh)) then allocate(DstInputData%TStCMotionMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5616,8 +5616,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%SStCMotionMesh)) then - LB(1:1) = lbound(SrcInputData%SStCMotionMesh, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%SStCMotionMesh, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%SStCMotionMesh) + UB(1:1) = ubound(SrcInputData%SStCMotionMesh) if (.not. allocated(DstInputData%SStCMotionMesh)) then allocate(DstInputData%SStCMotionMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5632,8 +5632,8 @@ subroutine SrvD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%LidSpeed)) then - LB(1:1) = lbound(SrcInputData%LidSpeed, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%LidSpeed, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%LidSpeed) + UB(1:1) = ubound(SrcInputData%LidSpeed) if (.not. allocated(DstInputData%LidSpeed)) then allocate(DstInputData%LidSpeed(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5644,8 +5644,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%MsrPositionsX, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%MsrPositionsX) + UB(1:1) = ubound(SrcInputData%MsrPositionsX) if (.not. allocated(DstInputData%MsrPositionsX)) then allocate(DstInputData%MsrPositionsX(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5656,8 +5656,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%MsrPositionsY, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%MsrPositionsY) + UB(1:1) = ubound(SrcInputData%MsrPositionsY) if (.not. allocated(DstInputData%MsrPositionsY)) then allocate(DstInputData%MsrPositionsY(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5668,8 +5668,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%MsrPositionsZ, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%MsrPositionsZ) + UB(1:1) = ubound(SrcInputData%MsrPositionsZ) if (.not. allocated(DstInputData%MsrPositionsZ)) then allocate(DstInputData%MsrPositionsZ(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5685,8 +5685,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) type(SrvD_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyInput' @@ -5716,8 +5716,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, kind=B8Ki) - UB(1:2) = ubound(InputData%BStCMotionMesh, kind=B8Ki) + LB(1:2) = lbound(InputData%BStCMotionMesh) + UB(1:2) = ubound(InputData%BStCMotionMesh) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshDestroy( InputData%BStCMotionMesh(i1,i2), ErrStat2, ErrMsg2) @@ -5727,8 +5727,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%BStCMotionMesh) end if if (allocated(InputData%NStCMotionMesh)) then - LB(1:1) = lbound(InputData%NStCMotionMesh, kind=B8Ki) - UB(1:1) = ubound(InputData%NStCMotionMesh, kind=B8Ki) + LB(1:1) = lbound(InputData%NStCMotionMesh) + UB(1:1) = ubound(InputData%NStCMotionMesh) do i1 = LB(1), UB(1) call MeshDestroy( InputData%NStCMotionMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5736,8 +5736,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%NStCMotionMesh) end if if (allocated(InputData%TStCMotionMesh)) then - LB(1:1) = lbound(InputData%TStCMotionMesh, kind=B8Ki) - UB(1:1) = ubound(InputData%TStCMotionMesh, kind=B8Ki) + LB(1:1) = lbound(InputData%TStCMotionMesh) + UB(1:1) = ubound(InputData%TStCMotionMesh) do i1 = LB(1), UB(1) call MeshDestroy( InputData%TStCMotionMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5745,8 +5745,8 @@ subroutine SrvD_DestroyInput(InputData, ErrStat, ErrMsg) deallocate(InputData%TStCMotionMesh) end if if (allocated(InputData%SStCMotionMesh)) then - LB(1:1) = lbound(InputData%SStCMotionMesh, kind=B8Ki) - UB(1:1) = ubound(InputData%SStCMotionMesh, kind=B8Ki) + LB(1:1) = lbound(InputData%SStCMotionMesh) + UB(1:1) = ubound(InputData%SStCMotionMesh) do i1 = LB(1), UB(1) call MeshDestroy( InputData%SStCMotionMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -5771,8 +5771,8 @@ subroutine SrvD_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%BlPitch) call RegPack(RF, InData%Yaw) @@ -5818,9 +5818,9 @@ subroutine SrvD_PackInput(RF, Indata) call MeshPack(RF, InData%PtfmMotionMesh) call RegPack(RF, allocated(InData%BStCMotionMesh)) if (allocated(InData%BStCMotionMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%BStCMotionMesh), ubound(InData%BStCMotionMesh)) + LB(1:2) = lbound(InData%BStCMotionMesh) + UB(1:2) = ubound(InData%BStCMotionMesh) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BStCMotionMesh(i1,i2)) @@ -5829,27 +5829,27 @@ subroutine SrvD_PackInput(RF, Indata) end if call RegPack(RF, allocated(InData%NStCMotionMesh)) if (allocated(InData%NStCMotionMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStCMotionMesh), ubound(InData%NStCMotionMesh)) + LB(1:1) = lbound(InData%NStCMotionMesh) + UB(1:1) = ubound(InData%NStCMotionMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%NStCMotionMesh(i1)) end do end if call RegPack(RF, allocated(InData%TStCMotionMesh)) if (allocated(InData%TStCMotionMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStCMotionMesh), ubound(InData%TStCMotionMesh)) + LB(1:1) = lbound(InData%TStCMotionMesh) + UB(1:1) = ubound(InData%TStCMotionMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%TStCMotionMesh(i1)) end do end if call RegPack(RF, allocated(InData%SStCMotionMesh)) if (allocated(InData%SStCMotionMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStCMotionMesh), ubound(InData%SStCMotionMesh)) + LB(1:1) = lbound(InData%SStCMotionMesh) + UB(1:1) = ubound(InData%SStCMotionMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%SStCMotionMesh(i1)) end do @@ -5865,8 +5865,8 @@ subroutine SrvD_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -5978,16 +5978,16 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -5998,8 +5998,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BlPitchCom, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BlPitchCom) + UB(1:1) = ubound(SrcOutputData%BlPitchCom) if (.not. allocated(DstOutputData%BlPitchCom)) then allocate(DstOutputData%BlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6010,8 +6010,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BlAirfoilCom, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BlAirfoilCom) + UB(1:1) = ubound(SrcOutputData%BlAirfoilCom) if (.not. allocated(DstOutputData%BlAirfoilCom)) then allocate(DstOutputData%BlAirfoilCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6028,8 +6028,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%TBDrCon, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%TBDrCon) + UB(1:1) = ubound(SrcOutputData%TBDrCon) if (.not. allocated(DstOutputData%TBDrCon)) then allocate(DstOutputData%TBDrCon(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6040,8 +6040,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM DstOutputData%TBDrCon = SrcOutputData%TBDrCon end if if (allocated(SrcOutputData%CableDeltaL)) then - LB(1:1) = lbound(SrcOutputData%CableDeltaL, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%CableDeltaL, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%CableDeltaL) + UB(1:1) = ubound(SrcOutputData%CableDeltaL) if (.not. allocated(DstOutputData%CableDeltaL)) then allocate(DstOutputData%CableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6052,8 +6052,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%CableDeltaLdot, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%CableDeltaLdot) + UB(1:1) = ubound(SrcOutputData%CableDeltaLdot) if (.not. allocated(DstOutputData%CableDeltaLdot)) then allocate(DstOutputData%CableDeltaLdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6064,8 +6064,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%BStCLoadMesh, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%BStCLoadMesh) + UB(1:2) = ubound(SrcOutputData%BStCLoadMesh) if (.not. allocated(DstOutputData%BStCLoadMesh)) then allocate(DstOutputData%BStCLoadMesh(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6082,8 +6082,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%NStCLoadMesh)) then - LB(1:1) = lbound(SrcOutputData%NStCLoadMesh, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%NStCLoadMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%NStCLoadMesh) + UB(1:1) = ubound(SrcOutputData%NStCLoadMesh) if (.not. allocated(DstOutputData%NStCLoadMesh)) then allocate(DstOutputData%NStCLoadMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6098,8 +6098,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%TStCLoadMesh)) then - LB(1:1) = lbound(SrcOutputData%TStCLoadMesh, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%TStCLoadMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%TStCLoadMesh) + UB(1:1) = ubound(SrcOutputData%TStCLoadMesh) if (.not. allocated(DstOutputData%TStCLoadMesh)) then allocate(DstOutputData%TStCLoadMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6114,8 +6114,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%SStCLoadMesh)) then - LB(1:1) = lbound(SrcOutputData%SStCLoadMesh, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%SStCLoadMesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%SStCLoadMesh) + UB(1:1) = ubound(SrcOutputData%SStCLoadMesh) if (.not. allocated(DstOutputData%SStCLoadMesh)) then allocate(DstOutputData%SStCLoadMesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6130,8 +6130,8 @@ subroutine SrvD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrM end do end if if (allocated(SrcOutputData%toSC)) then - LB(1:1) = lbound(SrcOutputData%toSC, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%toSC, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%toSC) + UB(1:1) = ubound(SrcOutputData%toSC) if (.not. allocated(DstOutputData%toSC)) then allocate(DstOutputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -6147,8 +6147,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) type(SrvD_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SrvD_DestroyOutput' @@ -6173,8 +6173,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%CableDeltaLdot) end if if (allocated(OutputData%BStCLoadMesh)) then - LB(1:2) = lbound(OutputData%BStCLoadMesh, kind=B8Ki) - UB(1:2) = ubound(OutputData%BStCLoadMesh, kind=B8Ki) + LB(1:2) = lbound(OutputData%BStCLoadMesh) + UB(1:2) = ubound(OutputData%BStCLoadMesh) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BStCLoadMesh(i1,i2), ErrStat2, ErrMsg2) @@ -6184,8 +6184,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%BStCLoadMesh) end if if (allocated(OutputData%NStCLoadMesh)) then - LB(1:1) = lbound(OutputData%NStCLoadMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%NStCLoadMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%NStCLoadMesh) + UB(1:1) = ubound(OutputData%NStCLoadMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%NStCLoadMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6193,8 +6193,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%NStCLoadMesh) end if if (allocated(OutputData%TStCLoadMesh)) then - LB(1:1) = lbound(OutputData%TStCLoadMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%TStCLoadMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%TStCLoadMesh) + UB(1:1) = ubound(OutputData%TStCLoadMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%TStCLoadMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6202,8 +6202,8 @@ subroutine SrvD_DestroyOutput(OutputData, ErrStat, ErrMsg) deallocate(OutputData%TStCLoadMesh) end if if (allocated(OutputData%SStCLoadMesh)) then - LB(1:1) = lbound(OutputData%SStCLoadMesh, kind=B8Ki) - UB(1:1) = ubound(OutputData%SStCLoadMesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%SStCLoadMesh) + UB(1:1) = ubound(OutputData%SStCLoadMesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%SStCLoadMesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -6219,8 +6219,8 @@ subroutine SrvD_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(SrvD_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'SrvD_PackOutput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%WriteOutput) call RegPackAlloc(RF, InData%BlPitchCom) @@ -6236,9 +6236,9 @@ subroutine SrvD_PackOutput(RF, Indata) call RegPackAlloc(RF, InData%CableDeltaLdot) call RegPack(RF, allocated(InData%BStCLoadMesh)) if (allocated(InData%BStCLoadMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 2, lbound(InData%BStCLoadMesh), ubound(InData%BStCLoadMesh)) + LB(1:2) = lbound(InData%BStCLoadMesh) + UB(1:2) = ubound(InData%BStCLoadMesh) do i2 = LB(2), UB(2) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BStCLoadMesh(i1,i2)) @@ -6247,27 +6247,27 @@ subroutine SrvD_PackOutput(RF, Indata) end if call RegPack(RF, allocated(InData%NStCLoadMesh)) if (allocated(InData%NStCLoadMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NStCLoadMesh), ubound(InData%NStCLoadMesh)) + LB(1:1) = lbound(InData%NStCLoadMesh) + UB(1:1) = ubound(InData%NStCLoadMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%NStCLoadMesh(i1)) end do end if call RegPack(RF, allocated(InData%TStCLoadMesh)) if (allocated(InData%TStCLoadMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%TStCLoadMesh), ubound(InData%TStCLoadMesh)) + LB(1:1) = lbound(InData%TStCLoadMesh) + UB(1:1) = ubound(InData%TStCLoadMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%TStCLoadMesh(i1)) end do end if call RegPack(RF, allocated(InData%SStCLoadMesh)) if (allocated(InData%SStCLoadMesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%SStCLoadMesh), ubound(InData%SStCLoadMesh)) + LB(1:1) = lbound(InData%SStCLoadMesh) + UB(1:1) = ubound(InData%SStCLoadMesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%SStCLoadMesh(i1)) end do @@ -6280,8 +6280,8 @@ subroutine SrvD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SrvD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SrvD_UnPackOutput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -6454,7 +6454,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, kind=B8Ki),UBOUND(u_out%BlPitch,1, kind=B8Ki) + do i1 = lbound(u_out%BlPitch,1),ubound(u_out%BlPitch,1) CALL Angles_ExtrapInterp( u1%BlPitch(i1), u2%BlPitch(i1), tin, u_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated @@ -6466,7 +6466,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, kind=B8Ki),UBOUND(u_out%ExternalBlPitchCom,1, kind=B8Ki) + do i1 = lbound(u_out%ExternalBlPitchCom,1),ubound(u_out%ExternalBlPitchCom,1) CALL Angles_ExtrapInterp( u1%ExternalBlPitchCom(i1), u2%ExternalBlPitchCom(i1), tin, u_out%ExternalBlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -6515,27 +6515,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, 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) + do i2 = lbound(u_out%BStCMotionMesh,2),ubound(u_out%BStCMotionMesh,2) + do i1 = lbound(u_out%BStCMotionMesh,1),ubound(u_out%BStCMotionMesh,1) 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, kind=B8Ki),UBOUND(u_out%NStCMotionMesh,1, kind=B8Ki) + do i1 = lbound(u_out%NStCMotionMesh,1),ubound(u_out%NStCMotionMesh,1) 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, kind=B8Ki),UBOUND(u_out%TStCMotionMesh,1, kind=B8Ki) + do i1 = lbound(u_out%TStCMotionMesh,1),ubound(u_out%TStCMotionMesh,1) 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, kind=B8Ki),UBOUND(u_out%SStCMotionMesh,1, kind=B8Ki) + do i1 = lbound(u_out%SStCMotionMesh,1),ubound(u_out%SStCMotionMesh,1) 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 @@ -6612,7 +6612,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, kind=B8Ki),UBOUND(u_out%BlPitch,1, kind=B8Ki) + do i1 = lbound(u_out%BlPitch,1),ubound(u_out%BlPitch,1) 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 @@ -6624,7 +6624,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, kind=B8Ki),UBOUND(u_out%ExternalBlPitchCom,1, kind=B8Ki) + do i1 = lbound(u_out%ExternalBlPitchCom,1),ubound(u_out%ExternalBlPitchCom,1) 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 @@ -6673,27 +6673,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, 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) + do i2 = lbound(u_out%BStCMotionMesh,2),ubound(u_out%BStCMotionMesh,2) + do i1 = lbound(u_out%BStCMotionMesh,1),ubound(u_out%BStCMotionMesh,1) 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, kind=B8Ki),UBOUND(u_out%NStCMotionMesh,1, kind=B8Ki) + do i1 = lbound(u_out%NStCMotionMesh,1),ubound(u_out%NStCMotionMesh,1) 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, kind=B8Ki),UBOUND(u_out%TStCMotionMesh,1, kind=B8Ki) + do i1 = lbound(u_out%TStCMotionMesh,1),ubound(u_out%TStCMotionMesh,1) 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, kind=B8Ki),UBOUND(u_out%SStCMotionMesh,1, kind=B8Ki) + do i1 = lbound(u_out%SStCMotionMesh,1),ubound(u_out%SStCMotionMesh,1) 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 @@ -6815,7 +6815,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, kind=B8Ki),UBOUND(y_out%BlPitchCom,1, kind=B8Ki) + do i1 = lbound(y_out%BlPitchCom,1),ubound(y_out%BlPitchCom,1) CALL Angles_ExtrapInterp( y1%BlPitchCom(i1), y2%BlPitchCom(i1), tin, y_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -6838,27 +6838,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, 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) + do i2 = lbound(y_out%BStCLoadMesh,2),ubound(y_out%BStCLoadMesh,2) + do i1 = lbound(y_out%BStCLoadMesh,1),ubound(y_out%BStCLoadMesh,1) 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, kind=B8Ki),UBOUND(y_out%NStCLoadMesh,1, kind=B8Ki) + do i1 = lbound(y_out%NStCLoadMesh,1),ubound(y_out%NStCLoadMesh,1) 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, kind=B8Ki),UBOUND(y_out%TStCLoadMesh,1, kind=B8Ki) + do i1 = lbound(y_out%TStCLoadMesh,1),ubound(y_out%TStCLoadMesh,1) 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, kind=B8Ki),UBOUND(y_out%SStCLoadMesh,1, kind=B8Ki) + do i1 = lbound(y_out%SStCLoadMesh,1),ubound(y_out%SStCLoadMesh,1) 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 @@ -6929,7 +6929,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, kind=B8Ki),UBOUND(y_out%BlPitchCom,1, kind=B8Ki) + do i1 = lbound(y_out%BlPitchCom,1),ubound(y_out%BlPitchCom,1) 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 @@ -6952,27 +6952,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, 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) + do i2 = lbound(y_out%BStCLoadMesh,2),ubound(y_out%BStCLoadMesh,2) + do i1 = lbound(y_out%BStCLoadMesh,1),ubound(y_out%BStCLoadMesh,1) 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, kind=B8Ki),UBOUND(y_out%NStCLoadMesh,1, kind=B8Ki) + do i1 = lbound(y_out%NStCLoadMesh,1),ubound(y_out%NStCLoadMesh,1) 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, kind=B8Ki),UBOUND(y_out%TStCLoadMesh,1, kind=B8Ki) + do i1 = lbound(y_out%TStCLoadMesh,1),ubound(y_out%TStCLoadMesh,1) 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, kind=B8Ki),UBOUND(y_out%SStCLoadMesh,1, kind=B8Ki) + do i1 = lbound(y_out%SStCLoadMesh,1),ubound(y_out%SStCLoadMesh,1) 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 b11f6b1805..105e73d1ac 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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcInputFileData%F_TBL, kind=B8Ki) + LB(1:2) = lbound(SrcInputFileData%F_TBL) + UB(1:2) = ubound(SrcInputFileData%F_TBL) 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, kind=B8Ki) - UB(1:2) = ubound(SrcInputFileData%StC_PrescribedForce, kind=B8Ki) + LB(1:2) = lbound(SrcInputFileData%StC_PrescribedForce) + UB(1:2) = ubound(SrcInputFileData%StC_PrescribedForce) 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%StC_CChan, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%StC_CChan) + UB(1:1) = ubound(SrcInputFileData%StC_CChan) if (.not. allocated(DstInputFileData%StC_CChan)) then allocate(DstInputFileData%StC_CChan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -458,7 +458,7 @@ subroutine StC_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInputFile' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -536,7 +536,7 @@ subroutine StC_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'StC_CopyInitInput' @@ -547,8 +547,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%InitRefPos, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%InitRefPos) + UB(1:2) = ubound(SrcInitInputData%InitRefPos) if (.not. allocated(DstInitInputData%InitRefPos)) then allocate(DstInitInputData%InitRefPos(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -559,8 +559,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitInputData%InitTransDisp, kind=B8Ki) + LB(1:2) = lbound(SrcInitInputData%InitTransDisp) + UB(1:2) = ubound(SrcInitInputData%InitTransDisp) if (.not. allocated(DstInitInputData%InitTransDisp)) then allocate(DstInitInputData%InitTransDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -571,8 +571,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%InitOrient, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%InitOrient) + UB(1:3) = ubound(SrcInitInputData%InitOrient) 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 @@ -583,8 +583,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%InitRefOrient, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%InitRefOrient) + UB(1:3) = ubound(SrcInitInputData%InitRefOrient) 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 @@ -655,7 +655,7 @@ subroutine StC_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInitInput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -679,14 +679,14 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcCtrlChanInitInfoTypeData%Requestor, kind=B8Ki) + LB(1:1) = lbound(SrcCtrlChanInitInfoTypeData%Requestor) + UB(1:1) = ubound(SrcCtrlChanInitInfoTypeData%Requestor) if (.not. allocated(DstCtrlChanInitInfoTypeData%Requestor)) then allocate(DstCtrlChanInitInfoTypeData%Requestor(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -697,8 +697,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%Requestor = SrcCtrlChanInitInfoTypeData%Requestor end if if (allocated(SrcCtrlChanInitInfoTypeData%InitStiff)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitStiff, kind=B8Ki) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitStiff, kind=B8Ki) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitStiff) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitStiff) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitStiff)) then allocate(DstCtrlChanInitInfoTypeData%InitStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -709,8 +709,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitStiff = SrcCtrlChanInitInfoTypeData%InitStiff end if if (allocated(SrcCtrlChanInitInfoTypeData%InitDamp)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitDamp, kind=B8Ki) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitDamp, kind=B8Ki) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitDamp) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitDamp) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitDamp)) then allocate(DstCtrlChanInitInfoTypeData%InitDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -721,8 +721,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitDamp = SrcCtrlChanInitInfoTypeData%InitDamp end if if (allocated(SrcCtrlChanInitInfoTypeData%InitBrake)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitBrake, kind=B8Ki) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitBrake, kind=B8Ki) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitBrake) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitBrake) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitBrake)) then allocate(DstCtrlChanInitInfoTypeData%InitBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -733,8 +733,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitBrake = SrcCtrlChanInitInfoTypeData%InitBrake end if if (allocated(SrcCtrlChanInitInfoTypeData%InitForce)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitForce, kind=B8Ki) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitForce, kind=B8Ki) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitForce) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitForce) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitForce)) then allocate(DstCtrlChanInitInfoTypeData%InitForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -745,8 +745,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitForce = SrcCtrlChanInitInfoTypeData%InitForce end if if (allocated(SrcCtrlChanInitInfoTypeData%InitMeasDisp)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasDisp, kind=B8Ki) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasDisp, kind=B8Ki) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasDisp) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasDisp) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitMeasDisp)) then allocate(DstCtrlChanInitInfoTypeData%InitMeasDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -757,8 +757,8 @@ subroutine StC_CopyCtrlChanInitInfoType(SrcCtrlChanInitInfoTypeData, DstCtrlChan DstCtrlChanInitInfoTypeData%InitMeasDisp = SrcCtrlChanInitInfoTypeData%InitMeasDisp end if if (allocated(SrcCtrlChanInitInfoTypeData%InitMeasVel)) then - LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasVel, kind=B8Ki) - UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasVel, kind=B8Ki) + LB(1:2) = lbound(SrcCtrlChanInitInfoTypeData%InitMeasVel) + UB(1:2) = ubound(SrcCtrlChanInitInfoTypeData%InitMeasVel) if (.not. allocated(DstCtrlChanInitInfoTypeData%InitMeasVel)) then allocate(DstCtrlChanInitInfoTypeData%InitMeasVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -819,7 +819,7 @@ subroutine StC_UnPackCtrlChanInitInfoType(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_CtrlChanInitInfoType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackCtrlChanInitInfoType' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -838,14 +838,14 @@ subroutine StC_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcInitOutputData%RelPosition, kind=B8Ki) + LB(1:2) = lbound(SrcInitOutputData%RelPosition) + UB(1:2) = ubound(SrcInitOutputData%RelPosition) if (.not. allocated(DstInitOutputData%RelPosition)) then allocate(DstInitOutputData%RelPosition(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -882,7 +882,7 @@ subroutine StC_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInitOutput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -895,14 +895,14 @@ subroutine StC_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcContStateData%StC_x, kind=B8Ki) + LB(1:2) = lbound(SrcContStateData%StC_x) + UB(1:2) = ubound(SrcContStateData%StC_x) 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 @@ -939,7 +939,7 @@ subroutine StC_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackContState' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1066,14 +1066,14 @@ subroutine StC_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_stop, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_stop) + UB(1:2) = ubound(SrcMiscData%F_stop) 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 @@ -1084,8 +1084,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_ext, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_ext) + UB(1:2) = ubound(SrcMiscData%F_ext) 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 @@ -1096,8 +1096,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_fr, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_fr) + UB(1:2) = ubound(SrcMiscData%F_fr) 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 @@ -1108,8 +1108,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%K, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%K) + UB(1:2) = ubound(SrcMiscData%K) if (.not. allocated(DstMiscData%K)) then allocate(DstMiscData%K(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1120,8 +1120,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%C_ctrl, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%C_ctrl) + UB(1:2) = ubound(SrcMiscData%C_ctrl) 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 @@ -1132,8 +1132,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%C_Brake, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%C_Brake) + UB(1:2) = ubound(SrcMiscData%C_Brake) 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 @@ -1144,8 +1144,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_table, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_table) + UB(1:2) = ubound(SrcMiscData%F_table) 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 @@ -1156,8 +1156,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_k, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_k) + UB(1:2) = ubound(SrcMiscData%F_k) 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 @@ -1168,8 +1168,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%a_G, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%a_G) + UB(1:2) = ubound(SrcMiscData%a_G) 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 @@ -1180,8 +1180,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%rdisp_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%rdisp_P) + UB(1:2) = ubound(SrcMiscData%rdisp_P) 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 @@ -1192,8 +1192,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%rdot_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%rdot_P) + UB(1:2) = ubound(SrcMiscData%rdot_P) 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 @@ -1204,8 +1204,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%rddot_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%rddot_P) + UB(1:2) = ubound(SrcMiscData%rddot_P) 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 @@ -1216,8 +1216,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%omega_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%omega_P) + UB(1:2) = ubound(SrcMiscData%omega_P) 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 @@ -1228,8 +1228,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%alpha_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%alpha_P) + UB(1:2) = ubound(SrcMiscData%alpha_P) 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 @@ -1240,8 +1240,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%F_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%F_P) + UB(1:2) = ubound(SrcMiscData%F_P) 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 @@ -1252,8 +1252,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%M_P, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%M_P) + UB(1:2) = ubound(SrcMiscData%M_P) 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 @@ -1264,8 +1264,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%Acc, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%Acc) + UB(1:2) = ubound(SrcMiscData%Acc) if (.not. allocated(DstMiscData%Acc)) then allocate(DstMiscData%Acc(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1368,7 +1368,7 @@ subroutine StC_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackMisc' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1398,7 +1398,7 @@ subroutine StC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'StC_CopyParam' ErrStat = ErrID_None @@ -1450,8 +1450,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%F_TBL, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%F_TBL) + UB(1:2) = ubound(SrcParamData%F_TBL) 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 @@ -1464,8 +1464,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%StC_PrescribedForce, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%StC_PrescribedForce) + UB(1:2) = ubound(SrcParamData%StC_PrescribedForce) 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 @@ -1476,8 +1476,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%StC_CChan, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%StC_CChan) + UB(1:1) = ubound(SrcParamData%StC_CChan) if (.not. allocated(DstParamData%StC_CChan)) then allocate(DstParamData%StC_CChan(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1570,7 +1570,7 @@ subroutine StC_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackParam' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1633,16 +1633,16 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%Mesh, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%Mesh) + UB(1:1) = ubound(SrcInputData%Mesh) if (.not. allocated(DstInputData%Mesh)) then allocate(DstInputData%Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1657,8 +1657,8 @@ subroutine StC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcInputData%CmdStiff)) then - LB(1:2) = lbound(SrcInputData%CmdStiff, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%CmdStiff, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%CmdStiff) + UB(1:2) = ubound(SrcInputData%CmdStiff) if (.not. allocated(DstInputData%CmdStiff)) then allocate(DstInputData%CmdStiff(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1669,8 +1669,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%CmdDamp, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%CmdDamp) + UB(1:2) = ubound(SrcInputData%CmdDamp) if (.not. allocated(DstInputData%CmdDamp)) then allocate(DstInputData%CmdDamp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1681,8 +1681,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%CmdBrake, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%CmdBrake) + UB(1:2) = ubound(SrcInputData%CmdBrake) if (.not. allocated(DstInputData%CmdBrake)) then allocate(DstInputData%CmdBrake(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1693,8 +1693,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%CmdForce, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%CmdForce) + UB(1:2) = ubound(SrcInputData%CmdForce) if (.not. allocated(DstInputData%CmdForce)) then allocate(DstInputData%CmdForce(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1710,16 +1710,16 @@ subroutine StC_DestroyInput(InputData, ErrStat, ErrMsg) type(StC_InputType), intent(inout) :: InputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(InputData%Mesh, kind=B8Ki) + LB(1:1) = lbound(InputData%Mesh) + UB(1:1) = ubound(InputData%Mesh) do i1 = LB(1), UB(1) call MeshDestroy( InputData%Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1744,14 +1744,14 @@ subroutine StC_PackInput(RF, Indata) type(RegFile), intent(inout) :: RF type(StC_InputType), intent(in) :: InData character(*), parameter :: RoutineName = 'StC_PackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%Mesh)) if (allocated(InData%Mesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Mesh), ubound(InData%Mesh)) + LB(1:1) = lbound(InData%Mesh) + UB(1:1) = ubound(InData%Mesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%Mesh(i1)) end do @@ -1767,8 +1767,8 @@ subroutine StC_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackInput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1797,16 +1797,16 @@ subroutine StC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%Mesh, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%Mesh) + UB(1:1) = ubound(SrcOutputData%Mesh) if (.not. allocated(DstOutputData%Mesh)) then allocate(DstOutputData%Mesh(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1821,8 +1821,8 @@ subroutine StC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs end do end if if (allocated(SrcOutputData%MeasDisp)) then - LB(1:2) = lbound(SrcOutputData%MeasDisp, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%MeasDisp, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%MeasDisp) + UB(1:2) = ubound(SrcOutputData%MeasDisp) if (.not. allocated(DstOutputData%MeasDisp)) then allocate(DstOutputData%MeasDisp(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1833,8 +1833,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%MeasVel, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%MeasVel) + UB(1:2) = ubound(SrcOutputData%MeasVel) if (.not. allocated(DstOutputData%MeasVel)) then allocate(DstOutputData%MeasVel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1850,16 +1850,16 @@ subroutine StC_DestroyOutput(OutputData, ErrStat, ErrMsg) type(StC_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OutputData%Mesh, kind=B8Ki) + LB(1:1) = lbound(OutputData%Mesh) + UB(1:1) = ubound(OutputData%Mesh) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%Mesh(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1878,14 +1878,14 @@ subroutine StC_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(StC_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'StC_PackOutput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%Mesh)) if (allocated(InData%Mesh)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%Mesh), ubound(InData%Mesh)) + LB(1:1) = lbound(InData%Mesh) + UB(1:1) = ubound(InData%Mesh) do i1 = LB(1), UB(1) call MeshPack(RF, InData%Mesh(i1)) end do @@ -1899,8 +1899,8 @@ subroutine StC_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(StC_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'StC_UnPackOutput' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2021,7 +2021,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, kind=B8Ki),UBOUND(u_out%Mesh,1, kind=B8Ki) + do i1 = lbound(u_out%Mesh,1),ubound(u_out%Mesh,1) 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 @@ -2098,7 +2098,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, kind=B8Ki),UBOUND(u_out%Mesh,1, kind=B8Ki) + do i1 = lbound(u_out%Mesh,1),ubound(u_out%Mesh,1) 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 @@ -2217,7 +2217,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, kind=B8Ki),UBOUND(y_out%Mesh,1, kind=B8Ki) + do i1 = lbound(y_out%Mesh,1),ubound(y_out%Mesh,1) 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 @@ -2288,7 +2288,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, kind=B8Ki),UBOUND(y_out%Mesh,1, kind=B8Ki) + do i1 = lbound(y_out%Mesh,1),ubound(y_out%Mesh,1) 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/simple-elastodyn/src/SED_Types.f90 b/modules/simple-elastodyn/src/SED_Types.f90 index e0ce34c480..e5b3e3ddf1 100644 --- a/modules/simple-elastodyn/src/SED_Types.f90 +++ b/modules/simple-elastodyn/src/SED_Types.f90 @@ -188,7 +188,7 @@ subroutine SED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SED_CopyInputFile' ErrStat = ErrID_None @@ -217,8 +217,8 @@ subroutine SED_CopyInputFile(SrcInputFileData, DstInputFileData, CtrlCode, ErrSt DstInputFileData%SumPrint = SrcInputFileData%SumPrint DstInputFileData%NumOuts = SrcInputFileData%NumOuts if (allocated(SrcInputFileData%OutList)) then - LB(1:1) = lbound(SrcInputFileData%OutList, kind=B8Ki) - UB(1:1) = ubound(SrcInputFileData%OutList, kind=B8Ki) + LB(1:1) = lbound(SrcInputFileData%OutList) + UB(1:1) = ubound(SrcInputFileData%OutList) if (.not. allocated(DstInputFileData%OutList)) then allocate(DstInputFileData%OutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -278,7 +278,7 @@ subroutine SED_UnPackInputFile(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_InputFile), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackInputFile' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -372,15 +372,15 @@ subroutine SED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_CopyInitOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcInitOutputData%WriteOutputHdr)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -391,8 +391,8 @@ subroutine SED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er DstInitOutputData%WriteOutputHdr = SrcInitOutputData%WriteOutputHdr end if if (allocated(SrcInitOutputData%WriteOutputUnt)) then - LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -407,8 +407,8 @@ subroutine SED_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Er if (ErrStat >= AbortErrLev) return DstInitOutputData%NumBl = SrcInitOutputData%NumBl if (allocated(SrcInitOutputData%BlPitch)) then - LB(1:1) = lbound(SrcInitOutputData%BlPitch, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%BlPitch, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%BlPitch) + UB(1:1) = ubound(SrcInitOutputData%BlPitch) if (.not. allocated(DstInitOutputData%BlPitch)) then allocate(DstInitOutputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -473,7 +473,7 @@ subroutine SED_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -497,7 +497,7 @@ subroutine SED_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_CopyInput' @@ -509,8 +509,8 @@ subroutine SED_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) DstInputData%HSSBrTrqC = SrcInputData%HSSBrTrqC DstInputData%GenTrq = SrcInputData%GenTrq if (allocated(SrcInputData%BlPitchCom)) then - LB(1:1) = lbound(SrcInputData%BlPitchCom, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%BlPitchCom, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%BlPitchCom) + UB(1:1) = ubound(SrcInputData%BlPitchCom) if (.not. allocated(DstInputData%BlPitchCom)) then allocate(DstInputData%BlPitchCom(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -558,7 +558,7 @@ subroutine SED_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -576,16 +576,16 @@ subroutine SED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_CopyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcOutputData%BladeRootMotion)) then - LB(1:1) = lbound(SrcOutputData%BladeRootMotion, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BladeRootMotion) + UB(1:1) = ubound(SrcOutputData%BladeRootMotion) if (.not. allocated(DstOutputData%BladeRootMotion)) then allocate(DstOutputData%BladeRootMotion(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -619,8 +619,8 @@ subroutine SED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%Yaw = SrcOutputData%Yaw DstOutputData%YawRate = SrcOutputData%YawRate if (allocated(SrcOutputData%BlPitch)) then - LB(1:1) = lbound(SrcOutputData%BlPitch, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%BlPitch, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%BlPitch) + UB(1:1) = ubound(SrcOutputData%BlPitch) if (.not. allocated(DstOutputData%BlPitch)) then allocate(DstOutputData%BlPitch(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -631,8 +631,8 @@ subroutine SED_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMs DstOutputData%BlPitch = SrcOutputData%BlPitch end if if (allocated(SrcOutputData%WriteOutput)) then - LB(1:1) = lbound(SrcOutputData%WriteOutput, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -648,16 +648,16 @@ subroutine SED_DestroyOutput(OutputData, ErrStat, ErrMsg) type(SED_OutputType), intent(inout) :: OutputData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_DestroyOutput' ErrStat = ErrID_None ErrMsg = '' if (allocated(OutputData%BladeRootMotion)) then - LB(1:1) = lbound(OutputData%BladeRootMotion, kind=B8Ki) - UB(1:1) = ubound(OutputData%BladeRootMotion, kind=B8Ki) + LB(1:1) = lbound(OutputData%BladeRootMotion) + UB(1:1) = ubound(OutputData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshDestroy( OutputData%BladeRootMotion(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -684,14 +684,14 @@ subroutine SED_PackOutput(RF, Indata) type(RegFile), intent(inout) :: RF type(SED_OutputType), intent(in) :: InData character(*), parameter :: RoutineName = 'SED_PackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%BladeRootMotion)) if (allocated(InData%BladeRootMotion)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%BladeRootMotion), ubound(InData%BladeRootMotion)) + LB(1:1) = lbound(InData%BladeRootMotion) + UB(1:1) = ubound(InData%BladeRootMotion) do i1 = LB(1), UB(1) call MeshPack(RF, InData%BladeRootMotion(i1)) end do @@ -716,8 +716,8 @@ subroutine SED_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackOutput' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -755,14 +755,14 @@ subroutine SED_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SED_CopyContState' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcContStateData%QT)) then - LB(1:1) = lbound(SrcContStateData%QT, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%QT, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%QT) + UB(1:1) = ubound(SrcContStateData%QT) if (.not. allocated(DstContStateData%QT)) then allocate(DstContStateData%QT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -773,8 +773,8 @@ subroutine SED_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSt DstContStateData%QT = SrcContStateData%QT end if if (allocated(SrcContStateData%QDT)) then - LB(1:1) = lbound(SrcContStateData%QDT, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%QDT, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%QDT) + UB(1:1) = ubound(SrcContStateData%QDT) if (.not. allocated(DstContStateData%QDT)) then allocate(DstContStateData%QDT(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -815,7 +815,7 @@ subroutine SED_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -905,16 +905,16 @@ subroutine SED_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Er integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_CopyOtherState' ErrStat = ErrID_None ErrMsg = '' DstOtherStateData%n = SrcOtherStateData%n - LB(1:1) = lbound(SrcOtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) do i1 = LB(1), UB(1) call SED_CopyContState(SrcOtherStateData%xdot(i1), DstOtherStateData%xdot(i1), CtrlCode, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -931,15 +931,15 @@ subroutine SED_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SED_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_DestroyOtherState' ErrStat = ErrID_None ErrMsg = '' - LB(1:1) = lbound(OtherStateData%xdot, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call SED_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -950,12 +950,12 @@ subroutine SED_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(SED_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SED_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%n) - LB(1:1) = lbound(InData%xdot, kind=B8Ki) - UB(1:1) = ubound(InData%xdot, kind=B8Ki) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call SED_PackContState(RF, InData%xdot(i1)) end do @@ -971,12 +971,12 @@ subroutine SED_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat /= ErrID_None) return call RegUnpack(RF, OutData%n); if (RegCheckErr(RF, RoutineName)) return - LB(1:1) = lbound(OutData%xdot, kind=B8Ki) - UB(1:1) = ubound(OutData%xdot, kind=B8Ki) + LB(1:1) = lbound(OutData%xdot) + UB(1:1) = ubound(OutData%xdot) do i1 = LB(1), UB(1) call SED_UnpackContState(RF, OutData%xdot(i1)) ! xdot end do @@ -993,8 +993,8 @@ subroutine SED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_CopyParam' @@ -1025,8 +1025,8 @@ subroutine SED_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%HubHt = SrcParamData%HubHt DstParamData%NumOuts = SrcParamData%NumOuts if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1046,16 +1046,16 @@ subroutine SED_DestroyParam(ParamData, ErrStat, ErrMsg) type(SED_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_DestroyParam' ErrStat = ErrID_None ErrMsg = '' if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1068,8 +1068,8 @@ subroutine SED_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(SED_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SED_PackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%RootName) call RegPack(RF, InData%GenDOF) @@ -1097,9 +1097,9 @@ subroutine SED_PackParam(RF, Indata) call RegPack(RF, InData%NumOuts) call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -1111,8 +1111,8 @@ subroutine SED_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackParam' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1161,16 +1161,16 @@ subroutine SED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_CopyMisc' ErrStat = ErrID_None ErrMsg = '' if (allocated(SrcMiscData%AllOuts)) then - LB(1:1) = lbound(SrcMiscData%AllOuts, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1184,8 +1184,8 @@ subroutine SED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (ErrStat >= AbortErrLev) return if (allocated(SrcMiscData%mapHub2Root)) then - LB(1:1) = lbound(SrcMiscData%mapHub2Root, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%mapHub2Root, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%mapHub2Root) + UB(1:1) = ubound(SrcMiscData%mapHub2Root) if (.not. allocated(DstMiscData%mapHub2Root)) then allocate(DstMiscData%mapHub2Root(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1200,8 +1200,8 @@ subroutine SED_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcMiscData%QD2T)) then - LB(1:1) = lbound(SrcMiscData%QD2T, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%QD2T, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%QD2T) + UB(1:1) = ubound(SrcMiscData%QD2T) if (.not. allocated(DstMiscData%QD2T)) then allocate(DstMiscData%QD2T(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1218,8 +1218,8 @@ subroutine SED_DestroyMisc(MiscData, ErrStat, ErrMsg) type(SED_MiscVarType), intent(inout) :: MiscData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SED_DestroyMisc' @@ -1231,8 +1231,8 @@ subroutine SED_DestroyMisc(MiscData, ErrStat, ErrMsg) call NWTC_Library_DestroyMeshMapType(MiscData%mapNac2Hub, ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) if (allocated(MiscData%mapHub2Root)) then - LB(1:1) = lbound(MiscData%mapHub2Root, kind=B8Ki) - UB(1:1) = ubound(MiscData%mapHub2Root, kind=B8Ki) + LB(1:1) = lbound(MiscData%mapHub2Root) + UB(1:1) = ubound(MiscData%mapHub2Root) do i1 = LB(1), UB(1) call NWTC_Library_DestroyMeshMapType(MiscData%mapHub2Root(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -1248,16 +1248,16 @@ subroutine SED_PackMisc(RF, Indata) type(RegFile), intent(inout) :: RF type(SED_MiscVarType), intent(in) :: InData character(*), parameter :: RoutineName = 'SED_PackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPackAlloc(RF, InData%AllOuts) call NWTC_Library_PackMeshMapType(RF, InData%mapNac2Hub) call RegPack(RF, allocated(InData%mapHub2Root)) if (allocated(InData%mapHub2Root)) then - call RegPackBounds(RF, 1, lbound(InData%mapHub2Root, kind=B8Ki), ubound(InData%mapHub2Root, kind=B8Ki)) - LB(1:1) = lbound(InData%mapHub2Root, kind=B8Ki) - UB(1:1) = ubound(InData%mapHub2Root, kind=B8Ki) + call RegPackBounds(RF, 1, lbound(InData%mapHub2Root), ubound(InData%mapHub2Root)) + LB(1:1) = lbound(InData%mapHub2Root) + UB(1:1) = ubound(InData%mapHub2Root) do i1 = LB(1), UB(1) call NWTC_Library_PackMeshMapType(RF, InData%mapHub2Root(i1)) end do @@ -1271,8 +1271,8 @@ subroutine SED_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(SED_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SED_UnPackMisc' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1397,7 +1397,7 @@ SUBROUTINE SED_Input_ExtrapInterp1(u1, u2, tin, u_out, tin_out, ErrStat, ErrMsg u_out%HSSBrTrqC = a1*u1%HSSBrTrqC + a2*u2%HSSBrTrqC u_out%GenTrq = a1*u1%GenTrq + a2*u2%GenTrq IF (ALLOCATED(u_out%BlPitchCom) .AND. ALLOCATED(u1%BlPitchCom)) THEN - DO i1 = LBOUND(u_out%BlPitchCom,1, kind=B8Ki),UBOUND(u_out%BlPitchCom,1, kind=B8Ki) + do i1 = lbound(u_out%BlPitchCom,1),ubound(u_out%BlPitchCom,1) CALL Angles_ExtrapInterp( u1%BlPitchCom(i1), u2%BlPitchCom(i1), tin, u_out%BlPitchCom(i1), tin_out ) END DO END IF ! check if allocated @@ -1465,7 +1465,7 @@ SUBROUTINE SED_Input_ExtrapInterp2(u1, u2, u3, tin, u_out, tin_out, ErrStat, Err u_out%HSSBrTrqC = a1*u1%HSSBrTrqC + a2*u2%HSSBrTrqC + a3*u3%HSSBrTrqC u_out%GenTrq = a1*u1%GenTrq + a2*u2%GenTrq + a3*u3%GenTrq IF (ALLOCATED(u_out%BlPitchCom) .AND. ALLOCATED(u1%BlPitchCom)) THEN - DO i1 = LBOUND(u_out%BlPitchCom,1, kind=B8Ki),UBOUND(u_out%BlPitchCom,1, kind=B8Ki) + do i1 = lbound(u_out%BlPitchCom,1),ubound(u_out%BlPitchCom,1) 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 @@ -1571,7 +1571,7 @@ SUBROUTINE SED_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg a2 = t_out/t(2) IF (ALLOCATED(y_out%BladeRootMotion) .AND. ALLOCATED(y1%BladeRootMotion)) THEN - DO i1 = LBOUND(y_out%BladeRootMotion,1, kind=B8Ki),UBOUND(y_out%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(y_out%BladeRootMotion,1),ubound(y_out%BladeRootMotion,1) 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 @@ -1592,7 +1592,7 @@ SUBROUTINE SED_Output_ExtrapInterp1(y1, y2, tin, y_out, tin_out, ErrStat, ErrMsg y_out%Yaw = a1*y1%Yaw + a2*y2%Yaw y_out%YawRate = a1*y1%YawRate + a2*y2%YawRate IF (ALLOCATED(y_out%BlPitch) .AND. ALLOCATED(y1%BlPitch)) THEN - DO i1 = LBOUND(y_out%BlPitch,1, kind=B8Ki),UBOUND(y_out%BlPitch,1, kind=B8Ki) + do i1 = lbound(y_out%BlPitch,1),ubound(y_out%BlPitch,1) CALL Angles_ExtrapInterp( y1%BlPitch(i1), y2%BlPitch(i1), tin, y_out%BlPitch(i1), tin_out ) END DO END IF ! check if allocated @@ -1657,7 +1657,7 @@ SUBROUTINE SED_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%BladeRootMotion) .AND. ALLOCATED(y1%BladeRootMotion)) THEN - DO i1 = LBOUND(y_out%BladeRootMotion,1, kind=B8Ki),UBOUND(y_out%BladeRootMotion,1, kind=B8Ki) + do i1 = lbound(y_out%BladeRootMotion,1),ubound(y_out%BladeRootMotion,1) 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 @@ -1678,7 +1678,7 @@ SUBROUTINE SED_Output_ExtrapInterp2(y1, y2, y3, tin, y_out, tin_out, ErrStat, Er y_out%Yaw = a1*y1%Yaw + a2*y2%Yaw + a3*y3%Yaw y_out%YawRate = a1*y1%YawRate + a2*y2%YawRate + a3*y3%YawRate IF (ALLOCATED(y_out%BlPitch) .AND. ALLOCATED(y1%BlPitch)) THEN - DO i1 = LBOUND(y_out%BlPitch,1, kind=B8Ki),UBOUND(y_out%BlPitch,1, kind=B8Ki) + do i1 = lbound(y_out%BlPitch,1),ubound(y_out%BlPitch,1) 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/subdyn/src/SubDyn_Types.f90 b/modules/subdyn/src/SubDyn_Types.f90 index c24237f6b9..6a539f1ab2 100644 --- a/modules/subdyn/src/SubDyn_Types.f90 +++ b/modules/subdyn/src/SubDyn_Types.f90 @@ -381,14 +381,14 @@ subroutine SD_CopyIList(SrcIListData, DstIListData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcIListData%List, kind=B8Ki) + LB(1:1) = lbound(SrcIListData%List) + UB(1:1) = ubound(SrcIListData%List) if (.not. allocated(DstIListData%List)) then allocate(DstIListData%List(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -425,7 +425,7 @@ subroutine SD_UnPackIList(RF, OutData) type(RegFile), intent(inout) :: RF type(IList), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackIList' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -438,7 +438,7 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyMeshAuxDataType' ErrStat = ErrID_None @@ -446,8 +446,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, kind=B8Ki) - UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeCnt, kind=B8Ki) + LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeCnt) + UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeCnt) if (.not. allocated(DstMeshAuxDataTypeData%NodeCnt)) then allocate(DstMeshAuxDataTypeData%NodeCnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -458,8 +458,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%NodeCnt = SrcMeshAuxDataTypeData%NodeCnt end if if (allocated(SrcMeshAuxDataTypeData%NodeIDs)) then - LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeIDs, kind=B8Ki) - UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeIDs, kind=B8Ki) + LB(1:1) = lbound(SrcMeshAuxDataTypeData%NodeIDs) + UB(1:1) = ubound(SrcMeshAuxDataTypeData%NodeIDs) if (.not. allocated(DstMeshAuxDataTypeData%NodeIDs)) then allocate(DstMeshAuxDataTypeData%NodeIDs(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -470,8 +470,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%NodeIDs = SrcMeshAuxDataTypeData%NodeIDs end if if (allocated(SrcMeshAuxDataTypeData%ElmIDs)) then - LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmIDs, kind=B8Ki) - UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmIDs, kind=B8Ki) + LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmIDs) + UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmIDs) if (.not. allocated(DstMeshAuxDataTypeData%ElmIDs)) then allocate(DstMeshAuxDataTypeData%ElmIDs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -482,8 +482,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%ElmIDs = SrcMeshAuxDataTypeData%ElmIDs end if if (allocated(SrcMeshAuxDataTypeData%ElmNds)) then - LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmNds, kind=B8Ki) - UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmNds, kind=B8Ki) + LB(1:2) = lbound(SrcMeshAuxDataTypeData%ElmNds) + UB(1:2) = ubound(SrcMeshAuxDataTypeData%ElmNds) if (.not. allocated(DstMeshAuxDataTypeData%ElmNds)) then allocate(DstMeshAuxDataTypeData%ElmNds(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -494,8 +494,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%ElmNds = SrcMeshAuxDataTypeData%ElmNds end if if (allocated(SrcMeshAuxDataTypeData%Me)) then - LB(1:4) = lbound(SrcMeshAuxDataTypeData%Me, kind=B8Ki) - UB(1:4) = ubound(SrcMeshAuxDataTypeData%Me, kind=B8Ki) + LB(1:4) = lbound(SrcMeshAuxDataTypeData%Me) + UB(1:4) = ubound(SrcMeshAuxDataTypeData%Me) 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 @@ -506,8 +506,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%Me = SrcMeshAuxDataTypeData%Me end if if (allocated(SrcMeshAuxDataTypeData%Ke)) then - LB(1:4) = lbound(SrcMeshAuxDataTypeData%Ke, kind=B8Ki) - UB(1:4) = ubound(SrcMeshAuxDataTypeData%Ke, kind=B8Ki) + LB(1:4) = lbound(SrcMeshAuxDataTypeData%Ke) + UB(1:4) = ubound(SrcMeshAuxDataTypeData%Ke) 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 @@ -518,8 +518,8 @@ subroutine SD_CopyMeshAuxDataType(SrcMeshAuxDataTypeData, DstMeshAuxDataTypeData DstMeshAuxDataTypeData%Ke = SrcMeshAuxDataTypeData%Ke end if if (allocated(SrcMeshAuxDataTypeData%Fg)) then - LB(1:3) = lbound(SrcMeshAuxDataTypeData%Fg, kind=B8Ki) - UB(1:3) = ubound(SrcMeshAuxDataTypeData%Fg, kind=B8Ki) + LB(1:3) = lbound(SrcMeshAuxDataTypeData%Fg) + UB(1:3) = ubound(SrcMeshAuxDataTypeData%Fg) 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 @@ -582,7 +582,7 @@ subroutine SD_UnPackMeshAuxDataType(RF, OutData) type(RegFile), intent(inout) :: RF type(MeshAuxDataType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackMeshAuxDataType' - integer(B8Ki) :: LB(4), UB(4) + integer(B4Ki) :: LB(4), UB(4) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -603,14 +603,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(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcCB_MatArraysData%MBB, kind=B8Ki) + LB(1:2) = lbound(SrcCB_MatArraysData%MBB) + UB(1:2) = ubound(SrcCB_MatArraysData%MBB) 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 @@ -621,8 +621,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, kind=B8Ki) - UB(1:2) = ubound(SrcCB_MatArraysData%MBM, kind=B8Ki) + LB(1:2) = lbound(SrcCB_MatArraysData%MBM) + UB(1:2) = ubound(SrcCB_MatArraysData%MBM) 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 @@ -633,8 +633,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, kind=B8Ki) - UB(1:2) = ubound(SrcCB_MatArraysData%KBB, kind=B8Ki) + LB(1:2) = lbound(SrcCB_MatArraysData%KBB) + UB(1:2) = ubound(SrcCB_MatArraysData%KBB) 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 @@ -645,8 +645,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, kind=B8Ki) - UB(1:2) = ubound(SrcCB_MatArraysData%PhiL, kind=B8Ki) + LB(1:2) = lbound(SrcCB_MatArraysData%PhiL) + UB(1:2) = ubound(SrcCB_MatArraysData%PhiL) 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 @@ -657,8 +657,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, kind=B8Ki) - UB(1:2) = ubound(SrcCB_MatArraysData%PhiR, kind=B8Ki) + LB(1:2) = lbound(SrcCB_MatArraysData%PhiR) + UB(1:2) = ubound(SrcCB_MatArraysData%PhiR) 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 @@ -669,8 +669,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, kind=B8Ki) - UB(1:1) = ubound(SrcCB_MatArraysData%OmegaL, kind=B8Ki) + LB(1:1) = lbound(SrcCB_MatArraysData%OmegaL) + UB(1:1) = ubound(SrcCB_MatArraysData%OmegaL) if (.not. allocated(DstCB_MatArraysData%OmegaL)) then allocate(DstCB_MatArraysData%OmegaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -727,7 +727,7 @@ subroutine SD_UnPackCB_MatArrays(RF, OutData) type(RegFile), intent(inout) :: RF type(CB_MatArrays), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackCB_MatArrays' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -888,7 +888,7 @@ subroutine SD_CopyInitInput(SrcInitInputData, DstInitInputData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyInitInput' @@ -901,8 +901,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitInputData%SoilStiffness, kind=B8Ki) + LB(1:3) = lbound(SrcInitInputData%SoilStiffness) + UB(1:3) = ubound(SrcInitInputData%SoilStiffness) 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 @@ -955,7 +955,7 @@ subroutine SD_UnPackInitInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_InitInputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInitInput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -976,15 +976,15 @@ subroutine SD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -995,8 +995,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1010,8 +1010,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_y) + UB(1:1) = ubound(SrcInitOutputData%LinNames_y) if (.not. allocated(DstInitOutputData%LinNames_y)) then allocate(DstInitOutputData%LinNames_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1022,8 +1022,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_x) + UB(1:1) = ubound(SrcInitOutputData%LinNames_x) if (.not. allocated(DstInitOutputData%LinNames_x)) then allocate(DstInitOutputData%LinNames_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1034,8 +1034,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%LinNames_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%LinNames_u) + UB(1:1) = ubound(SrcInitOutputData%LinNames_u) if (.not. allocated(DstInitOutputData%LinNames_u)) then allocate(DstInitOutputData%LinNames_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1046,8 +1046,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_y, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_y) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_y) if (.not. allocated(DstInitOutputData%RotFrame_y)) then allocate(DstInitOutputData%RotFrame_y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1058,8 +1058,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_x) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_x) if (.not. allocated(DstInitOutputData%RotFrame_x)) then allocate(DstInitOutputData%RotFrame_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1070,8 +1070,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%RotFrame_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%RotFrame_u) + UB(1:1) = ubound(SrcInitOutputData%RotFrame_u) if (.not. allocated(DstInitOutputData%RotFrame_u)) then allocate(DstInitOutputData%RotFrame_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1082,8 +1082,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%IsLoad_u, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%IsLoad_u) + UB(1:1) = ubound(SrcInitOutputData%IsLoad_u) if (.not. allocated(DstInitOutputData%IsLoad_u)) then allocate(DstInitOutputData%IsLoad_u(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1094,8 +1094,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%DerivOrder_x) + UB(1:1) = ubound(SrcInitOutputData%DerivOrder_x) if (.not. allocated(DstInitOutputData%DerivOrder_x)) then allocate(DstInitOutputData%DerivOrder_x(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1106,8 +1106,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%CableCChanRqst) + UB(1:1) = ubound(SrcInitOutputData%CableCChanRqst) if (.not. allocated(DstInitOutputData%CableCChanRqst)) then allocate(DstInitOutputData%CableCChanRqst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1189,7 +1189,7 @@ subroutine SD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1213,7 +1213,7 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'SD_CopyInitType' ErrStat = ErrID_None @@ -1235,8 +1235,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%Joints, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%Joints) + UB(1:2) = ubound(SrcInitTypeData%Joints) if (.not. allocated(DstInitTypeData%Joints)) then allocate(DstInitTypeData%Joints(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1247,8 +1247,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropSetsB, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropSetsB) + UB(1:2) = ubound(SrcInitTypeData%PropSetsB) if (.not. allocated(DstInitTypeData%PropSetsB)) then allocate(DstInitTypeData%PropSetsB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1259,8 +1259,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropSetsC, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropSetsC) + UB(1:2) = ubound(SrcInitTypeData%PropSetsC) if (.not. allocated(DstInitTypeData%PropSetsC)) then allocate(DstInitTypeData%PropSetsC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1271,8 +1271,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropSetsR, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropSetsR) + UB(1:2) = ubound(SrcInitTypeData%PropSetsR) if (.not. allocated(DstInitTypeData%PropSetsR)) then allocate(DstInitTypeData%PropSetsR(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1283,8 +1283,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropSetsR = SrcInitTypeData%PropSetsR end if if (allocated(SrcInitTypeData%PropSetsS)) then - LB(1:2) = lbound(SrcInitTypeData%PropSetsS, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropSetsS, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropSetsS) + UB(1:2) = ubound(SrcInitTypeData%PropSetsS) if (.not. allocated(DstInitTypeData%PropSetsS)) then allocate(DstInitTypeData%PropSetsS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1295,8 +1295,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropSetsS = SrcInitTypeData%PropSetsS end if if (allocated(SrcInitTypeData%PropSetsX)) then - LB(1:2) = lbound(SrcInitTypeData%PropSetsX, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropSetsX, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropSetsX) + UB(1:2) = ubound(SrcInitTypeData%PropSetsX) if (.not. allocated(DstInitTypeData%PropSetsX)) then allocate(DstInitTypeData%PropSetsX(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1307,8 +1307,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%COSMs, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%COSMs) + UB(1:2) = ubound(SrcInitTypeData%COSMs) if (.not. allocated(DstInitTypeData%COSMs)) then allocate(DstInitTypeData%COSMs(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1319,8 +1319,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%CMass, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%CMass) + UB(1:2) = ubound(SrcInitTypeData%CMass) if (.not. allocated(DstInitTypeData%CMass)) then allocate(DstInitTypeData%CMass(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1331,8 +1331,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitTypeData%JDampings, kind=B8Ki) + LB(1:1) = lbound(SrcInitTypeData%JDampings) + UB(1:1) = ubound(SrcInitTypeData%JDampings) if (.not. allocated(DstInitTypeData%JDampings)) then allocate(DstInitTypeData%JDampings(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1346,8 +1346,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%Members, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%Members) + UB(1:2) = ubound(SrcInitTypeData%Members) if (.not. allocated(DstInitTypeData%Members)) then allocate(DstInitTypeData%Members(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1358,8 +1358,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitTypeData%SSOutList, kind=B8Ki) + LB(1:1) = lbound(SrcInitTypeData%SSOutList) + UB(1:1) = ubound(SrcInitTypeData%SSOutList) if (.not. allocated(DstInitTypeData%SSOutList)) then allocate(DstInitTypeData%SSOutList(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1372,8 +1372,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%SSIK, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%SSIK) + UB(1:2) = ubound(SrcInitTypeData%SSIK) if (.not. allocated(DstInitTypeData%SSIK)) then allocate(DstInitTypeData%SSIK(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1384,8 +1384,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%SSIM, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%SSIM) + UB(1:2) = ubound(SrcInitTypeData%SSIM) if (.not. allocated(DstInitTypeData%SSIM)) then allocate(DstInitTypeData%SSIM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1396,8 +1396,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitTypeData%SSIfile, kind=B8Ki) + LB(1:1) = lbound(SrcInitTypeData%SSIfile) + UB(1:1) = ubound(SrcInitTypeData%SSIfile) if (.not. allocated(DstInitTypeData%SSIfile)) then allocate(DstInitTypeData%SSIfile(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1408,8 +1408,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, kind=B8Ki) - UB(1:3) = ubound(SrcInitTypeData%Soil_K, kind=B8Ki) + LB(1:3) = lbound(SrcInitTypeData%Soil_K) + UB(1:3) = ubound(SrcInitTypeData%Soil_K) 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 @@ -1420,8 +1420,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%Soil_Points, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%Soil_Points) + UB(1:2) = ubound(SrcInitTypeData%Soil_Points) 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 @@ -1432,8 +1432,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitTypeData%Soil_Nodes, kind=B8Ki) + LB(1:1) = lbound(SrcInitTypeData%Soil_Nodes) + UB(1:1) = ubound(SrcInitTypeData%Soil_Nodes) if (.not. allocated(DstInitTypeData%Soil_Nodes)) then allocate(DstInitTypeData%Soil_Nodes(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1449,8 +1449,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%NPropR = SrcInitTypeData%NPropR DstInitTypeData%NPropS = SrcInitTypeData%NPropS if (allocated(SrcInitTypeData%Nodes)) then - LB(1:2) = lbound(SrcInitTypeData%Nodes, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%Nodes, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%Nodes) + UB(1:2) = ubound(SrcInitTypeData%Nodes) if (.not. allocated(DstInitTypeData%Nodes)) then allocate(DstInitTypeData%Nodes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1461,8 +1461,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropsB, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropsB) + UB(1:2) = ubound(SrcInitTypeData%PropsB) if (.not. allocated(DstInitTypeData%PropsB)) then allocate(DstInitTypeData%PropsB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1473,8 +1473,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropsC, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropsC) + UB(1:2) = ubound(SrcInitTypeData%PropsC) if (.not. allocated(DstInitTypeData%PropsC)) then allocate(DstInitTypeData%PropsC(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1485,8 +1485,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropsR, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropsR) + UB(1:2) = ubound(SrcInitTypeData%PropsR) if (.not. allocated(DstInitTypeData%PropsR)) then allocate(DstInitTypeData%PropsR(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1497,8 +1497,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropsR = SrcInitTypeData%PropsR end if if (allocated(SrcInitTypeData%PropsS)) then - LB(1:2) = lbound(SrcInitTypeData%PropsS, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%PropsS, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%PropsS) + UB(1:2) = ubound(SrcInitTypeData%PropsS) if (.not. allocated(DstInitTypeData%PropsS)) then allocate(DstInitTypeData%PropsS(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1509,8 +1509,8 @@ subroutine SD_CopyInitType(SrcInitTypeData, DstInitTypeData, CtrlCode, ErrStat, DstInitTypeData%PropsS = SrcInitTypeData%PropsS end if if (allocated(SrcInitTypeData%K)) then - LB(1:2) = lbound(SrcInitTypeData%K, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%K, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%K) + UB(1:2) = ubound(SrcInitTypeData%K) if (.not. allocated(DstInitTypeData%K)) then allocate(DstInitTypeData%K(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1521,8 +1521,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%M, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%M) + UB(1:2) = ubound(SrcInitTypeData%M) if (.not. allocated(DstInitTypeData%M)) then allocate(DstInitTypeData%M(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1533,8 +1533,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%ElemProps, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%ElemProps) + UB(1:2) = ubound(SrcInitTypeData%ElemProps) if (.not. allocated(DstInitTypeData%ElemProps)) then allocate(DstInitTypeData%ElemProps(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1545,8 +1545,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%MemberNodes, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%MemberNodes) + UB(1:2) = ubound(SrcInitTypeData%MemberNodes) if (.not. allocated(DstInitTypeData%MemberNodes)) then allocate(DstInitTypeData%MemberNodes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1557,8 +1557,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%NodesConnN, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%NodesConnN) + UB(1:2) = ubound(SrcInitTypeData%NodesConnN) if (.not. allocated(DstInitTypeData%NodesConnN)) then allocate(DstInitTypeData%NodesConnN(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1569,8 +1569,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, kind=B8Ki) - UB(1:2) = ubound(SrcInitTypeData%NodesConnE, kind=B8Ki) + LB(1:2) = lbound(SrcInitTypeData%NodesConnE) + UB(1:2) = ubound(SrcInitTypeData%NodesConnE) if (.not. allocated(DstInitTypeData%NodesConnE)) then allocate(DstInitTypeData%NodesConnE(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1743,7 +1743,7 @@ subroutine SD_UnPackInitType(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_InitType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInitType' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1810,14 +1810,14 @@ subroutine SD_CopyContState(SrcContStateData, DstContStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%qm, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%qm) + UB(1:1) = ubound(SrcContStateData%qm) if (.not. allocated(DstContStateData%qm)) then allocate(DstContStateData%qm(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1828,8 +1828,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, kind=B8Ki) - UB(1:1) = ubound(SrcContStateData%qmdot, kind=B8Ki) + LB(1:1) = lbound(SrcContStateData%qmdot) + UB(1:1) = ubound(SrcContStateData%qmdot) if (.not. allocated(DstContStateData%qmdot)) then allocate(DstContStateData%qmdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1870,7 +1870,7 @@ subroutine SD_UnPackContState(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_ContinuousStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackContState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1960,16 +1960,16 @@ subroutine SD_CopyOtherState(SrcOtherStateData, DstOtherStateData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(SrcOtherStateData%xdot) + UB(1:1) = ubound(SrcOtherStateData%xdot) if (.not. allocated(DstOtherStateData%xdot)) then allocate(DstOtherStateData%xdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1990,16 +1990,16 @@ subroutine SD_DestroyOtherState(OtherStateData, ErrStat, ErrMsg) type(SD_OtherStateType), intent(inout) :: OtherStateData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(OtherStateData%xdot, kind=B8Ki) + LB(1:1) = lbound(OtherStateData%xdot) + UB(1:1) = ubound(OtherStateData%xdot) do i1 = LB(1), UB(1) call SD_DestroyContState(OtherStateData%xdot(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -2012,14 +2012,14 @@ subroutine SD_PackOtherState(RF, Indata) type(RegFile), intent(inout) :: RF type(SD_OtherStateType), intent(in) :: InData character(*), parameter :: RoutineName = 'SD_PackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, allocated(InData%xdot)) if (allocated(InData%xdot)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%xdot), ubound(InData%xdot)) + LB(1:1) = lbound(InData%xdot) + UB(1:1) = ubound(InData%xdot) do i1 = LB(1), UB(1) call SD_PackContState(RF, InData%xdot(i1)) end do @@ -2032,8 +2032,8 @@ subroutine SD_UnPackOtherState(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_OtherStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackOtherState' - integer(B8Ki) :: i1 - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: i1 + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2059,14 +2059,14 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%qmdotdot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%qmdotdot) + UB(1:1) = ubound(SrcMiscData%qmdotdot) if (.not. allocated(DstMiscData%qmdotdot)) then allocate(DstMiscData%qmdotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2080,8 +2080,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_L, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_L) + UB(1:1) = ubound(SrcMiscData%F_L) if (.not. allocated(DstMiscData%F_L)) then allocate(DstMiscData%F_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2092,8 +2092,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%F_L2, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%F_L2) + UB(1:1) = ubound(SrcMiscData%F_L2) if (.not. allocated(DstMiscData%F_L2)) then allocate(DstMiscData%F_L2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2104,8 +2104,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UR_bar, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UR_bar) + UB(1:1) = ubound(SrcMiscData%UR_bar) if (.not. allocated(DstMiscData%UR_bar)) then allocate(DstMiscData%UR_bar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2116,8 +2116,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UR_bar_dot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UR_bar_dot) + UB(1:1) = ubound(SrcMiscData%UR_bar_dot) if (.not. allocated(DstMiscData%UR_bar_dot)) then allocate(DstMiscData%UR_bar_dot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2128,8 +2128,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UR_bar_dotdot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UR_bar_dotdot) + UB(1:1) = ubound(SrcMiscData%UR_bar_dotdot) if (.not. allocated(DstMiscData%UR_bar_dotdot)) then allocate(DstMiscData%UR_bar_dotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2140,8 +2140,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UL, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UL) + UB(1:1) = ubound(SrcMiscData%UL) if (.not. allocated(DstMiscData%UL)) then allocate(DstMiscData%UL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2152,8 +2152,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UL_NS, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UL_NS) + UB(1:1) = ubound(SrcMiscData%UL_NS) if (.not. allocated(DstMiscData%UL_NS)) then allocate(DstMiscData%UL_NS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2164,8 +2164,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UL_dot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UL_dot) + UB(1:1) = ubound(SrcMiscData%UL_dot) if (.not. allocated(DstMiscData%UL_dot)) then allocate(DstMiscData%UL_dot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2176,8 +2176,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UL_dotdot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UL_dotdot) + UB(1:1) = ubound(SrcMiscData%UL_dotdot) if (.not. allocated(DstMiscData%UL_dotdot)) then allocate(DstMiscData%UL_dotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2188,8 +2188,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%DU_full, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%DU_full) + UB(1:1) = ubound(SrcMiscData%DU_full) if (.not. allocated(DstMiscData%DU_full)) then allocate(DstMiscData%DU_full(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2200,8 +2200,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%U_full, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%U_full) + UB(1:1) = ubound(SrcMiscData%U_full) if (.not. allocated(DstMiscData%U_full)) then allocate(DstMiscData%U_full(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2212,8 +2212,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%U_full_NS, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%U_full_NS) + UB(1:1) = ubound(SrcMiscData%U_full_NS) if (.not. allocated(DstMiscData%U_full_NS)) then allocate(DstMiscData%U_full_NS(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2224,8 +2224,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%U_full_dot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%U_full_dot) + UB(1:1) = ubound(SrcMiscData%U_full_dot) if (.not. allocated(DstMiscData%U_full_dot)) then allocate(DstMiscData%U_full_dot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2236,8 +2236,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%U_full_dotdot, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%U_full_dotdot) + UB(1:1) = ubound(SrcMiscData%U_full_dotdot) if (.not. allocated(DstMiscData%U_full_dotdot)) then allocate(DstMiscData%U_full_dotdot(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2248,8 +2248,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%U_full_elast, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%U_full_elast) + UB(1:1) = ubound(SrcMiscData%U_full_elast) if (.not. allocated(DstMiscData%U_full_elast)) then allocate(DstMiscData%U_full_elast(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2260,8 +2260,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%U_red, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%U_red) + UB(1:1) = ubound(SrcMiscData%U_red) if (.not. allocated(DstMiscData%U_red)) then allocate(DstMiscData%U_red(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2272,8 +2272,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FC_unit, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FC_unit) + UB(1:1) = ubound(SrcMiscData%FC_unit) if (.not. allocated(DstMiscData%FC_unit)) then allocate(DstMiscData%FC_unit(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2284,8 +2284,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%SDWrOutput, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%SDWrOutput) + UB(1:1) = ubound(SrcMiscData%SDWrOutput) if (.not. allocated(DstMiscData%SDWrOutput)) then allocate(DstMiscData%SDWrOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2296,8 +2296,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%AllOuts, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%AllOuts) + UB(1:1) = ubound(SrcMiscData%AllOuts) if (.not. allocated(DstMiscData%AllOuts)) then allocate(DstMiscData%AllOuts(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2310,8 +2310,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Fext, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Fext) + UB(1:1) = ubound(SrcMiscData%Fext) if (.not. allocated(DstMiscData%Fext)) then allocate(DstMiscData%Fext(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2322,8 +2322,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Fext_red, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Fext_red) + UB(1:1) = ubound(SrcMiscData%Fext_red) if (.not. allocated(DstMiscData%Fext_red)) then allocate(DstMiscData%Fext_red(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2334,8 +2334,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%Fext_red = SrcMiscData%Fext_red end if if (allocated(SrcMiscData%FG)) then - LB(1:1) = lbound(SrcMiscData%FG, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%FG, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%FG) + UB(1:1) = ubound(SrcMiscData%FG) if (.not. allocated(DstMiscData%FG)) then allocate(DstMiscData%FG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2346,8 +2346,8 @@ subroutine SD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) DstMiscData%FG = SrcMiscData%FG end if if (allocated(SrcMiscData%UL_SIM)) then - LB(1:1) = lbound(SrcMiscData%UL_SIM, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UL_SIM, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UL_SIM) + UB(1:1) = ubound(SrcMiscData%UL_SIM) if (.not. allocated(DstMiscData%UL_SIM)) then allocate(DstMiscData%UL_SIM(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2358,8 +2358,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%UL_0m, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%UL_0m) + UB(1:1) = ubound(SrcMiscData%UL_0m) if (.not. allocated(DstMiscData%UL_0m)) then allocate(DstMiscData%UL_0m(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2497,7 +2497,7 @@ subroutine SD_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackMisc' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -2539,8 +2539,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyParam' @@ -2553,8 +2553,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Elems, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Elems) + UB(1:2) = ubound(SrcParamData%Elems) if (.not. allocated(DstParamData%Elems)) then allocate(DstParamData%Elems(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2565,8 +2565,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ElemProps, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ElemProps) + UB(1:1) = ubound(SrcParamData%ElemProps) if (.not. allocated(DstParamData%ElemProps)) then allocate(DstParamData%ElemProps(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2581,8 +2581,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%FC)) then - LB(1:1) = lbound(SrcParamData%FC, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FC, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FC) + UB(1:1) = ubound(SrcParamData%FC) if (.not. allocated(DstParamData%FC)) then allocate(DstParamData%FC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2593,8 +2593,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%FC = SrcParamData%FC end if if (allocated(SrcParamData%FG)) then - LB(1:1) = lbound(SrcParamData%FG, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%FG, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%FG) + UB(1:1) = ubound(SrcParamData%FG) if (.not. allocated(DstParamData%FG)) then allocate(DstParamData%FG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2605,8 +2605,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%DP0, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%DP0) + UB(1:2) = ubound(SrcParamData%DP0) if (.not. allocated(DstParamData%DP0)) then allocate(DstParamData%DP0(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2617,8 +2617,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%DP0 = SrcParamData%DP0 end if if (allocated(SrcParamData%rPG)) then - LB(1:1) = lbound(SrcParamData%rPG, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%rPG, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%rPG) + UB(1:1) = ubound(SrcParamData%rPG) if (.not. allocated(DstParamData%rPG)) then allocate(DstParamData%rPG(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2629,8 +2629,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%rPG = SrcParamData%rPG end if if (allocated(SrcParamData%NodeID2JointID)) then - LB(1:1) = lbound(SrcParamData%NodeID2JointID, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NodeID2JointID, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NodeID2JointID) + UB(1:1) = ubound(SrcParamData%NodeID2JointID) if (.not. allocated(DstParamData%NodeID2JointID)) then allocate(DstParamData%NodeID2JointID(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2641,8 +2641,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%NodeID2JointID = SrcParamData%NodeID2JointID end if if (allocated(SrcParamData%CMassNode)) then - LB(1:1) = lbound(SrcParamData%CMassNode, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%CMassNode, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%CMassNode) + UB(1:1) = ubound(SrcParamData%CMassNode) if (.not. allocated(DstParamData%CMassNode)) then allocate(DstParamData%CMassNode(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2653,8 +2653,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CMassNode = SrcParamData%CMassNode end if if (allocated(SrcParamData%CMassWeight)) then - LB(1:1) = lbound(SrcParamData%CMassWeight, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%CMassWeight, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%CMassWeight) + UB(1:1) = ubound(SrcParamData%CMassWeight) if (.not. allocated(DstParamData%CMassWeight)) then allocate(DstParamData%CMassWeight(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2665,8 +2665,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) DstParamData%CMassWeight = SrcParamData%CMassWeight end if if (allocated(SrcParamData%CMassOffset)) then - LB(1:2) = lbound(SrcParamData%CMassOffset, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CMassOffset, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CMassOffset) + UB(1:2) = ubound(SrcParamData%CMassOffset) if (.not. allocated(DstParamData%CMassOffset)) then allocate(DstParamData%CMassOffset(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2678,8 +2678,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%T_red, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%T_red) + UB(1:2) = ubound(SrcParamData%T_red) 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 @@ -2690,8 +2690,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%T_red_T, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%T_red_T) + UB(1:2) = ubound(SrcParamData%T_red_T) 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 @@ -2702,8 +2702,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NodesDOF, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NodesDOF) + UB(1:1) = ubound(SrcParamData%NodesDOF) if (.not. allocated(DstParamData%NodesDOF)) then allocate(DstParamData%NodesDOF(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2718,8 +2718,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%NodesDOFred)) then - LB(1:1) = lbound(SrcParamData%NodesDOFred, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%NodesDOFred, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%NodesDOFred) + UB(1:1) = ubound(SrcParamData%NodesDOFred) if (.not. allocated(DstParamData%NodesDOFred)) then allocate(DstParamData%NodesDOFred(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2734,8 +2734,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%ElemsDOF)) then - LB(1:2) = lbound(SrcParamData%ElemsDOF, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%ElemsDOF, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%ElemsDOF) + UB(1:2) = ubound(SrcParamData%ElemsDOF) if (.not. allocated(DstParamData%ElemsDOF)) then allocate(DstParamData%ElemsDOF(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2746,8 +2746,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%DOFred2Nodes, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%DOFred2Nodes) + UB(1:2) = ubound(SrcParamData%DOFred2Nodes) if (.not. allocated(DstParamData%DOFred2Nodes)) then allocate(DstParamData%DOFred2Nodes(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2758,8 +2758,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CtrlElem2Channel, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CtrlElem2Channel) + UB(1:2) = ubound(SrcParamData%CtrlElem2Channel) if (.not. allocated(DstParamData%CtrlElem2Channel)) then allocate(DstParamData%CtrlElem2Channel(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2774,8 +2774,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%KMMDiag, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%KMMDiag) + UB(1:1) = ubound(SrcParamData%KMMDiag) if (.not. allocated(DstParamData%KMMDiag)) then allocate(DstParamData%KMMDiag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2786,8 +2786,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%CMMDiag, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%CMMDiag) + UB(1:1) = ubound(SrcParamData%CMMDiag) if (.not. allocated(DstParamData%CMMDiag)) then allocate(DstParamData%CMMDiag(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2798,8 +2798,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MMB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MMB) + UB(1:2) = ubound(SrcParamData%MMB) if (.not. allocated(DstParamData%MMB)) then allocate(DstParamData%MMB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2810,8 +2810,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MBmmB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MBmmB) + UB(1:2) = ubound(SrcParamData%MBmmB) if (.not. allocated(DstParamData%MBmmB)) then allocate(DstParamData%MBmmB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2822,8 +2822,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C1_11, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C1_11) + UB(1:2) = ubound(SrcParamData%C1_11) 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 @@ -2834,8 +2834,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C1_12, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C1_12) + UB(1:2) = ubound(SrcParamData%C1_12) 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 @@ -2846,8 +2846,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%D1_141, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%D1_141) + UB(1:2) = ubound(SrcParamData%D1_141) 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 @@ -2858,8 +2858,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%D1_142, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%D1_142) + UB(1:2) = ubound(SrcParamData%D1_142) 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 @@ -2870,8 +2870,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PhiM, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PhiM) + UB(1:2) = ubound(SrcParamData%PhiM) if (.not. allocated(DstParamData%PhiM)) then allocate(DstParamData%PhiM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2882,8 +2882,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C2_61, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C2_61) + UB(1:2) = ubound(SrcParamData%C2_61) 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 @@ -2894,8 +2894,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%C2_62, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%C2_62) + UB(1:2) = ubound(SrcParamData%C2_62) 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 @@ -2906,8 +2906,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PhiRb_TI, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PhiRb_TI) + UB(1:2) = ubound(SrcParamData%PhiRb_TI) 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 @@ -2918,8 +2918,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%D2_63, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%D2_63) + UB(1:2) = ubound(SrcParamData%D2_63) 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 @@ -2930,8 +2930,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%D2_64, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%D2_64) + UB(1:2) = ubound(SrcParamData%D2_64) 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 @@ -2942,8 +2942,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MBB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MBB) + UB(1:2) = ubound(SrcParamData%MBB) if (.not. allocated(DstParamData%MBB)) then allocate(DstParamData%MBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2954,8 +2954,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%KBB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%KBB) + UB(1:2) = ubound(SrcParamData%KBB) if (.not. allocated(DstParamData%KBB)) then allocate(DstParamData%KBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2966,8 +2966,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CBB, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CBB) + UB(1:2) = ubound(SrcParamData%CBB) if (.not. allocated(DstParamData%CBB)) then allocate(DstParamData%CBB(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2978,8 +2978,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%CMM, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%CMM) + UB(1:2) = ubound(SrcParamData%CMM) if (.not. allocated(DstParamData%CMM)) then allocate(DstParamData%CMM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -2990,8 +2990,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%MBM, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%MBM) + UB(1:2) = ubound(SrcParamData%MBM) if (.not. allocated(DstParamData%MBM)) then allocate(DstParamData%MBM(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3002,8 +3002,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PhiL_T, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PhiL_T) + UB(1:2) = ubound(SrcParamData%PhiL_T) 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 @@ -3014,8 +3014,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%PhiLInvOmgL2, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%PhiLInvOmgL2) + UB(1:2) = ubound(SrcParamData%PhiLInvOmgL2) if (.not. allocated(DstParamData%PhiLInvOmgL2)) then allocate(DstParamData%PhiLInvOmgL2(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3026,8 +3026,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%KLLm1, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%KLLm1) + UB(1:2) = ubound(SrcParamData%KLLm1) if (.not. allocated(DstParamData%KLLm1)) then allocate(DstParamData%KLLm1(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3038,8 +3038,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%AM2Jac, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%AM2Jac) + UB(1:2) = ubound(SrcParamData%AM2Jac) if (.not. allocated(DstParamData%AM2Jac)) then allocate(DstParamData%AM2Jac(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3050,8 +3050,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%AM2JacPiv, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%AM2JacPiv) + UB(1:1) = ubound(SrcParamData%AM2JacPiv) if (.not. allocated(DstParamData%AM2JacPiv)) then allocate(DstParamData%AM2JacPiv(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3062,8 +3062,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%TI, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%TI) + UB(1:2) = ubound(SrcParamData%TI) if (.not. allocated(DstParamData%TI)) then allocate(DstParamData%TI(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3074,8 +3074,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%TIreact, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%TIreact) + UB(1:2) = ubound(SrcParamData%TIreact) if (.not. allocated(DstParamData%TIreact)) then allocate(DstParamData%TIreact(LB(1):UB(1),LB(2):UB(2)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3090,8 +3090,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Nodes_I, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Nodes_I) + UB(1:2) = ubound(SrcParamData%Nodes_I) 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 @@ -3102,8 +3102,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Nodes_L, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Nodes_L) + UB(1:2) = ubound(SrcParamData%Nodes_L) 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 @@ -3114,8 +3114,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Nodes_C, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Nodes_C) + UB(1:2) = ubound(SrcParamData%Nodes_C) 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 @@ -3138,8 +3138,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__, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDI__, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDI__) + UB(1:1) = ubound(SrcParamData%IDI__) if (.not. allocated(DstParamData%IDI__)) then allocate(DstParamData%IDI__(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3150,8 +3150,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDI_Rb, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDI_Rb) + UB(1:1) = ubound(SrcParamData%IDI_Rb) if (.not. allocated(DstParamData%IDI_Rb)) then allocate(DstParamData%IDI_Rb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3162,8 +3162,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDI_F, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDI_F) + UB(1:1) = ubound(SrcParamData%IDI_F) if (.not. allocated(DstParamData%IDI_F)) then allocate(DstParamData%IDI_F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3174,8 +3174,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDL_L, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDL_L) + UB(1:1) = ubound(SrcParamData%IDL_L) if (.not. allocated(DstParamData%IDL_L)) then allocate(DstParamData%IDL_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3186,8 +3186,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__, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDC__, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDC__) + UB(1:1) = ubound(SrcParamData%IDC__) if (.not. allocated(DstParamData%IDC__)) then allocate(DstParamData%IDC__(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3198,8 +3198,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDC_Rb, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDC_Rb) + UB(1:1) = ubound(SrcParamData%IDC_Rb) if (.not. allocated(DstParamData%IDC_Rb)) then allocate(DstParamData%IDC_Rb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3210,8 +3210,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDC_L, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDC_L) + UB(1:1) = ubound(SrcParamData%IDC_L) if (.not. allocated(DstParamData%IDC_L)) then allocate(DstParamData%IDC_L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3222,8 +3222,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDC_F, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDC_F) + UB(1:1) = ubound(SrcParamData%IDC_F) if (.not. allocated(DstParamData%IDC_F)) then allocate(DstParamData%IDC_F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3234,8 +3234,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__, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%IDR__, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%IDR__) + UB(1:1) = ubound(SrcParamData%IDR__) if (.not. allocated(DstParamData%IDR__)) then allocate(DstParamData%IDR__(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3246,8 +3246,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ID__Rb, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ID__Rb) + UB(1:1) = ubound(SrcParamData%ID__Rb) if (.not. allocated(DstParamData%ID__Rb)) then allocate(DstParamData%ID__Rb(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3258,8 +3258,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ID__L, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ID__L) + UB(1:1) = ubound(SrcParamData%ID__L) if (.not. allocated(DstParamData%ID__L)) then allocate(DstParamData%ID__L(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3270,8 +3270,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ID__F, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ID__F) + UB(1:1) = ubound(SrcParamData%ID__F) if (.not. allocated(DstParamData%ID__F)) then allocate(DstParamData%ID__F(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3289,8 +3289,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%MoutLst, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%MoutLst) + UB(1:1) = ubound(SrcParamData%MoutLst) if (.not. allocated(DstParamData%MoutLst)) then allocate(DstParamData%MoutLst(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3305,8 +3305,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%MoutLst2)) then - LB(1:1) = lbound(SrcParamData%MoutLst2, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%MoutLst2, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%MoutLst2) + UB(1:1) = ubound(SrcParamData%MoutLst2) if (.not. allocated(DstParamData%MoutLst2)) then allocate(DstParamData%MoutLst2(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3321,8 +3321,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%MoutLst3)) then - LB(1:1) = lbound(SrcParamData%MoutLst3, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%MoutLst3, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%MoutLst3) + UB(1:1) = ubound(SrcParamData%MoutLst3) if (.not. allocated(DstParamData%MoutLst3)) then allocate(DstParamData%MoutLst3(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3337,8 +3337,8 @@ subroutine SD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) end do end if if (allocated(SrcParamData%OutParam)) then - LB(1:1) = lbound(SrcParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%OutParam) + UB(1:1) = ubound(SrcParamData%OutParam) if (.not. allocated(DstParamData%OutParam)) then allocate(DstParamData%OutParam(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3360,8 +3360,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, kind=B8Ki) - UB(1:2) = ubound(SrcParamData%Jac_u_indx, kind=B8Ki) + LB(1:2) = lbound(SrcParamData%Jac_u_indx) + UB(1:2) = ubound(SrcParamData%Jac_u_indx) 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 @@ -3372,8 +3372,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%du, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%du) + UB(1:1) = ubound(SrcParamData%du) if (.not. allocated(DstParamData%du)) then allocate(DstParamData%du(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -3393,8 +3393,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) type(SD_ParameterType), intent(inout) :: ParamData integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_DestroyParam' @@ -3404,8 +3404,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%Elems) end if if (allocated(ParamData%ElemProps)) then - LB(1:1) = lbound(ParamData%ElemProps, kind=B8Ki) - UB(1:1) = ubound(ParamData%ElemProps, kind=B8Ki) + LB(1:1) = lbound(ParamData%ElemProps) + UB(1:1) = ubound(ParamData%ElemProps) do i1 = LB(1), UB(1) call SD_DestroyElemPropType(ParamData%ElemProps(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3443,8 +3443,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, kind=B8Ki) - UB(1:1) = ubound(ParamData%NodesDOF, kind=B8Ki) + LB(1:1) = lbound(ParamData%NodesDOF) + UB(1:1) = ubound(ParamData%NodesDOF) do i1 = LB(1), UB(1) call SD_DestroyIList(ParamData%NodesDOF(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3452,8 +3452,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%NodesDOF) end if if (allocated(ParamData%NodesDOFred)) then - LB(1:1) = lbound(ParamData%NodesDOFred, kind=B8Ki) - UB(1:1) = ubound(ParamData%NodesDOFred, kind=B8Ki) + LB(1:1) = lbound(ParamData%NodesDOFred) + UB(1:1) = ubound(ParamData%NodesDOFred) do i1 = LB(1), UB(1) call SD_DestroyIList(ParamData%NodesDOFred(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3593,8 +3593,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%ID__F) end if if (allocated(ParamData%MoutLst)) then - LB(1:1) = lbound(ParamData%MoutLst, kind=B8Ki) - UB(1:1) = ubound(ParamData%MoutLst, kind=B8Ki) + LB(1:1) = lbound(ParamData%MoutLst) + UB(1:1) = ubound(ParamData%MoutLst) do i1 = LB(1), UB(1) call SD_DestroyMeshAuxDataType(ParamData%MoutLst(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3602,8 +3602,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MoutLst) end if if (allocated(ParamData%MoutLst2)) then - LB(1:1) = lbound(ParamData%MoutLst2, kind=B8Ki) - UB(1:1) = ubound(ParamData%MoutLst2, kind=B8Ki) + LB(1:1) = lbound(ParamData%MoutLst2) + UB(1:1) = ubound(ParamData%MoutLst2) do i1 = LB(1), UB(1) call SD_DestroyMeshAuxDataType(ParamData%MoutLst2(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3611,8 +3611,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MoutLst2) end if if (allocated(ParamData%MoutLst3)) then - LB(1:1) = lbound(ParamData%MoutLst3, kind=B8Ki) - UB(1:1) = ubound(ParamData%MoutLst3, kind=B8Ki) + LB(1:1) = lbound(ParamData%MoutLst3) + UB(1:1) = ubound(ParamData%MoutLst3) do i1 = LB(1), UB(1) call SD_DestroyMeshAuxDataType(ParamData%MoutLst3(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3620,8 +3620,8 @@ subroutine SD_DestroyParam(ParamData, ErrStat, ErrMsg) deallocate(ParamData%MoutLst3) end if if (allocated(ParamData%OutParam)) then - LB(1:1) = lbound(ParamData%OutParam, kind=B8Ki) - UB(1:1) = ubound(ParamData%OutParam, kind=B8Ki) + LB(1:1) = lbound(ParamData%OutParam) + UB(1:1) = ubound(ParamData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_DestroyOutParmType(ParamData%OutParam(i1), ErrStat2, ErrMsg2) call SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName) @@ -3640,8 +3640,8 @@ subroutine SD_PackParam(RF, Indata) type(RegFile), intent(inout) :: RF type(SD_ParameterType), intent(in) :: InData character(*), parameter :: RoutineName = 'SD_PackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) if (RF%ErrStat >= AbortErrLev) return call RegPack(RF, InData%g) call RegPack(RF, InData%SDDeltaT) @@ -3652,9 +3652,9 @@ subroutine SD_PackParam(RF, Indata) call RegPackAlloc(RF, InData%Elems) call RegPack(RF, allocated(InData%ElemProps)) if (allocated(InData%ElemProps)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%ElemProps), ubound(InData%ElemProps)) + LB(1:1) = lbound(InData%ElemProps) + UB(1:1) = ubound(InData%ElemProps) do i1 = LB(1), UB(1) call SD_PackElemPropType(RF, InData%ElemProps(i1)) end do @@ -3672,18 +3672,18 @@ subroutine SD_PackParam(RF, Indata) call RegPackAlloc(RF, InData%T_red_T) call RegPack(RF, allocated(InData%NodesDOF)) if (allocated(InData%NodesDOF)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NodesDOF), ubound(InData%NodesDOF)) + LB(1:1) = lbound(InData%NodesDOF) + UB(1:1) = ubound(InData%NodesDOF) do i1 = LB(1), UB(1) call SD_PackIList(RF, InData%NodesDOF(i1)) end do end if call RegPack(RF, allocated(InData%NodesDOFred)) if (allocated(InData%NodesDOFred)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%NodesDOFred), ubound(InData%NodesDOFred)) + LB(1:1) = lbound(InData%NodesDOFred) + UB(1:1) = ubound(InData%NodesDOFred) do i1 = LB(1), UB(1) call SD_PackIList(RF, InData%NodesDOFred(i1)) end do @@ -3761,36 +3761,36 @@ subroutine SD_PackParam(RF, Indata) call RegPack(RF, InData%OutSFmt) call RegPack(RF, allocated(InData%MoutLst)) if (allocated(InData%MoutLst)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MoutLst), ubound(InData%MoutLst)) + LB(1:1) = lbound(InData%MoutLst) + UB(1:1) = ubound(InData%MoutLst) do i1 = LB(1), UB(1) call SD_PackMeshAuxDataType(RF, InData%MoutLst(i1)) end do end if call RegPack(RF, allocated(InData%MoutLst2)) if (allocated(InData%MoutLst2)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MoutLst2), ubound(InData%MoutLst2)) + LB(1:1) = lbound(InData%MoutLst2) + UB(1:1) = ubound(InData%MoutLst2) do i1 = LB(1), UB(1) call SD_PackMeshAuxDataType(RF, InData%MoutLst2(i1)) end do end if call RegPack(RF, allocated(InData%MoutLst3)) if (allocated(InData%MoutLst3)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%MoutLst3), ubound(InData%MoutLst3)) + LB(1:1) = lbound(InData%MoutLst3) + UB(1:1) = ubound(InData%MoutLst3) do i1 = LB(1), UB(1) call SD_PackMeshAuxDataType(RF, InData%MoutLst3(i1)) end do end if call RegPack(RF, allocated(InData%OutParam)) if (allocated(InData%OutParam)) then - call RegPackBounds(RF, 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) + call RegPackBounds(RF, 1, lbound(InData%OutParam), ubound(InData%OutParam)) + LB(1:1) = lbound(InData%OutParam) + UB(1:1) = ubound(InData%OutParam) do i1 = LB(1), UB(1) call NWTC_Library_PackOutParmType(RF, InData%OutParam(i1)) end do @@ -3815,8 +3815,8 @@ subroutine SD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackParam' - integer(B8Ki) :: i1, i2 - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: i1, i2 + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4021,7 +4021,7 @@ subroutine SD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyInput' @@ -4034,8 +4034,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%CableDeltaL, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%CableDeltaL) + UB(1:1) = ubound(SrcInputData%CableDeltaL) if (.not. allocated(DstInputData%CableDeltaL)) then allocate(DstInputData%CableDeltaL(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4080,7 +4080,7 @@ subroutine SD_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -4095,7 +4095,7 @@ subroutine SD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SD_CopyOutput' @@ -4111,8 +4111,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%WriteOutput, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%WriteOutput) + UB(1:1) = ubound(SrcOutputData%WriteOutput) if (.not. allocated(DstOutputData%WriteOutput)) then allocate(DstOutputData%WriteOutput(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -4160,7 +4160,7 @@ subroutine SD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SD_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return diff --git a/modules/supercontroller/src/SCDataEx_Types.f90 b/modules/supercontroller/src/SCDataEx_Types.f90 index a01f31e191..cd6da16d1f 100644 --- a/modules/supercontroller/src/SCDataEx_Types.f90 +++ b/modules/supercontroller/src/SCDataEx_Types.f90 @@ -357,14 +357,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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%toSC, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%toSC) + UB(1:1) = ubound(SrcInputData%toSC) if (.not. associated(DstInputData%toSC)) then allocate(DstInputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -412,7 +412,7 @@ subroutine SC_DX_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SC_DX_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_DX_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -475,7 +475,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, kind=B8Ki))) + InputData%C_obj%toSC = C_LOC(InputData%toSC(lbound(InputData%toSC,1))) END IF END IF END SUBROUTINE @@ -486,14 +486,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(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%fromSC) + UB(1:1) = ubound(SrcOutputData%fromSC) if (.not. associated(DstOutputData%fromSC)) then allocate(DstOutputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -507,8 +507,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%fromSCglob, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%fromSCglob) + UB(1:1) = ubound(SrcOutputData%fromSCglob) if (.not. associated(DstOutputData%fromSCglob)) then allocate(DstOutputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -563,7 +563,7 @@ subroutine SC_DX_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SC_DX_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_DX_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -640,7 +640,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, kind=B8Ki))) + OutputData%C_obj%fromSC = C_LOC(OutputData%fromSC(lbound(OutputData%fromSC,1))) END IF END IF @@ -652,7 +652,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, kind=B8Ki))) + OutputData%C_obj%fromSCglob = C_LOC(OutputData%fromSCglob(lbound(OutputData%fromSCglob,1))) END IF END IF END SUBROUTINE diff --git a/modules/supercontroller/src/SuperController_Types.f90 b/modules/supercontroller/src/SuperController_Types.f90 index 5e37b5f366..b811ad3465 100644 --- a/modules/supercontroller/src/SuperController_Types.f90 +++ b/modules/supercontroller/src/SuperController_Types.f90 @@ -386,7 +386,7 @@ subroutine SC_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(ErrMsgLen) :: ErrMsg2 character(*), parameter :: RoutineName = 'SC_CopyParam' @@ -413,8 +413,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ParamGlobal, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ParamGlobal) + UB(1:1) = ubound(SrcParamData%ParamGlobal) if (.not. associated(DstParamData%ParamGlobal)) then allocate(DstParamData%ParamGlobal(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -428,8 +428,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%ParamTurbine, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%ParamTurbine) + UB(1:1) = ubound(SrcParamData%ParamTurbine) if (.not. associated(DstParamData%ParamTurbine)) then allocate(DstParamData%ParamTurbine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -500,7 +500,7 @@ subroutine SC_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(SC_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -618,7 +618,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, kind=B8Ki))) + ParamData%C_obj%ParamGlobal = C_LOC(ParamData%ParamGlobal(lbound(ParamData%ParamGlobal,1))) END IF END IF @@ -630,7 +630,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, kind=B8Ki))) + ParamData%C_obj%ParamTurbine = C_LOC(ParamData%ParamTurbine(lbound(ParamData%ParamTurbine,1))) END IF END IF END SUBROUTINE @@ -641,14 +641,14 @@ subroutine SC_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%Global, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%Global) + UB(1:1) = ubound(SrcDiscStateData%Global) if (.not. associated(DstDiscStateData%Global)) then allocate(DstDiscStateData%Global(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -662,8 +662,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%Turbine, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%Turbine) + UB(1:1) = ubound(SrcDiscStateData%Turbine) if (.not. associated(DstDiscStateData%Turbine)) then allocate(DstDiscStateData%Turbine(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -718,7 +718,7 @@ subroutine SC_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(SC_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackDiscState' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -795,7 +795,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, kind=B8Ki))) + DiscStateData%C_obj%Global = C_LOC(DiscStateData%Global(lbound(DiscStateData%Global,1))) END IF END IF @@ -807,7 +807,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, kind=B8Ki))) + DiscStateData%C_obj%Turbine = C_LOC(DiscStateData%Turbine(lbound(DiscStateData%Turbine,1))) END IF END IF END SUBROUTINE @@ -1138,14 +1138,14 @@ subroutine SC_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%toSCglob, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%toSCglob) + UB(1:1) = ubound(SrcInputData%toSCglob) if (.not. associated(DstInputData%toSCglob)) then allocate(DstInputData%toSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1159,8 +1159,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%toSC, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%toSC) + UB(1:1) = ubound(SrcInputData%toSC) if (.not. associated(DstInputData%toSC)) then allocate(DstInputData%toSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1215,7 +1215,7 @@ subroutine SC_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(SC_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackInput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1292,7 +1292,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, kind=B8Ki))) + InputData%C_obj%toSCglob = C_LOC(InputData%toSCglob(lbound(InputData%toSCglob,1))) END IF END IF @@ -1304,7 +1304,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, kind=B8Ki))) + InputData%C_obj%toSC = C_LOC(InputData%toSC(lbound(InputData%toSC,1))) END IF END IF END SUBROUTINE @@ -1315,14 +1315,14 @@ subroutine SC_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%fromSCglob, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%fromSCglob) + UB(1:1) = ubound(SrcOutputData%fromSCglob) if (.not. associated(DstOutputData%fromSCglob)) then allocate(DstOutputData%fromSCglob(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1336,8 +1336,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%fromSC, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%fromSC) + UB(1:1) = ubound(SrcOutputData%fromSC) if (.not. associated(DstOutputData%fromSC)) then allocate(DstOutputData%fromSC(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1392,7 +1392,7 @@ subroutine SC_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(SC_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'SC_UnPackOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc integer(B8Ki) :: PtrIdx @@ -1469,7 +1469,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, kind=B8Ki))) + OutputData%C_obj%fromSCglob = C_LOC(OutputData%fromSCglob(lbound(OutputData%fromSCglob,1))) END IF END IF @@ -1481,7 +1481,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, kind=B8Ki))) + OutputData%C_obj%fromSC = C_LOC(OutputData%fromSC(lbound(OutputData%fromSC,1))) END IF END IF END SUBROUTINE diff --git a/modules/wakedynamics/src/WakeDynamics_Types.f90 b/modules/wakedynamics/src/WakeDynamics_Types.f90 index 2814beed3d..289e7e42b8 100644 --- a/modules/wakedynamics/src/WakeDynamics_Types.f90 +++ b/modules/wakedynamics/src/WakeDynamics_Types.f90 @@ -459,15 +459,15 @@ subroutine WD_CopyInitOutput(SrcInitOutputData, DstInitOutputData, CtrlCode, Err integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputHdr) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputHdr) if (.not. allocated(DstInitOutputData%WriteOutputHdr)) then allocate(DstInitOutputData%WriteOutputHdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -478,8 +478,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, kind=B8Ki) - UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt, kind=B8Ki) + LB(1:1) = lbound(SrcInitOutputData%WriteOutputUnt) + UB(1:1) = ubound(SrcInitOutputData%WriteOutputUnt) if (.not. allocated(DstInitOutputData%WriteOutputUnt)) then allocate(DstInitOutputData%WriteOutputUnt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -528,7 +528,7 @@ subroutine WD_UnPackInitOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(WD_InitOutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackInitOutput' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -581,14 +581,14 @@ subroutine WD_CopyDiscState(SrcDiscStateData, DstDiscStateData, CtrlCode, ErrSta integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%xhat_plane, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%xhat_plane) + UB(1:2) = ubound(SrcDiscStateData%xhat_plane) 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 @@ -599,8 +599,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%YawErr_filt, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%YawErr_filt) + UB(1:1) = ubound(SrcDiscStateData%YawErr_filt) if (.not. allocated(DstDiscStateData%YawErr_filt)) then allocate(DstDiscStateData%YawErr_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -613,8 +613,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%V_plane_filt, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%V_plane_filt) + UB(1:2) = ubound(SrcDiscStateData%V_plane_filt) 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 @@ -625,8 +625,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%p_plane, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%p_plane) + UB(1:2) = ubound(SrcDiscStateData%p_plane) 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 @@ -637,8 +637,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%x_plane, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%x_plane) + UB(1:1) = ubound(SrcDiscStateData%x_plane) if (.not. allocated(DstDiscStateData%x_plane)) then allocate(DstDiscStateData%x_plane(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -649,8 +649,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Vx_wake, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Vx_wake) + UB(1:2) = ubound(SrcDiscStateData%Vx_wake) 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 @@ -661,8 +661,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, kind=B8Ki) - UB(1:2) = ubound(SrcDiscStateData%Vr_wake, kind=B8Ki) + LB(1:2) = lbound(SrcDiscStateData%Vr_wake) + UB(1:2) = ubound(SrcDiscStateData%Vr_wake) 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 @@ -673,8 +673,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, kind=B8Ki) - UB(1:3) = ubound(SrcDiscStateData%Vx_wake2, kind=B8Ki) + LB(1:3) = lbound(SrcDiscStateData%Vx_wake2) + UB(1:3) = ubound(SrcDiscStateData%Vx_wake2) 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 @@ -685,8 +685,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, kind=B8Ki) - UB(1:3) = ubound(SrcDiscStateData%Vy_wake2, kind=B8Ki) + LB(1:3) = lbound(SrcDiscStateData%Vy_wake2) + UB(1:3) = ubound(SrcDiscStateData%Vy_wake2) 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 @@ -697,8 +697,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, kind=B8Ki) - UB(1:3) = ubound(SrcDiscStateData%Vz_wake2, kind=B8Ki) + LB(1:3) = lbound(SrcDiscStateData%Vz_wake2) + UB(1:3) = ubound(SrcDiscStateData%Vz_wake2) 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 @@ -709,8 +709,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%Vx_wind_disk_filt, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%Vx_wind_disk_filt) + UB(1:1) = ubound(SrcDiscStateData%Vx_wind_disk_filt) 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 @@ -721,8 +721,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%TI_amb_filt, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%TI_amb_filt) + UB(1:1) = ubound(SrcDiscStateData%TI_amb_filt) if (.not. allocated(DstDiscStateData%TI_amb_filt)) then allocate(DstDiscStateData%TI_amb_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -733,8 +733,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%D_rotor_filt, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%D_rotor_filt) + UB(1:1) = ubound(SrcDiscStateData%D_rotor_filt) if (.not. allocated(DstDiscStateData%D_rotor_filt)) then allocate(DstDiscStateData%D_rotor_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -746,8 +746,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%Ct_azavg_filt, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%Ct_azavg_filt) + UB(1:1) = ubound(SrcDiscStateData%Ct_azavg_filt) if (.not. allocated(DstDiscStateData%Ct_azavg_filt)) then allocate(DstDiscStateData%Ct_azavg_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -758,8 +758,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, kind=B8Ki) - UB(1:1) = ubound(SrcDiscStateData%Cq_azavg_filt, kind=B8Ki) + LB(1:1) = lbound(SrcDiscStateData%Cq_azavg_filt) + UB(1:1) = ubound(SrcDiscStateData%Cq_azavg_filt) if (.not. allocated(DstDiscStateData%Cq_azavg_filt)) then allocate(DstDiscStateData%Cq_azavg_filt(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -855,7 +855,7 @@ subroutine WD_UnPackDiscState(RF, OutData) type(RegFile), intent(inout) :: RF type(WD_DiscreteStateType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackDiscState' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -961,14 +961,14 @@ subroutine WD_CopyMisc(SrcMiscData, DstMiscData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%dvtdr, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%dvtdr) + UB(1:1) = ubound(SrcMiscData%dvtdr) if (.not. allocated(DstMiscData%dvtdr)) then allocate(DstMiscData%dvtdr(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -979,8 +979,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%vt_tot, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%vt_tot) + UB(1:2) = ubound(SrcMiscData%vt_tot) 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 @@ -991,8 +991,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%vt_amb, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%vt_amb) + UB(1:2) = ubound(SrcMiscData%vt_amb) 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 @@ -1003,8 +1003,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%vt_shr, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%vt_shr) + UB(1:2) = ubound(SrcMiscData%vt_shr) 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 @@ -1015,8 +1015,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%vt_tot2, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%vt_tot2) + UB(1:3) = ubound(SrcMiscData%vt_tot2) 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 @@ -1027,8 +1027,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%vt_amb2, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%vt_amb2) + UB(1:3) = ubound(SrcMiscData%vt_amb2) 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 @@ -1039,8 +1039,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%vt_shr2, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%vt_shr2) + UB(1:3) = ubound(SrcMiscData%vt_shr2) 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 @@ -1051,8 +1051,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%dvx_dy, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%dvx_dy) + UB(1:3) = ubound(SrcMiscData%dvx_dy) 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 @@ -1063,8 +1063,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, kind=B8Ki) - UB(1:3) = ubound(SrcMiscData%dvx_dz, kind=B8Ki) + LB(1:3) = lbound(SrcMiscData%dvx_dz) + UB(1:3) = ubound(SrcMiscData%dvx_dz) 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 @@ -1075,8 +1075,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%nu_dvx_dy, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%nu_dvx_dy) + UB(1:2) = ubound(SrcMiscData%nu_dvx_dy) 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 @@ -1087,8 +1087,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%nu_dvx_dz, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%nu_dvx_dz) + UB(1:2) = ubound(SrcMiscData%nu_dvx_dz) 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 @@ -1099,8 +1099,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%dnuvx_dy, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%dnuvx_dy) + UB(1:2) = ubound(SrcMiscData%dnuvx_dy) 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 @@ -1111,8 +1111,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, kind=B8Ki) - UB(1:2) = ubound(SrcMiscData%dnuvx_dz, kind=B8Ki) + LB(1:2) = lbound(SrcMiscData%dnuvx_dz) + UB(1:2) = ubound(SrcMiscData%dnuvx_dz) 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 @@ -1123,8 +1123,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%a, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%a) + UB(1:1) = ubound(SrcMiscData%a) if (.not. allocated(DstMiscData%a)) then allocate(DstMiscData%a(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1135,8 +1135,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%b, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%b) + UB(1:1) = ubound(SrcMiscData%b) if (.not. allocated(DstMiscData%b)) then allocate(DstMiscData%b(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1147,8 +1147,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%c, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%c) + UB(1:1) = ubound(SrcMiscData%c) if (.not. allocated(DstMiscData%c)) then allocate(DstMiscData%c(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1159,8 +1159,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%d, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%d) + UB(1:1) = ubound(SrcMiscData%d) if (.not. allocated(DstMiscData%d)) then allocate(DstMiscData%d(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1171,8 +1171,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%r_wake, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%r_wake) + UB(1:1) = ubound(SrcMiscData%r_wake) if (.not. allocated(DstMiscData%r_wake)) then allocate(DstMiscData%r_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1183,8 +1183,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Vx_high, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Vx_high) + UB(1:1) = ubound(SrcMiscData%Vx_high) if (.not. allocated(DstMiscData%Vx_high)) then allocate(DstMiscData%Vx_high(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1195,8 +1195,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Vx_polar, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Vx_polar) + UB(1:1) = ubound(SrcMiscData%Vx_polar) if (.not. allocated(DstMiscData%Vx_polar)) then allocate(DstMiscData%Vx_polar(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1207,8 +1207,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, kind=B8Ki) - UB(1:1) = ubound(SrcMiscData%Vt_wake, kind=B8Ki) + LB(1:1) = lbound(SrcMiscData%Vt_wake) + UB(1:1) = ubound(SrcMiscData%Vt_wake) if (.not. allocated(DstMiscData%Vt_wake)) then allocate(DstMiscData%Vt_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1329,7 +1329,7 @@ subroutine WD_UnPackMisc(RF, OutData) type(RegFile), intent(inout) :: RF type(WD_MiscVarType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackMisc' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1364,7 +1364,7 @@ subroutine WD_CopyParam(SrcParamData, DstParamData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyParam' ErrStat = ErrID_None @@ -1374,8 +1374,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%r, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%r) + UB(1:1) = ubound(SrcParamData%r) if (.not. allocated(DstParamData%r)) then allocate(DstParamData%r(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1386,8 +1386,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%y, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%y) + UB(1:1) = ubound(SrcParamData%y) if (.not. allocated(DstParamData%y)) then allocate(DstParamData%y(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1398,8 +1398,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, kind=B8Ki) - UB(1:1) = ubound(SrcParamData%z, kind=B8Ki) + LB(1:1) = lbound(SrcParamData%z) + UB(1:1) = ubound(SrcParamData%z) if (.not. allocated(DstParamData%z)) then allocate(DstParamData%z(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1530,7 +1530,7 @@ subroutine WD_UnPackParam(RF, OutData) type(RegFile), intent(inout) :: RF type(WD_ParameterType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackParam' - integer(B8Ki) :: LB(1), UB(1) + integer(B4Ki) :: LB(1), UB(1) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1590,7 +1590,7 @@ subroutine WD_CopyInput(SrcInputData, DstInputData, CtrlCode, ErrStat, ErrMsg) integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: ErrStat2 character(*), parameter :: RoutineName = 'WD_CopyInput' ErrStat = ErrID_None @@ -1601,8 +1601,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, kind=B8Ki) - UB(1:2) = ubound(SrcInputData%V_plane, kind=B8Ki) + LB(1:2) = lbound(SrcInputData%V_plane) + UB(1:2) = ubound(SrcInputData%V_plane) 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 @@ -1617,8 +1617,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%Ct_azavg, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%Ct_azavg) + UB(1:1) = ubound(SrcInputData%Ct_azavg) if (.not. allocated(DstInputData%Ct_azavg)) then allocate(DstInputData%Ct_azavg(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1629,8 +1629,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, kind=B8Ki) - UB(1:1) = ubound(SrcInputData%Cq_azavg, kind=B8Ki) + LB(1:1) = lbound(SrcInputData%Cq_azavg) + UB(1:1) = ubound(SrcInputData%Cq_azavg) if (.not. allocated(DstInputData%Cq_azavg)) then allocate(DstInputData%Cq_azavg(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1684,7 +1684,7 @@ subroutine WD_UnPackInput(RF, OutData) type(RegFile), intent(inout) :: RF type(WD_InputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackInput' - integer(B8Ki) :: LB(2), UB(2) + integer(B4Ki) :: LB(2), UB(2) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return @@ -1708,14 +1708,14 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg integer(IntKi), intent(in ) :: CtrlCode integer(IntKi), intent( out) :: ErrStat character(*), intent( out) :: ErrMsg - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: 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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%xhat_plane, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%xhat_plane) + UB(1:2) = ubound(SrcOutputData%xhat_plane) 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 @@ -1726,8 +1726,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%p_plane, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%p_plane) + UB(1:2) = ubound(SrcOutputData%p_plane) 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 @@ -1738,8 +1738,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Vx_wake, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Vx_wake) + UB(1:2) = ubound(SrcOutputData%Vx_wake) 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 @@ -1750,8 +1750,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, kind=B8Ki) - UB(1:2) = ubound(SrcOutputData%Vr_wake, kind=B8Ki) + LB(1:2) = lbound(SrcOutputData%Vr_wake) + UB(1:2) = ubound(SrcOutputData%Vr_wake) 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 @@ -1762,8 +1762,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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%Vx_wake2, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%Vx_wake2) + UB(1:3) = ubound(SrcOutputData%Vx_wake2) 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 @@ -1774,8 +1774,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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%Vy_wake2, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%Vy_wake2) + UB(1:3) = ubound(SrcOutputData%Vy_wake2) 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 @@ -1786,8 +1786,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, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%Vz_wake2, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%Vz_wake2) + UB(1:3) = ubound(SrcOutputData%Vz_wake2) 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 @@ -1798,8 +1798,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%D_wake, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%D_wake) + UB(1:1) = ubound(SrcOutputData%D_wake) if (.not. allocated(DstOutputData%D_wake)) then allocate(DstOutputData%D_wake(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1810,8 +1810,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, kind=B8Ki) - UB(1:1) = ubound(SrcOutputData%x_plane, kind=B8Ki) + LB(1:1) = lbound(SrcOutputData%x_plane) + UB(1:1) = ubound(SrcOutputData%x_plane) if (.not. allocated(DstOutputData%x_plane)) then allocate(DstOutputData%x_plane(LB(1):UB(1)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1822,8 +1822,8 @@ subroutine WD_CopyOutput(SrcOutputData, DstOutputData, CtrlCode, ErrStat, ErrMsg DstOutputData%x_plane = SrcOutputData%x_plane end if if (allocated(SrcOutputData%WAT_k)) then - LB(1:3) = lbound(SrcOutputData%WAT_k, kind=B8Ki) - UB(1:3) = ubound(SrcOutputData%WAT_k, kind=B8Ki) + LB(1:3) = lbound(SrcOutputData%WAT_k) + UB(1:3) = ubound(SrcOutputData%WAT_k) if (.not. allocated(DstOutputData%WAT_k)) then allocate(DstOutputData%WAT_k(LB(1):UB(1),LB(2):UB(2),LB(3):UB(3)), stat=ErrStat2) if (ErrStat2 /= 0) then @@ -1896,7 +1896,7 @@ subroutine WD_UnPackOutput(RF, OutData) type(RegFile), intent(inout) :: RF type(WD_OutputType), intent(inout) :: OutData character(*), parameter :: RoutineName = 'WD_UnPackOutput' - integer(B8Ki) :: LB(3), UB(3) + integer(B4Ki) :: LB(3), UB(3) integer(IntKi) :: stat logical :: IsAllocAssoc if (RF%ErrStat /= ErrID_None) return