C-----------------------------------------------------------------------
C  Convert to standard working notation
C-----------------------------------------------------------------------
      SUBROUTINE SGLPAK (L,IER)
      DIMENSION L(4)
      IF ( L(2) .LT. 12 ) IER = 4
      IF (L(2) .GT. 17) IER = 4
      L(1) = L(2)
      L(2) = 3
      RETURN
      END