Program Aperplates
c       program to convert ra, dec into x and y for drilling aperture plates.
c       The orientation of plate is N to top and W to left
c       requiring PA rotation of 90 degrees for DBS.
	character*12 star
	character*8 mag
1	format(a10,34x,A8,30x,2f8.3)
2	format(2f8.3,2x,a10,1x,A8)
  
10	format(a4)
  
100	open(unit=19,file='inp.coo',status='old')
	open(unit=20,file='in.coo',status='new')
	read(19,*) a,b,cx,cy
        type *, cx,cy
 110    read(19,1,end=1000) star,mag,am,dm
        type *,star,mag,am,dm
        x = 43.0 + (60.0*(am-cx))/4.9604
        y = 43.0 + (60.0*(dm-cy))/4.9604
	write(20,2) x,y,star,mag
        go to 110
 1000   end