cNodeDestroy Subroutine

public subroutine cNodeDestroy(List)

Arguments

Type IntentOptional Attributes Name
type(cNode), pointer :: List

Called by

proc~~cnodedestroy~~CalledByGraph proc~cnodedestroy ESMF_CFIOVarInfoMod::cNodeDestroy proc~esmf_cfiovarinfodestroy ESMF_CFIOVarInfoMod::ESMF_CFIOVarInfoDestroy proc~esmf_cfiovarinfodestroy->proc~cnodedestroy proc~esmf_cfiodestroy ESMF_CFIOFileMod::ESMF_CFIODestroy proc~esmf_cfiodestroy->proc~esmf_cfiovarinfodestroy none~find~9 ESMF_CFIOCollectionMod::CFIOCollection%find none~find~9->proc~esmf_cfiodestroy proc~mapl_cfiodestroy MAPL_CFIOMod::MAPL_CFIODestroy proc~mapl_cfiodestroy->proc~esmf_cfiodestroy interface~esmf_iodestroy MAPL_CFIOMod::ESMF_ioDestroy interface~esmf_iodestroy->proc~mapl_cfiodestroy proc~mapl_cfiocreatefromfile MAPL_CFIOMod::MAPL_CFIOCreateFromFile proc~mapl_cfiocreatefromfile->none~find~9 proc~mapl_cfioreadbundleread MAPL_CFIOMod::MAPL_CFIOReadBundleRead proc~mapl_cfioreadbundleread->none~find~9

Source Code

   subroutine cNodeDestroy(List)
     type(cNode), pointer :: List, p, q

     if (.not. associated(List)) return
     q => List
     p => List%next
     do while ( associated(p) )  
        if (associated(q)) then
           deallocate(q)
        end if
        q => p
        p => p%next
     end do

     if (associated(q)) then 
        deallocate(q)
     end if

   end subroutine cNodeDestroy