// File: /workspace/github_c_makefile_star2_O2/usgs[P]nshmp-haz-catalogs/src/agrid/adaptive/read_write_params.c
// Function: write_params_to_file
void write_params_to_file(char *fnm, struct compl_levels* cat_comp, struct boundaries* reg, 
  struct catalog* cat, struct smoothp* smp1, char *outfnm) 
/*--------------------------------------------------------------------------*/
{
  FILE *fpout;
  int cnt;
  
// open summary file for writing
  fpout=fopen(fnm,"w");
  fprintf(fpout,"----------------------------------------------------------\n");
  fprintf(fpout,"---------  Summary of processing steps -------------------\n");
  fprintf(fpout,"----------------------------------------------------------\n\n");
  
// write out parameters
  fprintf(fpout,"Latitudes: %.2f %.2f\n", reg->minlat, reg->maxlat);
  fprintf(fpout,"Longitudes: %.2f %.2f\n", reg->minlon, reg->maxlon);
  fprintf(fpout,"dlat, dlon: %.2f %.2f\n", reg->dlat, reg->dlon);
// completeness levels
  fprintf(fpout,"Number of magnitude completeness levels: %d\n  M yr\n", cat_comp->nlevels);
  for (cnt=0; cnt<cat_comp->nlevels; cnt++) {
    fprintf(fpout,"  %.2f %d\n", cat_comp->mag_comp[cnt], cat_comp->yr_comp[cnt]);
  }
// catalog end year, name, and min-magnitude/d-mag/b-value
  fprintf(fpout,"Last year of catalog: %d\n", cat->end_yr);
  fprintf(fpout,"Name of catalog file: %s\n", cat->catnm);
  fprintf(fpout,"Minimum-M/dM/b-value: %.2f %.2f %.3f\n", cat->minMag, cat->dMag, cat->bval);
// effective/actual numbers earthquakes
  if (smp1->use_neff) {
    fprintf(fpout,"Using effective numbers of earthquakes: N>=1.\n");
  }
  else {
    fprintf(fpout,"Using actual numbers of earthquakes (not effective-numbers): N=1.\n");
  }
// smoothing parameters
  if (smp1->cumul_rates) {
    fprintf(fpout,"Output cumulative rates.\n");
  }
  else {
    fprintf(fpout,"Output incremental rates.\n");
  }
  if (smp1->adj_compl) {
    fprintf(fpout,"Adjust completeness levels.\n");
  }
  else {
    fprintf(fpout,"Don't adjust completeness levels.\n");
  }
  if (smp1->apply_sm) {
    fprintf(fpout,"Apply smoothing to seismicity rates... ");
// gauss/power-law
    if ( smp1->gauss_kern ) {
      fprintf(fpout,"  gaussian kernel ... ");
    }
    else {
      fprintf(fpout,"  power-law kernel ... ");
    }
    if (smp1->adapt_sm) {
      fprintf(fpout," adaptive smoothing - ");
      if (smp1->nnum2_log == 0) {
        fprintf(fpout,"neighbor number %d\n", smp1->nnum);
      }
      else {
        fprintf(fpout,"average of neighbor numbers %d, %d\n", smp1->nnum, smp1->nnum2);
      }
    }
    else {
      fprintf(fpout,"  fixed-radius smoothing: %.1f km\n", smp1->sigfix);
    }
  }
  else {
    fprintf(fpout,"Don't apply smoothing to seismicity rates.\n");
  }
  fprintf(fpout,"Seismicity rates (10^a) written to files, %s[_M0/3/4/5.out]\n", outfnm); 
  
  fclose(fpout);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %r9, 0x10(%rsp)
movq %r8, 0x8(%rsp)
movq %rcx, %r12
movq %rdx, %rbp
movq %rsi, %r13
leaq 0x4224(%rip), %rsi      # 0x660f
callq 0x1150
movq %rax, %r14
leaq 0x484a(%rip), %rdi      # 0x6c44
pushq $0x3b
popq %rbx
pushq $0x1
popq %r15
movq %rbx, %rsi
movq %r15, %rdx
movq %rax, %rcx
callq 0x1190
leaq 0x486a(%rip), %rdi      # 0x6c80
movq %rbx, %rsi
movq %r15, %rdx
movq %r14, %rcx
callq 0x1190
leaq 0x4891(%rip), %rdi      # 0x6cbc
pushq $0x3c
popq %rsi
movq %r15, %rdx
movq %r14, %rcx
callq 0x1190
cvtss2sd 0x14(%rbp), %xmm0
cvtss2sd 0x18(%rbp), %xmm1
leaq 0x44d1(%rip), %rsi      # 0x691b
movq %r14, %rdi
movb $0x2, %al
callq 0x10f0
cvtss2sd 0xc(%rbp), %xmm0
cvtss2sd 0x10(%rbp), %xmm1
leaq 0x44cc(%rip), %rsi      # 0x6931
movq %r14, %rdi
movb $0x2, %al
callq 0x10f0
cvtss2sd 0x20(%rbp), %xmm0
cvtss2sd 0x1c(%rbp), %xmm1
leaq 0x44c8(%rip), %rsi      # 0x6948
movq %r14, %rdi
movb $0x2, %al
callq 0x10f0
movl 0xc(%r13), %edx
leaq 0x44ca(%rip), %rsi      # 0x695f
xorl %ebx, %ebx
movq %r14, %rdi
xorl %eax, %eax
callq 0x10f0
leaq 0x44eb(%rip), %rbp      # 0x6993
movslq 0xc(%r13), %rax
cmpq %rax, %rbx
jge 0x24cf
cvtss2sd 0x3c(%r13,%rbx,4), %xmm0
movl 0x14(%r13,%rbx,4), %edx
movq %r14, %rdi
movq %rbp, %rsi
movb $0x1, %al
callq 0x10f0
incq %rbx
jmp 0x24a8
movl (%r12), %edx
leaq 0x44c4(%rip), %rsi      # 0x699e
movq %r14, %rdi
xorl %eax, %eax
callq 0x10f0
leaq 0x10(%r12), %rdx
leaq 0x44c8(%rip), %rsi      # 0x69b8
movq %r14, %rdi
xorl %eax, %eax
callq 0x10f0
cvtss2sd 0x4(%r12), %xmm0
cvtss2sd 0x8(%r12), %xmm1
cvtss2sd 0xc(%r12), %xmm2
leaq 0x44bc(%rip), %rsi      # 0x69d2
movq %r14, %rdi
movb $0x3, %al
callq 0x10f0
movq 0x8(%rsp), %rbx
cmpl $0x0, 0x14(%rbx)
je 0x2536
leaq 0x451c(%rip), %rdi      # 0x6a4e
pushq $0x2e
jmp 0x253f
leaq 0x4540(%rip), %rdi      # 0x6a7d
pushq $0x42
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
cmpl $0x0, (%rbx)
je 0x255b
leaq 0x4569(%rip), %rdi      # 0x6ac0
pushq $0x19
jmp 0x2564
leaq 0x4578(%rip), %rdi      # 0x6ada
pushq $0x1a
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
cmpl $0x0, 0x4(%rbx)
je 0x2581
leaq 0x4578(%rip), %rdi      # 0x6af5
pushq $0x1c
jmp 0x258a
leaq 0x458a(%rip), %rdi      # 0x6b12
pushq $0x22
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
cmpl $0x0, 0x8(%rbx)
je 0x25c2
leaq 0x4592(%rip), %rdi      # 0x6b35
pushq $0x27
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
cmpl $0x0, 0x20(%rbx)
je 0x25d9
leaq 0x459f(%rip), %rdi      # 0x6b5d
pushq $0x16
jmp 0x25e2
leaq 0x4612(%rip), %rdi      # 0x6bdb
pushq $0x2b
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
jmp 0x2651
leaq 0x4594(%rip), %rdi      # 0x6b74
pushq $0x17
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
cmpl $0x0, 0xc(%rbx)
je 0x2628
leaq 0x4591(%rip), %rdi      # 0x6b8c
pushq $0x16
popq %rsi
pushq $0x1
popq %rdx
movq %r14, %rcx
callq 0x1190
cmpl $0x0, 0x10(%rbx)
movl 0x18(%rbx), %edx
je 0x2640
movl 0x1c(%rbx), %ecx
leaq 0x459b(%rip), %rsi      # 0x6bb7
movq %r14, %rdi
xorl %eax, %eax
callq 0x10f0
jmp 0x2651
cvtss2sd 0x2c(%rbx), %xmm0
leaq 0x46c5(%rip), %rsi      # 0x6cf9
movq %r14, %rdi
movb $0x1, %al
callq 0x10f0
jmp 0x2651
leaq 0x455c(%rip), %rsi      # 0x6ba3
movq %r14, %rdi
xorl %eax, %eax
callq 0x10f0
leaq 0x45af(%rip), %rsi      # 0x6c07
movq %r14, %rdi
movq 0x10(%rsp), %rdx
xorl %eax, %eax
callq 0x10f0
movq %r14, %rdi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x1080
nopl (%rax)