Aim: Copy general keywords from extension to primary header.
The routine declaration is:
subroutine putPrimaryKeywords(fr_tab)
! fr_tab : Handle to the input block
type(BlockT), intent(in) :: fr_tab
! Names of the keywords to be copied into the primary header from the extension
integer, parameter :: num_keyw_prim = 6
character(len=8), dimension(num_keyw_prim), parameter :: &
name_keyw_prim = (/"TELESCOP","INSTRUME", "OBS_ID ", "EXP_ID ", &
"DATE-OBS","DATE-END"/)