libsim  Versione7.2.6

◆ fnv_delete()

subroutine fnv_delete ( type(fndsv), intent(inout)  fnv)
private

Delete a vector of function object reinizializing it.

Definizione alla linea 389 del file alchimia.F03.

389  foundin = .true.
390  do j = 1, count(c_e(vfn%fnds(i)%bin(:)))
391  if (.not. any(vfn%fnds(i)%bin(j) == newbin)) foundin = .false.
392 !!$ print *,"compare: ",vfn(i)%bin(j)
393 !!$ print *,"with: ",mybin

Generated with Doxygen.