C	PROGRAM BMAP1.FT
C	--------------
C
C
C
C
	SUBROUTINE BMAP(LENS,ZOOM,PUC,UNAME)
C
C
C
C	P. LEMKIN
C	NIH
C	BETHESDA, MD
C
C	FEB 25, 1977
C	SEPT 18, 1976
C	SEPT 17, 1976
C
C	PURPOSE
C	-------
C	GENERATE CONVERSION COEFFICIENTS
C	WITH SPECIAL THANKS TO B.S. WHO "FIT" THE CURVE(S).
C
C
C	LENS - I3 LENS # 1, 2.5, 5, 10, 25, 50 DRY, 50 OIL, 100 OIL
C	ZOOM - 0.8 TO 3.2
C	PUC - MULT X QMT PIXEL LENGTH TO GET THE LENGTH IN MICRONS
C	UNAME - "MICRON" OR " PIXEL" (/N)
C
    