Hi,
With the following declarations :-
Integer, Intent (In) :: nfrq, lrx, mrx, ntx
Complex, Intent (In) :: bfd(nfrq, lrx, ntx, 3)
Complex, Intent (In) :: bfd_scat(nfrq, lrx, ntx, 3)
Complex, Allocatable :: bfd_perc(:, :, :, :)
Complex, Allocatable :: bfd_tiny(:, :, :, :)
Complex, Allocatable :: bfd_zero(:, :, :, :)
Real, Parameter :: eps = 1.e-6
the following assignments:-
Allocate(bfd_perc(nfrq, lrx, ntx, 3))
Allocate(bfd_tiny(nfrq, lrx, ntx, 3))
Allocate(bfd_zero(nfrq, lrx, ntx, 3))
bfd_perc = 0.
bfd_zero = 0.
bfd_tiny = cmplx(eps, eps),
Can anyone explain why the following code compiles & works:-
Where (bfd /= bfd_perc) bfd_perc = bfd_scat / bfd
bfd_perc = 100. * bfd_perc
But this generates a compiler (LF95 5.6) error?
Where (bfd_tiny >= bfd_perc) bfd_perc = bfd_zero
Many thanks,
Dave.
--------------------------------------------------------
Dr. David Annetts EM Modelling Analyst
Tel: (+612) 9490 5416 CSIRO DEM, North Ryde
Fax: (+612) 9490 5467 [log in to unmask]
Include "usual_disclaimers"
--------------------------------------------------------
|