As of snapshot 20051112 of gfortran we may use the function version of toupper/tolower.

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent 567bbec262
commit 51046f0c31

@ -20,9 +20,6 @@ subroutine psb_dprecset(p,ptype,iv,rs,rv,info)
if (.not.associated(p%baseprecv)) then if (.not.associated(p%baseprecv)) then
allocate(p%baseprecv(1),stat=err) 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)) call psb_nullify_baseprec(p%baseprecv(1))
endif endif
@ -33,9 +30,7 @@ subroutine psb_dprecset(p,ptype,iv,rs,rv,info)
endif endif
end if end if
call touppers(ptype,typeup) select case(toupper(ptype))
select case (typeup)
!!$ select case(toupper(ptype))
case ('NONE','NOPREC') case ('NONE','NOPREC')
p%baseprecv(1)%iprcparm(p_type_) = noprec_ p%baseprecv(1)%iprcparm(p_type_) = noprec_
p%baseprecv(1)%iprcparm(f_type_) = f_none_ p%baseprecv(1)%iprcparm(f_type_) = f_none_

Loading…
Cancel
Save