      integer*4 MF3D_TAS,MF3D_TAI,MF3D_TPS,MF3D_TPI,MF3D_CM,MF3D_CP,
     &          MF3D_CL, MF3D_AM, MF3D_AL, MF3D_M1P,MF3D_M1A,MF3D_M5P,
     &          MF3D_M5A,MF3D_T1A,MF3D_T1P,tibia,calc,meta1,foot,
     &          meta5,toe1,calc_tibia,m1_calc,t1_m1,m5_calc,m1_m5,ft_t1,
     &          ft_tb

      common /f3d/ MF3D_TAS,MF3D_TAI,MF3D_TPS,MF3D_TPI,MF3D_CM,MF3D_CP,
     &             MF3D_CL, MF3D_AM, MF3D_AL, MF3D_M1P,MF3D_M1A,MF3D_M5P,
     &             MF3D_M5A,MF3D_T1A,MF3D_T1P,tibia,calc,meta1,foot,
     &             meta5,toe1,calc_tibia,m1_calc,t1_m1,m5_calc,m1_m5,ft_t1,
     &             ft_tb
