Module alpcom_mod
  use iso_c_binding, only: fp => c_double
  IMPLICIT NONE
!----------------------------------------------------------------------
!  SIGTAB -- COMMON FOR SIGTAB PROGRAM
!    INTEGRATION OF ATOMIC AND NUCLEAR REACTION CROSS SECTIONS FOR
!  OBTAINING REACTION RATES OF INTEREST
!
  public
  SAVE
!
!----------------------------------------------------------------------
! FROM ALPCOM
!------------------------------------------------------------------------------
!
!     COMMON BLOCK FOR ALPACK STANDARD ALADDIN ENTRY PARSING
!
!     ORIGINAL STRUCTURE DEFINED BY  R. A. HULSE, PRINCETON UNIVERSITY,
!     PLASMA PHYSICS LABORATORY.
!     (PAPER TO BE SUBMITTED TO THE JOURNAL OF COMPUTATIONAL PHYSICS
!      COMMUNICATIONS)
!
!------------------------------------------------------------------------------
!
!     REV: 2/02/89 BY J.J. SMITH IAEA ATOMIC AND MOLECULAR DATA UNIT
!          ALL LABEL LENGTHS INCREASED FROM 20 CHARACTERS TO 40
!          THE FLAG FEXN HAS BEEN ADDED TO COMUNICATE WHETHER
!          COEFFICIENTS CAN BE PRINTED IN 1PE13.6 FORMAT
!
!------------------------------------------------------------------------------
!
!     NOTE: CHARACTER VARIABLES ARE IN A SEPARATE COMMON BLOCK TO ACCOMODATE
!           FORTRAN COMPILERS WHICH REQUIRE THIS SEPARATION OF VARIABLE TYPES
!
!     NELMX   DIMENSIONED MAXIMUM NUMBER OF LINES IN ENTRY BUFFER
!     NHLMX   DIMENSIONED MAXIMUM NUMBER OF HIERARCHICAL LABELS
!     NBLMX   DIMENSIONED MAXIMUM NUMBER OF BOOLEAN LABELS
!
!     LESEQN  ENTRY SEQUENCE NUMBER (0 = NO ENTRY CURRENTLY IN BUFFER)
!     EBUFF   BUFFER FOR CURRENT ENTRY LINES, PLUS FIRST LINE OF NEXT ENTRY
!     NELN    NUMBER OF LINES IN THIS ENTRY
!     HL      HIERARCHICAL LABELS
!     BL      BOOLEAN LABELS
!     NHL     NUMBER OF HIERARCHICAL LABELS
!     NBL     NUMBER OF BOOLEAN LABELS
!     LCMPTR  POINTER TO FIRST COMMENT LINE IN EBUFF
!     NCMLN   NUMBER OF COMMENT LINES IN EBUFF
!     LCFPTR  POINTER TO FIRST LINE OF COEFFICIENT FIELD IN EBUFF
!     NCFLN   NUMBER OF COEFFICIENT FIELD LINES
!
!     FEXTN   .FALSE. IF COEFFICIENTS CANNOT BE PRINTED IN 1PE13.6
!              FORMAT
!
!------------------------------------------------------------------------------
!
  INTEGER, PARAMETER :: NELNMX=100, NHLMX=100, NBLMX=100
  INTEGER leseqn,neln,nhl,nbl,lcmptr,ncmln,&
       lcfptr,ncfln
  CHARACTER*80 EBUFF(NELNMX)
  CHARACTER*40 HL(NHLMX), BL(NBLMX)
  LOGICAL FEXTN
! COMMON /ALENT/LESEQN,NELN,NHL,NBL,LCMPTR,NCMLN,LCFPTR,NCFLN,FEXTN
! COMMON /ALENTL/EBUFF,HL,BL
end Module alpcom_mod
