share interval FORTRAN translator{=SIFT}