Logo Search packages:      
Sourcecode: necpp version File versions  Download package

void nec_context::ld_card ( int  itmp1,
int  itmp2,
int  itmp3,
int  itmp4,
nec_float  tmp1,
nec_float  tmp2,
nec_float  tmp3 
)

1: "ld" card, loading parameters

	LD	LOADING
		itmp1- 	-1 CANCEL LOADS,
			0=SERIES RLC LUMP,
			1=PARALLEL RLC LUMP,
			2=SERIES DIST.,
			3=PARALLEL DIST. (A),
			4=Z (B),
			5=WIRE COND. (C)
		itmp2- TAG# TO BE LOADED, BLANK/0= USE ABSOLUTE #s	
		itmp3- SEG# OF TAG # TO START LOADS, OR ABSOLUTE SEG#
		itmp4- SEG# OF TAG# TO END LOADS, OR OR ABSOLUTE SEG#
		F1- RES., OHMS, OR (A) OHMS/UNIT LENGTH, OR (B) RES. OR (C) OHMS/METER
		F2- IND., HENRY, OR (A) HY/LENGTH OR (B) REACT. OR (C) BLANK
		F3- CAP,. FARAD, OR (A,B) BLANK
	

Definition at line 373 of file nec_context.cpp.

References nload, and safe_array< T >::resize().

{
      DEBUG_TRACE("ld_card()");
      if ( iflow != 3 )
      {
            iflow=3;
            /* Free loading buffers */
            nload=0;
            ldtyp.resize(0);
            ldtag.resize(0);
            ldtagf.resize(0);
            ldtagt.resize(0);
            zlr.resize(0);
            zli.resize(0);
            zlc.resize(0);
      
            if ( processing_state > 2 )
                  processing_state=2;
            if ( itmp1 == -1 )
                  return; // continue card input loop
      }

      /* Reallocate loading buffers */
      nload++;
      ldtyp.resize(nload);
      ldtag.resize(nload);
      ldtagf.resize(nload);
      ldtagt.resize(nload);
      zlr.resize(nload);
      zli.resize(nload);
      zlc.resize(nload);

      int idx = nload-1;
      ldtyp[idx]= itmp1;
      ldtag[idx]= itmp2;
      if ( itmp4 == 0)
            itmp4= itmp3;
      ldtagf[idx]= itmp3;
      ldtagt[idx]= itmp4; 

      if ( itmp4 < itmp3 )
      {
            nec_stop("DATA FAULT ON LOADING CARD No: %d: ITAG "
                  "STEP1: %d IS GREATER THAN ITAG STEP2: %d",
                  nload, itmp3, itmp4 );
      }

      zlr[idx]= tmp1;
      zli[idx]= tmp2;
      zlc[idx]= tmp3;
}


Generated by  Doxygen 1.6.0   Back to index