*******************************************************************************

	program find_min

*******************************************************************************
c
c       This program is designed to read data file to BIOSYM format
c

c	To compile non-graphics programs use : 
c                  fort77 $(OPT) find_min.f -o find_min 

c input
        parameter (n = 100)
        real            ix,iy,iz 
        real            energy(n) 
        real            radius(n) 
        real            core(n) 
        real            energymin 
        character*100    record	
        character*50	fname
        character*8     file(n)
	integer	        iunit
        integer         i, imin
c
c
         iunit=10
c 
	 print *,'Enter filename: '
	 read(5,*) fname
	 print *,'Enter number of minimum file obtained from energy_bin: '
	 read(5,*) imin 
c
        energymin=1e10
c
        open(iunit,file=fname,status='old',form='formatted')
        do 1000 i=1,n
        read(iunit,'(a100)',err=3000) record
        read(record,120,err=3000) file(i)
1000    continue 
120     format(a8)
        print *, ' The minimum energy file is:'
        print *, file(imin)
        goto 999
3000    continue
        print *,'Error in input file'
999     continue
c
         end