12 lines
578 B
Plaintext
12 lines
578 B
Plaintext
|
|
! shift and scale for 70N structrure
|
|
! Real(dp),parameter:: scal(17) = 1.0d0 ,shift(17) = 1.0d0
|
|
Real(dp),parameter:: scal(17) = &
|
|
[0.00401, 0.00265, 0.00335, 1.19496, 3.79876, 0.32139, 0.46267, &
|
|
1.36249, 0.90118, 0.94406, 0.29014, 0.72172, 1.25435, 2.09880, &
|
|
0.93696, 1.69131, 0.75050 ]
|
|
Real(dp),parameter:: shift(17) = &
|
|
[-0.00018,-0.00018,-0.00002,-0.03463,-0.74584, 0.09806, 0.16350, &
|
|
-0.96733,-0.62850, 0.57182,-0.00110, 0.10584, 0.29949,-0.82418, &
|
|
0.57450, 0.04471, 0.28142 ]
|