C+ C NAME: C ArrR4Negate C PURPOSE: C Change sign in real*4 array C CALLING SEQUENCE: subroutine ArrR4Negate(N,C) C CALLS: C BadR4 C SEE ALSO: C Array_Info C- integer N real C(*) bad = BadR4() do I=1,abs(N) if (N .gt. 0 .or. C(I) .ne. bad) C(I) = -C(I) end do return end