!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! GREG specific definitions
! Define SIC Variables to be used by procedures documented by INPUT
!
! J.Pety 2003-2008 from original ideas of S.Guilloteau and R.Lucas
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if .not.exist(greg) then
   define structure greg /global
endif
if .not.exist(greg%kind) then
   define character greg%kind*4 /global
endif
!
if (file("macro#dir:define-2008.greg").and.(sic%program.eq."greg")) then
   let greg%kind "2008"
   @ define-2008.greg
else
   let greg%kind "2003"
   @ define-2003.greg
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
