update

quanshengwu · Apr 9, 2018 · f00ecec · f00ecec
1 parent f004962
commit f00ecec
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 8 deletions.
diff --git 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
@@ -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