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