27 static char chElement[
NPUNLM][5];
28 static long int nColdenEntered;
29 static long int ionstage[
NPUNLM];
33 if( strcmp(chDo,
"READ") == 0 )
47 " Hit EOF while reading line list; use END to end list.\n" );
52 strcpy( chCAP, chCard );
55 while( strncmp(chCAP,
"END" ,3 ) != 0 )
57 if( nColdenEntered >=
NPUNLM )
60 " Too many lines have been entered; the %ld limit is. Increase variable NPUNLM in routine punch_colden.\n",
66 strncpy( chElement[nColdenEntered], chCard , 4 );
69 chElement[nColdenEntered][4] = 0;
84 fprintf(
ioQQQ,
" Hit EOF while reading line list; use END to end list.\n" );
89 strcpy( chCAP, chCard );
97 sprintf( chHeader ,
"#colden %s %3li", chElement[0] , ionstage[0] );
98 for( i=1; i < nColdenEntered; i++ )
100 sprintf( chTemp,
"\t%s %3li", chElement[i] , ionstage[i] );
101 strcat( chHeader, chTemp );
103 strcat( chHeader,
"\n" );
106 else if( strcmp(chDo,
"PUNS") == 0 )
111 for( i=0; i < nColdenEntered; i++ )
125 "\n PROBLEM punch_colden could not find a column density for "
126 "the species with label %s %li \n\n",
127 chElement[i] , ionstage[i] );
132 fprintf( ioPUN,
"\n" );
138 " unrecognized key for punch_colden=%4.4s\n",