libsim  Versione6.3.0

◆ vdged()

elemental logical function vdged ( double precision, intent(in)  flag)

Data gross error check.

Parametri
[in]flagconfidenza

Definizione alla linea 727 del file modqc.F90.

727 integer :: i,j,nana
728 
729 if (optio_log(purgeana)) then
730  allocate(llana(size(this%ana)))
731  llana =.false.
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,:,:,:,:,:)))

Generated with Doxygen.