--- trunk/Sources/phylmd/CV30_routines/cv30_yield.f	2016/03/16 15:04:46	185
+++ trunk/Sources/phylmd/CV30_routines/cv30_yield.f	2016/03/21 15:36:26	186
@@ -230,8 +230,8 @@
        enddo
        if(num1.le.0) cycle
 
-       call zilch(amp1,ncum)
-       call zilch(ad,ncum)
+       amp1(:ncum) = 0.
+       ad(:ncum) = 0.
 
        do  k=i+1,nl+1
           do  il=1,ncum