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.
5 lines
202 B
5 lines
202 B
real(dp),parameter:: g(4,4)=reshape((
|
|
& /-1._dp,0._dp ,0._dp , 0._dp,
|
|
& 0._dp ,-1._dp,0._dp , 0._dp,
|
|
& 0._dp , 0._dp,-1._dp, 0._dp,
|
|
& 0._dp, 0._dp, 0._dp,+1._dp/),(/4,4/))
|