File: dx_write.c

package info (click to toggle)
c2x 2.35a%2Bds-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 1,020 kB
  • sloc: ansic: 19,816; makefile: 54; sh: 1
file content (63 lines) | stat: -rw-r--r-- 2,186 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
/* Write an dx file, single density only
 */


/* Copyright (c) 2007 MJ Rutter 
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation, either version 3
 * of the Licence, or (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, see http://www.gnu.org/licenses/
 */ 

#include<stdio.h>
#include<stdlib.h>

#include "c2xsf.h"

void dx_write(FILE* outfile,struct unit_cell *c, struct grid *g){
  int i,j,k;
  double *dptr1,*dptr2;

  fprintf(outfile,"# %s\n\n",g->name);
  fprintf(outfile,"object 1 class array items %d data follows\n",
                  g->size[0]*g->size[1]*g->size[2]);

  dptr2=g->data;
  for(k=0;k<g->size[0];k++){
    for(j=0;j<g->size[1];j++){
      dptr1=dptr2+((k*g->size[1])+j)*g->size[2];
      for(i=0;i<g->size[2];i++)
        fprintf(outfile,"%f\n",*(dptr1+i));
    }
  }

  fprintf(outfile," attribute \"dep\" string \"positions\"\n\n");

  fprintf(outfile,"object 2 class gridpositions counts %d %d %d\n",
                   g->size[0],g->size[1],g->size[2]);
  fprintf(outfile," origin 0.0 0.0 0.0\n");
  for(i=0;i<3;i++)
   fprintf(outfile," delta %f %f %f\n",c->basis[i][0]/g->size[i],
                                       c->basis[i][1]/g->size[i],
                                       c->basis[i][2]/g->size[i]);

  fprintf(outfile,"\nobject 3 class gridconnections counts %d %d %d\n",
                  g->size[0],g->size[1],g->size[2]);
  fprintf(outfile," attribute \"element type\" string \"cubes\"\n"
                  " attribute \"ref\" string \"positions\"\n\n");

  fprintf(outfile,"object \"%s\" class field\n",g->name);
  fprintf(outfile," component \"data\" 1\n"
                  " component \"positions\" 2\n"
                  " component \"connections\" 3\n");

}