GenerateRealParametersFromDblArray

From scripting
Jump to: navigation, search 
Function GenerateRealParametersFromDblArray(ParmList As Parameters, DblArr As Variant) As Variant
Dim ParmArr()
ReDim ParmArr(UBound(DblArr))
For X = 0 To UBound(DblArr)
    Set ParmArr(X) = ParmList.CreateReal("STD_Rad" & Format(X, "00"),  DblArr(X))
Next X
GenerateRealParametersFromDblArray = ParmArr
End Function
Retrieved from "http://nickpisca.com/BLAST/index.php?title=GenerateRealParametersFromDblArray&oldid=111"