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