#!/usr/local/bin/perl

 $time1= 2006. + 1. /24;

 $ix= 204 + 6;
#for ($i= 0; $i < $ix ; $i++) {
 for ($i= -3; $i < $ix ; $i++) {
    $time= $time1 + $i/12.;
    $file= int($time * 1000. + .5) /1000.;
    printf "  year.pl %9.3f  series3z/* \n", $time;
    }