anchor.diff:          integer,intent(in) :: lmax
           real*8,dimension(gridglq_d0,gridglq_d1),intent(in) :: gridglq
           real*8,dimension(w_d0),intent(in) :: w
  -        real*8,optional,dimension(zero_d0),intent(in) :: zero
  -        integer,optional,intent(in) :: norm
  -        integer,optional,intent(in) :: csphase
  -        integer,optional,intent(in) :: lmax_calc
  +        real*8,dimension(zero_d0),intent(in) :: zero
  +        integer,intent(in) :: norm
  +        integer,intent(in) :: csphase
  +        integer,intent(in) :: lmax_calc
           integer,intent(in) :: cilm_d0
           integer,intent(in) :: cilm_d1
           integer,intent(in) :: cilm_d2
  
positive.code:         integer,intent(out) :: exitstatus
          real*8,dimension(cilm_d0,cilm_d1,cilm_d2),intent(in) :: cilm
          real*8,dimension(cindex_d0,cindex_d1),intent(out) :: cindex
          integer,optional,intent(in) :: degmax
          integer,intent(in) :: cindex_d0
          integer,intent(in) :: cindex_d1
          integer,intent(in) :: cilm_d0
  
negative.code:         integer,intent(in) :: n
          complex*16,dimension(cilm_d0,cilm_d1,cilm_d2),intent(out) :: cilm
          integer,intent(out) :: lmax
          integer,intent(in) :: norm
          integer,intent(in) :: sampling
          integer,intent(in) :: csphase
          integer,intent(in) :: lmax_calc
          integer,intent(in) :: cilm_d0
          integer,intent(in) :: cilm_d1
          integer,intent(in) :: cilm_d2
  