00001
00002
00003
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
00018
00019
00020
00021
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 }