Вызов подпрограммы (C++Builder 6)

[vale4ka_1989]

С помощью какой функции можно вызвать подпрограмму?

{
for (J=4;J<=40;J++){
        R=XT*J;  {
        WW=AA*QI(AA,R);
      IKRON(B1,EE,D,H,AA,P,R);
        WW+=P;
       IKRON(B2,EEE,D1,H1,B1,P,R);
        WW+=P;
      IKRON(B,EE,D,H,B2,P,R);
        WW+=P;
        S4=Z*Z*V/R;       
        S5=WW/4.0/R;      
        SS=S4+S5; }      
        //Âûâîä R, S4, S5, SS
  Memo1->Lines->Add(""+FormatFloat("0.000",R));
  Memo2->Lines->Add(""+FormatFloat("0.0000000000",S4));
  Memo3->Lines->Add(""+FormatFloat("0.0000000000",S5));
  Memo4->Lines->Add(""+FormatFloat("0.0000000000",SS));
  Memo5->Lines->Add(""+FormatFloat("0.0000000000",WW));
}
}
void IKRON(double B, double EE, double D, double H, double AA, double P, double R) {
double U[9], V[9], BB[9], E1, S1, Z1, BT, EP, AT, ET, S2,S3, EF, ZZ, XX, YY, AX, Q, W=2, QQ,X;
boolean T;
U[0]=0.011719874;
U[1]=0.069431844;
U[2]=0.179856891;
U[3]=0.330009478;
U[4]=0.5;
U[5]=0.669990521;
U[6]=0.820143108;
U[7]=0.930568155;
U[8]=0.988280125;
V[0]=0;
V[1]=0.173927422;
V[2]=0;
V[3]=0.326072577;
V[4]=0;
V[5]=0.326072577;
V[6]=0;
V[7]=V[1];
V[8]=0;
BB[0]=0.031488686;
BB[1]=0.085026802;
BB[2]=0.13339917;
BB[3]=0.163474594;
BB[4]=0.17322149;
BB[5]=0.163474594;
BB[6]=0.13339917;
BB[7]=0.085026802;
BB[8]=BB[0];
T=FALSE;
E1=0.0;
S1=0.0;
Z1=H;
BT=AA;
EP=EE/(B-AA);
 L1: if(BT!=B) goto L2;
      AT=BT;
  L3: BT=AT+Z1;

if(BT<B) goto L4;
Z1=B-AT;
L4: BT=B;
 ET=EP*Z1;

S2=0.0;
S3=0.0;

for(K=1;K<=9;K++)
{
X=AT+Z1*U[K];

QQ=QI(X,R);

S2=S2+QQ*V[K];

S3=S3+QQ*BB[K];

S2=S2*Z1;
S3=S3*Z1;

ET=fabs(S3-S2);

  if(EF<=ET) goto L6;
      ZZ=Z1/W;


  if(ZZ<=D) goto L7;
   Z1=Z1/W; goto L3;
  L7:  XX=EE-E1-EF;


if(XX<=0.0) goto L8;
YY=B-BT;

if(YY>0.0)   EP=XX/YY;
goto L1;
 L8: EP=0.0;
 L6: E1=E1+EF;

 if(T<ET && EF<ET)
Z1=Z1*W;

 AX=ET-EF;

 T=AX>0.0;

    S1=S1+S3;
 goto L1;
 L2: P=S1;
}
return;

}

в моем случае IKRON(B,EE,D,H,AA,P,R) - подпрограмма.