Forums before death by AOL, social media and spammers... "We can't have nice things"
| comp.lang.fortran | Putting John Backus on a giant pedestal | 5,127 messages |
[ << oldest | < older | list | newer > | newest >> ]
| Message 4,805 of 5,127 |
| Lawrence D'Oliveiro to Lynn McGuire |
| Re: Is there a way in Fortran to designa |
| 26 Oct 24 02:49:20 |
From: ldo@nz.invalid
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 */
--- SoupGate-Win32 v1.05
* Origin: you cannot sedate... all the things you hate (1:229/2)
|
(c) 1994, bbs@darkrealms.ca