Modify visual files

cmsi · Aug 4, 2021 · 7477cf0 · 7477cf0
1 parent 5fb1707
commit 7477cf0
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/visual/Makefile b/visual/Makefile
@@ -1,6 +1,6 @@
 PROG= vtk-generator cube-generator
 F90 = ifort
-OPT = -openmp -i8 -xHOST
+OPT = -qopenmp -i8 -xHOST
 
 all : $(PROG)
 

diff --git a/visual/vtk-generator.F90 b/visual/vtk-generator.F90
@@ -205,7 +205,7 @@ program vtk_generator
  xx= minxyz(1)+(ii-1)*space
  call calcorbital(orbital,cmoa,coord,xx,yy,zz,monum)
  if(abs(orbital) < thresh) orbital= zero
- write(20,'(e16.10)')orbital
+ write(20,'(e16.9)')orbital
  enddo
  enddo
  enddo
@@ -218,7 +218,7 @@ program vtk_generator
  xx= minxyz(1)+(ii-1)*space
  call calcorbital(orbital,cmob,coord,xx,yy,zz,monum)
  if(abs(orbital) < thresh) orbital= zero
- write(20,'(e16.10)')orbital
+ write(20,'(e16.9)')orbital
  enddo
  enddo
  enddo
@@ -233,7 +233,7 @@ program vtk_generator
  xx= minxyz(1)+(ii-1)*space
  call calcorbital2(orbital,cmoa,coord,xx,yy,zz,monum)
  if(abs(orbital) < thresh) orbital= zero
- write(20,'(e16.10)')orbital
+ write(20,'(e16.9)')orbital
  enddo
  enddo
  enddo
@@ -246,7 +246,7 @@ program vtk_generator
  xx= minxyz(1)+(ii-1)*space
  call calcorbital2(orbital,cmob,coord,xx,yy,zz,monum)
  if(abs(orbital) < thresh) orbital= zero
- write(20,'(e16.10)')orbital
+ write(20,'(e16.9)')orbital
  enddo
  enddo
  enddo