C     DIN.h
C
      PARAMETER(L=45,L1=L-1,LL=L+1,M=45,MM=M-1,MMA=M+1,NLO=72,NLO1=73)
      COMMON/GRID/PA(L),PABK(L),ZKM(L),Z(L),ZST(LL),FI(M),ZBK(L),CS(M),
     *CSI(MMA),ZKMBK(L),FCY(0:MMA),FST(MMA),ALYM(0:NLO1),ALYMS(NLO1),
     $JNLOH(0:NLO1),ALON(0:NLO1)
      COMMON/DN/AM(L),TR(L),QR(L),YP(L),EM(L,M,4),GCR(L,M),
     *ALIG(L),BONL(M,2),EMNL(2),PLIGNOX(NLO,M,12),NCOU(L,M,NLO),
     $NREL(M),NRM(M),OPMD(M),OPMDO(M),DUR(M),DURO(M)