anchor.diff:      end if
   
     case default
  -    write(lout,"(a,i0,a)") "SCATTER> ERROR Type ",scatter_PROFILE(idPro,2)," for profile '"//&
  -      trim(scatter_cData(scatter_PROFILE(idPro,1)))//"' not understood."
  +    write(lout,"(a,i0,a)") "SCATTER> ERROR Type ",scatter_proList(idPro)%proType," for profile '"//&
  +      trim(scatter_proList(idPro)%proName)//"' not understood."
       call prror(-1)
   
     end select
  
positive.code:   ! (1)   : Profile name in fort.3 (points within scatter_cData)
    ! (2)   : Profile type
    ! (3-5) : Arguments (often pointing within scatter_{i|c|f}Data)
    integer, allocatable, public, save :: scatter_PROFILE(:,:)
    integer, allocatable, public, save :: scatter_GENERATOR(:,:)
  
    integer,          allocatable, private, save :: scatter_iData(:)
  
negative.code: 
    write(lout,"(a)")       "Arrays:"
  
    write(lout,"(a,2(i3,a))") "scatter_GENERATOR: (",scatter_nGENERATOR,",",5,"):"
    do i=1,scatter_nGENERATOR
      write(lout,"(i4,a,5(1x,i3))") i,":",scatter_GENERATOR(i,:)
  