
      DOUBLE PRECISION EBIndn , EBIndp , EPOt , ETAcou , FERmod ,
     &                 PFErmn , PFErmp , EXCten
      INTEGER ICOul
 
 
      LOGICAL LFErmi
      COMMON /DTNPOT/ PFErmp(2) , PFErmn(2) , EXCten(2), FERmod ,
     &                EBIndp(2) , EBIndn(2) , EPOt(2,210) ,
     &                ETAcou(2) , ICOul , LFErmi
