Path: ...!eternal-september.org!feeder2.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Lawrence D'Oliveiro <ldo@nz.invalid>
Newsgroups: comp.lang.fortran
Subject: Re: Is there a way in Fortran to designate an integer value as
 integer*8 ?
Date: Sat, 26 Oct 2024 02:49:20 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 30
Message-ID: <vfhlbg$3i0mb$3@dont-email.me>
References: <vdict2$339ak$1@dont-email.me> <vdir24$35104$1@dont-email.me>
	<vdk718$3bulb$1@dont-email.me> <vdl6fi$3jra3$2@dont-email.me>
	<vdlfpl$3l0f5$1@dont-email.me> <vdmbml$3p2dv$1@dont-email.me>
	<vdmrgc$3rih7$2@dont-email.me> <vdn4kp$3ssv4$9@dont-email.me>
	<vdn4ul$3t78e$3@dont-email.me> <vdn659$3ssv4$18@dont-email.me>
	<vdnrr9$3qrq$1@dont-email.me> <vdnvgh$49ai$1@dont-email.me>
	<vdqe7n$kqq0$1@dont-email.me> <vdqmue$lo51$11@dont-email.me>
	<vds64m$sj9s$1@dont-email.me> <vf2507$9mo4$2@dont-email.me>
	<vf4mbh$qfqu$1@dont-email.me> <vf4pi2$qsfn$1@dont-email.me>
	<vf7but$1blh6$1@dont-email.me> <vf98hi$1lsqn$2@dont-email.me>
	<vfbgtf$25j82$1@dont-email.me> <vfbno9$28v56$3@dont-email.me>
	<vfbqt2$29fb2$1@dont-email.me> <vfcpei$2hhb3$1@dont-email.me>
	<vfhggd$3digo$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Injection-Date: Sat, 26 Oct 2024 04:49:21 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="5c6e5cf9254ac19034265e59688edf8f";
	logging-data="3736267"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX197gHbpRDuOABcqyGklrmvD"
User-Agent: Pan/0.160 (Toresk; )
Cancel-Lock: sha1:XO8o6uoAjNncCAFz/A5pE+BnsL4=
Bytes: 2313

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