Group: comp.lang.fortran · Group Profile · Search for Msng in comp.lang.fortran
Author: George Trojan
Date: Dec 13, 2006 06:17
... parameter :: n = 10000000 real, parameter :: msng = -1.0 integer :: i real...call cpu_time(tstart) where (b /= msng) c = add(a, b) elsewhere...c(1:n) where (pb /= msng) pc = add(pa, pb) elsewhere...1, n if (b(i) /= msng) then c(i) = add(a...b(i)) else c(i) = msng end if end do r...
| 
