Path: ...!news.roellig-ltd.de!open-news-network.org!weretis.net!feeder8.news.weretis.net!eternal-september.org!feeder3.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Lynn McGuire <lynnmcguire5@gmail.com>
Newsgroups: comp.lang.fortran
Subject: Re: Is there a way in Fortran to designate an integer value as
 integer*8 ?
Date: Tue, 22 Oct 2024 19:42:45 -0500
Organization: A noiseless patient Spider
Lines: 74
Message-ID: <vf9gq5$1n96r$1@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>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Wed, 23 Oct 2024 02:42:46 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="12718488e3fb95f926f84e92473f53ad";
	logging-data="1811675"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX19u8hdSnX27s9gYuQ6kDZANOhM0EohaYd0="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:BtSJRoC7cCdzn/XVciqwR7xV0u0=
Content-Language: en-US
In-Reply-To: <vf98hi$1lsqn$2@dont-email.me>
Bytes: 4492

On 10/22/2024 5:21 PM, Lawrence D'Oliveiro wrote:
> On Tue, 22 Oct 2024 00:07:41 -0500, Lynn McGuire wrote:
> 
>> Here is one of my 197 common block include files, global.inc:
>>
>> C  global.inc
>> C
>> C
>> C  11/21/19  Lynn McGuire  pmr 6299, add new ncp max used variable for chemtran
> 
> Those are the sorts of things that belong in your version control
> system.
> 
>> ...
> 
> What, no “implicit none”? Or do you put this in the including files?
> 
>>         integer MAX_NCP
>>         PARAMETER (MAX_NCP = 1000)
> 
> All these pairs of lines can be replaced with single lines, e.g.
> 
>     integer, parameter :: MAX_NCP = 1000
> 
>>        COMMON / GLOBAL / KTRACE, NCP, SETSTP, NDYNER, NERQQQ, LNOLIMIT,
>>        *                  do_not_call_pivf, do_not_call_adbf,
>>        *                  ne_did_not_converge, equipment_fail_count,
>>        *                  lrespect_user_pitch, do_not_call_threephs,
>>        *                  do_not_call_flai, do_not_call_liqh,
>>        *                  do_not_call_vaph, thermo_init_failed,
>>        *                  num_crude_streams, print_streams_for_each_unit,
>>        *                  do_not_call_solid_isothermal_flash,
>>        *                  ncp_max_used
>>
>>         integer KTRACE
>>         integer NCP
>>         logical SETSTP
>>         integer NDYNER
>>         integer NERQQQ
>>         integer num_crude_streams
>>         logical LNOLIMIT
>>         logical do_not_call_pivf
>>         logical do_not_call_adbf
>>         logical lrespect_user_pitch
>>         logical do_not_call_threephs
>>         logical do_not_call_flai
>>         logical do_not_call_liqh
>>         logical do_not_call_vaph
>>         logical thermo_init_failed
>>         logical print_streams_for_each_unit
>>         logical do_not_call_solid_isothermal_flash
>> C        this is to record the ncp max used for chemtran since itchanges ncp on the fly
>>         integer ncp_max_used
> 
> Much more concisely:
> 
>      module GLOBAL
>          integer :: KTRACE, NCP, SETSTP, NDYNER, NERQQQ, num_crude_streams
>          logical :: LNOLIMIT, do_not_call_pivf, do_not_call_adbf, lrespect_user_pitch, &
>              do_not_call_threephs, do_not_call_flai, do_not_call_liqh, do_not_call_vaph, &
>              thermo_init_failed, print_streams_for_each_unit, do_not_call_solid_isothermal_flash
>         integer :: ncp_max_used
>           ! this is to record the ncp max used for chemtran since itchanges ncp on the fly
>      end module GLOBAL
> 
> Then you just do “use GLOBAL” where you need these definitions.
> 
> etc etc

I have "implicit none" in my first mandatory include for all 5,000+ 
subroutine files.

Lynn