anchor.diff:    proType    = -1
     fParams(:) = zero
   
  -  ! Add a profile to the list
  -  call alloc(scatter_PROFILE, scatter_nPro, 5, 0, "scatter_PROFILE")
  -
  -  ! Store the profile name
  -  scatter_ncData = scatter_ncData + 1
  -  call alloc(scatter_cData, mStrLen, scatter_ncData, str_dSpace, "scatter_cData")
  -
  -  scatter_cData(scatter_ncData)       = lnSplit(2)
  -  scatter_PROFILE(scatter_nPro,1) = scatter_ncData
  -
     ! Check that the profile name is unique
     do i=1,scatter_nPro-1
       if(scatter_proList(i)%proName == lnSplit(2)) then
  
positive.code:   use mod_alloc
    implicit none
  
    call alloc(scatter_PROFILE,           1,5, 0,          "scatter_PROFILE")
    call alloc(scatter_GENERATOR,         1,5, 0,          "scatter_GENERATOR")
  
    call alloc(scatter_iData,             1,   0,          "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,:)
  