swics_eff.h

Go to the documentation of this file.

c $Id: swics_eff.h,v 1.3 1998/02/19 17:04:27 asc Exp $
       Character CEFF*7
       DIMENSION EFF(0:59,7),xM_Q(7),CEFF(7)
       DIMENSION He2t(0:59),H1d(0:59), O6t(0:59),O7t(0:59),
     &           Fe8t(0:59),Fe10t(0:59)
       EQUIVALENCE 
     &            (EFF(0, 1),He2t(0)),  (EFF(0, 2),H1d(0)),
     &            (EFF(0, 3),O6t(0)),   (EFF(0, 4),O7t(0)),
     &            (EFF(0, 5),Fe8t(0)),  (EFF(0, 6),Fe10t(0))
      DATA NELT/ 6/,
     &     CEFF/'4He2t','1H1d','16O6t','16O7t','56Fe8t','56Fe10t', 
     &  'empty'/,
     &     xM_Q/  2.000,  1.000,  2.667,  2.286,  7.000,  5.600 ,0./
      DATA He2t /3.3161E-01,3.2193E-01,3.1228E-01,3.0289E-01,2.9371E-01,
     &  2.8461E-01,2.7602E-01,2.6719E-01,2.5909E-01,2.5058E-01,
     &  2.4256E-01,2.3469E-01,2.2603E-01,2.1810E-01,2.1042E-01,
     &  2.0290E-01,1.9600E-01,1.8941E-01,1.8288E-01,1.7689E-01,
     &  1.7138E-01,1.6577E-01,1.6047E-01,1.5560E-01,1.5112E-01,
     &  1.4608E-01,1.4079E-01,1.3593E-01,1.3144E-01,1.2731E-01,
     &  1.2281E-01,1.1638E-01,1.1045E-01,1.0499E-01,9.9950E-02,
     &  9.5300E-02,9.1010E-02,8.7040E-02,8.2610E-02,7.8070E-02,
     &  7.3870E-02,6.9990E-02,6.6400E-02,6.3070E-02,6.0000E-02,
     &  5.7150E-02,5.4510E-02,5.2060E-02,4.9790E-02,4.7690E-02,
     &  4.5740E-02,4.3930E-02,4.2250E-02,4.1000E-02,3.9900E-02,
     &  3.8880E-02,3.7930E-02,3.7050E-02,3.6230E-02,3.5470E-02/
      DATA H1d  /1.4860E-01,1.4710E-01,1.4551E-01,1.4380E-01,1.4200E-01,
     &  1.4020E-01,1.3825E-01,1.3644E-01,1.3440E-01,1.3251E-01,
     &  1.3059E-01,1.2866E-01,1.2688E-01,1.2498E-01,1.2319E-01,
     &  1.2153E-01,1.1977E-01,1.1812E-01,1.1659E-01,1.1506E-01,
     &  1.1355E-01,1.1216E-01,1.1087E-01,1.0955E-01,1.0829E-01,
     &  1.0712E-01,1.0604E-01,1.0503E-01,1.0397E-01,1.0298E-01,
     &  1.0207E-01,1.0123E-01,1.0045E-01,9.9720E-02,9.8910E-02,
     &  9.8110E-02,9.7370E-02,9.6690E-02,9.6060E-02,9.5470E-02,
     &  9.4920E-02,9.4410E-02,9.3940E-02,9.3510E-02,9.3000E-02,
     &  9.2510E-02,9.2060E-02,9.1640E-02,9.1250E-02,9.0880E-02,
     &  9.0540E-02,9.0230E-02,8.9940E-02,8.9660E-02,8.9410E-02,
     &  8.9180E-02,8.8960E-02,8.8750E-02,8.8570E-02,8.8390E-02/
      DATA O6t /8.2844E-01,8.1437E-01,8.0139E-01,7.8642E-01,7.7260E-01,
     &  7.5631E-01,7.4062E-01,7.2438E-01,7.0803E-01,6.9258E-01,
     &  6.7568E-01,6.6011E-01,6.4431E-01,6.2834E-01,6.1363E-01,
     &  5.9843E-01,5.8348E-01,5.6969E-01,5.5611E-01,5.4236E-01,
     &  5.2967E-01,5.1795E-01,5.0648E-01,4.9559E-01,4.8551E-01,
     &  4.7618E-01,4.6722E-01,4.5791E-01,4.4928E-01,4.4129E-01,
     &  4.3388E-01,4.2700E-01,4.2026E-01,4.1351E-01,4.0726E-01,
     &  4.0145E-01,3.9607E-01,3.9107E-01,3.8643E-01,3.8212E-01,
     &  3.7811E-01,3.7409E-01,3.7023E-01,3.6665E-01,3.6332E-01,
     &  3.6023E-01,3.5735E-01,3.5468E-01,3.5220E-01,3.4989E-01,
     &  3.4774E-01,3.4575E-01,3.4389E-01,3.4217E-01,3.4057E-01,
     &  3.3907E-01,3.3769E-01,3.3640E-01,3.3520E-01,3.3408E-01/
      DATA O7t /8.6405E-01,8.5308E-01,8.4068E-01,8.2919E-01,8.1595E-01,
     &  8.0372E-01,7.9021E-01,7.7717E-01,7.6337E-01,7.4854E-01,
     &  7.3486E-01,7.1957E-01,7.0530E-01,6.9156E-01,6.7676E-01,
     &  6.6311E-01,6.5005E-01,6.3601E-01,6.2306E-01,6.1110E-01,
     &  5.9842E-01,5.8623E-01,5.7497E-01,5.6456E-01,5.5372E-01,
     &  5.4330E-01,5.3366E-01,5.2474E-01,5.1649E-01,5.0835E-01, 
     &  5.0066E-01,4.9352E-01,4.8690E-01,4.8075E-01,4.7505E-01,
     &  4.6976E-01,4.6411E-01,4.5882E-01,4.5390E-01,4.4934E-01,
     &  4.4510E-01,4.4116E-01,4.3751E-01,4.3411E-01,4.3095E-01,
     &  4.2802E-01,4.2529E-01,4.2269E-01,4.2000E-01,4.1750E-01,
     &  4.1518E-01,4.1302E-01,4.1102E-01,4.0915E-01,4.0742E-01,
     &  4.0580E-01,4.0430E-01,4.0291E-01,4.0161E-01,4.0041E-01/
      DATA Fe8t/7.6913E-01,7.5192E-01,7.3495E-01,7.1679E-01,6.9946E-01,
     &  6.8045E-01,6.6283E-01,6.4356E-01,6.2529E-01,6.0686E-01,
     &  5.8815E-01,5.7081E-01,5.5228E-01,5.3476E-01,5.1842E-01,
     &  5.0100E-01,4.8486E-01,4.6989E-01,4.5439E-01,4.3979E-01,
     &  4.2625E-01,4.1335E-01,4.0032E-01,3.8824E-01,3.7704E-01,
     &  3.6665E-01,3.5604E-01,3.4609E-01,3.3687E-01,3.2830E-01,
     &  3.2035E-01,3.1263E-01,3.0481E-01,2.9755E-01,2.9081E-01,
     &  2.8455E-01,2.7873E-01,2.7333E-01,2.6831E-01,2.6347E-01,
     &  2.5826E-01,2.5343E-01,2.4893E-01,2.4476E-01,2.4087E-01,
     &  2.3727E-01,2.3391E-01,2.3079E-01,2.2790E-01,2.2520E-01,
     &  2.2269E-01,2.2036E-01,2.1819E-01,2.1618E-01,2.1430E-01,
     &  2.1256E-01,2.1094E-01,2.0920E-01,2.0755E-01,2.0601E-01/
      DATA Fe10t/8.3407E-01,8.1969E-01,8.0623E-01,7.9100E-01,7.7687E-01,
     &  7.6108E-01,7.4607E-01,7.3029E-01,7.1444E-01,6.9921E-01,
     &  6.8262E-01,6.6722E-01,6.5134E-01,6.3536E-01,6.2053E-01,
     &  6.0499E-01,5.8979E-01,5.7568E-01,5.6153E-01,5.4726E-01,
     &  5.3401E-01,5.2172E-01,5.0895E-01,4.9671E-01,4.8535E-01,
     &  4.7481E-01,4.6461E-01,4.5430E-01,4.4473E-01,4.3584E-01,
     &  4.2759E-01,4.1993E-01,4.1236E-01,4.0496E-01,3.9810E-01,
     &  3.9172E-01,3.8579E-01,3.8028E-01,3.7516E-01,3.7040E-01,
     &  3.6598E-01,3.6145E-01,3.5721E-01,3.5326E-01,3.4959E-01,
     &  3.4618E-01,3.4301E-01,3.4006E-01,3.3732E-01,3.3477E-01,
     &  3.3239E-01,3.3019E-01,3.2814E-01,3.2623E-01,3.2446E-01,
     &  3.2280E-01,3.2127E-01,3.1984E-01,3.1851E-01,3.1727E-01/
 
      DATA CYCLE_TIME/784.25/, SWICS_FAC/378.4/
       Vstep_to_EpQ(DPPS)=0.4271*1.036547**DPPS