anchor.diff:    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")
  
positive.code:     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."
      call prror(-1)
  
    end select
  
negative.code: 
    ! Find the profile name referenced
    do i=1,scatter_nPro
      if(scatter_proList(i)%proName == lnSplit(3)) then
        profileID = i
        exit
      end if
  