cloudy
trunk
|
00001 /* This file is part of Cloudy and is copyright (C)1978-2008 by Gary J. Ferland and 00002 * others. For conditions of distribution and use see copyright notice in license.txt */ 00003 /*ParseAtomCO parse information from the rotor command line */ 00004 #include "cddefines.h" 00005 #include "taulines.h" 00006 #include "parse.h" 00007 00008 void ParseAtomCO(char *chCard ) 00009 { 00010 bool lgEOL; 00011 long int i; 00012 00013 DEBUG_ENTRY( "ParseAtomCO()" ); 00014 00015 if( nMatch("LEVE",chCard) ) 00016 { 00017 /* number of rotation levels for CO */ 00018 00019 /* lgHydroMalloc is false at start of calculation, set true when space 00020 * allocated for the hydrogen lines. Once done we must ignore all 00021 * future changes in the number of levels */ 00022 if( !lgCORotateMalloc ) 00023 { 00024 i = 5; 00025 nCORotate = (long int)FFmtRead(chCard,&i,INPUT_LINE_LENGTH,&lgEOL); 00026 00027 if( nCORotate < 2 ) 00028 { 00029 fprintf( ioQQQ, " This would be too few levels.\n" ); 00030 cdEXIT(EXIT_FAILURE); 00031 } 00032 } 00033 } 00034 00035 else 00036 { 00037 fprintf( ioQQQ, " There should have been a keyword - I know about LEVEL, Stop in ParseAtomCO\n" ); 00038 cdEXIT(EXIT_FAILURE); 00039 } 00040 return; 00041 }