       integer    mn,mn5,mn6
       parameter (mn=1600,mn5=mn+5,mn6=mn+6)