Subversion Repositories DevTools

Rev

Rev 5648 | Rev 5751 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5648 Rev 5671
Line 2230... Line 2230...
2230 
 
 2230 
 
2231 
'-------------------------------------------------
 2231 
'-------------------------------------------------
2232 
' Function:         rippleFieldName
2232 
' Function:         rippleFieldName
2233 
' Description:      Return a string to convert a ripple field state to a text name
 2233 
' Description:      Return a string to convert a ripple field state to a text name
2234 
'                   bFlag is set to false if the state is unknown.
 2234 
'                   bFlag is set to false if the state is unknown.
- 
 
 2235 
Dim rippleFieldValues
- 
 
 2236 
rippleFieldValues = Array ("M", "m", "p", "b", "L")
2235 
Function rippleFieldName ( rstate, ByRef bFlag )
 2237 
Function rippleFieldName ( rstate, ByRef bFlag )
2236 
    bFlag = TRUE
 2238 
    bFlag = TRUE
2237 
    Select Case rstate
 2239 
    Select Case rstate
2238 
            Case "M"
2240 
            Case "M"
2239 
                rippleFieldName = "Major Number"
 2241 
                rippleFieldName = "Major Number"