function norh_gt_imgcen,index

;+
; NAME:
;       norh_gt_imgcen
;
; PURPOSE:
;       Return the corordinate of the image center in arcsec unit
;       from the solar disk corner
;
; CALLING SEQUENCE:
;       imgcen=norh_gt_imgcen(index)
;
; INPUTS:
;       index: index structure
;
; OPTIONAL OUTPUT:
;
; HISTORY:
;       Modified 2000-07-25 TY 
;       Revised  2001-04-09 V. Grechnev to handle vector
;
;-

mx=n_elements(index)

pixsz =  norh_gt_pixsz(index)

;out = -(index.norh.solcen-fix(norh_gt_shape(index))*0.5)*pixsz

out = -(index.norh.solcen-fix(norh_gt_shape(index))*0.5) $
  *(replicate(1,2)#pixsz)



return,out
end