From 51046f0c31ed431d9c710ffddf0cd1bd378c253f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Mon, 14 Nov 2005 16:12:05 +0000
Subject: [PATCH] As of snapshot 20051112 of gfortran we may use the function
 version of toupper/tolower.

---
 src/prec/psb_dprecset.f90 | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/prec/psb_dprecset.f90 b/src/prec/psb_dprecset.f90
index 82ae13d0..bcf9f8fe 100644
--- a/src/prec/psb_dprecset.f90
+++ b/src/prec/psb_dprecset.f90
@@ -20,9 +20,6 @@ subroutine psb_dprecset(p,ptype,iv,rs,rv,info)
 
   if (.not.associated(p%baseprecv)) then 
     allocate(p%baseprecv(1),stat=err)
-!!$    if (associated(p%baseprec%iprcparm)) then 
-!!$      write(0,*) 'precset: should not get here!'
-!!$    endif
     call psb_nullify_baseprec(p%baseprecv(1))
   endif
 
@@ -33,9 +30,7 @@ subroutine psb_dprecset(p,ptype,iv,rs,rv,info)
     endif
   end if
 
-  call touppers(ptype,typeup)
-  select case (typeup)
-!!$  select case(toupper(ptype))
+  select case(toupper(ptype))
   case ('NONE','NOPREC') 
     p%baseprecv(1)%iprcparm(p_type_)     = noprec_
     p%baseprecv(1)%iprcparm(f_type_)     = f_none_