text:       logical function argos_prep_crop(xs,msa,nsa,lfnout)
  c
        implicit none
  c
        integer msa,nsa,lfnout
        real*8 xs(3,msa)
  c
        integer i,k
        real*8 xmax(3),xmin(3)
  c
        xmax(1)=xs(1,1)
        xmax(2)=xs(2,1)
        xmax(3)=xs(3,1)
        xmin(1)=xs(1,1)
        xmin(2)=xs(2,1)
        xmin(3)=xs(3,1)
  c
        do 1 k=1,3
        do 2 i=1,nsa
        xmax(k)=max(xmax(k),xs(k,i))
        xmin(k)=min(xmin(k),xs(k,i))
      2 continue
      1 continue
  c
        write(lfnout,1000) xmin,xmax
   1000 format(/,' Minimum coordinates ',3f12.6,/,
       + ' Maximum coordinates ',3f12.6,/)
  c
        argos_prep_crop=.true.
  c
        return
        end
   
  c $Id$
  