fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-18 11:52:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

Updated PENV with min/max.

Browse Source 
Updated docs on utilities.
This commit is contained in:
Salvatore Filippone
2007-01-30 16:16:13 +00:00
parent 60bc82efc1
commit 8bc00d4083
11 changed files with 7034 additions and 4593 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_string_mod.f90
+5 -6
View File
@@ -30,6 +30,7 @@
!!$
module psb_string_mod
public tolower, toupper, touppers
interface tolower
module procedure tolowerc
end interface
@@ -42,13 +43,15 @@ module psb_string_mod
module procedure sub_toupperc
end interface
private
character(len=*), parameter :: lcase='abcdefghijklmnopqrstuvwxyz'
character(len=*), parameter :: ucase='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
contains
function tolowerc(string)
character(len=*), intent(in) :: string
character(len=len(string)) :: tolowerc
character(len=*), parameter :: lcase='abcdefghijklmnopqrstuvwxyz'
character(len=*), parameter :: ucase='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
integer :: i,k
do i=1,len(string)
@@ -64,8 +67,6 @@ contains
function toupperc(string)
character(len=*), intent(in) :: string
character(len=len(string)) :: toupperc
character(len=*), parameter :: lcase='abcdefghijklmnopqrstuvwxyz'
character(len=*), parameter :: ucase='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
integer :: i,k
do i=1,len(string)
@@ -81,8 +82,6 @@ contains
subroutine sub_toupperc(string,strout)
character(len=*), intent(in) :: string
character(len=*), intent(out) :: strout
character(len=*), parameter :: lcase='abcdefghijklmnopqrstuvwxyz'
character(len=*), parameter :: ucase='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
integer :: i,k
do i=1,len(string)