Searched refs:lucita_cfg_ci_type (Results 1 – 5 of 5) sorted by relevance
493 if(lucita_cfg_ci_type(1:6) == 'RASCI ')then524 select case(lucita_cfg_ci_type(1:6))617 if(lucita_cfg_ci_type(1:4).eq.'none')then622 if(lucita_cfg_ci_type(1:6).ne.'GASCI '.and. lucita_cfg_ci_type(1:6).ne.'RASCI ')then625 ' You have chosen: ',lucita_cfg_ci_type, &689 if(lucita_cfg_ci_type(1:6).eq.'GASCI ')then697 if(lucita_cfg_ci_type(1:6).eq.'GASCI ')then727 lucita_cfg_ci_type, &751 lucita_cfg_ci_type, & argument775 character (len=72), intent(in) :: lucita_cfg_ci_type local[all …]
63 lucita_cfg_ci_type(1:6) = 'GASCI '65 lucita_cfg_ci_type(1:6) = 'RASCI '137 lucita_cfg_ci_type(1:72) = gasci_input_ci_type(1:72)
26 character (len = 72), public :: lucita_cfg_ci_type = 'none' variable
167 call dalton_mpi_bcast(lucita_cfg_ci_type, 0, my_comm_world)
50 \verb|READ(LUCMD,*) lucita_cfg_ci_type |