00001 #include "transbclc.h" 00002 00003 transbclc::transbclc (void) 00004 { 00005 // number of load cases 00006 nlc=0; 00007 // load case pointers 00008 lc=NULL; 00009 } 00010 00011 transbclc::~transbclc (void) 00012 { 00013 delete [] lc; 00014 } 00015 00016 /** 00017 function reads data about load cases 00018 00019 @param in - pointer to input file 00020 00021 JK 00022 */ 00023 void transbclc::read (XFILE *in) 00024 { 00025 long i; 00026 00027 xfscanf (in,"%k%ld","number_of_load_cases",&nlc); 00028 lc = new loadcaset [nlc]; 00029 for (i=0;i<nlc;i++){ 00030 lc[i].read (in,i); 00031 } 00032 } 00033 00034 00035 /** 00036 function prints data about load cases 00037 00038 @param out - pointer to output file 00039 00040 TKr 00041 */ 00042 void transbclc::print (FILE *out) 00043 { 00044 long i; 00045 00046 fprintf(out,"\n\n## boundary conditions:\n"); 00047 fprintf (out,"\n"); 00048 fprintf (out,"\n %ld #number of loadcases",nlc); 00049 for (i=0;i<nlc;i++){ 00050 lc[i].print (out,i); 00051 } 00052 } 00053 00054 /** 00055 function searches for elements with nodes where source is defined 00056 00057 JK, 25.6.2005 00058 */ 00059 void transbclc::elemsource () 00060 { 00061 long i; 00062 00063 for (i=0;i<nlc;i++){ 00064 lc[i].elemsource (); 00065 } 00066 00067 } 00068