1 jones 1.1 c      integer nvhodo2,nhhodo2,ndhodo2
2           c      parameter (nvhodo2=1,nhhodo2,ndhodo2)
3                   integer idtype_hodo2, iset_hodo2 , idet_hodo2
4                   common/hodo2sets/idtype_hodo2, iset_hodo2, idet_hodo2
5