!------------------------------------------------- ! CHGlib Module !------------------------------------------------- module chglib use dcl_common contains subroutine DclToUpper(ch) !文字列を大文字化化する. character(len=*), intent(inout) :: ch !処理する文字列 call cupper(ch) end subroutine subroutine DclToLower(ch) !文字列を小文字化する. character(len=*), intent(inout) :: ch !処理する文字列 call clower(ch) end subroutine end module