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

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 */