|
- module CRotaryProblems
- use CRotaryProblemsVariables
- implicit none
- public
- contains
-
- ! ! Input routines
- ! subroutine SetMotorFail2(v)
- ! !DEC$ ATTRIBUTES DLLEXPORT :: SetMotorFail2
- ! !DEC$ ATTRIBUTES ALIAS: 'SetMotorFail2' :: SetMotorFail2
- ! implicit none
- ! type(CProblem), intent(in) :: v
- ! RotaryProblems%MotorFail = SetDue(v, ChangeMotorFail)
- ! #ifdef deb
- ! print*, 'MotorFail%ProblemType=', V%ProblemType
- ! print*, 'MotorFail%StatusType=', V%StatusType
- ! print*, 'MotorFail%Value=', V%Value
- ! #endif
- ! end subroutine
-
- ! subroutine SetOverideTorqueLimit2(v)
- ! !DEC$ ATTRIBUTES DLLEXPORT :: SetOverideTorqueLimit2
- ! !DEC$ ATTRIBUTES ALIAS: 'SetOverideTorqueLimit2' :: SetOverideTorqueLimit2
- ! implicit none
- ! type(CProblem), intent(in) :: v
- ! RotaryProblems%OverideTorqueLimit = SetDue(v, ChangeOverideTorqueLimit)
- ! #ifdef deb
- ! print*, 'OverideTorqueLimit%ProblemType=', V%ProblemType
- ! print*, 'OverideTorqueLimit%StatusType=', V%StatusType
- ! print*, 'OverideTorqueLimit%Value=', V%Value
- ! #endif
- ! end subroutine
-
- end module CRotaryProblems
|
