;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 04-12-2000
;;;
(defun c:depth ()
  (setq aln_cnt 0
	vsf_cnt 0
  )
  (if (and align_lst vsf_lst (< aln_cnt (length align_lst))(< vsf_cnt (length vsf_lst)))
    (progn
      (while (<(car(nth vsf_cnt vsf_lst))(nth 1(nth aln_cnt align_lst)))
	(setq vsf_cnt (1+ vsf_cnt))
      )
    )
    (princ "\nNo GPDGN alignment is loaded! ")
  )
)