33
begin ( EPH }
if NSUBA(NNIT) = 0 then begin
case NMETHKA[NNIT] of
0: begin
if ROS<=0.70 then ERO:=0.2
else begin
if ROS <= 0.76 then ERO:=0.5
else ERO:= 1.7;
end; {endif}
end;
1: ERO:=0.2;
2: ERO:=0.2;
3: begin
if YR[13] = 0.0 then begin
if T>-3.0 then begin
ERO:=EPH3[1,1,3]; EKAP:=EPH3[1,2,3];
EVIS:=EPH3[ 1,3,3]
end else begin
if P>60.0 then begin
ERO:=EPH3[1,1,2]; EKAP:=EPH3[ 1,2,2];
EVIS:=EPH3[ 1,3,2]
end else begin
ERO:=EPH3[1,1,1]; EKAP:=EPH3[1,2,1];
EVIS:=EPH3[1,3,1]
end; {endif}
end; {endif}
end else begin
if T>-3.0 then begin
ERO:=EPH3[2,1,3]; EKAP:=EPH3(2,2,3];
EVIS:=EPH3[2,3,3]
end else begin
if P>60.0 then begin
ERO:=EPH3[2.1,2]; EKAP:=EPH3[2,2,2];
EVIS:=EPH3[2,3,2]
end else begin
ERO:=EPH3[2,1,1]; EKAP:=EPH3[2,2,1];
EVIS:=EPH3(2,3,1]
end; {endif}
end; {endif}
end; {endif}
end;
end; { endcase }
if NMETHKA[NNIT]<>3 then begin
if T>-3.0 then begin
EKAP:=EPH3[ 1,2,3]; EVIS:=EPH3[1,3.3]
end else begin
if P>60.0 then begin ,
EKAP:=EPH3[ 1,2.2]; EVIS:=EPH3[1,3,2]
end else begin
EKAP:=EPH3[1,2,1]; EVIS:=EPH3(1,3,1]
end; {endif}
end; {endif}