C     ------------------------------------------------------------------
C     FANTALIN additional stuff
C
C     By Gabriele Cavallaro, Andrea Giachetti and Giacomo Parigi (2003)
C     ------------------------------------------------------------------
      CHARACTER*4 NRESFA,NTYPEFA,NRESIDFA  

      COMMON NRESFA(1000),NTYPEFA(1000),NRESIDFA(1000)