length Function

public function length(s, max)

Finds the length of a string

Note

Jonathan Chico: This seems to be used only in the subroutine sname() which seems to be deprecated, maybe this funtcion is unneccessary.

Arguments

Type IntentOptional Attributes Name
character(len=1), intent(inout) :: s(*)

String array

integer, intent(in) :: max

Maximum size of the string

Return Value integer