anchor.diff:          real*8,dimension(incspectra_d0),intent(in) :: incspectra
           integer,intent(in) :: ldata
           real*8,dimension(outcspectra_d0),intent(out) :: outcspectra
  -        integer,optional,intent(in) :: save_cg
  +        integer,intent(in) :: save_cg
           integer,intent(in) :: Shh_d0
           integer,intent(in) :: incspectra_d0
           integer,intent(in) :: outcspectra_d0
  
positive.code:         integer,dimension(taper_order_d0),intent(in) :: taper_order
          integer,intent(in) :: lmaxt
          integer,intent(in) :: k
          real*8,optional,intent(in) :: lat
          real*8,optional,intent(in) :: lon
          real*8,optional,dimension(taper_wt_d0),intent(in) :: taper_wt
          integer,optional,intent(in) :: norm
          integer,optional,intent(in) :: csphase
          integer,intent(in) :: sh1_d0
          integer,intent(in) :: sh1_d1
          integer,intent(in) :: sh1_d2
  
negative.code:         real*8,dimension(cilm_d0,cilm_d1,cilm_d2),intent(out) :: cilm
          integer,intent(out) :: lmax
          integer,intent(in) :: lmax_in
          real*8,dimension(2),intent(out) :: gm
          character*6,intent(in) :: formatstring
          integer,intent(in) :: cilm_d0
          integer,intent(in) :: cilm_d1
          integer,intent(in) :: cilm_d2
  