caps Subroutine

subroutine caps(file_name)

~ ~ ~ PURPOSE ~ ~ ~ this subroutine reads the input and output names and converts all capital letters to lowercase letters.

~ ~ ~ SUBROUTINES/FUNCTIONS CALLED ~ ~ ~ Intrinsic: Len, Index, AdjustL

~ ~ ~ ~ ~ ~ END SPECIFICATIONS ~ ~ ~ ~ ~ ~

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	file_name