max_val_1d Subroutine

public subroutine max_val_1d(var, mamv, undef)

Get the max value (from STPK)

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: var(:)

Searched array

double precision, intent(inout) :: mamv

Max value in var

double precision, intent(in), optional :: undef

undefined value