“…8, CMAIN( 100) .CREMOTdOO) ,NB , DTIME( 1 00 ) ,SECOND 100REAL X(IOO) .LAMBDA, SW( 100) ,TX( 100) ,C0UT 2,NBS1 ,RNBS 2INTEGER DAY, YEAR, PASS WRITE (5,*) 'What is the name of the input file?' READ (6,'(A) FORMAT WRITE (4,1002) FORMAT (17X, 'THE RAW COUNTING DATA WERE (time is in seconds):') WRITE(4,*) WRITE(4,*) N0=0 READ (3,*) READ (3,1003) F0RMAT(18X) 10 READ (3,100i|,END=20)…”