package ecuaciones is

   type datos_aux is array (0..3) of Float;

    b: constant float := 0.13 ;
    l: constant float := 15.00;
    h: constant float := 4.00;
    c: constant float := 1080000.00;
    cp:constant float := 4190.00;
    p: constant float := 975.00;

   function ec(ST1k, SR1, ST4, SC1, ST2k, ST3, SC2 : float) return datos_aux;


end ecuaciones;