C
C ntheta : number of angles
parameter(ntmax=10*361)
C ntmax: max number of angles
real theta(ntmax)
real rcs(ntmax)
C theta : backscattered angles
C rcs : function f(theta)
C iunitr : unit number chosen by the participant
open(iunitr,file='RCSTE.dat',form='unformatted')
read(iunitr) ntheta
if (ntheta .gt. ntmax) ntheta = ntmax
read(iunitr) (theta(i),rcs(i),i=1,ntheta)
close(iunitr)
C