Skip to content

Commit

Permalink
Merge pull request #311 from NOAA-EMC/ejh_tabs
Browse files Browse the repository at this point in the history
Remove illegal tab characters, replace with spaces, in all code files
  • Loading branch information
jbathegit authored Feb 7, 2023
2 parents 79a3b13 + 45bacf8 commit 2338468
Show file tree
Hide file tree
Showing 279 changed files with 6,725 additions and 6,726 deletions.
2 changes: 1 addition & 1 deletion src/adn30.f
Original file line number Diff line number Diff line change
Expand Up @@ -24,7 +24,7 @@
C> | 1998-07-08 | J. Woollen | Replaced call to CRAY library routine "ABORT" with call to new internal BUFRLIB routine bort() |
C> | 2003-11-04 | S. Bender | Added remarks and routine interdependencies |
C> | 2003-11-04 | D. Keyser | Unified/portable for WRF; added history documentation |

FUNCTION ADN30(IDN,L30)

COMMON /HRDWRD/ NBYTW,NBITW,IORD(8)
Expand Down
30 changes: 15 additions & 15 deletions src/arallocc.c
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
* @brief Dynamically allocate C language arrays within internal memory.
*
* ### Program History Log
* Date | Programmer | Comments
* Date | Programmer | Comments
* -----|------------|----------
* 2014-12-04 | J. Ator | Original author.
* 2021-05-17 | J. Ator | Allow up to 24 characters in cbunit.
Expand Down Expand Up @@ -54,12 +54,12 @@ void arallocc( void )
nfiles = igetprm( "NFILES", 6 );

if ( ( pb = malloc( (nfiles+1) * sizeof(FILE *) ) ) == NULL ) {
strcat( brtstr, "PB" );
strcat( brtstr, "PB" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( lstpos = malloc( (nfiles+1) * sizeof(fpos_t) ) ) == NULL ) {
strcat( brtstr, "LSTPOS" );
strcat( brtstr, "LSTPOS" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

Expand All @@ -72,62 +72,62 @@ void arallocc( void )
maxcd = igetprm( "MAXCD", 5 );

if ( ( ibfxyn_c = malloc( mxmtbb * sizeof(f77int) ) ) == NULL ) {
strcat( brtstr, "IBFXYN" );
strcat( brtstr, "IBFXYN" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cbscl_c = malloc( mxmtbb * 4 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CBSCL" );
strcat( brtstr, "CBSCL" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cbsref_c = malloc( mxmtbb * 12 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CBSREF" );
strcat( brtstr, "CBSREF" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cbbw_c = malloc( mxmtbb * 4 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CBBW" );
strcat( brtstr, "CBBW" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cbunit_c = malloc( mxmtbb * 24 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CBUNIT" );
strcat( brtstr, "CBUNIT" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cbmnem_c = malloc( mxmtbb * 8 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CBMNEM" );
strcat( brtstr, "CBMNEM" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cbelem_c = malloc( mxmtbb * 120 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CBELEM" );
strcat( brtstr, "CBELEM" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( idfxyn_c = malloc( mxmtbd * sizeof(f77int) ) ) == NULL ) {
strcat( brtstr, "IDFXYN" );
strcat( brtstr, "IDFXYN" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cdseq_c = malloc( mxmtbd * 120 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CDSEQ" );
strcat( brtstr, "CDSEQ" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( cdmnem_c = malloc( mxmtbd * 8 * sizeof(char) ) ) == NULL ) {
strcat( brtstr, "CDMNEM" );
strcat( brtstr, "CDMNEM" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( ndelem_c = malloc( mxmtbd * sizeof(f77int) ) ) == NULL ) {
strcat( brtstr, "NDELEM" );
strcat( brtstr, "NDELEM" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

if ( ( idefxy_c = malloc( mxmtbd * maxcd * sizeof(f77int) ) ) == NULL ) {
strcat( brtstr, "IDEFXY" );
strcat( brtstr, "IDEFXY" );
bort( brtstr, ( f77int ) strlen( brtstr ) );
}

Expand Down
Loading

0 comments on commit 2338468

Please sign in to comment.