codespell

Author: pmocz

.codespellrc

@@ -0,0 +1,3 @@
+[codespell]
+skip = _typos.toml,forum,gyre,photos,star,binary,restart_photo,*.mod,*.smod,*.data,*.net,*.xz,*.pdf,*.ps,*.zip,*.tar,*.gz,*.txz,*.tbz,*.mesa,*.png,*.jpg,*.h5,*.dvi,*.pyc,*.ssm,*.o
+ignore-words-list = inout,highT,dum,TEMR,nd,pres,PRESSE,radY,delt,indx,fO,nam,ACN,AMOUT,LASTR,UE,PARMS,thi,daa,Nin,stopp,SHS,nin,filess,idel,FASE,ETHE,ETO,TE,Shal,Coul,coul,NINTY,iif,amout,accreting,dne,IST,ALO,Numer,ans,Ane,EDN,SECNDS,Termo,WTH,matA,alog,Xwindows,parms,PARM,Shepard,reduct,thet,amde,aas,aks,arry,ist,relativ,accpt,Puls,contro,implct,Ser,TABE,bu,combin,appen

.gitignore

@@ -111,3 +111,4 @@ testhub.yml
 TAGS
 .vscode
 .idea
+*~

adipls/adipack.c/adiajobs/mer-amde.d.f

@@ -10,7 +10,7 @@ program main
 c  from the  f i r s t  file is used.
 c
 c  if the same mode appears several times in one of the files,
-c  only the  f i r s t  occurence is included.
+c  only the  f i r s t  occurrence is included.
 c
 c
 c  Double precision version

adipls/adipack.c/adiajobs/mer-sum.d.f

@@ -10,7 +10,7 @@ program main
 c  from the  f i r s t  file is used.
 c
 c  if the same mode appears several times in one of the files,
-c  only the  f i r s t  occurence is included.
+c  only the  f i r s t  occurrence is included.
 c
 c  Double precision version
 c  ++++++++++++++++++++++++

adipls/adipack.c/adiajobs/redistrb.d.f

@@ -34,7 +34,7 @@ program main
 c  of first point from surface for singular surface
 c
 c  modified 3/12/93, to allow alternative interpolation
-c  (with Numerical Recipies spline routines)
+c  (with Numerical Recipes spline routines)
 c
 c  modified 9/12/93, to use explicitly the logarithmic form
 c  of the stretch function near a singular surfac, when using
@@ -821,7 +821,7 @@ subroutine resexp(x,aa,nh,iaa,xn,an,nn,ian,data,ioldex)
       end
       subroutine stcvzb(x,aa,data,nn,iaa,ncb1,npt,eps)
 c
-c  sets mesh point at the botton edge of the convective envelope
+c  sets mesh point at the bottom edge of the convective envelope
 c  for adiabatic oscillation model.
 c  position of edge is found by extrapolation in aa(4,.) from
 c  radiative interior. values of aa(i,.) at this point is

adipls/adipack.c/adiajobs/selamde.d.f

@@ -319,7 +319,7 @@ program selsum
       if(l.gt.lw21) go to 60
 c
 c  windowing in order, frequency and dimensionless squared
-c  squared frquency 
+c  squared frequency 
 c
    11 if(nw1.le.nw2.and.(nord.lt.nw1.or.nord.gt.nw2)) go to 10
       if(frqw1.le.frqw2.and.(frq.lt.frqw1.or.frq.gt.frqw2)) go to 10

adipls/adipack.c/adiajobs/selsum.d.f

@@ -275,7 +275,7 @@ program selsum
       if(l.gt.lw21) go to 60
 c
 c  windowing in order, frequency and dimensionless squared
-c  squared frquency 
+c  squared frequency 
 c
    11 if(nw1.le.nw2.and.(nord.lt.nw1.or.nord.gt.nw2)) go to 10
       if(frqw1.le.frqw2.and.(frq.lt.frqw1.or.frq.gt.frqw2)) go to 10

adipls/adipack.c/adiajobs/sr/srdist.c.d.f

@@ -1500,7 +1500,7 @@ subroutine resexp(x,aa,nh,iaa,xn,an,nn,ian,data,ioldex)
       end  
       subroutine stcvzb(x,aa,data,nn,iaa,ncb1) 
 c  
-c  sets mesh point at the botton edge of the convective envelope   
+c  sets mesh point at the bottom edge of the convective envelope   
 c  for adiabatic oscillation model. 
 c  position of edge is found by extrapolation in aa(4,.) from  
 c  radiative interior. values of aa(i,.) at this point is  

adipls/adipack.c/adipls/adipls.c.d.f

@@ -488,7 +488,7 @@ subroutine adipls(i_paramset, ierr_param, i_inout,
 c
       if(i_paramset.eq.1.and.init_paramset.ne.0) go to 10000
 c
-c  as initilization zero all elements in csummm
+c  as initialization zero all elements in csummm
 c
       call zero(csummm,50)
 c

adipls/adipack.c/adipls/delta2.d.f

@@ -89,7 +89,7 @@ subroutine delta2(x,y,del2,del2as,xis,aa,omgrtp,sig,iy,ia,nn,el)
      4  eta(n)*xis(1,n) - xis(2,n)*xi(n)-eta(n)*xis(2,n))*x(n)*x(n)
 
 c
-c 4) Coeffiecient of m^2 from omega1 terms
+c 4) Coefficient of m^2 from omega1 terms
 c
       f4=beta*beta/2.
 
@@ -170,7 +170,7 @@ subroutine delta2(x,y,del2,del2as,xis,aa,omgrtp,sig,iy,ia,nn,el)
         write(92,'(i5,1p5e12.4)') (n,x(n),xi(n),eta(n),xis(1,n),
      *    xis(2,n),n=1,nn)
       end if
-c asymptotic approxiamtion
+c asymptotic approximation
 
       do n=1,nn
          del2as(n) = 4./(2.*el-1.)/(2.*el+3.)