10-01-2015, 06:20 PM
Hello,
In this small code part I get an error.
The error is on the "else" and I marked the code.
Please have a look. I could not find the error.
Thanks for any help.
Jan
B23p_T(T);
p4_T(T);
//***********************************************************************************************************
//*3 Region Selection
//***********************************************************************************************************
//*3.1 Regions as a function of pT
EXPORT region_pT(p, T)
BEGIN
LOCAL dummy,ps;
IF T > 1073.15 AND p < 10 AND T < 2273.15 AND p > 0.000611 THEN
dummy := 5;
ELSE
IF T <= 1073.15 AND T > 273.15 AND p <= 100 AND p > 0.000611 THEN
IF T > 623.15 THEN
IF p > B23p_T(T) THEN
dummy := 3;
IF T < 647.096 THEN
ps := p4_T(T);
IF abs(p - ps) < 0.00001 THEN
dummy := 4;
END;
END;
ELSE
dummy := 2;
END;
ELSE
ps := p4_T(T);
IF abs(p - ps) < 0.00001 THEN
dummy := 4;
ELSE IF p > ps THEN
dummy := 1;
ELSE
dummy := 2;
END;
END;
ELSE <== ERROR ?????????
dummy := 0; //**Error, Outside valid area
END;
END;
RETURN dummy;
END;
In this small code part I get an error.
The error is on the "else" and I marked the code.
Please have a look. I could not find the error.
Thanks for any help.
Jan
B23p_T(T);
p4_T(T);
//***********************************************************************************************************
//*3 Region Selection
//***********************************************************************************************************
//*3.1 Regions as a function of pT
EXPORT region_pT(p, T)
BEGIN
LOCAL dummy,ps;
IF T > 1073.15 AND p < 10 AND T < 2273.15 AND p > 0.000611 THEN
dummy := 5;
ELSE
IF T <= 1073.15 AND T > 273.15 AND p <= 100 AND p > 0.000611 THEN
IF T > 623.15 THEN
IF p > B23p_T(T) THEN
dummy := 3;
IF T < 647.096 THEN
ps := p4_T(T);
IF abs(p - ps) < 0.00001 THEN
dummy := 4;
END;
END;
ELSE
dummy := 2;
END;
ELSE
ps := p4_T(T);
IF abs(p - ps) < 0.00001 THEN
dummy := 4;
ELSE IF p > ps THEN
dummy := 1;
ELSE
dummy := 2;
END;
END;
ELSE <== ERROR ?????????
dummy := 0; //**Error, Outside valid area
END;
END;
RETURN dummy;
END;