subroutine refkey
      implicit none
*
* R.Schicker 07-july-1999, 
*
*
#include "gurefp.inc"
#include "guref.inc"
#include "gufil.inc"
#include "refkey.inc"
#include "refeq.inc"

      call ffkey('REFT',nref,4,'integer')    ! compute reftraj
      call ffkey('REFF',ireff,72,'mixed')    ! outfile reftraj
      call ffkey('SIGF',isigf,72,'mixed')    ! outfile reftraj
      call ffkey('MATF',imatf,72,'mixed')    ! outfile matrix
      call ffkey('MATH',imath,72,'mixed')    ! outfile matrix hist

      return
      end