package body ecuaciones is

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

    --Aqui almacenaremos los datos resultantes
   resultado : datos_aux;

   ST2 : float;
   ST1 :  float;
   DS1 :  float;
   Tt :  float;

   begin

      --Ecuaciones a resolver
      Tt := (ST1k + ST2k)/2.00;
      ST2:= ST1k + ( (B * l *SR1) - (H*(Tt - ST4)))* (c/(SC1*cp*p));
      ST1 := ST2k - 11.00;
      DS1 := 24.00 * (0.135 + 0.003 * ST2k - 0.0204* ST3 - 0.001 * SC2 + 0.00004*ST2k * SC2);

      --Almacenamos el resultado
      resultado := (ST2, Tt, ST1, DS1);

      --Devolvemos los datos
      return resultado;
   end ec;

end ecuaciones;