DESCRIPTION OF PROGRAM

asc2dxf.f is fortran program to read a set of x,y coordinates and write
a .dxf file that can be used by the aperture mask cutting program.

Input is in.coo 
Output file name (must be 12 characters) is given on line 1 of input file.

There are keywords in dxf files, such as CIRCLE, LINE, POINT that tell
the machine what to do. 
The specific tasks that the asc2dxf program enables are 
1) to cut on-axis slots for sky comparison where there are no stars of interest.
2) to cut holes at stellar positions or 5 arcsec slots at stellar positions.
The option whether to cut holes or slots at the star positions is set by the
"slot" keyword on line 2 in in.coo  
 
Sample in.coo
*****************************************************************************
N0330_a1.dxf
noslot
line
51 43
58 43
point
15.38  44.32
20.63  58.56
25.24  34.51
34.05  37.58
37.40  33.21
39.61  39.28
41.59  48.53
46.44  51.2
47.23  47.91
48.37  40.32
60.27  64.56
65.82  30.94
********************************************************************************

line 2: slot or other; if slot, cuts 0.8 mm long slot at stellar "point" 
        positions.
line 3,4,5: slot cut between the following two pairs of x,y coordinates. 
            Insert as many sets of three lines as needed. These are for sky.
line 6: point; if point, then cuts hole or slot at the following x,y coordinates.
     Once "point" is read, assumes all the following x,y coordinates are points.
  
If other than 1mm slot (= 5 arcsec) required then change fortran program line 57.

Program currently accepts up to 50 "point"s and an indefinite number of "line"s.
 
The program Aperplates converts ra, dec (given in arcmin from cluster center)
into x and y for drilling aperture plates. The center of the plate is at 43, 43.
(see readme_Aperplates)

The orientation of plate is N to top and W to left
and requires rotator set to PA and a rotation of 90 degrees for DBS.

********************************************************************************
	Program asc2dxf
c       reads set of x,y coordinates and writes a .dxf file for aperture plate.
	character*4 xop1,xop2
	character*12 outfile
1	format(1h0/7hSECTION/1h2/8hENTITIES/1h0)
2	format(6hCIRCLE/1h8/1h1/2h62/1h3)
3	format(4hLINE/1h8/1h1/2h62/1h3)
4	format(5hPOINT/1h8/1h1/2h62/1h3)
5	format(2h10/5h43.00/2h20/5h43.00/2h30/5h0.000/2h40/5h43.00/1h0)
  
6	format(2h10,/,f6.3,/,2h20,/,f6.3,/,2h30/5h0.000) 
7	format(2h11,/,f6.3,/,2h21,/,f6.3,/,2h31/5h0.000) 
8	format(1h0)                                                
9	format(6hENDSEC/1h0/3hEOF)                                 
  
10	format(a4)
11	format(a12)  
100	open(unit=20,file='in.coo',status='old')
        read(20,11) outfile
	open(unit=21,file=outfile,status='new')
	write(21,1)
	write(21,2)
	write(21,5)	
	read(20,10) xop1
	if (xop1.eq.'slot') go to 1000
900	read(20,10) xop2
	if(xop2.eq.'line') then
	 write(21,3)
         read (20,*) x,y
	 write(21,6) x,y
         read (20,*) x,y
	 write(21,7) x,y
	 write(21,8)
         go to 900
        else
910	 do I=1,50
	  read (20,*,end=10000) x,y
	  write(21,4)
	  write(21,6) x,y
	  write(21,8)
	 enddo
        endif
1000	continue
c       SLOTS
 901	read(20,10) xop2
	if(xop2.eq.'line') then
	 write(21,3)
         read (20,*) x,y
	 write(21,6) x,y
         read (20,*) x,y
	 write(21,7) x,y
	 write(21,8)
         go to 901
        else
 911	  do I=1,50
	   read (20,*,end=10000) x,y
           write(21,3)
	   write(21,6) x,y
c
c           0.8 mm slot cut. Change here for different length slot
	   xx=x+0.8
c
	   write(21,7) xx,y
	   write(21,8)
	  enddo
	 endif
10000	write(21,9)
	end

****************************************************************************
compile program as follows
f77 asc2dxf -o asc2dxf