C
C   THIS SUBROUTINE CALCULATES ALL NOTE DURATIONS BASED ON THE QUARTER N
C
      SUBROUTINE NDUR(NN,DUR)
      REAL DUR(10)
      DUR(4)=NN
      DUR(1)=4.0*DUR(4)
      DUR(2)=2.0*DUR(4)
      DUR(3)=1.5*DUR(4)
      DUR(5)=0.75*DUR(4)
      DUR(6)=DUR(4)/2.0
      DUR(7)=0.75*DUR(6)
      DUR(8)=DUR(6)/2.0
      DUR(9)=DUR(8)/2.0
      DUR(10)=DUR(9)/2.0
      RETURN
      END
