From f00ececfe1283ae915fb9c3f19aa4dfe4de32f42 Mon Sep 17 00:00:00 2001
From: QuanSheng Wu <wuquansheng@gmail.com>
Date: Mon, 9 Apr 2018 17:25:54 +0200
Subject: [PATCH] update

---
 soc/Makefile         | 10 +++-------
 soc/fermisurface.f90 |  3 ++-
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/soc/Makefile b/soc/Makefile
index 17e31626..ae2d71c2 100644
--- a/soc/Makefile
+++ b/soc/Makefile
@@ -9,17 +9,13 @@ obj =  module.o aux.o symmetry.o readHmnR.o inverse.o proteus.o \
 		 effective_mass.o findnodes.o \
        main.o
 
-
 # compiler
-f90  = mpif90 -fpp -DMPI # -check all -pg -traceback
+f90  = gfortran -cpp                                              
 
-#FLAGS =  -O3 -nogen-interface  -warn all 
-flag =  -nogen-interface #-warn all 
+flag = -O3                              
 
 # blas and lapack libraries
-libs = -L/opt/intel/mkl/lib/ \
-		-lmkl_intel_lp64 -lmkl_sequential \
-		-lmkl_core -liomp5
+libs = -L/usr/lib/ -llapack -lblas
  
 main :  $(obj)
 	$(f90) $(obj) -o wt.x $(libs) 
diff --git a/soc/fermisurface.f90 b/soc/fermisurface.f90
index 8e4eee6b..28b01f92 100644
--- a/soc/fermisurface.f90
+++ b/soc/fermisurface.f90
@@ -383,7 +383,8 @@ subroutine orbitaltexture
         write(outfileindex, '(a)')'set autoscale fix'
         write(outfileindex, '(a)')'set pm3d interpolate 2,2'
         write(outfileindex, '(2a)')"splot 'fs.dat' u 4:5:(($8)) w pm3d , \"
-        write(outfileindex, '(a)')"     'orbitaltexture.dat' u 4:5:(0):($7/90000):($8/90000):(0)  w vec  head lw 5 lc rgb 'orange' front"
+        write(outfileindex, '(a)')"     'orbitaltexture.dat' u 4:5:(0):($7/90000):($8/90000):(0) \" 
+        write(outfileindex, '(a)')"   w vec  head lw 5 lc rgb 'orange' front"
 
         close(outfileindex)
      endif