From: ldo@nz.invalid   
      
   On Sun, 13 Oct 2024 17:21:38 +0200, R Daneel Olivaw wrote:   
      
   >       integer record (100), reckey, reccod   
   > c or integer*4   
   >       character*40 recnam, recstr, rectwn   
   > c   
   >       equivalence (record, reckey), (record (2), recnam)   
   >       equivalence (record (12), recstr), (record (22), rectwn)   
   >       equivalence (record (32), reccod)   
   > c               and so on   
      
   So much simpler nowadays:   
      
       integer, parameter :: intsize = kind(0) ! or 4 for integer*4   
       integer, parameter :: strmax = 40   
      
       type :: record_type   
           integer(kind = intsize) reckey   
           character(len = strmax) :: recnam, recstr, recwn   
           integer(kind = intsize) reccod   
           ! and so on   
       end type record_type   
      
       ! declare a variable of the type:   
       type(record_type) :: a_record   
           ! fields accessible as “a_record % reckey”, “a_record %   
   recname” etc   
      
   (Not actually tested, but you get the idea.)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)