|
◆ vdged()
elemental logical function modqc::vdged |
( |
double precision, intent(in) |
flag | ) |
|
|
private |
Data gross error check.
- Parametri
-
Definizione alla linea 727 del file modqc.F90.
729 if (optio_log(purgeana)) then 730 allocate(llana( size(this%ana))) 732 do i =1, size(this%ana) 733 if ( associated(this%voldatii)) llana(i)= llana(i) .or. any( c_e(this%voldatii(i,:,:,:,:,:))) 734 if ( associated(this%voldatir)) llana(i)= llana(i) .or. any( c_e(this%voldatir(i,:,:,:,:,:))) 735 if ( associated(this%voldatid)) llana(i)= llana(i) .or. any( c_e(this%voldatid(i,:,:,:,:,:)))
|