      MODULE PRN_EXP
      
      CONTAINS
      
      SUBROUTINE PRN_EXPNOS_2 (
     & MINSTATE
     & , COL_LBL
     & )
      USE FILES ! CONTAINS LOGICAL I/O UNIT NUMBERS, INCLUDING "IOUT", A .CSV FILE
      USE UTILS ! CONTAINS "CONVERT"
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: MINSTATE ! MINIMUM STATE INDEX (<= 0)
      CHARACTER*43, INTENT(IN) :: COL_LBL(MINSTATE:1) ! COLUMN LABELS
C ***
C *** ------------------------------------------------------------------
C ***
C ***  LOCAL VARIABLE DEFINITIONS
C ***                                 !
      CHARACTER*10 CTMP               ! TEMPORARY (SCRATCH) CHARACTER VARIABLE
      CHARACTER*80 FORMAT4            ! DITTO
      INTEGER ITMP                    ! TEMPORARY (SCRATCH) INTEGER VARIABLE
C ***
C *** ------------------------------------------------------------------
C ***
C *** EXECUTABLE CODE
C ***
      CALL CONVERT (1-MINSTATE,CTMP) ! CONVERTS POSITIVE-VALUED INTEGER "1-MINSTATE"
                                     ! TO CORREPONDING CHARACTER STRING "CTMP"
      FORMAT4 = '(4("IND_D,",A43,",",'//TRIM(ADJUSTL(CTMP))//'(",")))'
!      CVEC = COL_LBL(1)
!      WRITE (IOUT,FORMAT4) (CVEC(ITMP), ITMP = 1, 4)
!      C43 = COL_LBL(1)
!      WRITE (IOUT,FORMAT4) (C43, ITMP = 1, 4)
C        THE FOLLOWING STATEMENT, WHICH FUNCTIONED AS DESIRED IN FORTRAN 11.1, CAUSES AN
C        "INTERNAL COMPILER ERROR C0000005" IN FORTRAN 17.  THE 4 LINES STARTING WITH
C        "CVEC =" ABOVE ARE TWO ALTERNATIVE WORK-AROUNDS.
      WRITE (IOUT, FORMAT4) (COL_LBL(1), ITMP = 1, 4)
      RETURN
      END SUBROUTINE PRN_EXPNOS_2
      
      END MODULE PRN_EXP