1
subroutine create_mr_evl_sorted(k_f1_offsetm)
10
#include "tce_main.fh"
15
integer k_f1_offsetm(maxref)
25
c nodezero = (ga_nodeid().eq.0)
32
k_offset = k_offsetm(iref)
33
k_range = k_rangem(iref)
34
k_spin = k_spinm(iref)
35
k_movecs_sorted = k_movecs_sortedm(iref)
47
IF (int_mb(k_spin+g6b-1) .eq. int_mb(k_spin+g5b-1)) THEN
48
IF (ieor(int_mb(k_sym+g6b-1),int_mb(k_sym+g5b-1)) .eq. irrep_f) TH
50
IF ((.not.restricted).or.(int_mb(k_spin+g6b-1)+int_mb(k_spin+g5b-1
53
size = int_mb(k_range+g6b-1) * int_mb(k_range+g5b-1)
55
if (.not.ma_push_get(mt_dbl,size,'f1mi',l_f1,k_f1))
56
1 call errquit('tce_mrcc_iface_f1: MA problem get',0,MA_ERR)
59
call get_hash_block(d_f1m(iref),dbl_mb(k_f1),size,
60
1 int_mb(k_f1_offsetm(iref)),g6b-1+(noab+nvab)*(g5b-1))
62
do i=1,int_mb(k_range+g6b-1)
63
do j=1,int_mb(k_range+g5b-1)
67
dbl_mb(k_evl_sortedm(iref)+k-1) = dbl_mb(k_f1-1+l)
72
if (.not.ma_pop_stack(l_f1))
73
1 call errquit('tce_mrcc_iface_f1: MA problem pop',1,MA_ERR)