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