real(dp),parameter::
     & pi=3.1415926535897932385_dp,
     & pisq=pi*pi,pisqo6=pisq/6._dp,
     & zero=0._dp,zip=0._dp,half=0.5_dp,one=1._dp,
     & two=2._dp,three=3._dp,four=4._dp,five=5._dp,
     & six=6._dp,eight=8._dp
      complex(dp),parameter:: im=(0._dp,1._dp),
     & impi=(0._dp,pi),czip=(0._dp,0._dp),cone=(1._dp,0._dp)