SUBROUTINE DSLCLA(IR,JR,IA,KP,U,INS,AA,ND1,NND)
C
      IMPLICIT REAL*8(A-H,O-Z)
C
      INCLUDE 'PARAM'
      COMPLEX*16 U,CR
      COMMON/SPG4/NR,NH,ND(12),IIR(7,48,12),CR(48,12),IATR(12)
      COMMON/ATT/ISITR(LMNATM,48),KION(LMNKAT),VATOM(3,LMNATM)
     &    ,NKATOM,NATOM,MKS(11,LMNKAT),IIAA(LMNATM),JRCH
      SAVE /SPG4/,/ATT/,NDIMC,NDIMH
      DIMENSION KP(2,1),U(1),INS(4,1),AA(1)
      INTEGER NDIMC(10),NDIMH(12)
      DATA NDIMC/
     &   1,1,1,1,2,2,3,3,3,3/
      DATA NDIMH/
     &   1,1,1,1,1,1,1,1,2,2,2,2/
      IAS=1
      IF(IA.NE.1) IAS=KION(IA-1)+1
      IAL=KION(IA)
      NSI=IAL-IAS+1
      IF(JRCH.EQ.2) NDIM=NDIMH(JR)
      IF(JRCH.EQ.1) NDIM=NDIMC(JR)
      WRITE(6,663) IR,ND(IR),IA,NSI,JR,NDIM
  663 FORMAT(' SIMMETRIZED STATES FOR IR=',I2,' ND(IR)=',I2
     &       /' GENERATED FROM IA=',I2,' (NSI=',I2,') JR=',I2,
     &       ' (NDIM=',I2,')') 
      IF(ND1.EQ.0) GO TO 47
      WRITE(6,664) ND1,ND1/ND(IR)
  664 FORMAT(' NUMBER OF STATES=',I2,',NUMBER OF SET=',I2)
      DO 48 ID1=1,ND1
      WRITE(6,661) ID1,(INS(K,ID1),K=1,4),AA(ID1)
  661 FORMAT(I4,I3,' -->',I3,' MU=',I2,' NU=',I2,F10.5)
      ICOUNT=0
      DO 49 ID2=INS(1,ID1),INS(2,ID1)
      ICOUNT=ICOUNT+1
      WRITE(6,660) ID2,ICOUNT,(KP(K,ID2),K=1,2),U(ID2)
  660 FORMAT(4X,2I5,2H (,2I5,4H)  (,2F10.5,1H))
   49 CONTINUE
   48 CONTINUE
      RETURN
   47 WRITE(6,662)
  662 FORMAT(' THERE IS NO STATE')
      RETURN
      END
      SUBROUTINE DSPWA(KB,ICC,IR,NDI,KO,V,BB,D,IND,ND1,ND2,NNWW)
C
      IMPLICIT REAL*8(A-H,O-Z)
C
      INCLUDE 'PARAM'
      COMPLEX*16 U,V
      COMMON/SPW/KM(4,MAXNPW),A(MAXNPW),U(MAXNPW),KT(MAXNPW),IE,IK
      SAVE /SPW/
      DIMENSION KB(3),KO(1),IND(4,1),V(1),BB(1),D(1)
      WRITE(6,663) IR,NDI,KB,ICC,A(IK),ND1,ND2,IK
  663 FORMAT(' SIMMETRIZED PLANE WAVES FOR IR=',I2,' ND(IR)=',I2
     &       /' GENERATED FOR KB=(',3I5,')/',I6,'  .LE.',F10.5, 
     &       /' NUMBER OF STATES=',I3,',NUMBER OF SET=',I3,
     &       ' NUMBER OF USED PLANE WAVES=',I4) 
      IF(ND1.EQ.0) GO TO 492
      DO 49 ID1=1,ND1
      WRITE(6,661) ID1,(IND(K,ID1),K=1,4),D(ID1),BB(ID1)
  661 FORMAT(I4,I3,' -->',I3,' MU=',I2,' NU=',I2,2F10.5)
      ICOUNT=0
      DO 48 IW=IND(1,ID1),IND(2,ID1)
      ICOUNT=ICOUNT+1
      WRITE(6,660) IW,ICOUNT,(KM(K,KO(IW)),K=1,3),ICC,V(IW)
  660 FORMAT(4X,2I5,2H (,3I5,2H)/,I3,3H  (,2F10.5,1H))
   48 CONTINUE
   49 CONTINUE
      RETURN
  492 WRITE(6,662)
  662 FORMAT(' NO STATE FOR THIS REPRESENTATION')
      RETURN
      END