Searched refs:n_plms (Results 1 – 1 of 1) sorted by relevance
3947 n_plms = 03951 if (n_plms /= 0 .and. n_plms /= 1 .and. n_plms /= 3) then3955 print*,'invalid 2nd dim for plm: ',n_plms3961 if (polar == 0) n_plms = min(n_plms,1)4035 select case (n_plms+polar*10)4079 select case (n_plms+polar*10)4194 n_plms = 04198 if (n_plms /= 0 .and. n_plms /= 1 .and. n_plms /= 3) then4208 if (polar == 0) n_plms = min(n_plms,1)4293 select case (n_plms+polar*10)[all …]