Bug in atminput files. Did not work correctly for multi component atmospheres.

idlpro/def_atminputst.pro

@@ -3,9 +3,10 @@ function def_atminputst,npar,nx,ny
   
   if npar eq 0 then data=fltarr(1,1,1) else data=fltarr(npar,nx,ny)
   
+  
   atminput={npar:npar,nx:nx,ny:ny, $
             dummy:0, $
-            file:'',par:strarr(npar), $
+            file:'',par:strarr(npar>1), $
             data:data}
   
   return,atminput

idlpro/read_atminput.pro

@@ -5,6 +5,7 @@ pro read_atminput
   
   
   aistr=string(ipt.atm.atm_input)
+  nx=0 & ny=0 
   npar=intarr(ipt.ncomp)
   for ia=0,ipt.ncomp-1 do begin
     if strcompress(aistr[ia]) ne '' then begin
@@ -35,8 +36,10 @@ pro read_atminput
   
   
   atminput=def_atminputst(max(npar),nx,ny)
+  atminput=replicate(atminput,ipt.ncomp)
   
-  for ia=0,ipt.ncomp-1 do begin
+  if nx ge 1 and ny ge 1 then $
+    for ia=0,ipt.ncomp-1 do begin
     dummy=execute('data=temporary(data'+n2s(ia)+')')
     dummy=execute('par=temporary(par'+n2s(ia)+')')
     

input/fe617_mapsynth.ipt

@@ -4,7 +4,7 @@ PS           ./ps/        ;directory for postscript output
 SAV          ./sav/       ;directory for storing results (sav-file)
 PROFILE_ARCHIVE ./profile_archive/ ;input directory for profiles / observations
 ATM_ARCHIVE  ./atm_archive/ ;output directory for results (atmospheres)
-ATM_SUFFIX   mo-0         ;add a suffix to the atm-directory to identify this 
+ATM_SUFFIX   30-pen-mo-0         ;add a suffix to the atm-directory to identify this 
                           ;  run
 WGT          ./wgt/       ;directory for wgt-files
 ATOM         ./atom/      ;directory for atomic data files
@@ -128,7 +128,7 @@ EZERO       5.000      0.000    110.000   0 ;amplitude of components of
 SGRAD       1.000      0.000      9.000   6 ;gradient of source function
 ALPHA       1.000      0.010      0.990   0 ;Filling factor for this component
 ;ATM_INPUT   ./sample_data/atm_input.fits    ;filename for input atmosphere: defines initial 
-ATM_INPUT /Users/lagg/Dropbox/MPS/work/projects/mara/EB-SynthSpot/bfield_1000_mu0_AL.fits ;filename for input atmosphere: defines initial 
+ATM_INPUT /Users/lagg/Dropbox/MPS/work/projects/mara/EB-SynthSpot/bfield_3000_mu0_penumbra_AL.fits ;filename for input atmosphere: defines initial 
                           ;  value for atmospheric parameters or delivers the 
                           ;  input to synthesize a map.
 USE_ATOM     fe617.3.dat  ;atomic data file(s) for this component