procedure calculoFijo is
   begin
   for I in 1..Max loop
         T(I) := (ST1(I-1) + ST2(I-1))/2.0;
         ST2(I) := ST1(I-1) + ((0.13 * 15.0 * SR1(I))-(4.0*(T(I)-ST4(I))))*((9.0*2.0*6.0*10000.0)/(SC1Fijo*4190.0*975.0));
         ST1(I) := ST2(I) - 11.0;
         SD1(I) := 24.0 *(0.135 + 0.003 * ST2(I-1) - 0.0204 * ST3(I) - 0.001 * SC2Fijo + 0.00004 * ST2(I-1)*SC2Fijo);
      end loop;
   escrituraFichero(False);
end calculoFijo;