Backport fixes.

Author: ohearnk

src/dlfind/dlfind_quick.f90

@@ -1194,7 +1194,7 @@ subroutine set_libxc_func_info(f_keywd, self,ierr)
             .and. (index(functional_name,'mgga') .eq. 0))  then
                 functional_name=trim(functional_name)
 
-                call upcase(functional_name,300)
+                call upcase(functional_name, 256)
 
                 if((trim(functional_name) == trim(func1)) .or. (trim(functional_name) == trim(func2))) then 
                         nof_f=nof_f+1