c This is a FORTRAN wrapper for an FTOOL that is written entirely in C
c

      subroutine sa2phI()

      call sa2pha()

      return
      end
