IRResultType
PiecewiseLinFunctionBlock :: initializeFrom(InputRecord *ir, DataReader *dr)
{
    const char *__proc = "initializeFrom"; // Required by IR_GIVE_FIELD macro
    IRResultType result;                // Required by IR_GIVE_FIELD macro
    int i;
    
    LoadTimeFunction :: initializeFrom(ir);

    IR_GIVE_FIELD(ir, numberOfPoints, IFT_PiecewiseLinFunctionBlock_npoints, "npoints"); // Macro

    PiecewiseLinFunction :: dates.resize(numberOfPoints);
    PiecewiseLinFunction :: values.resize(numberOfPoints);
    
    
    for ( i = 0; i < numberOfPoints; i++ ) {
        ir = dr->giveInputRecord(DataReader :: IR_ltfRec, i + 1);
        ir->giveField(dates.at(i+1),1);
        ir->giveField(values.at(i+1),2);
    }
    ir->finish();

    return IRRT_OK;
}