21 static char **chSMLab;
26 static long int *ipLine;
29 static bool lgFirst=
true;
41 if( strcmp(chDo,
"READ") == 0 )
47 fprintf(
ioQQQ,
" more than one print line sum has appeared - only first one is used.\n");
48 fprintf(
ioQQQ,
" Sorry.\n");
70 chSMLab[i] = ((
char *)
MALLOC(5*
sizeof(
char )));
82 fprintf(
ioQQQ,
" Hit EOF while reading line list; use END to end list.\n" );
85 strcpy( chCCap, chCard );
88 if( strncmp(chCCap ,
"END" , 3) != 0 )
93 " Too many lines have been entered; the limit is %li. Increase NRDSUM in PrtLineSum.\n",
99 strncpy( chSMLab[nlsum], chCCap , 4 );
100 chSMLab[nlsum][4] = 0;
107 wavelength[nlsum] *= 1e4;
112 wavelength[nlsum] *= 1e8;
123 else if( strcmp(chDo,
" SUM" ) == 0 )
134 for( i=0; i < nlsum; i++ )
137 if( (ipLine[i] =
cdLine((
char*)chSMLab[i],wavelength[i],&relint,&absint) ) <=0 )
139 fprintf(
ioQQQ,
" PrtLineSum could not fine line %4.4s %5f\n",
140 chSMLab[i], wavelength[i] );
147 for( i=0; i < nlsum; i++ )
158 fprintf(
ioQQQ,
" unrecognized key for PrtLineSum=%s\n",