Fix Fortran Code. Fortran has code issues. My program does not read the data from the "nadata.txt$"$ file. Do not edit subroutines.

program tlimits$2$

implicit none

integer, allocatable :: population$($:$)$

real, allocatable :: parametric$($:$),$ nonparametric$($:$),$ sample$($:$)$

integer :: i$,$ j$,$ num$\_$samples, sample$\_$size, pop$\_$size, mth$\_$index

real :: K$1,$ TLupper$\_$parametric, TLupper$\_$nonparametric, xm$,$ s

character$($len$=100)$ :: input$\_$filename, output$\_$filename, population$\_$filename

character$($len$=200)$ :: title$\_$card

$!$ Function declarations

real :: avg, std

$!$ Read input data

open$($unit$=10,$ file$=$'nadata.txt$\text{'},$ status$=$'old'$)$

read$(10,*)$ title$\_$card

read$(10,*)$ population$\_$filename

read$(10,*)$ pop$\_$size

read$(10,*)$ output$\_$filename

read$(10,*)$ sample$\_$size

read$(10,*)$ num$\_$samples

read$(10,*)$ K$1,$ mth$\_$index

close$(10)$

$!$ Allocate memory for population and output arrays

allocate$($population$($pop$\_$size$))$

allocate$($parametric$($num$\_$samples$))$

allocate$($nonparametric$($num$\_$samples$))$

$!$ Load population data

open$($unit$=11,$ file$=$trim$($population$\_$filename$),$ status$=$'old'$)$

do i $=1,$ pop$\_$size

read$(11,*)$ population$($i$)$

end do

close$(11)$

$!$ Random seed initialization

call ranseed

$!$ Monte Carlo Simulation

do j $=1,$ num$\_$samples

allocate$($sample$($sample$\_$size$))$

do i $=1,$ sample$\_$size

call random$\_$number$($xm$)$

sample$($i$)=$ population$($min$($int$($xm $*$ pop$\_$size$)+1,$ pop$\_$size$))$

end do

$!$ Calculate parametric tolerance limit

xm $=$ avg$($sample$\_$size, sample$)$

s $=$ std$($sample$\_$size, sample$)$

TLupper$\_$parametric $=$ xm $+$ K$1*$ s

parametric$($j$)=$ TLupper$\_$parametric

$!$ Calculate non$-$parametric tolerance limit

call quicksort$($sample$,1,$ sample$\_$size$)$

TLupper$\_$nonparametric $=$ sample$($sample$\_$size $-$ mth$\_$index $+1)$

nonparametric$($j$)=$ TLupper$\_$nonparametric

deallocate$($sample$)$

end do

$!$ Output results

open$($unit$=12,$ file$=$trim$($output$\_$filename$),$ status$=$'replace'$)$

write$(12,\text{'}($A$)\text{'})$ trim$($title$\_$card$)$

write$(12,\text{'}(2$A$)\text{'})$ 'Parametric Limits', 'Non$-$Parametric Limits'

do i $=1,$ num$\_$samples

write$(12,\text{'}(2$F$10\mathrm{.}4)\text{'})$ parametric$($i$),$ nonparametric$($i$)$

end do

write$(12,\text{'}($A$,$ F$10\mathrm{.}4)\text{'})$ 'Mean of Parametric Limits:$\text{'},$ avg$($num$\_$samples, parametric$)$

write$(12,\text{'}($A$,$ F$10\mathrm{.}4)\text{'})$ 'Standard Deviation of Parametric Limits:$\text{'},$ std$($num$\_$samples, parametric$)$

write$(12,\text{'}($A$,$ F$10\mathrm{.}4)\text{'})$ 'Mean of Non$-$Parametric Limits:$\text{'},$ avg$($num$\_$samples, nonparametric$)$

write$(12,\text{'}($A$,$ F$10\mathrm{.}4)\text{'})$ 'Standard Deviation of Non$-$Parametric Limits:$\text{'},$ std$($num$\_$samples, nonparametric$)$

