
      INTEGER IDFsp , MAXFSP , NFSp
      DOUBLE PRECISION PFSp
 
 
      PARAMETER (MAXFSP=100)
      COMMON /DTCAPA/ PFSp(5,MAXFSP) , IDFsp(MAXFSP) , NFSp
