! ! adassat.inc ! INTEGER, PARAMETER :: mx_sat = 2 ! Maximum number of satellites ! CHARACTER (LEN=256) :: ir_fname(mx_sat) CHARACTER (LEN=256) :: vis_fname(mx_sat) CHARACTER (LEN=256) :: ircalname(mx_sat) CHARACTER (LEN=256) :: viscalname(mx_sat) CHARACTER (LEN=6) :: satnamir(mx_sat) CHARACTER (LEN=6) :: satnamvis(mx_sat) COMMON /satell_vars1/ ir_fname,vis_fname,ircalname,viscalname, & satnamir,satnamvis ! INTEGER :: nirfiles,nvisfiles COMMON /satell_vars2/ nirfiles,nvisfiles ! REAL :: latsatir(mx_sat),lonsatir(mx_sat) REAL :: latsatvis(mx_sat),lonsatvis(mx_sat) COMMON /satell_vars3/ latsatir,lonsatir,latsatvis,lonsatvis ! ! Satellite Calibration Constants ! REAL :: centw(mx_sat),fk1(mx_sat),fk2(mx_sat) REAL :: bc1(mx_sat),bc2(mx_sat),bc2inv(mx_sat) COMMON /adas_ircal/ centw,fk1,fk2,bc1,bc2,bc2inv