Re: Is there a way in Fortran to designate an integer value as integer*8 ?

On 10/25/2024 9:49 PM, Lawrence D'Oliveiro wrote:

On Fri, 25 Oct 2024 20:26:37 -0500, Lynn McGuire wrote:
 

{
>
      if (t <= component_data1.triplepointtemperature[k - 1]) {
solid_vapor_pressure (k, t, ps);
*star = ' ';
goto L99999;
      }
>
L99999:
      if (*ps < 1e-20) {
*ps = 1e-20;
      }
      if (*ps > 1e6) {
*ps = 1e6;
      }
      return 0;
>
} /* vapres */

    {
     if (t <= component_data1.triplepointtemperature[k - 1])
       {
         solid_vapor_pressure(k, t, ps);
         *star = ' ';
        } /*if*/
      *ps = fmin(fmax(*ps, 1e-20), 1e6);
      return 0;
   } /* vapres */

BTW, I reduced this function from 250 lines of C++ to what you saw here to reduce the complexity of the posting.  There are several jumps to L99999.
Lynn