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

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