1      logical function pre_crop(xs,msa,nsa,lfnout)
2c
3      implicit none
4c
5      integer msa,nsa,lfnout
6      real*8 xs(3,msa)
7c
8      integer i,k
9      real*8 xmax(3),xmin(3)
10c
11      xmax(1)=xs(1,1)
12      xmax(2)=xs(2,1)
13      xmax(3)=xs(3,1)
14      xmin(1)=xs(1,1)
15      xmin(2)=xs(2,1)
16      xmin(3)=xs(3,1)
17c
18      do 1 k=1,3
19      do 2 i=1,nsa
20      xmax(k)=max(xmax(k),xs(k,i))
21      xmin(k)=min(xmin(k),xs(k,i))
22    2 continue
23    1 continue
24c
25      write(lfnout,1000) xmin,xmax
26 1000 format(/,' Minimum coordinates ',3f12.6,/,
27     + ' Maximum coordinates ',3f12.6,/)
28c
29      pre_crop=.true.
30c
31      return
32      end
33
34c $Id$
35