extern double irco_sunlong_c(fint *);