Searched refs:cphik (Results 1 – 3 of 3) sorted by relevance
272 COMPLEX(DP) , ALLOCATABLE :: cphik(:) local346 ALLOCATE(cphik(nstring))705 cphik(istring)=COS(phik(istring))*(1.0_dp,0.0_dp) &713 cphik(istring)=cmplx(1d0,0d0)741 cave=cave+wstring(istring)*cphik(istring)751 cphik(istring)=cphik(istring)/cave752 dtheta=atan2(AIMAG(cphik(istring)), DBLE(cphik(istring)))998 DEALLOCATE(cphik)
122 COMPLEX(DP), ALLOCATABLE :: cphik(:) local237 ALLOCATE( cphik(nstring) )621 cphik(istring) = COS(phik(istring))*(1.0_DP,0.0_DP) &678 DEALLOCATE( cphik )
146 COMPLEX(dp) , ALLOCATABLE :: cphik(:) local259 ALLOCATE( cphik(nstring) ) 901 DEALLOCATE( cphik )