* -*-fortran-*- character*12 ProjectileDIS character*4 InProjectileDIS * common / ProjectileDISAPFEL / ProjectileDIS,InProjectileDIS