Skip to content

GitLab

Commit 7da515eb authored by Tilman Steinweg's avatar Tilman Steinweg
Browse files
Options

small output correction 

corrected the text output of the seismograms (didn't match with actual file output)
parent c7906f60
Hide whitespace changes
Inline Side-by-side
Showing with 13 additions and 13 deletions
src/saveseis.c
View file @ 7da515eb
......@@ -78,42 +78,42 @@ int **recpos, int **recpos_loc, int ntr, float ** srcpos, int ishot,int ns, in
switch (SEISMO){
case 1 : /* particle velocities only */
fprintf(fp,"\n PE %d is writing %d seismogramtraces (vx) to \t %s_vx.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp,"\n PE %d is writing %d seismogramtraces (vx) to \t %s \n",MYID,ntr,vxf);
outseis(fp,fopen(vxf,"w"),1,sectionvx,recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (vy) to \t %s_vy.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (vy) to \t %s \n",MYID,ntr,vyf);
outseis(fp,fopen(vyf,"w"),2,sectionvy,recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (vz) to \t %s_vz.%s.%d \n\n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (vz) to \t %s \n",MYID,ntr,vzf);
outseis(fp,fopen(vzf,"w"),3,sectionvz,recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
break;
case 2 : /* pressure only */
fprintf(fp," PE %d is writing %d seismogramtraces (p) to \t %s.%p.%d \n\n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (p) to \t %s \n",MYID,ntr,pf);
outseis(fp,fopen(pf,"w"), 0,sectionp, recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
break;
case 3 : /* curl and div only */
fprintf(fp," PE %d is writing %d seismogramtraces (div) to \t %s_div.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (div) to \t %s \n",MYID,ntr,divf);
outseis(fp,fopen(divf,"w"),0,sectiondiv,recpos,recpos_loc,ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (curl) to \t %s_rot.%s.%d \n\n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (curl) to \t %s \n",MYID,ntr,curlf);
outseis(fp,fopen(curlf,"w"),0,sectioncurl,recpos,recpos_loc,ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
break;
case 4 : /* everything */
fprintf(fp,"\n PE %d is writing %d seismogramtraces (vx) to \t %s_vx.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp,"\n PE %d is writing %d seismogramtraces (vx) to \t %s \n",MYID,ntr,vxf);
outseis(fp,fopen(vxf,"w"),1,sectionvx,recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (vy) to \t %s_vy.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (vy) to \t %s \n",MYID,ntr,vyf);
outseis(fp,fopen(vyf,"w"),2,sectionvy,recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (vz) to \t %s_vz.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (vz) to \t %s \n",MYID,ntr,vzf);
outseis(fp,fopen(vzf,"w"),3,sectionvz,recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (p) to \t %s_p.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (p) to \t %s \n",MYID,ntr,pf);
outseis(fp,fopen(pf,"w"), 0,sectionp, recpos,recpos_loc, ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (div) to \t %s_div.%s.%d \n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (div) to \t %s \n",MYID,ntr,divf);
outseis(fp,fopen(divf,"w"),0,sectiondiv,recpos,recpos_loc,ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
fprintf(fp," PE %d is writing %d seismogramtraces (curl) to \t %s_rot.%s.%d \n\n",MYID,ntr,seisfile,file_ext,MYID);
fprintf(fp," PE %d is writing %d seismogramtraces (curl) to \t %s \n",MYID,ntr,curlf);
outseis(fp,fopen(curlf,"w"),0,sectioncurl,recpos,recpos_loc,ntr,srcpos1,nsrc,ns,SEIS_FORMAT);
break;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment