0.,2.,30.,5000.,10.,200.
100,100,20
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
! R1,DR,R2(KM), ZMAXPLOT,XLG(IN),ALIM(DB) / NSRS,NBRS,NRPLOT/
! (NRAY(I),I=1,NRPLOT)
!READ RAY FILE FROM UNFORMATTED FOR001.DAT