close$(12)$

deallocate$($population$,$ parametric, nonparametric$)$

end program tlimits$2$

Requirements for the code are attached in a picture.

nadata.txt file below: The file includes $93070$ values.

$3\mathrm{.}720$E$+00$

$-2\mathrm{.}795$E$+00$

$1\mathrm{.}354$E$+00$

$1\mathrm{.}994$E$+00$

$-4\mathrm{.}696$E$-01$

$-4\mathrm{.}027$E$+00$

$6\mathrm{.}201$E$-01$

$-2\mathrm{.}832$E$+00$

$4\mathrm{.}309$E$-01$

$6\mathrm{.}068$E$-01$

$-5\mathrm{.}874$E$-01$

$1\mathrm{.}400$E$+00$

$1\mathrm{.}586$E$+00$

$-1\mathrm{.}198$E$-01$

$7\mathrm{.}129$E$-01$

$-6\mathrm{.}035$E$-01$

$2\mathrm{.}095$E$+00$

$7\mathrm{.}904$E$-01$

$6\mathrm{.}647$E$+00$

$2\mathrm{.}109$E$+00$

$-3\mathrm{.}470$E$+00$

$1\mathrm{.}831$E$+00$

$6\mathrm{.}486$E$+00$

$-7\mathrm{.}900$E$-02$

$-1\mathrm{.}906$E$+00$

$-1\mathrm{.}535$E$+00$

$1\mathrm{.}743$E$+00$

$1\mathrm{.}954$E$+00$

$-2\mathrm{.}180$E$+00$

$-8\mathrm{.}688$E$-01$

$3\mathrm{.}085$E$+00$

$2\mathrm{.}996$E$+00$

$-3\mathrm{.}275$E$+00$

$7\mathrm{.}265$E$-01$

$1\mathrm{.}442$E$+00$

$-1\mathrm{.}144$E$+00$

$3\mathrm{.}378$E$+00$

$-1\mathrm{.}977$E$+00$

$-1\mathrm{.}583$E$+00$

$-9\mathrm{.}728$E$-01$

$1\mathrm{.}524$E$+00$

$1\mathrm{.}087$E$+00$

$-3\mathrm{.}343$E$+00$

$1\mathrm{.}365$E$+00$

$-7\mathrm{.}501$E$-01$

$4\mathrm{.}256$E$+00$

$2\mathrm{.}995$E$+00$

$-2\mathrm{.}790$E$+00$

$-2\mathrm{.}139$E$+00$

$-2\mathrm{.}625$E$-01$

$3\mathrm{.}363$E$+00$

$1\mathrm{.}645$E$+00$

$2\mathrm{.}421$E$+00$

$3\mathrm{.}092$E$+00$

$1\mathrm{.}194$E$+00$

$-1\mathrm{.}570$E$+00$

$-1\mathrm{.}825$E$+00$

$-1\mathrm{.}284$E$+00$

$-2\mathrm{.}337$E$-01$

$-1\mathrm{.}077$E$+00$

$5\mathrm{.}708$E$-01$

$-1\mathrm{.}731$E$+00$

$3\mathrm{.}079$E$+00$

$1\mathrm{.}009$E$+00$

$3\mathrm{.}960$E$-01$

$-2\mathrm{.}499$E$+00$

$-2\mathrm{.}346$E$+00$

$-1\mathrm{.}967$E$+00$

$-2\mathrm{.}307$E$+00$

$-5\mathrm{.}903$E$-01$

$-9\mathrm{.}625$E$-02$

$4\mathrm{.}567$E$+00$

$3\mathrm{.}748$E$+00$

$-7\mathrm{.}938$E$-01$

$-1\mathrm{.}654$E$+00$

$-2\mathrm{.}911$E$+00$

$3\mathrm{.}277$E