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.
12 lines
381 B
12 lines
381 B
real(dp),parameter::
|
|
& up(4,4)=reshape((
|
|
& /-1d0, 0d0, 0d0, 0d0,
|
|
& 0d0,-1d0, 0d0, 0d0,
|
|
& 0d0, 0d0,-1d0, 0d0,
|
|
& 0d0, 0d0, 0d0,+1d0/),(/4,4/)),
|
|
& dn(4,4)=reshape((
|
|
& /+1d0, 0d0, 0d0, 0d0,
|
|
& 0d0,+1d0, 0d0, 0d0,
|
|
& 0d0, 0d0,+1d0, 0d0,
|
|
& 0d0, 0d0, 0d0,+1d0/),(/4,4/))
|
|
|