************************************************************************ ************************************************************************ * * Subroutine RVECABS * * Function: * Absolute value of real vector elements, put result in b * * Arguments: * A (i) argument vector * B (o) result vector * N (i) dimension of vectors * * History: * Written November 1991 S. Knight ************************************************************************ subroutine rvecabs ( a , b , n ) implicit none * Arguments integer n real a( n ) , b( n ) * Local varibles integer i *----------------------------------------------------------------------- do i = 1 , n b( i ) = abs ( a( i ) ) end do return end