00001
00002
00003
00004 #include "cddefines.h"
00005 #include "taulines.h"
00006 #include "lines_service.h"
00007 #include "phycon.h"
00008 #include "atoms.h"
00009 #include "cooling.h"
00010
00011 void CoolFluo(void)
00012 {
00013 double cs;
00014
00015 DEBUG_ENTRY( "CoolFluo()" );
00016
00017
00018
00019
00020
00021 PutCS(0.60,&TauLines[ipF0229]);
00022 PutCS(0.206,&TauLines[ipF0267]);
00023 PutCS(0.160,&TauDummy);
00024
00025
00026 atom_level3(&TauLines[ipF0229],&TauLines[ipF0267],&TauDummy);
00027
00028
00029
00030
00031 cs = MIN2(0.711,0.1245*phycon.te10*phycon.te05*phycon.te01*
00032 phycon.te001*phycon.te001);
00033 PutCS(cs,&TauLines[ipF444]);
00034
00035
00036 cs = MIN2(1.89,0.2023*phycon.te20*phycon.te003*phycon.te003);
00037 PutCS(cs,&TauLines[ipF425]);
00038 cs = MIN2(0.451,0.02922*phycon.te20*phycon.te05);
00039 PutCS(cs,&TauDummy);
00040
00041
00042 atom_level3(&TauLines[ipF444],&TauLines[ipF425],&TauDummy);
00043 return;
00044 }