From: lynnmcguire5@gmail.com   
      
   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   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)