You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
344 B
11 lines
344 B
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)
|
|
|
|
|
|
|