c
c      collapse data
       integer ngf1,ngf2
       integer      nfng(ngmax)
       real         wgt(ngmax)
       common /collap/ ngf1,ngf2,nfng,wgt